start tok64 d64-64itl0
0 PRINT"{blue}{clear}{down*3}sys public domain 1991
1 a$="testbild (c) 1991 mr.p. of softwolves"
2 POKE53280,14:POKE53281,14:PRINT"{white}{home}{down*12}":GOSUB14
3 POKE53280,0:POKE53281,0:FORi=0TO25:PRINT:PRINT,,"{left*6}{white}{reverse on}{space*5}{right*2}{space*5}";:NEXT
5 POKE198,.:WAIT198,1
6 FORi=0TO25:PRINT:PRINT"{white}{reverse on}{space*5}{yellow}{space*5}{cyan}{space*5}{green}{space*5}{156}{space*5}{red}{space*5}{blue}{space*5}";:NEXT
8 POKE198,.:WAIT198,1
9 PRINT"{clear}":RESTORE
10 READcol:IFcol=-1THEN3
11 POKE53280,col:POKE53281,col
12 POKE198,.:WAIT198,1:GOTO10
13 DATA2,5,6,11,12,15,-1
14 FORi=1TOLEN(a$):FORj=38TOi-1STEP-1:PRINT"{up*2}"TAB(j)MID$(a$,i,1)" ":NEXT:NEXT
15 FORi=.TO1000:NEXT:RETURN
stop tok64
(bastext 1.0)