mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-06 02:29:27 +00:00
1 line
268 B
Plaintext
1 line
268 B
Plaintext
5 DIM SCR(6000):DIM COR(500)
|
|
DIM WRG(500):DIM CLK(1000)
|
|
DIM BUT(800)
|
|
10 CLS:PRINT" THIS IS EXERCISE 34"
|
|
CALL MOVETO(20,30):INPUT" IS IT THE ONE YOU WANTED? Y/N "; ANS$
|
|
IF ANS$ = "Y" THEN 12
|
|
IF ANS$= "N" THEN RUN "GRAM 1"
|