1 line
1.2 KiB
Plaintext
1 line
1.2 KiB
Plaintext
5 DIM SCR(6000):DIM COR(500)
|
|
DIM WRG(500):DIM CLK(1000)
|
|
DIM BUT(800)
|
|
10 CLS:PRINT" THIS IS EXERCISE 32"
|
|
CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
|
|
IF ANS$ = "Y" THEN 17
|
|
IF ANS$= "N" THEN RUN "GRAM 1"
|
|
BEEP:BEEP:GOTO 10
|
|
|
|
17 CLS
|
|
CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|
|
IF NOMEN$="" THEN BEEP:GOTO 17
|
|
A=0:SCORE=0:CICI=0
|
|
ON ERROR GOTO 22
|
|
OPEN NOMEN$ FOR INPUT AS #1
|
|
19 IF EOF(1) THEN 20
|
|
INPUT #1, N,S
|
|
IF N=32 THEN A=1
|
|
GOTO 19
|
|
20 CLOSE #1
|
|
IF A>0 THEN 21
|
|
OPEN NOMEN$ FOR APPEND AS #1
|
|
N=32
|
|
S=SCORE
|
|
PRINT#1,N,S
|
|
CLOSE#1
|
|
GOTO 23
|
|
21 PRINT""
|
|
PRINT" YOU HAVE ALREADY DONE THIS EXERCISE."
|
|
INPUT" PLEASE PRESS THE 'RETURN' KEY"; V
|
|
CLS
|
|
RUN "GRAM 1"
|
|
22 PRINT"":PRINT""
|
|
PRINT" NAME NOT FOUND."
|
|
INPUT" PLEASE PRESS THE 'RETURN' KEY"; V
|
|
CLS
|
|
CLEAR
|
|
GOTO 17
|
|
|
|
23 CALL MOVETO(20,50):PRINT"THANK YOU.":FOR DL=1 TO 3000:NEXT DL
|
|
CLS
|
|
PRINT"":SOUND 392,1,20:FOR D=1 TO 200:NEXT D:SOUND 524,3,100
|