100 REM *** FAR-SYS DEMO/TEST ***
110 FAR=51200
120 CK=0
130 READD:IFD=-1THEN150
140 CK=CK+D:GOTO130
150 IFCK<>6830THENPRINT"DATA STATEMENT ERROR!":END
160 RESTORE
170 REM *** POKE ROUTINE TO $F000 ***
180 FORI=0TO55:READD:POKE61440+I,D:NEXT
190 REM *** POKE ROUTINE D-BLOCK ***
200 POKE56334,PEEK(56334)AND254:REM TURN OFF TIMER IRQS
210 POKE1,PEEK(1)AND251:REM SWITCH IN CHR ROM
220 FORI=0TO8:READD:POKE53248+I,D:NEXT
230 POKE1,PEEK(1)OR4:REM PUT BACK I/O
240 POKE56334,PEEK(56334)OR1:REM ENABLE IRQ
250 PRINTCHR$(147);
260 POKE FAR+6,3:SYS FAR,61440:REM EXECUTE ROUTINE UNDER KERNAL
270 GOSUB320
280 PRINTCHR$(19);:FORI=0TO255:PRINT"A";:NEXT
290 GOSUB320
300 POKE FAR+6,5:SYS FAR,53248:REM EXECUTE ROUTINE IN D-BLOCK
310 END
320 FOR T=0TO1500:NEXT
330 RETURN:REM WASTE SOME TIME
340 REM *** UNDERKERN ***
350 DATA238,32,208,169,255,160,240,132
360 DATA20,133,21,24,8,104,141,15
370 DATA3,162,10,160,17,32,44,240
380 DATA169,189,160,205,132,20,133,21
390 DATA8,104,141,15,3,169,255,170
400 DATA32,44,240,96,141,12,3,142
410 DATA13,3,140,14,3,76,3,200
420 REM *** MOVE UNDER D-BLOCK ***
430 DATA162,0,254,0,4,232,208
440 DATA250,96,-1