start bastext 1025 start tok64 d64-v5VQLp 10 SCREEN1:COLOR1,0:PRINT"{clear}":CHAR4,18,0:PRINT"{reverse on}1984" 20 DRAW 30,172 TO 30,12:DRAW 300,172:DRAW300,12TO300,172:DRAW30,12STEP2 25 PRINT"100" 30 FORi=90TO0STEP-10:PRINT:PRINTi:NEXT 130 PRINT"{space*4}j{space*2}f{space*2}m{space*2}a{space*2}m{space*2}j{space*2}j{space*2}a{space*2}s{space*2}o{space*2}n{space*2}d" 140 PRINT"{space*4}a{space*2}e{space*2}a{space*2}p{space*2}a{space*2}u{space*2}u{space*2}u{space*2}e{space*2}c{space*2}o{space*2}e" 150 PRINT"{space*4}n{space*2}b{space*2}r{space*2}r{space*2}y{space*2}n{space*2}l{space*2}g{space*2}p{space*2}t{space*2}v{space*2}c{home}" 170 READa:dy=172-a*1.6:dx=30 200 FORi=1TO11:p=35+((i*3)*8):READ a:y=172-a*1.6:DRAW dx,dy TO p,y:dy=y:dx=p 205 DRAWp,yTOp,12 210 NEXT 220 FORx=30TO298STEP2:DRAWIFx,171TOx,12:NEXT 300 FORi=0TO100STEP10:DRAW30,172-i*1.6TO300,172-i*1.6STEP2:NEXT 400 POKE198,0:WAIT198,1:GETa$:SCREEN0:END 2000 DATA 42, 22, 24, 19,27, 32, 48, 57, 67, 87, 98, 63 stop tok64 (bastext 1.0)