10 MODE 100 EXTENSION (Index #6) (Token 0xac) 199 VARNAME 20 RESERVE 200 REM *************** Set up ************* 210 VARNAME 220 IF 221 VARNAME 230 VARNAME 240 IF 241 VARNAME 25 RESERVE 250 VARNAME 260 IF 261 VARNAME 30 CLS 300 REM ************ Do the Blit **************** 35 LOAD 4 REM *********************************************** 40 FOR 400 EXTENSION (Index #6) (Token 0xac) 410 IF 5 REM ****** PRESS MOUSE TO EXIT PROGRAM *********** 50 PLOT 500 EXTENSION (Index #6) (Token 0x9a) 5000 EXTENSION (Index #6) (Token 0x86) 5010 EXTENSION (Index #6) (Token 0x8c) 5020 EXTENSION (Index #6) (Token 0x82) 5030 EXTENSION (Index #6) (Token 0x84) 5040 EXTENSION (Index #6) (Token 0x88) 5050 EXTENSION (Index #6) (Token 0x8a) 5060 EXTENSION (Index #6) (Token 0x94) 5070 EXTENSION (Index #6) (Token 0x96) 5080 EXTENSION (Index #6) (Token 0x8e) 5090 EXTENSION (Index #6) (Token 0x90) 5100 EXTENSION (Index #6) (Token 0x92) 5110 EXTENSION (Index #6) (Token 0x9c) 5120 EXTENSION (Index #6) (Token 0x98) 5130 EXTENSION (Index #6) (Token 0xa4) 5140 EXTENSION (Index #6) (Token 0x9e) 5150 EXTENSION (Index #6) (Token 0xa2) 5160 IF 5170 EXTENSION (Index #6) (Token 0x86) 5180 EXTENSION (Index #6) (Token 0x8c) 5190 EXTENSION (Index #6) (Token 0x82) 5200 EXTENSION (Index #6) (Token 0x84) 5210 EXTENSION (Index #6) (Token 0x88) 5220 EXTENSION (Index #6) (Token 0x8a) 5230 EXTENSION (Index #6) (Token 0x94) 5240 EXTENSION (Index #6) (Token 0x96) 5250 EXTENSION (Index #6) (Token 0x8e) 5260 EXTENSION (Index #6) (Token 0x90) 5270 EXTENSION (Index #6) (Token 0x92) 5280 EXTENSION (Index #6) (Token 0x9c) 5290 EXTENSION (Index #6) (Token 0x98) 5300 EXTENSION (Index #6) (Token 0xa4) 5310 EXTENSION (Index #6) (Token 0x9e) 5320 EXTENSION (Index #6) (Token 0xa2) 5330 IF 5340 EXTENSION (Index #6) (Token 0x86) 5350 EXTENSION (Index #6) (Token 0x8c) 5360 EXTENSION (Index #6) (Token 0x82) 5370 EXTENSION (Index #6) (Token 0x84) 5380 EXTENSION (Index #6) (Token 0x88) 5390 EXTENSION (Index #6) (Token 0x8a) 5400 EXTENSION (Index #6) (Token 0x94) 5410 EXTENSION (Index #6) (Token 0x96) 5420 EXTENSION (Index #6) (Token 0x8e) 5430 EXTENSION (Index #6) (Token 0x90) 5440 EXTENSION (Index #6) (Token 0x92) 5450 EXTENSION (Index #6) (Token 0x9c) 5460 EXTENSION (Index #6) (Token 0x98) 5470 EXTENSION (Index #6) (Token 0xa4) 5480 EXTENSION (Index #6) (Token 0x9e) 5490 EXTENSION (Index #6) (Token 0xa2) 5500 IF 5600 IF 6 REM *********************************************** 60 NEXT 6000 SCREEN SWAP 6010 WAIT VBL 6020 GOTO 70 SCREEN COPY 75 LOGIC 80 VARNAME 90 CLS