1000 rem LOW RES PLOT DEMO #2
1010 rem D.M.BROAD. 19/2/89.
1020 :
1030 PL=dec("1010")   :rem SYS ADDR
1040 :
1050 sys PL,11,  0,0  :rem SCREEN
1060 sys PL, 0        :rem INITGR
1070 sys PL, 3,  6,0,0:rem SELWIN
1080 sys PL, 5        :rem CLEARW
1090 sys PL, 7,  1,0  :rem MOVETO
1100 sys PL,15, 78,49 :rem BOX
1110 :
1120 Y=8
1130 read S$
1140 do while S$<>""
1150 :gosub 1220: Y=Y+12
1160 :read S$
1170 loop
1180 get key S$
1190 end
1200 :
1210 rem DRAW STRING S$ CENTRED
1220 L=len(S$): CE=(80-L*8)/2
1230 sys PL,7,  CE,Y  :rem MOVETO
1240 for Z=1 to L
1250 :sys PL,16, Zor64:rem COLOUR
1260 :C=asc(mid$(S$,Z,1))and 63
1270 :sys PL,17, C,0  :rem DRAWCH
1280 next Z
1290 return
1300 :
1310 data "GOOD","DAY","EARTHLING",""