Listing of file='LFDRVR.BAS;01' on disk='vmedia/ncc_21-sector.ccvf'
4000 POKE 43955,(128+ PEEK (24577)) 4001 PLOT 3,64,0 4010 COUNT= 0 5000 POKE 43903,171:POKE 43902,172 5001 GOSUB 9997:REM ********** CLEAR INPUT BUFFER 5002 REM 6000 POKE 43903,171:POKE 43902,180 6001 GOSUB 9997:REM ********** CLEAR CHARACTERS FROM DISPLAY 6002 REM 7000 POKE 43903,171:POKE 43902,212 7001 GOSUB 9997:REM ********** MOVE DISPLAY TO INPUT BUFFER 7002 REM 8000 POKE 43903,172:POKE 43902,14 8001 GOSUB 9997:REM ********** COMPUTE NEXT GENERATION 8002 REM 9000 POKE 43903,174:POKE 43902,85 9001 GOSUB 9997:REM ********** DISPLAY NEW GENERATION 9002 REM 9010 COUNT= COUNT+ 1 9020 PLOT 8:PRINT COUNT 9030 PLOT 3,64,0 9996 GOTO 7000 9997 POKE 33284,171:POKE 33283,122 9998 Y= CALL (X) 9999 RETURN