Here is a copy of my largest program called "Program_edition" And it took me ages cause i dont normally make programs this large.
CLS
COLOR 4
LOCATE 3, 3
PRINT "Loading..."
COLOR 12: FOR a = 1 TO 10
SLEEP 1
LOCATE 3, 3
PRINT LEFT$("Loading...", a);
NEXT a
CLS
COLOR 7
PRINT STRING$(80, "*")
PRINT
LOCATE 3, 30
PRINT "Welcome to....."
PRINT
PRINT STRING$(80, "*")
SLEEP 2
CLS
PRINT STRING$(80, "*")
PRINT
LOCATE 3, 30
PRINT "PROGRAM EDITION"
PRINT
PRINT STRING$(80, "*")
SLEEP 2
CLS
PRINT "There is many programs in this one compact program."
PRINT "Ideas come from MIND MAKER QBASIC VERSION1.0 and MIND MAKER QBASIC VERSION 1.1."
PRINT "Which you can find a copy of at http://geocities.com/coreyyeates/index.html"
PRINT "Also you can E-MAIL me at runescape_rune_man@hotmail.com"
PRINT
PRINT "Press <c> to continue."
DO
LOOP UNTIL INKEY$ = "c"
CLS
PRINT
colo: PRINT "COLOR MENU:"
PRINT
COLOR 12
PRINT "(b)right red"
COLOR 10
PRINT "(L)ime"
COLOR 13
PRINT "(p)ink"
COLOR 7
PRINT "(g)ray"
COLOR 15
PRINT "(w)hite"
COLOR 1
PRINT "(d)ark blue"
COLOR 3
PRINT "(c)olor, blueish green"
COLOR 7
DO
i$ = INKEY$
LOOP UNTIL ((i$ = "c") OR (i$ = "b") OR (i$ = "d") OR (i$ = "l") OR (i$ = "p") OR (i$ = "g") OR (i$ = "w"))
IF i$ = "b" THEN GOTO red
IF i$ = "l" THEN GOTO lime
IF i$ = "p" THEN GOTO pink
IF i$ = "g" THEN GOTO grey
IF i$ = "w" THEN GOTO white
IF i$ = "d" THEN GOTO blue
IF i$ = "c" THEN GOTO green
red: COLOR 12: GOTO mmenu
lime: COLOR 10: GOTO mmenu
pink: COLOR 13: GOTO mmenu
grey: COLOR 7: GOTO mmenu
white: COLOR 15: GOTO mmenu
blue: COLOR 1: GOTO mmenu
green: COLOR 3: GOTO mmenu
mmenu: CLS
PRINT "PROGRAM MENU:"
PRINT
PRINT "MIND MAKER VERSION 1.1"
PRINT "A program designed for picking random YES/NO answers"
PRINT "NUMBER 1"
PRINT STRING$(80, "#")
PRINT "DATE AND TIME DISPLAYER"
PRINT "A simple little program that displays the date and time"
PRINT "NUMBER 2"
PRINT STRING$(80, "#")
PRINT "CALCULATOR"
PRINT "A simple designed calculator"
PRINT "NUMBER 3"
PRINT STRING$(80, "#")
PRINT "QWORD"
PRINT "A text based program"
PRINT "NUMBER 4"
PRINT STRING$(80, "#")
PRINT "END"
PRINT "Ends the program"
PRINT "NUMBER 5"
PRINT STRING$(80, "#")
PRINT "NUMBER 6 Next page"
INPUT "Enter the number of the choice: "; a
SELECT CASE a
CASE 6
CLS
sm: CLS
PRINT "PROGRAM MENU(Page two):"
PRINT
PRINT "COLOR CHANGE"
PRINT "Allows you to change the color."
PRINT "NUMBER 1"
PRINT STRING$(80, "#")
PRINT "HELP"
PRINT "Help menu"
PRINT "NUMBER 2"
PRINT STRING$(80, "#")
PRINT "NUMBER AND TEXT"
PRINT "Tells you number and text code/number."
PRINT "NUMBER 3"
PRINT STRING$(80, "#")
PRINT "ASCII TABLE"
PRINT "Shows you the number and what an ascii chr is."
PRINT "NUMBER 4"
PRINT STRING$(80, "#")
PRINT "COMPASS MATHS"
PRINT "A mathmatical game."
PRINT "NUMBER 5"
PRINT STRING$(80, "#")
PRINT "TB TEXT"
PRINT "Converter NUMBER 6"
PRINT STRING$(80, "#")
PRINT "NUMBER 7 Previous page"
PRINT
INPUT "Enter the number of the choice: "; b
SELECT CASE b
CASE 7
GOTO mmenu
CASE 6
CLS
PLAY "t160 fafa"
PRINT "......................................................"
PRINT "TTTTTTTTTTTT.BBBBBBBBBBB.....TTTTT.EEE.X...X.TTTTT...."
PRINT "TTTTTTTTTTTT.BBBBBBBBBBBB......T...E....X.X....T......"
PRINT ".....TT......BB.........BB.....T...EE....X.....T......"
PRINT ".....TT......BB.........BB.....T...E....X.X....T......"
PRINT ".....TT......BB........BB......T...EEE.X...X...T......"
PRINT ".....TT......BBBBBBBBBBB.............................."
PRINT ".....TT......BBBBBBBBBBBB............................."
PRINT ".....TT......BB.........BB............................"
PRINT ".....TT......BB..........BB..........................."
PRINT ".....TT......BB..........BB..........................."
PRINT ".....TT......BB.........BB............................"
PRINT ".....TT......BBBBBBBBBBBB............................."
PRINT ".....TT......BBBBBBBBBBB.............................."
PRINT "======================================================"
PRINT "=====================Made By Corey===================="
PRINT "======================================================"
SLEEP 4
mon: CLS
PRINT "1:Convert Text To Fake Binary"
PRINT "2:View Last"
PRINT "3:Help"
PRINT "4:End"
PRINT
INPUT "Please enter your choice: "; c
SELECT CASE c
CASE 2
LOCATE 2, 1
COLOR 12
PRINT "2:View Last"
SLEEP 1
COLOR 7
PLAY "t160fafa"
CLS
OPEN "BINARY.txt" FOR INPUT AS #1
INPUT #1, qq$
PRINT qq$
CLOSE #1
PRINT "Press ESC to continue"
DO
IF INKEY$ = CHR$(27) THEN GOTO m
LOOP UNTIL INKEY$ = CHR$(27)
GOTO m
CASE 3
LOCATE 3, 1
COLOR 12
PRINT "3:Help"
SLEEP 1
COLOR 7
PLAY "t160fafa"
HM: CLS
PRINT
PRINT "HELP"
PRINT : PRINT
PRINT "Table of Contents:"
PRINT
PRINT "1:Moving Around"
PRINT "2:Put Values In Notepad"
PRINT "3:Back To Menu"
PRINT "4:Back To Main Menu"
PRINT
INPUT "Enter choice: "; coic
IF coic = 4 THEN GOTO sm
IF coic = 1 THEN GOTO moveing
IF coic = 2 THEN GOTO pin
IF coic = 3 THEN GOTO ma
moveing:
LOCATE 7, 1
COLOR 12
PRINT "1:Moving Around"
SLEEP 1
COLOR 7
CLS
PRINT "MOVING AROUND"
PRINT
PRINT "To move around you need to:"
PRINT "A: Follow instructions"
PRINT "B: Enter TEXT when needed"
PRINT "C: Enter NUMBER of choice"
PRINT
PRINT "That is basicly how to move around."
PRINT
PRINT "Press ESC to continue"
DO
IF INKEY$ = CHR$(27) THEN GOTO HM
LOOP UNTIL INKEY$ = CHR$(27)
GOTO HM
pin:
LOCATE 8, 1
COLOR 12
PRINT "2:Put Values In Notepad"
SLEEP 1
COLOR 7
CLS
PRINT "In 3 seconds the entire list of letters and their values will be put in a notepad."
SLEEP 3
OPEN "T-B-T-H.txt" FOR OUTPUT AS #1
PRINT #1, "a = 1000"
PRINT #1, "b = 1001"
PRINT #1, "c = 1010"
PRINT #1, "d = 1011"
PRINT #1, "e = 1100"
PRINT #1, "f = 1101"
PRINT #1, "g = 1111"
PRINT #1, "h = 10000"
PRINT #1, "i = 10001"
PRINT #1, "j = 10010"
PRINT #1, "k = 10011"
PRINT #1, "l = 10100"
PRINT #1, "m = 10101"
PRINT #1, "n = 10110"
PRINT #1, "o = 10111"
PRINT #1, "p = 11000"
PRINT #1, "q = 11001"
PRINT #1, "r = 11010"
PRINT #1, "s = 11011"
PRINT #1, "t = 11100"
PRINT #1, "u = 11101"
PRINT #1, "v = 11110"
PRINT #1, "w = 11111"
PRINT #1, "x = 100000"
PRINT #1, "y = 100001"
PRINT #1, "z = 100010"
CLOSE #1
PRINT "Now the values has been added into a notepad at 'T-B-T-H.txt'"
PRINT "Press ESC to continue"
DO
IF INKEY$ = CHR$(27) THEN GOTO HM
LOOP UNTIL INKEY$ = CHR$(27)
GOTO mon
ma:
LOCATE 9, 1
COLOR 12
PRINT "3:Back To Menu"
SLEEP 1
COLOR 7
GOTO HM
CASE 1
LOCATE 1, 1
COLOR 12
PRINT "1:Convert Text To Fake Binary"
SLEEP 1
COLOR 7
PLAY "t160fafa"
a = 1000
b = 1001
c = 1010
d = 1011
e = 1100
f = 1101
g = 1111
h = 10000
i = 10001
j = 10010
k = 10011
l = 10100
m = 10101
n = 10110
o = 10111
p = 11000
q = 11001
r = 11010
s = 11011
t = 11100
u = 11101
v = 11110
w = 11111
x = 100000
y = 100001
z = 100010
CLS
INPUT "Enter in the text: "; qq$
OPEN "Binary.txt" FOR OUTPUT AS #1
FOR no = 1 TO LEN(qq$)
main$ = MID$(qq$, no, 1)
IF main$ = "a" THEN PRINT a; " "; : PRINT #1, a; " ";
IF main$ = "b" THEN PRINT b; " "; : PRINT #1, b; " ";
IF main$ = "c" THEN PRINT c; " "; : PRINT #1, c; " ";
IF main$ = "d" THEN PRINT d; " "; : PRINT #1, d; " ";
IF main$ = "e" THEN PRINT e; " "; : PRINT #1, e; " ";
IF main$ = "f" THEN PRINT f; " "; : PRINT #1, f; " ";
IF main$ = "g" THEN PRINT g; " "; : PRINT #1, g; " ";
IF main$ = "h" THEN PRINT h; " "; : PRINT #1, h; " ";
IF main$ = "i" THEN PRINT i; " "; : PRINT #1, i; " ";
IF main$ = "j" THEN PRINT j; " "; : PRINT #1, j; " ";
IF main$ = "k" THEN PRINT k; " "; : PRINT #1, k; " ";
IF main$ = "l" THEN PRINT l; " "; : PRINT #1, l; " ";
IF main$ = "m" THEN PRINT m; " "; : PRINT #1, m; " ";
IF main$ = "n" THEN PRINT n; " "; : PRINT #1, n; " ";
IF main$ = "o" THEN PRINT o; " "; : PRINT #1, o; " ";
IF main$ = "p" THEN PRINT p; " "; : PRINT #1, p; " ";
IF main$ = "q" THEN PRINT q; " "; : PRINT #1, q; " ";
IF main$ = "r" THEN PRINT r; " "; : PRINT #1, r; " ";
IF main$ = "s" THEN PRINT s; " "; : PRINT #1, s; " ";
IF main$ = "t" THEN PRINT t; " "; : PRINT #1, t; " ";
IF main$ = "u" THEN PRINT u; " "; : PRINT #1, u; " ";
IF main$ = "v" THEN PRINT v; " "; : PRINT #1, v; " ";
IF main$ = "w" THEN PRINT w; " "; : PRINT #1, w; " ";
IF main$ = "x" THEN PRINT x; " "; : PRINT #1, x; " ";
IF main$ = "y" THEN PRINT y; " "; : PRINT #1, y; " ";
IF main$ = "z" THEN PRINT z; " "; : PRINT #1, z; " ";
IF main$ = "A" THEN PRINT a; " "; : PRINT #1, a; " ";
IF main$ = "B" THEN PRINT b; " "; : PRINT #1, b; " ";
IF main$ = "C" THEN PRINT c; " "; : PRINT #1, c; " ";
IF main$ = "D" THEN PRINT d; " "; : PRINT #1, d; " ";
IF main$ = "E" THEN PRINT e; " "; : PRINT #1, e; " ";
IF main$ = "F" THEN PRINT f; " "; : PRINT #1, f; " ";
IF main$ = "G" THEN PRINT g; " "; : PRINT #1, g; " ";
IF main$ = "H" THEN PRINT h; " "; : PRINT #1, h; " ";
IF main$ = "I" THEN PRINT i; " "; : PRINT #1, i; " ";
IF main$ = "J" THEN PRINT j; " "; : PRINT #1, j; " ";
IF main$ = "K" THEN PRINT k; " "; : PRINT #1, k; " ";
IF main$ = "L" THEN PRINT l; " "; : PRINT #1, l; " ";
IF main$ = "M" THEN PRINT m; " "; : PRINT #1, m; " ";
IF main$ = "N" THEN PRINT n; " "; : PRINT #1, n; " ";
IF main$ = "O" THEN PRINT o; " "; : PRINT #1, o; " ";
IF main$ = "P" THEN PRINT p; " "; : PRINT #1, p; " ";
IF main$ = "Q" THEN PRINT q; " "; : PRINT #1, q; " ";
IF main$ = "R" THEN PRINT r; " "; : PRINT #1, r; " ";
IF main$ = "S" THEN PRINT s; " "; : PRINT #1, s; " ";
IF main$ = "T" THEN PRINT t; " "; : PRINT #1, t; " ";
IF main$ = "U" THEN PRINT u; " "; : PRINT #1, u; " ";
IF main$ = "V" THEN PRINT v; " "; : PRINT #1, v; " ";
IF main$ = "W" THEN PRINT w; " "; : PRINT #1, w; " ";
IF main$ = "X" THEN PRINT x; " "; : PRINT #1, x; " ";
IF main$ = "Y" THEN PRINT y; " "; : PRINT #1, y; " ";
IF main$ = "Z" THEN PRINT z; " "; : PRINT #1, z; " ";
IF main$ = "1" THEN PRINT "01"; : PRINT #1, "01";
IF main$ = "2" THEN PRINT "02"; : PRINT #1, "02";
IF main$ = "3" THEN PRINT "03"; : PRINT #1, "03";
IF main$ = "4" THEN PRINT "04"; : PRINT #1, "04";
IF main$ = "5" THEN PRINT "05"; : PRINT #1, "05";
IF main$ = "6" THEN PRINT "06"; : PRINT #1, "06";
IF main$ = "7" THEN PRINT "07"; : PRINT #1, "07";
IF main$ = "8" THEN PRINT "08"; : PRINT #1, "08";
IF main$ = "9" THEN PRINT "09"; : PRINT #1, "09";
IF main$ = "0" THEN PRINT "00"; : PRINT #1, "00";
IF main$ = "." THEN PRINT "."; : PRINT #1, ".";
IF main$ = "@" THEN PRINT "@"; : PRINT #1, "@";
IF main$ = "_" THEN PRINT "__"; : PRINT #1, "__";
IF main$ = " " THEN PRINT " "; : PRINT #1, " ";
IF main$ = "#" THEN PRINT "#"; : PRINT #1, "#";
IF main$ = "$" THEN PRINT "$"; : PRINT #1, "$";
IF main$ = "%" THEN PRINT "%"; : PRINT #1, "%";
IF main$ = "^" THEN PRINT "^"; : PRINT #1, "^";
IF main$ = "&" THEN PRINT "&"; : PRINT #1, "&";
IF main$ = "*" THEN PRINT "*"; : PRINT #1, "*";
IF main$ = "(" THEN PRINT "("; : PRINT #1, "(";
IF main$ = ")" THEN PRINT ")"; : PRINT #1, ")";
IF main$ = "~" THEN PRINT "~"; : PRINT #1, "~";
IF main$ = "`" THEN PRINT "`"; : PRINT #1, "`";
IF main$ = "-" THEN PRINT "-"; : PRINT #1, "-";
IF main$ = "=" THEN PRINT "="; : PRINT #1, "=";
IF main$ = "+" THEN PRINT "+"; : PRINT #1, "+";
IF main$ = "[" THEN PRINT "["; : PRINT #1, "[";
IF main$ = "]" THEN PRINT "]"; : PRINT #1, "]";
IF main$ = "{" THEN PRINT "{"; : PRINT #1, "{";
IF main$ = "}" THEN PRINT "}"; : PRINT #1, "}";
IF main$ = ":" THEN PRINT ":"; : PRINT #1, ";";
IF main$ = CHR$(34) THEN PRINT CHR$(34); : PRINT #1, CHR$(34)
IF main$ = ";" THEN PRINT ";"; : PRINT #1, ";";
IF main$ = "'" THEN PRINT "'"; : PRINT #1, "'";
IF main$ = "<" THEN PRINT "<"; : PRINT #1, "<";
IF main$ = "," THEN PRINT ","; : PRINT #1, ",";
IF main$ = ">" THEN PRINT ">"; : PRINT #1, ">";
IF main$ = "/" THEN PRINT "/"; : PRINT #1, "/";
IF main$ = "?" THEN PRINT "?"; : PRINT #1, "?";
IF main$ = "\" THEN PRINT "\"; : PRINT #1, "\";
IF main$ = "|" THEN PRINT "|"; : PRINT #1, "|";
IF main$ = "!" THEN PRINT "!!!"; : PRINT #1, "!!!";
NEXT no
CLOSE #1
LOCATE 22, 1
PRINT "Press ESC to continue"
DO
IF INKEY$ = CHR$(27) THEN
END IF
LOOP UNTIL INKEY$ = CHR$(27)
GOTO mon
CASE 4
LOCATE 4, 1
COLOR 12
PRINT "4:End"
SLEEP 1
COLOR 7
CLS
PRINT "Thanks for using..."
SLEEP 3
PLAY "t160ffa"
PRINT "......................................................"
PRINT "TTTTTTTTTTTT.BBBBBBBBBBB.....TTTTT.EEE.X...X.TTTTT...."
PRINT "TTTTTTTTTTTT.BBBBBBBBBBBB......T...E....X.X....T......"
PRINT ".....TT......BB.........BB.....T...EE....X.....T......"
PRINT ".....TT......BB.........BB.....T...E....X.X....T......"
PRINT ".....TT......BB........BB......T...EEE.X...X...T......"
PRINT ".....TT......BBBBBBBBBBB.............................."
PRINT ".....TT......BBBBBBBBBBBB............................."
PRINT ".....TT......BB.........BB............................"
PRINT ".....TT......BB..........BB..........................."
PRINT ".....TT......BB..........BB..........................."
PRINT ".....TT......BB.........BB............................"
PRINT ".....TT......BBBBBBBBBBBB............................."
PRINT ".....TT......BBBBBBBBBBB.............................."
PRINT "======================================================"
PRINT "=====================Made By Corey===================="
PRINT "======================================================"
END
CASE ELSE
PLAY "t162gaga"
CLS
PRINT "Please Enter A Valid Choice!"
PRINT "Press ESC to continue"
IF INKEY$ = CHR$(27) THEN GOTO m
END SELECT
CASE 5
CLS
score = 0
life = 3
'n + Y
b = 4
c = 8
'e - Y
d = 5
e = 2
's /
f = 9
g = 3
'w * Y
h = 3
i = 9
'ne + Y
j = 7
k = 4
'se - Y
l = 9
m = 4
'sw / Y
n = 81
o = 9
'nw * Y
p = 9
q = 6
CLS
PRINT
PRINT "###########################################################"
PRINT "########################.##################################"
PRINT "########################.#.################################"
PRINT "######################.#.#..###############################"
PRINT "#####################..#.#...######################....####"
PRINT "####################...#.#....####################......###"
PRINT "########################.########################..##....##"
PRINT "########################.########################..###....#"
PRINT "###########............................##############.....#"
PRINT "############..........................##############......#"
PRINT "#############........................##############.......#"
PRINT "#.##..##..## #......................#..##..##..###........#"
PRINT "##..##..##..###########################..##..##...........#"
PRINT "###########################################################"
SLEEP 1
CLS
PRINT
PRINT "###########################################################"
PRINT "########################.##################################"
PRINT "########################.#.################################"
PRINT "######################.#.#..###############################"
PRINT "#####################..#.#...#####################....#####"
PRINT "####################...#.#....##################.......####"
PRINT "########################.######################...##....###"
PRINT "########################.######################...###...###"
PRINT "###########............................##############...###"
PRINT "############..........................##############....###"
PRINT "#############........................##############.....###"
PRINT "#.##..##..##.#......................#..##..##..###......###"
PRINT "##..##..##..###########################..##..##.........###"
PRINT "###########################################################"
SLEEP 1
CLS
PRINT
PRINT "###########################################################"
PRINT "################################.##########################"
PRINT "###############################..##########################"
PRINT "##############################....#########################"
PRINT "#############################......########################"
PRINT "############################........#######################"
PRINT "#############################........######################"
PRINT "##############################..............###############"
PRINT "###############################........#####.##############"
PRINT "################################........#####.#############"
PRINT "#################################........#####.############"
PRINT "#.##..##..##..##..##..##..##..#..##########..###..##..##.#"
PRINT "##..##..##..##..##..##..##..##..#############..###..##..###"
PRINT "###########################################################"
SLEEP 1
PRINT "W E L C O M E T O..."
SLEEP 2
PRINT "C O M P A S S M A T H!"
mini: SLEEP 3
CLS
LOCATE 1, 30
PRINT "score: "; score
LOCATE 1, 57
PRINT "Lives: "; life
LOCATE 1, 1
PRINT "NW N NE"
PRINT " \ | / "
PRINT "W-------E"
PRINT " / | \ "
PRINT "SW S SE"
PRINT
PRINT "To end, enter <q>"
INPUT "Enter in DIRECTION: "; a$
SELECT CASE a$
CASE "q"
PRINT
PRINT "Thanks for playing compass maths."
PRINT
PRINT "T O T A L S C O R E I S "; score
PRINT
PRINT "T O T A L L I V E S A R E "; life
SLEEP 5
GOTO sm
CASE "n"
PRINT b; "+"; c
INPUT ""; a
IF a = b + c THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
c = c + c
b = b + b
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "e"
PRINT d; "-"; e
INPUT ""; a
IF a = d - e THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
d = d + d
e = e + e
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "s"
PRINT f; "divide"; g
INPUT ""; a
IF a = f / g THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
f = f + f
g = g + g
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "w"
PRINT h; "X"; i
INPUT ""; a
IF a = h * i THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
h = h + h
i = i + i
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "ne"
PRINT j; "+"; k
INPUT ""; a
IF a = j + k THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
j = j + j
k = k + k
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "se"
PRINT l; "-"; m
INPUT ""; a
IF a = l - m THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
l = l + l
m = m + m
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "sw"
PRINT n; "divide"; o
INPUT ""; a
IF a = n / o THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
n = n + n
o = o + o
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
CASE "nw"
PRINT p; "X"; q
INPUT ""; a
IF a = p * q THEN
PRINT "Correct"
PRINT "You Survive The Wave."
score = score + 5
p = p + p
q = q + q
ELSE
PRINT "Wrong"
PRINT "You Lose A Man From The Impact Of The Wave."
life = life - 1
IF life = 0 THEN GOTO en
END IF
GOTO mini
END SELECT
en: CLS
LOCATE 1, 30
PRINT "score: "; score
LOCATE 1, 57
PRINT "Lives: "; life
LOCATE 1, 1
PRINT "NW N NE"
PRINT " \ | / "
PRINT "W-------E"
PRINT " / | \ "
PRINT "SW S SE"
PRINT
PRINT "G A M E O V E R"
PRINT
PRINT "T O T A L S C O R E I S "; score
SLEEP 5
GOTO sm
CASE 4
CLS
top: FOR a = 1 TO 100
PRINT a; ":"; CHR$(a); " ";
NEXT a
PRINT
INPUT "1: next page 2:end 3:back to main menu: "; a%
IF a% = 2 THEN END
IF a% = 1 THEN
IF a% = 3 THEN GOTO sm
CLS
FOR b = 100 TO 255
PRINT b; ":"; CHR$(b); " ";
NEXT b
PRINT
INPUT "1: previous page 2:end 3:back to main menu: "; a%
IF a% = 1 THEN GOTO top
IF a% = 2 THEN END
IF a% = 3 THEN GOTO sm
END IF
CASE 3
CLS
men: CLS
PRINT "TEXT/NUMBER"
PRINT
PRINT "1: Amount of letters."
PRINT "2: Letter to Number."
PRINT "3: Number to letter."
PRINT
INPUT "What choice: "; b
SELECT CASE b
CASE 1
INPUT "Type in a word to find how long it is: "; a$
PRINT
PRINT
PRINT "The length of the word is: "; LEN(a$)
PRINT
PRINT "1: Back to main menu"
PRINT "2: TEXT/NUMBER menu"
PRINT "3: End"
INPUT "Enter number of choice: "; z
IF z = 1 THEN GOTO sm
IF z = 2 THEN GOTO men
IF z = 3 THEN END
CASE 2
INPUT "type in 1 letters: "; c$
PRINT
PRINT
PRINT "The number of that charecter/s is: "; ASC("c$")
PRINT "1: Back to main menu"
PRINT "2: TEXT/NUMBER menu"
PRINT "3: End"
INPUT "Enter number of choice: "; z
IF z = 1 THEN GOTO sm
IF z = 2 THEN GOTO men
IF z = 3 THEN END
CASE 3
INPUT "Type in a number between (1-255): "; d
PRINT
PRINT
PRINT "That number makes: "; CHR$(d)
PRINT "1: Back to main menu"
PRINT "2: TEXT/NUMBER menu"
PRINT "3: End"
INPUT "Enter number of choice: "; z
IF z = 1 THEN GOTO sm
IF z = 2 THEN GOTO men
IF z = 3 THEN END
END SELECT
CASE 1
PRINT "COLOR MENU:"
PRINT
COLOR 12
PRINT "(b)right red"
COLOR 10
PRINT "(L)ime"
COLOR 13
PRINT "(p)ink"
COLOR 7
PRINT "(g)ray"
COLOR 15
PRINT "(w)hite"
COLOR 1
PRINT "(d)ark blue"
COLOR 3
PRINT "(c)olor, blueish green"
COLOR 7
DO
i$ = INKEY$
LOOP UNTIL ((i$ = "c") OR (i$ = "b") OR (i$ = "d") OR (i$ = "l") OR (i$ = "p") OR (i$ = "g") OR (i$ = "w"))
IF i$ = "b" THEN GOTO reds
IF i$ = "l" THEN GOTO limes
IF i$ = "p" THEN GOTO pinks
IF i$ = "g" THEN GOTO greys
IF i$ = "w" THEN GOTO whites
IF i$ = "d" THEN GOTO blues
IF i$ = "c" THEN GOTO greens
reds: COLOR 12: GOTO sm
limes: COLOR 10: GOTO sm
pinks: COLOR 13: GOTO sm
greys: COLOR 7: GOTO sm
whites: COLOR 15: GOTO sm
blues: COLOR 1: GOTO sm
greens: COLOR 3: GOTO sm
CASE 6
END
CASE 2
CLS
mh: CLS
PRINT "HELP"
PRINT
PRINT "Welcome to the help file where you can fins your question and get a full answer to it."
PRINT
PRINT "Help menu"
PRINT
PRINT "1: How to answer question like the main menu."
PRINT "2: How to answer questiong like (m)enu."
PRINT "3: Using the calculator."
PRINT "4: Using the MIND MAKER 1.1."
PRINT "5: Using the QWord."
PRINT "6: end"
PRINT "7: menu"
PRINT
INPUT "Enter the number of your choice: "; t
SELECT CASE t
CASE 7
GOTO sm
CASE 6
END
CASE 1
CLS
PRINT "How to answer question like the main menu."
PRINT
PRINT "It is very simple how to use that part of the program."
PRINT "All you need to remember is that if there is a question like that just simply"
PRINT "type the number/letter of the choice you want."
PRINT "E.G: Enter the number of your choice: ?4"
PRINT "$ being the choice means that the program will take you to where that is."
PRINT
PRINT "(h)elp menu"
PRINT "(e)nd"
DO
LOOP UNTIL ((INKEY$ = "h") OR (INKEY$ = "e"))
IF INKEY$ = "e" THEN END
IF INKEY$ = "h" THEN GOTO help
CASE 2
PRINT "How to answer question like (m)enu"
PRINT
PRINT "It is simple to answer these questions."
PRINT "All you need to remember is this:"
PRINT "Whatever is middle of the () is the letter you press on the keyboard."
PRINT "Then it will take you to where you need to goto."
PRINT
PRINT "(h)elp menu"
PRINT "(e)nd"
DO
LOOP UNTIL ((INKEY$ = "h") OR (INKEY$ = "e"))
IF INKEY$ = "h" THEN GOTO help
IF INKEY$ = "e" THEN END
help: GOTO mh
hs: GOTO sm
CASE 3
PRINT "Using the calculator"
PRINT
PRINT "The way you use the calculator is simply by doing:"
PRINT "first: choosing your problem you wish to use E.G addition Ect"
PRINT "secondly: Type in you first number you wish to use."
PRINT "Thirdly: type in you second number you wish to use."
PRINT "Fourth: just use the menu to do it again or leave."
PRINT
PRINT "(h)elp menu"
PRINT "(e)nd"
DO
LOOP UNTIL ((INKEY$ = "m") OR (INKEY$ = "e"))
IF INKEY$ = "e" THEN END
IF INKEY$ = "h" THEN GOTO help
CASE 4
PRINT "Using the MIND MAKER 1.1"
PRINT
PRINT "To use MIND MAKER 1.1 just press the button it says and follow the instructions."
PRINT
PRINT "(h)elp menu"
PRINT "(e)nd"
DO
LOOP UNTIL ((INKEY$ = "h") OR (INKEY$ = "e"))
IF INKEY$ = "h" THEN GOTO help
IF INKEY$ = "e" THEN END
CASE 5
PRINT "Using QWord"
PRINT
PRINT "All you need to do is follow all the instructions in qword."
PRINT "There is some helpers in qword already."
PRINT
PRINT "(h)elp menu"
PRINT "(e)nd"
DO
LOOP UNTIL ((INKEY$ = "h") OR (INKEY$ = "e"))
IF INKEY$ = "e" THEN END
IF INKEY$ = "h" THEN GOTO help
END SELECT
END SELECT
CASE 5
END
CASE 3
CLS
PRINT "CALCULATOR"
PRINT
PRINT
GOTO mo
menu: CLS
mo: PRINT "MENU OF PROBLEMS"
PRINT
PRINT "(d)ivision"
PRINT
PRINT "(m)ultiplication"
PRINT
PRINT "(a)ddition"
PRINT
PRINT "(s)ubtraction"
INPUT "Enter the first letter of the problem"; a$
SELECT CASE a$
CASE "a"
a: CLS
PRINT "ADDITION"
PRINT
INPUT "How many number will you use: "; b
DIM a(b)
FOR c = 1 TO b
PRINT "Enter number"; c
INPUT a(c)
d = d + a(c)
NEXT
PRINT "Total is "; d
PRINT
PRINT "(b)ack to menu"
PRINT "(m)ain menu"
PRINT "(e)nd"
PRINT "(a)gain"
DO
LOOP UNTIL ((INKEY$ = "a") OR (INKEY$ = "b") OR (INKEY$ = "m") OR (INKEY$ = "e"))
IF INKEY$ = "a" THEN GOTO a
IF INKEY$ = "b" THEN GOTO menu
IF INKEY$ = "m" THEN GOTO e
IF INKEY$ = "e" THEN END
CASE "s"
s: CLS
PRINT "SUBTRACTION"
PRINT
INPUT "How many number will you use: "; b
DIM a(b)
FOR c = 1 TO b
PRINT "Enter number"; c
INPUT a(c)
d = d - a(c)
NEXT
PRINT "Total is "; d
PRINT
PRINT "(b)ack to menu"
PRINT "(m)ain menu"
PRINT "(e)nd"
PRINT "(a)gain"
DO
LOOP UNTIL ((INKEY$ = "a") OR (INKEY$ = "b") OR (INKEY$ = "m") OR (INKEY$ = "e"))
IF INKEY$ = "a" THEN GOTO s
IF INKEY$ = "b" THEN GOTO menu
IF INKEY$ = "m" THEN GOTO e
IF INKEY$ = "e" THEN END
CASE "m"
m: CLS
PRINT "MULTIPLICATION"
PRINT
INPUT "How many number will you use: "; b
DIM a(b)
FOR c = 1 TO b
PRINT "Enter number"; c
INPUT a(c)
d = d * a(c)
NEXT
PRINT "Total is "; d
PRINT
PRINT "(b)ack to menu"
PRINT "(m)ain menu"
PRINT "(e)nd"
PRINT "(a)gain"
DO
LOOP UNTIL ((INKEY$ = "b") OR (INKEY$ = "a") OR (INKEY$ = "m") OR (INKEY$ = "e"))
IF INKEY$ = "a" THEN GOTO m
IF INKEY$ = "b" THEN GOTO menu
IF INKEY$ = "m" THEN GOTO e
IF INKEY$ = "e" THEN END
CASE "d"
d: CLS
PRINT "DIVISION"
PRINT
INPUT "How many number will you use: "; b
DIM a(b)
FOR c = 1 TO b
PRINT "Enter number"; c
INPUT a(c)
d = d / a(c)
NEXT
PRINT "Total is "; d
PRINT
PRINT "(b)ack to menu"
PRINT "(m)ain menu"
PRINT "(e)nd"
PRINT "(a)gain"
DO
LOOP UNTIL ((INKEY$ = "a") OR (INKEY$ = "b") OR (INKEY$ = "m") OR (INKEY$ = "e"))
IF INKEY$ = "a" THEN GOTO d
IF INKEY$ = "b" THEN GOTO menu
IF INKEY$ = "m" THEN GOTO e
IF INKEY$ = "e" THEN END
CASE ELSE
CLS
PRINT "Wrong Choice"
END SELECT
e: GOTO mmenu
CASE 1
RANDOMIZE TIMER
CLS
'MIND MAKER IS COPYRIGHTED COREY 2006 - 2007
'QBASIC VERSION
'MIND MAKER QBASIC VERIONS 1.0
'-----------------------------------------
'-----------------------------------------
i$ = INKEY$
PRINT "MIND MAKER"
PRINT
PRINT "Press space to continue."
DO
LOOP UNTIL INKEY$ = " "
CLS
PRINT "This is one of unknown copys of MIND MAKER qbasic verion 1.0"
PRINT "No copy of this program can be made or placed on sites without permission."
PRINT "Thanks you"
PRINT
PRINT "Press space to continue."
DO
LOOP UNTIL INKEY$ = " "
beg: CLS
PRINT "Think of a YES or NO question and PRESS SPACE"
DO
LOOP UNTIL INKEY$ = " "
CLS
a = INT(RND * 12) + 1
SELECT CASE a
CASE 1
PRINT "Yes"
CASE 2
PRINT "No"
CASE 3
PRINT "Hell no"
CASE 4
PRINT "Of course"
CASE 5
PRINT "defintely"
CASE 6
PRINT "Always"
CASE 7
PRINT "Ask again"
CASE 8
PRINT "Never"
CASE 9
PRINT "Absolutely"
CASE 10
PRINT "Why not"
CASE 11
PRINT "Sorry did not hear your thought"
CASE 12
PRINT "Yep"
CASE 13
PRINT "If you think so"
END SELECT
PRINT
PRINT "Thank you for using Corey Y's program"
PRINT
PRINT "(t)ry again"
PRINT "(e)xit"
PRINT "(m)enu"
DO
i$ = INKEY$
LOOP UNTIL ((i$ = "t") OR (i$ = "e") OR (i$ = "m"))
IF i$ = "t" THEN GOTO beg
IF i$ = "e" THEN END
IF i$ = "m" THEN GOTO mmenu
CASE 2
CLS
PRINT "TIME AND DATE DISPLAYER"
PRINT
clo: DO
CLS
PRINT "Press <s> to stop the clock"
PRINT
PRINT "*************************"
PRINT "* * *"
PRINT "* Time: * Date: *"
PRINT "* * *"
PRINT "* * *"
PRINT "* "; TIME$; " * "; DATE$; " *"
PRINT "* * *"
PRINT "*************************"
SLEEP 1
LOOP UNTIL INKEY$ = "s"
PRINT
PRINT "(m)enu"
PRINT "(e)nd"
PRINT "(s)tart the clock again"
DO
i$ = INKEY$
LOOP UNTIL ((INKEY$ = "m") OR (INKEY$ = "e") OR (INKEY$ = "s"))
IF INKEY$ = "e" THEN END
IF INKEY$ = "m" THEN GOTO e
IF INKEY$ = "s" THEN GOTO cl
cl: GOTO clo
CASE 4
CLS
PRINT STRING$(80, "~")
PRINT STRING$(80, "~")
PRINT
PRINT "Press Space To Continue"
PRINT
PRINT STRING$(80, "~")
PRINT STRING$(80, "~")
DO
in$ = INKEY$
LOOP UNTIL ((in$ = " "))
CLS
PRINT
PRINT "QWord"
PRINT "~-~-~"
PRINT "This Was Made By <Corey Yeates><Aged:11><New Zealand>"
PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
PRINT "This Is A Very Basic Word Program."
PRINT "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
GOSUB mm
me: CLS
mm:
PRINT "(i)nstructions"
PRINT "(c)ontinue"
PRINT "(e)xit"
PRINT "(m)ain menu"
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "i") OR (in$ = "m") OR (in$ = "c") OR (in$ = "e"))
IF in$ = "m" THEN GOTO e
IF in$ = "i" THEN GOSUB pg1
IF in$ = "c" THEN GOSUB c
IF in$ = "e" THEN END
pg1: CLS
PRINT "Instrutions sheet PG1"
PRINT
PRINT "QWord"
PRINT
PRINT
PRINT "Moving around:"
PRINT "To move around PRESS what the KEY it says to PRESS."
PRINT
PRINT "Entering text:"
PRINT "Enter text just like entering it in NOTEPAD."
PRINT
PRINT "Running out of space to type:"
PRINT "If you run out of space PRESS the KEY it says to make more space."
PRINT
PRINT "Choosing:"
PRINT "APPEND version is to add more to the last note you made."
PRINT "OUTPUT version is to delete and start again with you note space."
PRINT
PRINT "(n)ext"
PRINT "(b)ack to menu"
PRINT "(e)xit"
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "n") OR (in$ = "b") OR (in$ = "e"))
IF in$ = "n" THEN GOSUB pg2
IF in$ = "b" THEN GOSUB me
IF in$ = "e" THEN END
pg2: CLS
PRINT "QWord"
PRINT
PRINT "Information About:"
PRINT "QWord"
PRINT
PRINT "Version 1.0"
PRINT "2006"
PRINT "10/06/06"
PRINT
PRINT "(p)revious"
PRINT "(b)ack to menu"
PRINT "(e)xit"
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "p") OR (in$ = "b") OR (in$ = "e"))
IF in$ = "p" THEN GOSUB pg1
IF in$ = "b" THEN GOSUB me
IF in$ = "e" THEN END
c: CLS
PRINT "(o)UTPUT"
PRINT "(a)PPEND"
PRINT "(v)iew last added note"
PRINT "(e)xit"
PRINT "(m)ain menu"
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "o") OR (in$ = "m") OR (in$ = "a") OR (in$ = "v") OR (in$ = "e"))
IF in$ = "o" THEN GOTO oput
IF in$ = "a" THEN GOTO apnd
IF in$ = "v" THEN GOTO vw
IF in$ = "e" THEN END
IF in$ = "m" THEN GOTO e
oput:
OPEN "note.txt" FOR OUTPUT AS #1
PRINT "When finished/ran out of space PRESS enter."
INPUT "Enter Text Here: "; text$
PRINT "(f)inish"
PRINT "(m)ore"
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "f") OR (in$ = "m"))
IF in$ = "f" THEN GOSUB fin
IF in$ = "m" THEN GOSUB med
fin: PRINT #1, text$
CLOSE #1
GOSUB menu
PRINT #1, text$
med:
CLOSE #1
OPEN "note.txt" FOR APPEND AS #1
INPUT "More Text Here: "; text$
PRINT #1, text$
PRINT "(b)ack to menu"
PRINT "(m)ore"
CLOSE #1
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "b") OR (in$ = "m"))
IF in$ = "b" THEN GOSUB me
IF in$ = "m" THEN GOSUB med
apnd:
OPEN "note.txt" FOR APPEND AS #1
mor:
INPUT "Add more to your notes: "; text$
PRINT "(m)ore"
PRINT "(f)inish"
PRINT #1, text$
CLOSE #1
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "m") OR (in$ = "f"))
IF in$ = "m" THEN GOSUB mor
IF in$ = "f" THEN GOSUB me
vw: OPEN "note.txt" FOR INPUT AS #1
INPUT #1, text$
PRINT text$
CLOSE #1
PRINT "(b)ack to menu"
PRINT "(e)xit"
PRINT "(t)he main menu"
DO
in$ = INKEY$
LOOP UNTIL ((in$ = "b") OR (in$ = "t") OR (in$ = "e"))
IF in$ = "b" THEN GOSUB me
IF in$ = "e" THEN END
IF in$ = "t" THEN GOTO e
END SELECT
Please tell me any bugs or anything i should change, i made this quite a will ago now.