8-Bit Software Online Conversion

One liner entry from L1L - Listing

0MODE0:REM LINE 0 By CJR. Line 10 BY L1L 10INPUT"Mode "m:MODEm:INPUT"$"A$:INPU T"X"X:INPUT"Y"Y:PRINTTAB(X,Y)A$:Y=32-Y-1 :Z=16*(1+m):X=X*Z:Y=Y*32:F=10:G=F/(2-m): MOVEX-F,Y-G:DRAWX+Z*LEN(A$)+F,Y-G:DRAWX+ Z*LEN(A$)+F,Y+32+G:DRAWX-F,Y+32+G:DRAWX- F,Y-G