x = 1
a$ = "PRINT"
b$ = "PAINT"
c$ = "PLAY"
d$ = "SLEEP"
e$ = "CLS"
f$ = "END"
g$ = "COLOR"
h$ = "INPUT"
CLS
main:
PRINT "Press <c> to continue."
DO
LOOP UNTIL INKEY$ = "c"
CLS
OPEN "CODE.txt" FOR APPEND AS #1
LOCATE 19, 1
PRINT "0:exit"
PRINT "1:PRINT"
PRINT "2:PAINT"
PRINT "3:PLAY"
PRINT "4:SLEEP"
PRINT "5:CLS"
PRINT "6:END"
PRINT "7:COLOR"
PRINT "8:INPUT"
INPUT "Enter number: "; a
SELECT CASE a
CASE 0
END
CASE 1
LOCATE 20, 30
INPUT "What text would you like in it: "; text$
LOCATE x, 1
PRINT a$; " "; CHR$(34); text$; CHR$(34)
PRINT #1, a$; " "; CHR$(34); text$; CHR$(34)
CLOSE #1
GOTO main
CASE 2
LOCATE 20, 30
INPUT "enter 1st number: "; aa
LOCATE 21, 30
INPUT "enter 2nd number: "; ab
LOCATE 22, 30
INPUT "enter 3rd number: "; ac
LOCATE x, 1
PRINT b$; " ("; aa; ", "; ab; "),"; ac
PRINT #1, b$; " ("; aa; ", "; ab; "),"; ac
CLOSE #1
GOTO main
CASE 3
LOCATE 20, 30
INPUT "Enter in the music: "; mus$
LOCATE x, 1
PRINT c$; " "; CHR$(34); mus$; CHR$(34)
PRINT #1, c$; " "; CHR$(34); mus$; CHR$(34)
CLOSE #1
GOTO main
CASE 4
LOCATE 19, 30
INPUT "Enter how long the sleep will be: "; a
LOCATE x, 1
PRINT d$; " "; a
PRINT #1, d$; " "; a
CLOSE #1
GOTO main
CASE 5
LOCATE x, 1
PRINT e$
PRINT #1, e$
CLOSE #1
GOTO main
CASE 6
LOCATE x, 1
PRINT f$
PRINT #1, f$
CLOSE #1
GOTO main
CASE 7
LOCATE 20, 30
INPUT "Enter in text color: "; col
LOCATE 21, 30
INPUT "Enter in bgcolor color: "; colr
IF col = colr THEN
LOCATE 1, 1
PRINT "Colors can't be same."
CLOSE #1
GOTO main
END IF
LOCATE x, 1
PRINT g$; " "; col; ", "; colr
PRINT #1, g$; " "; col; ", "; colr
CLOSE #1
GOTO main
CASE 8
INPUT "Enter text for input: "; inp$
INPUT "Enter in the variable: "; inpv$
LOCATE x, 1
PRINT h$; " "; CHR$(34); inp$; CHR$(34); "; "; inpv$
PRINT #1, h$; " "; CHR$(34); inp$; CHR$(34); "; "; inp$
CLOSE #1
GOTO main
CASE ELSE
PRINT "Please enter in a valid number!"
GOTO main
END SELECT