Listing of file='CUSTOM.BAS;01' on disk='vmedia/ncc_2-sector.ccvf'
0 PLOT 12,27,68 1 PRINT "LOAD SCREEN.DSP" 10 PLOT 27,27 20 X= PEEK (33278) 30 IF X= 27THEN GOSUB 100 40 IF X= 9THEN GOSUB 200 50 IF X= 64THEN GOSUB 300 60 IF X> 239AND X< 256THEN GOSUB 400 90 GOTO 20 100 REM SAVE DISPLAY 110 PLOT 8,27,68 115 PRINT "SAVE SCREEN.DSP 6000-6FFF" 120 PLOT 12 125 END 200 PLOT 255,26,32,8,2:POKE 33278,0 205 RETURN 300 PLOT 26,32,26 302 POKE 33278,0 305 PLOT 10:RETURN 400 IF X= 255THEN PLOT 255,26,32,26:POKE 33278,0:RETURN 410 PLOT 255,8 411 P= X 415 T= 4 420 IF X= 246OR X= 250THEN T= 3 421 IF X= 248OR X= 253OR X= 252OR X= 244THEN T= 2 490 FOR EN= 1TO T 500 X= PEEK (33278) 505 IF X< 48OR X> 57THEN 500 510 A$= A$+ CHR$ (X) 515 Z= Z+ 1 520 POKE 33278,0 525 IF Z< 3THEN 500 530 A(EN)= VAL (A$) 535 A$= "":Z= 0 540 NEXT EN 545 PLOT 2,P,A(1),A(2),A(3),A(4),255 546 FOR EN= 1TO 4:A(EN)= 0:NEXT EN 550 RETURN