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
PROGRAM LISTING: 84-02/MONITOR.LST