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 

---

Back to previous page