mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-02 07:41:35 +00:00
1 line
289 B
Plaintext
1 line
289 B
Plaintext
|
10 CLS:PRINT" THIS IS EXERCISE 33"
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
CALL MOVETO(20,30):INPUT"PLEASE TYPE IN AND ENTER YOUR NAME", NOMEN$
|