start tok64 d64-KzZjCy
0 REM sv oberoende computer #2/1988
1 q$=CHR$(34):POKE53280,0:POKE53281,0:PRINT"{clear}{orange}skrivet 88' av anders hansson.
2 PRINT"{pink}{down}anv[nd ! och labeln innanf{pound}r 2 st "q$" och sluta med ett :
3 PRINT"{down*2}{yellow}exempel:":PRINT"{-*8}{cyan}":PRINT"{down}10 !"q$"print"q$":
4 PRINT"20 !"q$"wait"q$":":PRINT"30 end":PRINT"35 :":PRINT"40 rem"q$"print"q$
5 PRINT"50 print"q$"{clear}hello{.*3}"q$":return":er=53270
6 PRINT"60 rem"q$"wait"q$:PRINT"70 fori=1to1{0*3}:next:return":ad=49152:ck=23788
7 READbt:IFbt=-1THENIFch<>ckTHENPRINT"{clear}{down}data is wrong{.*3}":STOP
8 IFbt<>-1THENPOKEad,bt:ad=ad+1:POKEer,bt:ch=ch+bt:GOTO7
9 POKEer,8:SYS49152:END
10 DATA169,192,141,9,3,169,15,141,8,3,76,174,167,234,234,234,32,115,0,201
11 DATA33,240,7,32,121,0,76,231,167,234,230,122,208,2,230,123,234,165,122
12 DATA133,34,165,123,133,35,165,43,133,122,165,44,133,123,32,115,0,201,143
13 DATA240,15,165,46,197,123,208,243,165,45,197,122,208,237,76,162,192,160
14 DATA0,32,115,0,209,34,208,225,200,192,40,240,239,169,58,209,34,208,238
15 DATA32,9,169,24,152,101,122,133,122,144,2,230,123,160,4,177,122,133,21
16 DATA136,177,122,133,20,165,34,133,122,165,35,133,123,169,3,32,251,163
17 DATA169,167,72,169,174,72,165,123,72,165,122,72,165,58,72,165,57,72,169
18 DATA141,72,32,121,0,32,163,168,76,174,167,162,26,189,175,192,32,22,231
19 DATA202,208,247,76,174,167,13,69,76,66,65,76,73,65,86,65,32,84,79,78,32
20 DATA69,78,73,84,85,79,82,66,85,83,13,-1
stop tok64
(bastext 1.0)