1 line
377 B
Plaintext
1 line
377 B
Plaintext
3 DIM SCR(5000):DIM BOX(800):DIM SMFC(200):DIM FFC(200):DIM PIECE(800)
|
|
DIM SIGN(800)
|
|
10 CLS:PRINT" THIS IS EXERCISE 20"
|
|
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:GOTO 10
|
|
|
|
17 CLS
|
|
18 CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|