150 TM=PEEK(30897)+PEEK(30898)*256 - 256
160 ST=TM+1
170 J=0
180 READ D:IF D=-1 THEN 230
190 L=ST+J
200 IF L>32767 THEN L=L-65536
210 POKE L,D
220 J=J+1:GOTO 180
230 MS=INT(ST/256)
240 LS=ST-(MS*256)
250 POKE 30846,LS: POKE 30847,MS
260 MODE(1):CLS
270 POKE 30777,1
280 POKE 30845,195
290 FOR A=0TO2000STEP33
300 POKE7*4096+A,255
310 NEXT
315 A$=INKEY$
320 A$=INKEY$:IF A$=""THEN320
900 POKE 30845,201:POKE30777,35
920 MODE (0):CLS:END
1000 DATA 62
1005 DATA 24 :REM MODE 8=GRAPHICS 16=COLORSELECT
1006 DATA 50,0,104,1
1010 DATA 189,5 :REM DELAY
1020 DATA 11,121,176,32,251,0,62
1025 DATA 8 :REM MODE 8
1026 DATA 50,0
1030 DATA 104,241,225,209,193,241,251,237,77,33,0,112,17,1,112,1
1040 DATA 127,0,54,96,237,176,201,0,0,0,0,-1
