5 REM ÔÈÉÓ ÐÒÏÇÒÁÍ ÉÓ ÎÏÔ ÍÅÁÎÔ ÔÏ ÒÕÎÏΠÉÔÓ Ï×ή ÉÔ§Ó ÐÁÒÔ ÏÆ Á ÆÏÕÒ­ÐÁÒÔ  ÓÅÒÉÅÓ ÃÁÌÌÅÄ §ÏÄÄÍÁΧ ÉΠÎÏÖ®­ÆÅ®   ›10 REM *****************************›20 REM * *›30 REM * ODD MAN OUT MONITOR *›40 REM * *›50 REM * BY *›60 REM * *›70 REM * JOHN AND MARY HARRISON *›80 REM * *›90 REM * FOR *›100 REM * *›110 REM * ANTIC MAGAZINE *›120 REM * *›130 REM *****************************›140 DIM NAME$(20),Z$(5)›150 OPEN #5,4,0,"E:"›160 TRAP 320›170 OPEN #2,4,0,"D:RECORD.DAT"›180 TRAP 40000›190 GRAPHICS 0:POKE 752,1:REM POKE 16,112:POKE 53774,112›200 POSITION 11,1:? "ÏÄÄ ÍÁΠÏÕÔ ÒÅÐÏÒÔ"›210 POSITION 2,3:? "ÎÁÍÅ":POSITION 20,3:? "ÌÅÖÅÌ ÓÃÏÒÅ":? ›220 TRAP 350›230 CTR=0›240 INPUT #2;NAME$:INPUT #2;LEVEL:INPUT #2;SCORE›250 X=20-LEN(NAME$)›260 ? NAME$;:POKE 201,X:? ,LEVEL;:POKE 201,9:? ,SCORE›270 CTR=CTR+1›280 IF CTR<15 THEN 240›290 ? "Press RETURN to contiue.";›300 INPUT #5;Z$›310 ? "}":GOTO 200›320 REM FILE DOES NOT EXIST TRAP›330 IF PEEK(195)<>170 THEN ? "ERROR - ";PEEK(195);" IN LINE 170":CLOSE #2:END ›340 ? "FILE RECORD.DAT DOES NOT EXIST. UNABLE TO PROVIDE REPORT.":CLOSE #2:END ›350 REM OUT OF DATA TRAP›360 POKE 84,20:POKE 201,10:POKE 752,0›370 IF PEEK(195)<>136 THEN ? "ERROR - ";PEEK(195);" IN LINE ";PEEK(186)+256*PEEK(187)›380 CLOSE #2›390 ? "Press RETURN to continue"›400 INPUT #5;Z$:? "}"›410 ? "Do you want to delete the stored information? ";:INPUT #5;Z$›420 IF Z$(1,1)="Y" THEN OPEN #2,8,0,"D:RECORD.DAT":CLOSE #2›430 END ›