My program...

[terrythebest2003]

Ok, here is my program, tell me if you have any concerns or anything like that, actually I am looking for different ways to improve it so, if you have any ideas post them...

DECLARE SUB DrawTruck ()
53446
CLS
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT " THIS IS THE FINE PROGRAM OF TERRY CREW "
PRINT " ON THE ROAD TO SUCCESS......"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
COLOR 6
INPUT "Special command"; speccom$
IF UCASE$(speccom$) = "SKIP" THEN
GOTO 999
END IF
IF UCASE$(speccom$) = "SWITCH" THEN
INPUT "Open what file?"; filetoopen$
IF filetoopen$ = "DATA" THEN
CHAIN "a:\data9103.bas"
END IF
IF filetoopen$ = "GAMES" THEN
CHAIN "a:/BATTLE.bas"
END IF
END IF
IF UCASE$(speccom$) = "DATA ANYLASIS" THEN
INPUT "Open what file?"; filetoopen$
IF filetoopen$ = "DATA" THEN
CHAIN "a:\data9103.bas"
END IF
IF filetoopen$ = "GAMES" THEN
CHAIN "a:/BATTLE.bas"
END IF
END IF
SLEEP 2
SCREEN 11, 0
CALL DrawTruck
DIM Truck%(1000)
GET (20, 21)-(119, 70), Truck%
CLS
LINE (0, 0)-(319, 148), , B
CIRCLE (0, 0), 20
LINE (14, 14)-(50, 50)
LINE (19, 3)-(70, 10)
LINE (3, 17)-(12, 65)
FOR n = 1 TO 210
PUT (n, 100), Truck%, PSET
LINE (0, 148)-(319, 148)
NEXT n:
IF n < 1 THEN GOTO 999
F$ = INPUT$(1)
PRINT "UOIHOHQEOHTOPHEQPJHTPJHEQHLHTLHLJHPHOPIH ACCESS DENIED-"
PRINT "NNBLKNOHOIHONLNLNLGWNOHRJIBWGHWJKBIUKJBU ACCESS DENIED-"
PRINT "OHEQYRONSJNBSLRHLOHKNQRKBSDLHOIHRJLKFBJK ACCESS DENIED-"
PRINT "OIHOVHRWBKBJKHIEHOHKBKBSUIGABHWEBKBWYWVJ ACCESS DENIED-"
PRINT "GIWGRPJKJBQBMXUFJUAKBQOEGKSJBDKJWBKPIOPK ACCESS DENIED-"
PRINT "EHJKBKBEJBCJVWYWBVJAPOLKJWQJBRHBEBHIBSHV ACCESS DENIED-"
PRINT "HEHBDEJBARQCWEGSYTDLKNMKNLEEBKBKBGJBBNMD ACCESS DENIED-"
PRINT "HJFNVMZBSIDTGIWHRUHGGIHWEIUGEBINBIHBEFYF ACCESS DENIED-"
PRINT "JBKNEOIJFGNBGUYQONLKNFXCVGIBAJLJORHOHBGK ACCESS DENIED-"
PRINT "KJBEIGIEPORKHKNHEHIGUFQEAYGVJUVKBRIEWNKK ACCESS DENIED-"
PRINT "IHREHBVEJBEGIGACZUYFUQWBELEWUHEPOHOHREBS ACCESS DENIED-"
PRINT "JKBEBGEQGIBQENONHOEQUEQHKNNELOJPJWROPJPR ACCESS DENIED-"
PRINT "HENNFJUHUOIHEHOIFGWYTYYGIEHOILEKHEQEHOHH ACCESS DENIED-"
PRINT "CKHEWHWREBWRNBLNLOHEIYEHEBLKLHROIRHEPOIP ACCESS DENIED-"
PRINT "XLHRWHENBKJBKJEUOIEHOIENBEJLEHOEYOIWOPUW ACCESS DENIED-"
PRINT "VGREEWRUGIEWEJBKWLJWIOPUYHWOIYWOYOIHEQHR ACCESS DENIED-"
PRINT "HIRWUHWRJGJGKNKBEKEWUIGEUGIQFAJHVSUOIWUD ACCESS DENIED-"
PRINT "HEJBKRWJHRUOEEPPOHLEQJHEJBDNBACSUGACDUGE ACCESS DENIED-"
PRINT "UGIEUEENBKJBKHGOIEQUOGEQRUOGREUGHKJEUJUU ACCESS DENIED-"
PRINT "NMBNMDHGUGIEUGIEQQEHGREHVBVASFGYGIEUGIEH ACCESS DENIED-"
PRINT "UOIHOHQEOHTOPHEQPJHTPJHEQHLHTLHLJHPHOPIH ACCESS DENIED-"
PRINT "NNBLKNOHOIHONLNLNLGWNOHRJIBWGHWJKBIUKJBU ACCESS DENIED-"
PRINT "OHEQYRONSJNBSLRHLOHKNQRKBSDLHOIHRJLKFBJK ACCESS DENIED-"
PRINT "OIHOVHRWBKBJKHIEHOHKBKBSUIGABHWEBKBWYWVJ ACCESS DENIED-"
PRINT "GIWGRPJKJBQBMXUFJUAKBQOEGKSJBDKJWBKPIOPK ACCESS DENIED-"
PRINT "EHJKBKBEJBCJVWYWBVJAPOLKJWQJBRHBEBHIBSHV ACCESS DENIED-"
PRINT "HEHBDEJBARQCWEGSYTDLKNMKNLEEBKBKBGJBBNMD ACCESS DENIED-"
PRINT "HJFNVMZBSIDTGIWHRUHGGIHWEIUGEBINBIHBEFYF ACCESS DENIED-"
PRINT "JBKNEOIJFGNBGUYQONLKNFXCVGIBAJLJORHOHBGK ACCESS DENIED-"
PRINT "KJBEIGIEPORKHKNHEHIGUFQEAYGVJUVKBRIEWNKK ACCESS DENIED-"
PRINT "IHREHBVEJBEGIGACZUYFUQWBELEWUHEPOHOHREBS ACCESS DENIED-"
PRINT "JKBEBGEQGIBQENONHOEQUEQHKNNELOJPJWROPJPR ACCESS DENIED-"
PRINT "HENNFJUHUOIHEHOIFGWYTYYGIEHOILEKHEQEHOHH ACCESS DENIED-"
PRINT "CKHEWHWREBWRNBLNLOHEIYEHEBLKLHROIRHEPOIP ACCESS DENIED-"
PRINT "XLHRWHENBKJBKJEUOIEHOIENBEJLEHOEYOIWOPUW ACCESS DENIED-"
PRINT "VGREEWRUGIEWEJBKWLJWIOPUYHWOIYWOYOIHEQHR ACCESS DENIED-"
PRINT "HIRWUHWRJGJGKNKBEKEWUIGEUGIQFAJHVSUOIWUD ACCESS DENIED-"
PRINT "HEJBKRWJHRUOEEPPOHLEQJHEJBDNBACSUGACDUGE ACCESS DENIED-"
PRINT "UGIEUEENBKJBKHGOIEQUOGEQRUOGREUGHKJEUJUU ACCESS DENIED-"
PRINT "NMBNMDHGUGIEUGIEQQEHGREHVBVASFGYGIEUGIEH ACCESS DENIED-"
PRINT "EQHBKEOIHOIIPEQGHKGEQWHGKASDBKEUGIERUIYH ACCESS DENIED-"
PRINT "SBEUGIEVGMNVEUIGREJUGEJBKEUDABKDUGIFUGIF ACCESS DENIED-"
PRINT "JHFJHJHRKJBGSKJBSDASDJGKASDJGKSDJGKASDJG ACCESS DENIED-"
PRINT "JBKUOHEJHOMBWHOIEIEUOEUTIGKGHASDOIPEHLKE ACCESS DENIED-"
PRINT "JGKWHGKEQUTIQREGIGHGKREQUOGERHFSGREUGIRE ACCESS DENIED-"
PRINT "JGKGEKHBUGUHVEUHVDUYFDWUYFWQJHSDJVADHAIP ACCESS DENIED-"
PRINT "YEEHVHVSYGIEHGIEJBKWREJLBKEWRIOIPEEJGJGK ACCESS DENIED-"
PRINT "UHEWFJBKEJBKDFGIYGFADJHVAJHVDGGEUOIEWRUU ACCESS DENIED-"
PRINT "HBEJUBJKBKBFEUGIEEGKHJKASDJGKUGIEUEUOGHG ACCESS DENIED-"
PRINT "XCVKDFUYEJGKERJGKQREJGKEQRERJGKEYOIASDSD ACCESS DENIED-"
PRINT "UOIHOHQEOHTOPHEQPJHTPJHEQHLHTLHLJHPHOPIH ACCESS DENIED-"
PRINT "NNBLKNOHOIHONLNLNLGWNOHRJIBWGHWJKBIUKJBU ACCESS DENIED-"
PRINT "OHEQYRONSJNBSLRHLOHKNQRKBSDLHOIHRJLKFBJK ACCESS DENIED-"
PRINT "OIHOVHRWBKBJKHIEHOHKBKBSUIGABHWEBKBWYWVJ ACCESS DENIED-"
PRINT "GIWGRPJKJBQBMXUFJUAKBQOEGKSJBDKJWBKPIOPK ACCESS DENIED-"
PRINT "EHJKBKBEJBCJVWYWBVJAPOLKJWQJBRHBEBHIBSHV ACCESS DENIED-"
PRINT "HEHBDEJBARQCWEGSYTDLKNMKNLEEBKBKBGJBBNMD ACCESS DENIED-"
PRINT "HJFNVMZBSIDTGIWHRUHGGIHWEIUGEBINBIHBEFYF ACCESS DENIED-"
PRINT "JBKNEOIJFGNBGUYQONLKNFXCVGIBAJLJORHOHBGK ACCESS DENIED-"
PRINT "KJBEIGIEPORKHKNHEHIGUFQEAYGVJUVKBRIEWNKK ACCESS DENIED-"
PRINT "IHREHBVEJBEGIGACZUYFUQWBELEWUHEPOHOHREBS ACCESS DENIED-"
PRINT "JKBEBGEQGIBQENONHOEQUEQHKNNELOJPJWROPJPR ACCESS DENIED-"
PRINT "HENNFJUHUOIHEHOIFGWYTYYGIEHOILEKHEQEHOHH ACCESS DENIED-"
PRINT "CKHEWHWREBWRNBLNLOHEIYEHEBLKLHROIRHEPOIP ACCESS DENIED-"
PRINT "XLHRWHENBKJBKJEUOIEHOIENBEJLEHOEYOIWOPUW ACCESS DENIED-"
PRINT "VGREEWRUGIEWEJBKWLJWIOPUYHWOIYWOYOIHEQHR ACCESS DENIED-"
PRINT "HIRWUHWRJGJGKNKBEKEWUIGEUGIQFAJHVSUOIWUD ACCESS DENIED-"
PRINT "HEJBKRWJHRUOEEPPOHLEQJHEJBDNBACSUGACDUGE ACCESS DENIED-"
PRINT "UGIEUEENBKJBKHGOIEQUOGEQRUOGREUGHKJEUJUU ACCESS DENIED-"
PRINT "NMBNMDHGUGIEUGIEQQEHGREHVBVASFGYGIEUGIEH ACCESS DENIED-"
PRINT "EQHBKEOIHOIIPEQGHKGEQWHGKASDBKEUGIERUIYH ACCESS DENIED-"
PRINT "SBEUGIEVGMNVEUIGREJUGEJBKEUDABKDUGIFUGIF ACCESS DENIED-"
PRINT "JHFJHJHRKJBGSKJBSDASDJGKASDJGKSDJGKASDJG ACCESS DENIED-"
PRINT "JBKUOHEJHOMBWHOIEIEUOEUTIGKGHASDOIPEHLKE ACCESS DENIED-"
PRINT "JGKWHGKEQUTIQREGIGHGKREQUOGERHFSGREUGIRE ACCESS DENIED-"
PRINT "JGKGEKHBUGUHVEUHVDUYFDWUYFWQJHSDJVADHAIP ACCESS DENIED-"
PRINT "YEEHVHVSYGIEHGIEJBKWREJLBKEWRIOIPEEJGJGK ACCESS DENIED-"
PRINT "UHEWFJBKEJBKDFGIYGFADJHVAJHVDGGEUOIEWRUU ACCESS DENIED-"
PRINT "HBEJUBJKBKBFEUGIEEGKHJKASDJGKUGIEUEUOGHG ACCESS DENIED-"
PRINT "XCVKDFUYEJGKERJGKQREJGKEQRERJGKEYOIASDSD ACCESS DENIED-"
PRINT "UOIHOHQEOHTOPHEQPJHTPJHEQHLHTLHLJHPHOPIH ACCESS DENIED-"
PRINT "NNBLKNOHOIHONLNLNLGWNOHRJIBWGHWJKBIUKJBU ACCESS DENIED-"
PRINT "OHEQYRONSJNBSLRHLOHKNQRKBSDLHOIHRJLKFBJK ACCESS DENIED-"
PRINT "OIHOVHRWBKBJKHIEHOHKBKBSUIGABHWEBKBWYWVJ ACCESS DENIED-"
PRINT "GIWGRPJKJBQBMXUFJUAKBQOEGKSJBDKJWBKPIOPK ACCESS DENIED-"
PRINT "EHJKBKBEJBCJVWYWBVJAPOLKJWQJBRHBEBHIBSHV ACCESS DENIED-"
PRINT "HEHBDEJBARQCWEGSYTDLKNMKNLEEBKBKBGJBBNMD ACCESS DENIED-"
PRINT "HJFNVMZBSIDTGIWHRUHGGIHWEIUGEBINBIHBEFYF ACCESS DENIED-"
PRINT "JBKNEOIJFGNBGUYQONLKNFXCVGIBAJLJORHOHBGK ACCESS DENIED-"
PRINT "KJBEIGIEPORKHKNHEHIGUFQEAYGVJUVKBRIEWNKK ACCESS DENIED-"
PRINT "IHREHBVEJBEGIGACZUYFUQWBELEWUHEPOHOHREBS ACCESS DENIED-"
PRINT "JKBEBGEQGIBQENONHOEQUEQHKNNELOJPJWROPJPR ACCESS DENIED-"
PRINT "HENNFJUHUOIHEHOIFGWYTYYGIEHOILEKHEQEHOHH ACCESS DENIED-"
PRINT "CKHEWHWREBWRNBLNLOHEIYEHEBLKLHROIRHEPOIP ACCESS DENIED-"
PRINT "XLHRWHENBKJBKJEUOIEHOIENBEJLEHOEYOIWOPUW ACCESS DENIED-"
PRINT "VGREEWRUGIEWEJBKWLJWIOPUYHWOIYWOYOIHEQHR ACCESS DENIED-"
PRINT "HIRWUHWRJGJGKNKBEKEWUIGEUGIQFAJHVSUOIWUD ACCESS DENIED-"
PRINT "HEJBKRWJHRUOEEPPOHLEQJHEJBDNBACSUGACDUGE ACCESS DENIED-"
PRINT "UGIEUEENBKJBKHGOIEQUOGEQRUOGREUGHKJEUJUU ACCESS DENIED-"
PRINT "NMBNMDHGUGIEUGIEQQEHGREHVBVASFGYGIEUGIEH ACCESS DENIED-"
PRINT "EQHBKEOIHOIIPEQGHKGEQWHGKASDBKEUGIERUIYH ACCESS DENIED-"
PRINT "SBEUGIEVGMNVEUIGREJUGEJBKEUDABKDUGIFUGIF ACCESS DENIED-"
PRINT "JHFJHJHRKJBGSKJBSDASDJGKASDJGKSDJGKASDJG ACCESS DENIED-"
PRINT "JBKUOHEJHOMBWHOIEIEUOEUTIGKGHASDOIPEHLKE ACCESS DENIED-"
PRINT "JGKWHGKEQUTIQREGIGHGKREQUOGERHFSGREUGIRE ACCESS DENIED-"
PRINT "JGKGEKHBUGUHVEUHVDUYFDWUYFWQJHSDJVADHAIP ACCESS DENIED-"
PRINT "YEEHVHVSYGIEHGIEJBKWREJLBKEWRIOIPEEJGJGK ACCESS DENIED-"
PRINT "UHEWFJBKEJBKDFGIYGFADJHVAJHVDGGEUOIEWRUU ACCESS DENIED-"
PRINT "HBEJUBJKBKBFEUGIEEGKHJKASDJGKUGIEUEUOGHG ACCESS DENIED-"
PRINT "XCVKDFUYEJGKERJGKQREJGKEQRERJGKEYOIASDSD ACCESS DENIED-"
PRINT "EQHBKEOIHOIIPEQGHKGEQWHGKASDBKEUGIERUIYH ACCESS DENIED-"
PRINT "SBEUGIEVGMNVEUIGREJUGEJBKEUDABKDUGIFUGIF ACCESS DENIED-"
PRINT "JHFJHJHRKJBGSKJBSDASDJGKASDJGKSDJGKASDJG ACCESS DENIED-"
PRINT "JBKUOHEJHOMBWHOIEIEUOEUTIGKGHASDOIPEHLKE ACCESS DENIED-"
PRINT "JGKWHGKEQUTIQREGIGHGKREQUOGERHFSGREUGIRE ACCESS DENIED-"
PRINT "JGKGEKHBUGUHVEUHVDUYFDWUYFWQJHSDJVADHAIP ACCESS DENIED-"
PRINT "YEEHVHVSYGIEHGIEJBKWREJLBKEWRIOIPEEJGJGK ACCESS DENIED-"
PRINT "UHEWFJBKEJBKDFGIYGFADJHVAJHVDGGEUOIEWRUU ACCESS DENIED-"
PRINT "HBEJUBJKBKBFEUGIEEGKHJKASDJGKUGIEUEUOGHG ACCESS DENIED-"
PRINT "XCVKDFUYEJGKERJGKQREJGKEQRERJGKEYOIASDSD ACCESS DENIED-"
PRINT "JLBKREWEOEGJKVQWJLKEQJLKHGOYHUOIYOOIYOIH ACCESS DENIED-"
PRINT "LJBEEWRUOGWGKGKBJBKEUUOGEUEEJHJKJGKJGKEW ACCESS DENIED-"
PRINT "JBGKEHOEJBGKDFNBDNBDJHDVUGIKGEMLBKEKJBEG ACCESS DENIED-"
PRINT "UGEWGNMKBKBEUGIEEQWFVJGKGEQRJKREUGEUUETI ACCESS DENIED-"
PRINT "JBNBBEKGIHKGEIUGEGEHVVEKIGIEUFGTEUITUIGE ACCESS DENIED-"
PRINT "NHLKWHRYLKHLOHROIYYOEWKJBJKBASDOYHOHJLKH ACCESS DENIED-"
PRINT "HEWUOTUGEKBGSRHKYNLKNRLOJHOIPYOIOIHKIUHH ACCESS DENIED-"
PRINT "WHKIBLAWRJVJLVCUIFEWULVCLKJUHVCULYFWJUVH ACCESS DENIED-"
PRINT "WFEBGDREJKGILGLVLKBRJLBTGJLIGWLRIGILGIGW ACCESS DENIED-"
PRINT "BTKIBRIWLBJBJBVILWGIFVHVJWGEIRGILGLIGKGH ACCESS DENIED-"
PRINT "IUGUIEGKTBVJKEJVGSCVJHWDTIUTEWJGKSDFJKJJ ACCESS DENIED-"
PRINT "FBBUWTGJLBVJLVFJVW8DYVJLVWNBFLJKHGTIUGGI ACCESS DENIED-"
PRINT "VIGEITHUOEHWOTOYOITYOIYRUOWYOYOIYOYOYOIY ACCESS DENIED-"
PRINT "EBJFGJVUIJUHVGEJVUGVFUYEFGIGRIGJKEVQFOHJ ACCESS DENIED-"
PRINT "FHGJUBVWJRBTGIHBLIGLIBGILIVBJLKBVJKVJVJD ACCESS DENIED-"
PRINT "NCSNVJUVEWUVJHVHKVJHGCUYHFUYFUVGCJVJKEUE ACCESS DENIED-"
PRINT "MQWOIQIGKIFENVMNVSAIUGEQKFVKEQBFUOIGIEJG ACCESS DENIED-"
PRINT "FNBNJYNMBADVJGKADOIYWUIPEQJGKEJGKEJGKEED ACCESS DENIED-"
PRINT "PKVKNSBFEHFEUGIEFJBEUGIERWUTIBJNBFWEEGIE ACCESS DENIED-"
PRINT "MNMBAKBAFEEEHGEJHAJKGSDIFGIGJKEVGKEVKIEV ACCESS DENIED-"
PRINT "MANAKDBAYBVSVJUHGEFIGGQJKGJHVEJHVFASEYYT ACCESS DENIED-"
PRINT "PLAIJEBAYSEGJBKWREKBFGUOIGUFIEGIGASKJBKA ACCESS DENIED-"
PRINT "TEJEVDBAYSIVEHBKFEFEIUGEFUOGIFEUOGOFEUGE ACCESS DENIED-"
PRINT "XVBXXBBAYSIDFEGEJBKKEUGIFEGIGHGIFGKEGJKE ACCESS DENIED-"
PRINT "MDASGYBAYSIDEEHUGIWFEFGIEGIYEWFHGIFEHVEE ACCESS DENIED-"
PRINT "TEJJTEBAYSIDENSADFJHADIYTDFAWCVJWIPWUGIW ACCESS DENIED-"
PRINT "OYWRETBAYSIDEFHDFFEEIUGQWEQWOWOPASLASHGK ACCESS DENIED-"
PRINT "REJHJNBAYSIDEGHIEFMDMZXCVHOIWJGKQWEJHEQW ACCESS DENIED-"
PRINT "BWETWEBAYSIDEBHIGDVWUIJHHGASDUIUYWOIYWEQ ACCESS DENIED-"
PRINT "WASDFFBAYSIDEBHIGHBVCDSDFUIGASDFEOIQHJQW ACCESS DENIED-"
PRINT "MNBETWBAYSIDEHHIGHGMSCEDFUEQUQWEASJEOEOI ACCESS DENIED-"
PRINT "POLEHSBAYSIDEIHIGHMSMNCDJHEEQQGJKVGJHBVA ACCESS DENIED-"
PRINT "BLKELKBAYSIDEQHIGHNSCUHVKHWERKBGKEWGHKWE ACCESS DENIED-"
PRINT "HOWAJDBAYSIDEEHIGHUSCHVCCIEUEKJBGEJKJGKE ACCESS DENIED-"
PRINT "DFKBKEBAYSIDEDHIGHJSCHOKBKBKJBKJBKJBKJBB ACCESS DENIED-"
PRINT "INNNLNBAYSIDEKHIGHWSCHOOOHEOHJKHBKBKJBKJ ACCESS DENIED-"
PRINT "ADSRHHBAYSIDELHIGHNSCHOOLHGOBKBKBKBKBKBB ACCESS DENIED-"
PRINT " "
PRINT "------BAYSIDE HIGH SCHOOL--------------- ACCESS GRANTED"
PRINT ""
PRINT "WELCOME......."
PRINT "WE HAVE BEEN AWAITING YOU......."
SLEEP 3
offender = 0
a = 0
b = 0
c = 0
D = 0
aa = 0
ba = 0
ca = 0
da = 0
ab = 0
ba = 0
cb = 0
db = 0
ac = 0
bc = 0
cc = 0
dc = 0
ad = 0
bd = 0
cd = 0
dd = 0
ae = 0
be = 0
ce = 0
de = 0
af = 0
BF = 0
cf = 0
df = 0
ag = 0
bg = 0
cg = 0
dg = 0
ah = 0
bh = 0
ch = 0
dh = 0
ai = 0
bi = 0
ci = 0
di = 0
aj = 0
bj = 0
cj = 0
dj = 0
ak = 0
bk = 0
ck = 0
dk = 0
al = 0
bl = 0
cl = 0
dl = 0
am = 0
bm = 0
cm = 0
dm = 0
an = 0
bn = 0
cn = 0
dn = 0
ao = 0
bo = 0
co = 0
doz = 0
ap = 0
bp = 0
cp = 0
dp = 0
aq = 0
bq = 0
cq = 0
dq = 0
ar = 0
br = 0
cr = 0
dr = 0
asz = 0
bs = 0
cs = 0
ds = 0
at = 0
bt = 0
ct = 0
dt = 0
au = 0
bu = 0
cu = 0
du = 0
av = 0
bv = 0
cv = 0
dv = 0
aw = 0
bw = 0
cw = 0
dw = 0
ax = 0
bx = 0
cx = 0
dx = 0
ay = 0
by = 0
cy = 0
dy = 0
az = 0
bz = 0
cz = 0
dz = 0
aaa = 0
baa = 0
caa = 0
daa = 0
aab = 0
bab = 0
cab = 0
dab = 0
aac = 0
bac = 0
cac = 0
dac = 0
aad = 0
bad = 0
cad = 0
dad = 0
SCREEN 2
CLS
FOR radius = 1 TO 200 STEP 3
CIRCLE (320, 100), radius
NEXT radius
m$ = INPUT$(1):
SLEEP 1
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT " LOADING";
SLEEP 1
PRINT ".";
SLEEP 1
PRINT ".";
SLEEP 1
PRINT ".";
SLEEP 1
PRINT ".";
SLEEP 1
PRINT ".";
SLEEP 1
PRINT ". ";
SLEEP 1
SCREEN 0
999
CLS
SCREEN 0
COLOR 7
PRINT " This is a survey system, developed to record the largest amount of"
PRINT " information possible, while minimizing the amount of questions"
PRINT " needed. Although you may not be refered to directly"
PRINT " the information that is given may be refered to statistically."
PRINT " If you should need to exit immediatly due to any problems you may do so"
PRINT " by typing 'end'. Then type 'A'."
PRINT " If you are interested in my project as a whole, immediatly type 'help'"
PRINT " now. The first question will immediatly pop up, so don't be alarmed."
COLOR 7
PRINT ""
PRINT ""
PRINT ""
PRINT " WHEN YOU NEED TO LEAVE TYPE 'END' AND FOLLOW DIRECTIONS!!!!!"
SLEEP
CLS
COLOR 7
10
n = 10
CLS
PRINT ""
PRINT "What is the general range of your age?"
PRINT "A= 7-20 years old"
PRINT "B= 21-35 years old"
PRINT "C= 36-60 years old"
PRINT "D= 61 years old and over"
INPUT "And your answer is (please type in capital letters)"; age$
IF age$ = "demonstrate" THEN
CLS
PRINT "READ THE FOLLOWING VERY CAREFULLY AND COUNT THE TIME THAT IT TAKES"
PRINT "YOU TO READ THE FOLLOWING PARAGRAPGH, ADD TWO SECONDS TO YOUR TOTAL..."
PRINT "You may ask why I am asking you to count the seconds that it takes you"
PRINT "to read this. The answer is simple, to find out a constant amount of"
PRINT "time that it takes you to read and understand an average paragraph."
PRINT "You were informed to add two seconds to your final total because it may"
PRINT "take you a couple of extra seconds to understand what I am talking about"
PRINT ", because it is a totally new subject, or at least it may be to you..."
INPUT "Well, how long did it take you"; secondstoread
CLS
PRINT " This program was designed to take a survey from both adults and"
PRINT "students. And then to automatically solve and investigate"
PRINT "into the conecpt of surveys; does a sample ever actually"
PRINT "represent an entire population??"
PRINT "This tutorial will explain this program into a deeper sense."
SLEEP secondstoread
CLS
PRINT "The first thing that I had to do was determine the basic commands"
PRINT "of this program."
COLOR 10
PRINT " Regular ASCII Chart (character codes 0 - 127)"
PRINT "000 (nul) 016  (dle) 032 sp 048 0 064 @ 080 P 096 ` 112 p"
PRINT "001
(soh) 017  (dc1) 033 ! 049 1 065 A 081 Q 097 a 113 q"
PRINT "002  (stx) 018  (dc2) 034 @ 050 2 066 b 082 r 098 b 114 r "
PRINT "003  (etx) 019  (dc3) 035 # 051 3 067 C 083 S 099 c 115 s"
PRINT "004  (eot) 020  (dc4) 036 $ 052 4 068 D 084 T 100 d 116 t"
PRINT "005  (enq) 021  (nak) 037 % 053 5 069 E 085 U 101 e 117 u"
PRINT "006  (ack) 022  (syn) 038 & 054 6 070 F 086 V 102 f 118 v"
PRINT "007  (bel) 023  (etb) 039 ' 055 7 071 G 087 W 103 g 119 w"
PRINT "008  (bs) 024  (can) 040 ( 056 8 072 H 088 X 104 h 120 x"
COLOR 7
PRINT "This is the basic commands....continued...."
SLEEP secondstoread
CLS
COLOR 10
PRINT "009 (tab) 025  (em) 041 ) 057 9 073 I 089 Y 105 i 121 y"
PRINT "010 (lf) 026 (eof) 042 * 058 : 074 J 090 Z 106 j 122 z"
PRINT "011  (vt) 027  (esc) 043 + 059 ; 075 K 091 [ 107 k 123 {"
PRINT "012  (np) 028  (fs) 044 , 060 < 076 L 092 108 l 124 |"
PRINT "013 (cr) 029  (gs) 045 - 061 = 077 M 093 ] 109 m 125 }"
PRINT "014  (so) 030  (rs) 046 . 062 > 078 N 094 ^ 110 n 126 ~"
PRINT "015  (si) 031  (us) 047 / 063 ? 079 O 095 _ 111 o 127 "
COLOR 7
PRINT "This is the basic setup of everything in my program, the character"
PRINT "codes........"
SLEEP secondstoread
CLS
COLOR 10
PRINT "Extended ASCII Chart (character codes 128 - 255)"
PRINT "128 € 144  160   176 ° 192 À 208 Ð 224 à 240 ð"
PRINT "129  145 ‘ 161 ¡ 177 ± 193 Á 209 Ñ 225 á 241 ñ"
PRINT "130 ‚ 146 ’ 162 ¢ 178 ² 194 Â 210 Ò 226 â 242 ò"
PRINT "131 ƒ 147 “ 163 £ 179 ³ 195 Ã 211 Ó 227 ã 243 ó"
PRINT "132 „ 148 ” 164 ¤ 180 ´ 196 Ä 212 Ô 228 ä 244 ô"
PRINT "133 … 149 • 165 ¥ 181 µ 197 Å 213 Õ 229 å 245 õ"
PRINT "134 † 150 – 166 ¦ 182 ¶ 198 Æ 214 Ö 230 æ 246 ö"
PRINT "135 ‡ 151 — 167 § 183 · 199 Ç 215 × 231 ç 247 ÷"
PRINT "136 ˆ 152 ˜ 168 ¨ 184 ¸ 200 È 216 Ø 232 è 248 ø"
PRINT "137 ‰ 153 ™ 169 © 185 ¹ 201 É 217 Ù 233 é 249 ù"
PRINT "138 Š 154 š 170 ª 186 º 202 Ê 218 Ú 234 ê 250 ú"
PRINT "139 ‹ 155 › 171 « 187 » 203 Ë 219 Û 235 ë 251 û"
PRINT "140 Œ 156 œ 172 ¬ 188 ¼ 204 Ì 220 Ü 236 ì 252 ü"
PRINT "141  157  173 ­ 189 ½ 205 Í 221 Ý 237 í 253 ý"
PRINT "142 Ž 158 ž 174 ® 190 ¾ 206 Î 222 Þ 238 î 254 þ"
PRINT "143  159 Ÿ 175 ¯ 191 ¿ 207 Ï 223 ß 239 ï 255"
COLOR 7
PRINT "And here is the final part of the list....Wait 10 seconds please..."
SLEEP secondstoread
CLS
PRINT "The next thing that was essential to the growth of this program was"
PRINT "the entering of commands into a series that the computer could "
PRINT "understand."
PRINT "Here is a basic list of the commands;"
COLOR 10
PRINT "PRINT =shows what you see here."
PRINT "INPUT =asks a question and gives a value to a variable."
PRINT "SLEEP =causes a pause in the program"
PRINT "10 (ANY NUMERICAL VALUE) =sets a room number"
PRINT "GOTO =transports location of program to a room"
PRINT "IF...THEN =sets a statement, for example 'IF a = 10 then....'"
PRINT "END IF =end an if statement"
PRINT "END =ends the program "
PRINT "COLOR =sets a color to text"
PRINT "CLS =clears te screen "
COLOR 7
PRINT "These commands are the building blocks to this program."
SLEEP secondstoread
CLS
PRINT "The next thing that came of great interest, especially in this"
PRINT "type of programming was assigning variables. There are basically"
PRINT "two different types of variables; qualitative and quanitative."
PRINT "For example when a question was asked like;"
COLOR 10
PRINT "What is your general age?"
PRINT "A = 7-20"
PRINT "B = 21-29"
PRINT "C = 30-50"
PRINT "D = 51 or more years..."
PRINT "What is your answer?"
COLOR 7
PRINT "However, programming wise, there is a great difference..."
SLEEP secondstoread
CLS
PRINT "In programming language it would appear as the following;"
COLOR 10
PRINT "PRINT 'What is your general age?'"
PRINT "PRINT 'A = 7-20'"
PRINT "PRINT 'B = 21-29' "
PRINT "PRINT 'C = 30-50'"
PRINT "PRINT 'D = 51 or more years...'"
PRINT "INPUT 'What is your answer'; age$"
COLOR 7
PRINT "That is how you write the question, there are many differnt answers"
PRINT "to the value of age$, really it could be anything, a number to even a"
PRINT "paragraph of information. The age$ in this program is mostly a"
PRINT "one character response; A,B,C, or D."
SLEEP secondstoread
CLS
PRINT "The harder part comes when you have to catch the data, this is when"
PRINT "the IF and THEN commands are used. This is also where we find our"
PRINT "quantative variables. Here is the final portion of the question"
PRINT "that we are investigating."
COLOR 10
PRINT "IF age$ = 'A' THEN"
PRINT "a = a + 1"
PRINT "GOTO 1"
PRINT "END IF"
PRINT "IF age$ = 'B' THEN"
PRINT "b = b + 1"
PRINT "GOTO 2"
PRINT "END IF"
PRINT "IF age$ = 'C' THEN"
PRINT "c = c + 1"
PRINT "GOTO 3"
PRINT "END IF"
PRINT "IF age$ = 'D' THEN"
PRINT "d = d + 1"
COLOR 7
PRINT "continued...."
SLEEP secondstoread
CLS
PRINT "CONTINUED"
COLOR 10
PRINT "GOTO 4"
PRINT "END IF"
PRINT "GOTO 10 (Begining)"
COLOR 7
PRINT "And this describes the numerical value described in this example as"
PRINT "a, b, c, and d. These, in my survey describe the amount of people who"
PRINT "approved a specific answer."
SLEEP secondstoread
GOTO 10
END IF
IF age$ = "identify data" THEN
PRINT "Your wish is...."
SLEEP 2
PRINT "my command....."
SLEEP 2
a = 1
b = 1
c = 1
D = 1
aa = 1
ba = 1
ca = 1
da = 1
ab = 1
ba = 1
cb = 1
db = 1
ac = 1
bc = 1
cc = 1
dc = 1
ad = 1
bd = 1
cd = 1
dd = 1
ae = 1
be = 1
ce = 1
de = 1
af = 1
BF = 1
cf = 1
df = 1
ag = 1
bg = 1
cg = 1
dg = 1
ah = 1
bh = 1
ch = 1
dh = 1
ai = 1
bi = 1
ci = 1
di = 1
aj = 1
bj = 1
cj = 1
dj = 1
ak = 1
bk = 1
ck = 1
dk = 1
al = 1
bl = 1
cl = 1
dl = 1
am = 1
bm = 1
cm = 1
dm = 1
an = 1
bn = 1
cn = 1
dn = 1
ao = 1
bo = 1
co = 1
doz = 1
ap = 1
bp = 1
cp = 1
dp = 1
aq = 1
bq = 1
cq = 1
dq = 1
ar = 1
br = 1
cr = 1
dr = 1
asz = 1
bs = 1
cs = 1
ds = 1
at = 1
bt = 1
ct = 1
dt = 1
au = 1
bu = 1
cu = 1
du = 1
av = 1
bv = 1
cv = 1
dv = 1
aw = 1
bw = 1
cw = 1
dw = 1
ax = 1
bx = 1
cx = 1
dx = 1
ay = 1
by = 1
cy = 1
dy = 1
az = 1
bz = 1
cz = 1
dz = 1
aaa = 1
baa = 1
caa = 1
daa = 1
aab = 1
bab = 1
cab = 1
dab = 1
aac = 1
bac = 1
cac = 1
dac = 1
aad = 1
bad = 1
cad = 1
dad = 1
PRINT "The deed is done..."
SLEEP 3
END IF
IF age$ = "all error" THEN
PRINT "Ok, heres your data!"
PRINT ((a - a9) / a) * 100
PRINT ((b - b9) / b) * 100
PRINT ((c - c9) / c) * 100
PRINT ((D - d9) / D) * 100
PRINT ((aa - aa9) / aa) * 100
PRINT ((ba - ba9) / ba) * 100
PRINT ((ca - ca9) / ca) * 100
PRINT ((da - da9) / da) * 100
PRINT ((ab - ab9) / ab) * 100
PRINT ((ba - ba9) / ba) * 100
PRINT ((cb - cb9) / cb) * 100
PRINT ((db - db9) / db) * 100
PRINT ((ac - ac9) / ac) * 100
PRINT ((bc - bc9) / bc) * 100
PRINT ((cc - cc9) / cc) * 100
PRINT ((dc - dc9) / dc) * 100
PRINT ((ad - ad9) / ad) * 100
PRINT ((bd - bd9) / bd) * 100
PRINT ((cd - cd9) / cd) * 100
PRINT ((dd - dd9) / dd) * 100
SLEEP
CLS
PRINT "And more"
PRINT ((ae - ae9) / ae) * 100
PRINT ((be - be9) / be) * 100
PRINT ((ce - ce9) / ce) * 100
PRINT ((de - de9) / de) * 100
PRINT ((af - af9) / af) * 100
PRINT ((BF - bf9) / BF) * 100
PRINT ((cf - cf9) / cf) * 100
PRINT ((df - df9) / df) * 100
PRINT ((ag - ag9) / ag) * 100
PRINT ((bg - bg9) / bg) * 100
PRINT ((cg - cg9) / cg) * 100
PRINT ((dg - dg9) / dj) * 100
PRINT ((ah - ah9) / ah) * 100
PRINT ((bh - bh9) / bh) * 100
PRINT ((ch - ch9) / ch) * 100
PRINT ((dh - dh9) / dh) * 100
PRINT ((ai - ai9) / ai) * 100
PRINT ((bi - bi9) / bi) * 100
PRINT ((ci - ci9) / ci) * 100
PRINT ((di - di9) / di) * 100
SLEEP
CLS
PRINT "And more!"
PRINT ((aj - aj9) / aj) * 100
PRINT ((bj - bj9) / bj) * 100
PRINT ((cj - cj9) / cj) * 100
PRINT ((dj - dj9) / dj) * 100
PRINT ((ak - ak9) / ak) * 100
PRINT ((bk - bk9) / bk) * 100
PRINT ((ck - ck9) / ck) * 100
PRINT ((dk - dk9) / dk) * 100
PRINT ((al - al9) / al) * 100
PRINT ((bl - bl9) / bl) * 100
PRINT ((cl - cl9) / cl) * 100
PRINT ((dl - dl9) / dl) * 100
PRINT ((am - am9) / am) * 100
PRINT ((bm - bm9) / bm) * 100
PRINT ((cm - cm9) / cm) * 100
PRINT ((dm - dm9) / dm) * 100
PRINT ((an - an9) / an) * 100
PRINT ((bn - bn9) / bn) * 100
PRINT ((cn - cn9) / cn) * 100
PRINT ((dn - dn9) / dn) * 100
SLEEP
CLS
PRINT "And even more....."
PRINT ((ao - ao9) / ao) * 100
PRINT ((bo - bo9) / bo) * 100
PRINT ((co - co9) / co) * 100
PRINT ((doz - doz9) / doz) * 100
PRINT ((ap - ap9) / ap) * 100
PRINT ((bp - bp9) / bp) * 100
PRINT ((cp - cp9) / cp) * 100
PRINT ((dp - dp9) / dp) * 100
PRINT ((aq - aq9) / aq) * 100
PRINT ((bq - bq9) / bq) * 100
PRINT ((cq - cq9) / cq) * 100
PRINT ((dq - dq9) / dq) * 100
PRINT ((ar - ar9) / ar) * 100
PRINT ((br - br9) / br) * 100
PRINT ((cr - cr9) / cr) * 100
PRINT ((dr - dr9) / dr) * 100
PRINT ((asz - asz9) / asz) * 100
PRINT ((bs - bs9) / bs) * 100
PRINT ((cs - cs9) / cs) * 100
PRINT ((ds - ds9) / ds) * 100
SLEEP
CLS
PRINT "And more......"
PRINT ((at - at9) / at) * 100
PRINT ((bt - bt9) / bt) * 100
PRINT ((ct - ct9) / ct) * 100
PRINT ((dt - dt9) / ct) * 100
PRINT ((au - au9) / au) * 100
PRINT ((bu - bu9) / bu) * 100
PRINT ((cu - cu9) / cu) * 100
PRINT ((du - du9) / du) * 100
PRINT ((av - av9) / av) * 100
PRINT ((bv - bv9) / bv) * 100
PRINT ((cv - cv9) / cv) * 100
PRINT ((dv - dv9) / dv) * 100
PRINT ((aw - aw9) / aw) * 100
PRINT ((bw - bw9) / bw) * 100
PRINT ((cw - cw9) / cw) * 100
PRINT ((dw - dw9) / dw) * 100
PRINT ((ax - ax9) / ax) * 100
PRINT ((bx - bx9) / bx) * 100
PRINT ((cx - cx9) / cx) * 100
PRINT ((dx - dx9) / dx) * 100
SLEEP
CLS
PRINT "We have to be getting done soon!!!"
PRINT ((ay - ay9) / ay) * 100
PRINT ((by - by9) / by) * 100
PRINT ((cy - cy9) / cy) * 100
PRINT ((dy - dy9) / dy) * 100
PRINT ((az - az9) / az) * 100
PRINT ((bz - bz9) / bz) * 100
PRINT ((cz - cz9) / cz) * 100
PRINT ((dz - dz9) / dz) * 100
PRINT ((aaa - aaa9) / aaa) * 100
PRINT ((baa - baa9) / baa) * 100
PRINT ((caa - caa9) / caa) * 100
PRINT ((daa - daa9) / daa) * 100
PRINT ((aab - aab9) / aab) * 100
PRINT ((bab - bab9) / bab) * 100
PRINT ((cab - cab9) / cab) * 100
PRINT ((dab - dab9) / dab) * 100
PRINT ((aac - aac9) / aac) * 100
PRINT ((bac - bac9) / bac) * 100
PRINT ((cac - cac9) / cac) * 100
PRINT ((dac - dac9) / dac) * 100
SLEEP
CLS
PRINT "I think that we are almost done..."
PRINT ((aad - aad9) / aad) * 100
PRINT ((bad - bad9) / bad) * 100
PRINT ((cad - cad9) / cad) * 100
PRINT ((dad - dad9) / dad) * 100
SLEEP
END IF
IF age$ = "channel" THEN
a9 = 0:
b9 = 0:
c9 = 0:
d9 = 0:
aa9 = 0:
ba9 = 0:
ca9 = 0:
da9 = 0:
ab9 = 0:
ba9 = 0:
cb9 = 0:
db9 = 0:
ac9 = 0:
bc9 = 0:
cc9 = 0:
dc9 = 0:
ad9 = 0:
bd9 = 0:
cd9 = 0:
dd9 = 0:
ae9 = 0:
be9 = 0:
ce9 = 0:
de9 = 0:
af9 = 0:
bf9 = 0:
cf9 = 0:
df9 = 0:
ag9 = 0:
bg9 = 0:
cg9 = 0:
dg9 = 0:
ah9 = 0:
bh9 = 0:
ch9 = 0:
dh9 = 0:
ai9 = 0:
bi9 = 0:
ci9 = 0:
di9 = 0:
aj9 = 0:
bj9 = 0:
cj9 = 0:
dj9 = 0:
ak9 = 0:
bk9 = 0:
ck9 = 0:
dk9 = 0:
al9 = 0:
bl9 = 0:
cl9 = 0:
dl9 = 0:
am9 = 0:
bm9 = 0:
cm9 = 0:
dm9 = 0:
an9 = 0:
bn9 = 0:
cn9 = 0:
dn9 = 0:
ao9 = 0:
bo9 = 0:
co9 = 0:
doz9 = 0:
ap9 = 0:
bp9 = 0:
cp9 = 0:
dp9 = 0:
aq9 = 0:
bq9 = 0:
cq9 = 0:
dq9 = 0:
ar9 = 0:
br9 = 0:
cr9 = 0:
dr9 = 0:
asz9 = 0
bs9 = 0
cs9 = 0
ds9 = 0
at9 = 0
bt9 = 0
ct9 = 0
dt9 = 0
au9 = 0
bu9 = 0
cu9 = 0
du9 = 0
av9 = 0
bv9 = 0
cv9 = 0
dv9 = 0
aw9 = 0
bw9 = 0
cw9 = 0
dw9 = 0
ax9 = 0
bx9 = 0
cx9 = 0
dx9 = 0
ay9 = 0
by9 = 0
cy9 = 0
dy9 = 0
az9 = 0
bz9 = 0
cz9 = 0
dz9 = 0
aaa9 = 0
baa9 = 0
caa9 = 0
daa9 = 0
aab9 = 0
bab9 = 0
cab9 = 0
dab9 = 0
aac9 = 0
bac9 = 0
cac9 = 0
dac9 = 0
aad9 = 0
bad9 = 0
cad9 = 0
dad9 = 0
PRINT "The deed is done...."
SLEEP
END IF
IF age$ = "percent error" THEN
10000000
INPUT "What is the tested value?"; test
IF test = 991 THEN
GOTO 5
END IF
INPUT "What is the actual value?"; actual
percenterror = ((test - actual) / test) * 100
PRINT percenterror; "= precent error"
SLEEP
GOTO 10000000
END IF
IF age$ = "exit" THEN
SYSTEM
END IF
IF age$ = "commands" THEN
INPUT "Password?"; password$
IF password$ = "53446" THEN
CLS
PRINT "demonstrate"
PRINT "exit"
PRINT "identify data"
PRINT "all error"
PRINT "991"
PRINT "channel"
PRINT "data"
PRINT "verdad"
PRINT "work"
PRINT "room"
PRINT "insert data"
PRINT "end"
PRINT "casualquestions"
PRINT "credits"
PRINT "averages"
PRINT "attempts"
PRINT "screen"
PRINT "53446"
PRINT "stop"
PRINT "return to go"
PRINT "percent error"
SLEEP
CLS
END IF
END IF
IF age$ = "stop" THEN
STOP
END IF
IF UCASE$(age$) = "CLS" THEN
CLS
END IF
IF age$ = "return to go" THEN
GOTO 53446
END IF
IF age$ = "insert data" THEN
INPUT "What variable?"; id$
IF id$ = "a" THEN
a = a + 1
PRINT a
SLEEP
END IF
IF id$ = "b" THEN
b = b + 1
PRINT b
SLEEP
END IF
IF id$ = "c" THEN
c = c + 1
PRINT c
SLEEP
END IF
IF id$ = "d" THEN
D = D + 1
PRINT D
SLEEP
END IF
IF id$ = "aa" THEN
aa = aa + 1
PRINT aa
SLEEP
END IF
IF id$ = "ba" THEN
ba = ba + 1
PRINT ba
SLEEP
END IF
IF id$ = "ca" THEN
ca = ca + 1
PRINT ca
SLEEP
END IF
IF id$ = "da" THEN
da = da + 1
PRINT da
SLEEP
END IF
IF id$ = "ab" THEN
ab = ab + 1
PRINT ab
SLEEP
END IF
IF id$ = "bb" THEN
bb = bb + 1
PRINT bb
SLEEP
END IF
IF id$ = "cb" THEN
db = db + 1
PRINT cb
SLEEP
END IF
IF id$ = "db" THEN
db = db + 1
PRINT db
SLEEP
END IF
IF id$ = "ac" THEN
ac = ac + 1
PRINT ac
SLEEP
END IF
IF id$ = "bc" THEN
bc = bc + 1
PRINT bc
SLEEP
END IF
IF id$ = "cc" THEN
cc = cc + 1
PRINT cc
SLEEP
END IF
IF id$ = "dc" THEN
dc = dc + 1
PRINT dc
SLEEP
END IF
IF id$ = "ad" THEN
ad = ad + 1
PRINT ad
SLEEP
END IF
IF id$ = "bd" THEN
bd = bd + 1
PRINT bd
SLEEP
END IF
IF id$ = "cd" THEN
cd = cd + 1
PRINT cd
SLEEP
END IF
IF id$ = "dd" THEN
dd = dd + 1
PRINT dd
SLEEP
END IF
IF id$ = "ae" THEN
ae = ae + 1
PRINT ae
SLEEP
END IF
IF id$ = "be" THEN
be = be + 1
PRINT be
SLEEP
END IF
IF id$ = "ce" THEN
ce = ce + 1
PRINT ce
SLEEP
END IF
IF id$ = "de" THEN
de = de + 1
PRINT de
SLEEP
END IF
IF id$ = "af" THEN
af = af + 1
PRINT af
SLEEP
END IF
IF id$ = "bf" THEN
ag = ag + 1
PRINT BF
SLEEP
END IF
IF id$ = "cf" THEN
cf = cf + 1
PRINT cf
SLEEP
END IF
IF id$ = "df" THEN
df = df + 1
PRINT df
SLEEP
END IF
IF id$ = "ag" THEN
ag = ag + 1
PRINT ag
SLEEP
END IF
IF id$ = "bg" THEN
bg = bg + 1
PRINT bg
SLEEP
END IF
IF id$ = "cg" THEN
cg = cg + 1
PRINT cg
SLEEP
END IF
IF id$ = "dg" THEN
dg = dg + 1
PRINT dg
SLEEP
END IF
IF id$ = "ah" THEN
ah = ah + 1
PRINT ah
SLEEP
END IF
IF id$ = "bh" THEN
bh = bh + 1
PRINT bh
SLEEP
END IF
IF id$ = "ch" THEN
ch = ch + 1
PRINT ch
SLEEP
END IF
IF id$ = "dh" THEN
dh = dh + 1
PRINT dh
SLEEP
END IF
IF id$ = "ai" THEN
ai = ai + 1
PRINT ai
SLEEP
END IF
IF id$ = "bi" THEN
bi = bi + 1
PRINT bi
SLEEP
END IF
IF id$ = "ci" THEN
ci = ci + 1
PRINT ci
SLEEP
END IF
IF id$ = "di" THEN
di = di + 1
PRINT di
SLEEP
END IF
IF id$ = "aj" THEN
aj = aj + 1
PRINT aj
SLEEP
END IF
IF id$ = "bj" THEN
bj = bj + 1
PRINT bj
SLEEP
END IF
IF id$ = "cj" THEN
cj = cj + 1
PRINT cj
SLEEP
END IF
IF id$ = "dj" THEN
dj = dj + 1
PRINT dj
SLEEP
END IF
IF id$ = "ak" THEN
ak = ak + 1
PRINT ak
SLEEP
END IF
IF id$ = "bk" THEN
bk = bk + 1
PRINT bk
SLEEP
END IF
IF id$ = "ck" THEN
ck = ck + 1
PRINT ck
SLEEP
END IF
IF id$ = "dk" THEN
dk = dk + 1
PRINT dk
SLEEP
END IF
IF id$ = "al" THEN
al = al + 1
PRINT al
SLEEP
END IF
IF id$ = "bl" THEN
bl = bl + 1
PRINT bl
SLEEP
END IF
IF id$ = "cl" THEN
cl = cl + 1
PRINT cl
SLEEP
END IF
IF id$ = "dl" THEN
dl = dl + 1
PRINT dl
SLEEP
END IF
IF id$ = "am" THEN
am = am + 1
PRINT am
SLEEP
END IF
IF id$ = "bm" THEN
bm = bm + 1
PRINT bm
SLEEP
END IF
IF id$ = "cm" THEN
cm = cm + 1
PRINT cm
SLEEP
END IF
IF id$ = "dm" THEN
dm = dm + 1
PRINT dm
SLEEP
END IF
IF id$ = "an" THEN
an = an + 1
PRINT an
SLEEP
END IF
IF id$ = "bn" THEN
bn = bn + 1
PRINT bn
SLEEP
END IF
IF id$ = "cn" THEN
cn = cn + 1
PRINT cn
SLEEP
END IF
IF id$ = "dn" THEN
dn = dn + 1
PRINT dn
SLEEP
END IF
IF id$ = "ao" THEN
ao = ao + 1
PRINT ao
SLEEP
END IF
IF id$ = "bo" THEN
bo = bo + 1
PRINT bo
SLEEP
END IF
IF id$ = "co" THEN
co = co + 1
PRINT co
SLEEP
END IF
IF id$ = "doz" THEN
doz = doz + 1
PRINT doz
SLEEP
END IF
IF id$ = "ap" THEN
ap = ap + 1
PRINT ap
SLEEP
END IF
IF id$ = "dp" THEN
dp = dp + 1
PRINT dp
SLEEP
END IF
IF id$ = "cp" THEN
cp = cp + 1
PRINT cp
SLEEP
END IF
IF id$ = "bp" THEN
bp = bp + 1
PRINT bp
SLEEP
END IF
IF id$ = "aq" THEN
aq = aq + 1
PRINT aq
SLEEP
END IF
IF id$ = "bq" THEN
bq = bq + 1
PRINT bq
SLEEP
END IF
IF id$ = "cq" THEN
cq = cq + 1
PRINT cq
SLEEP
END IF
IF id$ = "dq" THEN
dq = dq + 1
PRINT dq
SLEEP
END IF
IF id$ = "ar" THEN
ar = ar + 1
PRINT ar
SLEEP
END IF
IF id$ = "br" THEN
br = br + 1
PRINT br
SLEEP
END IF
IF id$ = "cr" THEN
cr = cr + 1
PRINT cr
SLEEP
END IF
IF id$ = "dr" THEN
dr = dr + 1
PRINT dr
SLEEP
END IF
IF id$ = "asz" THEN
asz = asz + 1
PRINT asz
SLEEP
END IF
IF id$ = "bs" THEN
bs = bs + 1
PRINT bs
SLEEP
END IF
IF id$ = "cs" THEN
cs = cs + 1
PRINT cs
SLEEP
END IF
IF id$ = "ds" THEN
ds = ds + 1
PRINT ds
SLEEP
END IF
IF id$ = "at" THEN
at = at + 1
PRINT at
SLEEP
END IF
IF id$ = "bt" THEN
bt = bt + 1
PRINT bt
SLEEP
END IF
IF id$ = "ct" THEN
ct = ct + 1
PRINT ct
SLEEP
END IF
IF id$ = "dt" THEN
dt = dt + 1
PRINT dt
SLEEP
END IF
IF id$ = "au" THEN
au = au + 1
PRINT au
SLEEP
END IF
IF id$ = "bu" THEN
bu = bu + 1
PRINT bu
SLEEP
END IF
IF id$ = "cu" THEN
cu = cu + 1
PRINT cu
SLEEP
END IF
IF id$ = "du" THEN
du = du + 1
PRINT du
SLEEP
END IF
IF id$ = "av" THEN
av = av + 1
PRINT av
SLEEP
END IF
IF id$ = "bv" THEN
bv = bv + 1
PRINT bv
SLEEP
END IF
IF id$ = "cv" THEN
cv = cv + 1
PRINT cv
SLEEP
END IF
IF id$ = "dv" THEN
dv = dv + 1
PRINT dv
SLEEP
END IF
IF id$ = "aw" THEN
aw = aw + 1
PRINT aw
SLEEP
END IF
IF id$ = "bw" THEN
bw = bw + 1
PRINT bw
SLEEP
END IF
IF id$ = "cw" THEN
cw = cw + 1
PRINT cw
SLEEP
END IF
IF id$ = "dw" THEN
dw = dw + 1
PRINT dw
SLEEP
END IF
IF id$ = "ax" THEN
ax = ax + 1
PRINT ax
SLEEP
END IF
IF id$ = "bx" THEN
bx = bx + 1
PRINT bx
SLEEP
END IF
IF id$ = "cx" THEN
cx = cx + 1
PRINT cx
SLEEP
END IF
IF id$ = "dx" THEN
dx = dx + 1
PRINT dx
SLEEP
END IF
IF id$ = "ay" THEN
ay = ay + 1
PRINT ay
SLEEP
END IF
IF id$ = "by" THEN
by = by + 1
PRINT by
SLEEP
END IF
IF id$ = "cy" THEN
cy = cy + 1
PRINT cy
SLEEP
END IF
IF id$ = "dy" THEN
dy = dy + 1
PRINT dy
SLEEP
END IF
IF id$ = "az" THEN
az = az + 1
PRINT az
SLEEP
END IF
IF id$ = "bz" THEN
bz = bz + 1
PRINT bz
SLEEP
END IF
IF id$ = "cz" THEN
cz = cz + 1
PRINT cz
SLEEP
END IF
IF id$ = "dz" THEN
dz = dz + 1
PRINT dz
SLEEP
END IF
IF id$ = "aaa" THEN
aaa = aaa + 1
PRINT aaa
SLEEP
END IF
IF id$ = "baa" THEN
baa = baa + 1
PRINT baa
SLEEP
END IF
IF id$ = "caa" THEN
caa = caa + 1
PRINT caa
SLEEP
END IF
IF id$ = "daa" THEN
daa = daa + 1
PRINT daa
SLEEP
END IF
IF id$ = "aab" THEN
aab = aab + 1
PRINT aab
SLEEP
END IF
IF id$ = "bab" THEN
bab = bab + 1
PRINT bab
SLEEP
END IF
IF id$ = "cab" THEN
cab = cab + 1
PRINT cab
SLEEP
END IF
IF id$ = "dab" THEN
dab = dab + 1
PRINT dab
SLEEP
END IF
IF id$ = "aac" THEN
aac = aac + 1
PRINT aac
SLEEP
END IF
IF id$ = "bac" THEN
bac = bac + 1
PRINT bac
SLEEP
END IF
IF id$ = "cac" THEN
cac = cac + 1
PRINT cac
SLEEP
END IF
IF id$ = "dac" THEN
dac = dac + 1
PRINT dac
SLEEP
END IF
IF id$ = "aad" THEN
aad = aad + 1
PRINT aad
SLEEP
END IF
IF id$ = "bad" THEN
bad = bad + 1
PRINT bad
SLEEP
END IF
IF id$ = "cad" THEN
cad = cad + 1
PRINT cad
SLEEP
END IF
IF id$ = "dad" THEN
dad = dad + 1
PRINT dad
SLEEP
END IF
END IF
IF age$ = "room" THEN
PRINT n; " = room number"
SLEEP
END IF
IF age$ = "991" THEN
PRINT ""
PRINT "EMERGENCY?"
PRINT "Who are you going to call?"
PRINT "TERRY!!!!"
END
END IF
IF age$ = "casualquestions" THEN
PRINT "The average number of questions was"; p
SLEEP
END IF
IF age$ = "credits" THEN
PRINT ""
PRINT "This program is the fine work of Terry, a sophmore at Bayside"
PRINT "High School. This programs main purpose is to statistically"
PRINT "anylize a survey, and compare the data in order to determine"
PRINT "surveys are truely effective using the HIT algorithm, that is"
PRINT "known as the Kleinberg algorithm."
SLEEP
END IF
IF age$ = "averages" THEN
PRINT "What room?"
INPUT "Room number?"; ave$
IF ave$ = "10" THEN
aaverage = a / (a + b + c + D)
baverage = b / (a + b + c + D)
caverage = c / (a + b + c + D)
daverage = D / (a + b + c + D)
PRINT "Percentages of Room "; ave$
PRINT aaverage; "percentage of A"
PRINT baverage; "percentage of B"
PRINT caverage; "percentage of C"
PRINT daverage; "percentage of D"
END IF
IF ave$ = "1" THEN
aaverage1 = aa / (aa + ba + ca + da)
baverage1 = ba / (aa + ba + ca + da)
caverage1 = ca / (aa + ba + ca + da)
daverage1 = da / (aa + ba + ca + da)
PRINT "Percentages of Room "; ave$
PRINT aaverage1; "percentage of A"
PRINT baverage1; "percentage of B"
PRINT caverage1; "percentage of C"
PRINT daverage1; "percentage of D"
END IF
IF ave$ = "2" THEN
aaverage2 = ab / (ab + bb + cb + db)
baverage2 = bb / (ab + bb + cb + db)
caverage2 = cb / (ab + bb + cb + db)
daverage2 = db / (ab + bb + cb + db)
PRINT "Percentages of Room "; ave$
PRINT aaverage2; "percentage of A"
PRINT baverage2; "percentage of B"
PRINT caverage2; "percentage of C"
PRINT daverage2; "percentage of D"
END IF
IF ave$ = "3" THEN
aaverage3 = ac / (ac + bc + cc + dc)
baverage3 = bc / (ac + bc + cc + dc)
caverage3 = cc / (ac + bc + cc + dc)
daverage3 = dc / (ac + bc + cc + dc)
PRINT "Percentages of Room "; ave$
PRINT aaverage3; "percentage of A"
PRINT baverage3; "percentage of B"
PRINT caverage3; "percentage of C"
PRINT daverage3; "percentage of D"
END IF
IF ave$ = "4" THEN
aaverage4 = ad / (ad + bd + cd + dd)
baverage4 = bd / (ad + bd + cd + dd)
caverage4 = cd / (ad + bd + cd + dd)
daverage4 = dd / (ad + bd + cd + dd)
PRINT "Percentages of Room "; ave$
PRINT aaverage4; "percentage of A"
PRINT baverage4; "percentage of B"
PRINT caverage4; "percentage of C"
PRINT daverage4; "percentage of D"
END IF
IF ave$ = "9" THEN
aaverage5 = ae / (ae + be + ce + de)
baverage5 = be / (ae + be + ce + de)
caverage5 = ce / (ae + be + ce + de)
daverage5 = de / (ae + be + ce + de)
PRINT "Percentages of Room "; ave$
PRINT aaverage5; "percentage of A"
PRINT baverage5; "percentage of B"
PRINT caverage5; "percentage of C"
PRINT daverage5; "percentage of D"
END IF
IF ave$ = "6" THEN
aaverage6 = af / (af + BF + cf + df)
baverage6 = BF / (af + BF + cf + df)
caverage6 = cf / (af + BF + cf + df)
daverage6 = df / (af + BF + cf + df)
PRINT "Percentages of Room "; ave$
PRINT aaverage6; "percentage of A"
PRINT baverage6; "percentage of B"
PRINT caverage6; "percentage of C"
PRINT daverage6; "percentage of D"
END IF
IF ave$ = "7" THEN
aaverage7 = ag / (ag + bg + cg + dg)
baverage7 = bg / (ag + bg + cg + dg)
caverage7 = cg / (ag + bg + cg + dg)
daverage7 = dg / (ag + bg + cg + dg)
PRINT "Percentages of Room "; ave$
PRINT aaverage7; "percentage of A"
PRINT baverage7; "percentage of B"
PRINT caverage7; "percentage of C"
PRINT daverage7; "percentage of D"
END IF
IF ave$ = "11" THEN
aaverage8 = ah / (ah + bh + ch + dh)
baverage8 = bh / (ah + bh + ch + dh)
caverage8 = ch / (ah + bh + ch + dh)
daverage8 = dh / (ah + bh + ch + dh)
PRINT "Percentages of Room "; ave$
PRINT aaverage8; "percentage of A"
PRINT baverage8; "percentage of B"
PRINT caverage8; "percentage of C"
PRINT daverage8; "percentage of D"
END IF
IF ave$ = "12" THEN
aaverage9 = ai / (ai + bi + ci + di)
baverage9 = bi / (ai + bi + ci + di)
caverage9 = ci / (ai + bi + ci + di)
daverage9 = di / (ai + bi + ci + di)
PRINT "Percentages of Room "; ave$
PRINT aaverage9; "percentage of A"
PRINT baverage9; "percentage of B"
PRINT caverage9; "percentage of C"
PRINT daverage9; "percentage of D"
END IF
IF ave$ = "13" THEN
aaveragea = aj / (aj + bj + cj + dj)
baveragea = bj / (aj + bj + cj + dj)
caveragea = cj / (aj + bj + cj + dj)
daveragea = dj / (aj + bj + cj + dj)
PRINT "Percentages of Room "; ave$
PRINT aaveragea; "percentage of A"
PRINT baveragea; "percentage of B"
PRINT caveragea; "percentage of C"
PRINT daveragea; "percentage of D"
END IF
IF ave$ = "14" THEN
aaverageb = ak / (ak + bk + ck + dk)
baverageb = bk / (ak + bk + ck + dk)
caverageb = ck / (ak + bk + ck + dk)
daverageb = dk / (ak + bk + ck + dk)
PRINT "Percentages of Room "; ave$
PRINT aaverageb; "percentage of A"
PRINT baverageb; "percentage of B"
PRINT caverageb; "percentage of C"
PRINT daverageb; "percentage of D"
END IF
IF ave$ = "15" THEN
aaveragec = al / (al + bl + cl + dl)
baveragec = bl / (al + bl + cl + dl)
caveragec = cl / (al + bl + cl + dl)
daveragec = dl / (al + bl + cl + dl)
PRINT "Percentages of Room "; ave$
PRINT aaveragec; "percentage of A"
PRINT baveragec; "percentage of B"
PRINT caveragec; "percentage of C"
PRINT daveragec; "percentage of D"
END IF
IF ave$ = "16" THEN
aaveraged = al / (al + bl + cl + dl)
baveraged = bl / (al + bl + cl + dl)
caveraged = cl / (al + bl + cl + dl)
daveraged = dl / (al + bl + cl + dl)
PRINT "Percentages of Room "; ave$
PRINT aaveraged; "percentage of A"
PRINT baveraged; "percentage of B"
PRINT caveraged; "percentage of C"
PRINT daveraged; "percentage of D"
END IF
IF ave$ = "17" THEN
aaveragee = am / (am + bm + cm + dm)
baveragee = bm / (am + bm + cm + dm)
caveragee = cm / (am + bm + cm + dm)
daveragee = dm / (am + bm + cm + dm)
PRINT "Percentages of Room "; ave$
PRINT aaveragee; "percentage of A"
PRINT baveragee; "percentage of B"
PRINT caveragee; "percentage of C"
PRINT daveragee; "percentage of D"
END IF
IF ave$ = "18" THEN
aaveragef = an / (an + bn + cn + dn)
baveragef = bn / (an + bn + cn + dn)
caveragef = cn / (an + bn + cn + dn)
daveragef = dn / (an + bn + cn + dn)
PRINT "Percentages of Room "; ave$
PRINT aaveragef; "percentage of A"
PRINT baveragef; "percentage of B"
PRINT caveragef; "percentage of C"
PRINT daveragef; "percentage of D"
END IF
IF ave$ = "19" THEN
aaverageg = ao / (ao + bo + co + doz)
baverageg = bo / (ao + bo + co + doz)
caverageg = co / (ao + bo + co + doz)
daverageg = doz / (ao + bo + co + doz)
PRINT "Percentages of Room "; ave$
PRINT aaverageg; "percentage of A"
PRINT baverageg; "percentage of B"
PRINT caverageg; "percentage of C"
PRINT daverageg; "percentage of D"
END IF
IF ave$ = "20" THEN
aaverageh = ap / (ap + bp + cp + dp)
baverageh = bp / (ap + bp + cp + dp)
caverageh = cp / (ap + bp + cp + dp)
daverageh = dp / (ap + bp + cp + dp)
PRINT "Percentages of Room "; ave$
PRINT aaverageh; "percentage of A"
PRINT baverageh; "percentage of B"
PRINT caverageh; "percentage of C"
PRINT daverageh; "percentage of D"
END IF
IF ave$ = "21" THEN
aaveragei = aq / (aq + bq + cq + dq)
baveragei = bq / (aq + bq + cq + dq)
caveragei = cq / (aq + bq + cq + dq)
daveragei = dq / (aq + bq + cq + dq)
PRINT "Percentages of Room "; ave$
PRINT aaveragei; "percentage of A"
PRINT baveragei; "percentage of B"
PRINT caveragei; "percentage of C"
PRINT daveragei; "percentage of D"
END IF
IF ave$ = "22" THEN
aaveragej = ar / (ar + br + cr + dr)
baveragej = br / (ar + br + cr + dr)
caveragej = cr / (ar + br + cr + dr)
daveragej = dr / (ar + br + cr + dr)
PRINT "Percentages of Room "; ave$
PRINT aaveragej; "percentage of A"
PRINT baveragej; "percentage of B"
PRINT caveragej; "percentage of C"
PRINT daveragej; "percentage of D"
END IF
IF ave$ = "23" THEN
aaveragek = asz / (asz + bs + cs + ds)
baveragek = bs / (asz + bs + cs + ds)
caveragek = cs / (asz + bs + cs + ds)
daveragek = ds / (asz + bs + cs + ds)
PRINT "Percentages of Room "; ave$
PRINT aaveragek; "percentage of A"
PRINT baveragek; "percentage of B"
PRINT caveragek; "percentage of C"
PRINT daveragek; "percentage of D"
END IF
IF ave$ = "24" THEN
aaveragel = at / (at + bt + ct + dt)
baveragel = bt / (at + bt + ct + dt)
caveragel = ct / (at + bt + ct + dt)
daveragel = dt / (at + bt + ct + dt)
PRINT "Percentages of Room "; ave$
PRINT aaveragel; "percentage of A"
PRINT baveragel; "percentage of B"
PRINT caveragel; "percentage of C"
PRINT daveragel; "percentage of D"
END IF
IF ave$ = "25" THEN
aaveragem = au / (au + bu + cu + du)
baveragem = bu / (au + bu + cu + du)
caveragem = cu / (au + bu + cu + du)
daveragem = du / (au + bu + cu + du)
PRINT "Percentages of Room "; ave$
PRINT aaveragem; "percentage of A"
PRINT baveragem; "percentage of B"
PRINT caveragem; "percentage of C"
PRINT daveragem; "percentage of D"
END IF
IF ave$ = "26" THEN
aaveragen = av / (av + bv + cv + dv)
baveragen = bv / (av + bv + cv + dv)
caveragen = cv / (av + bv + cv + dv)
daveragen = dv / (av + bv + cv + dv)
PRINT "Percentages of Room "; ave$
PRINT aaveragen; "percentage of A"
PRINT baveragen; "percentage of B"
PRINT caveragen; "percentage of C"
PRINT daveragen; "percentage of D"
END IF
IF ave$ = "27" THEN
aaverageo = aw / (aw + bw + cw + dw)
baverageo = bw / (aw + bw + cw + dw)
caverageo = cw / (aw + bw + cw + dw)
daverageo = dw / (aw + bw + cw + dw)
PRINT "Percentages of Room "; ave$
PRINT aaverageo; "percentage of A"
PRINT baverageo; "percentage of B"
PRINT caverageo; "percentage of C"
PRINT daverageo; "percentage of D"
END IF
IF ave$ = "28" THEN
aaveragep = ax / (ax + bx + cx + dx)
baveragep = bx / (ax + bx + cx + dx)
caveragep = cx / (ax + bx + cx + dx)
daveragep = dx / (ax + bx + cx + dx)
PRINT "Percentages of Room "; ave$
PRINT aaveragep; "percentage of A"
PRINT baveragep; "percentage of B"
PRINT caveragep; "percentage of C"
PRINT daveragep; "percentage of D"
END IF
IF ave$ = "29" THEN
aaverageq = ay / (ay + by + cy + dz)
baverageq = by / (ay + by + cy + dz)
caverageq = cy / (ay + by + cy + dz)
daverageq = dy / (ay + by + cy + dz)
PRINT "Percentages of Room "; ave$
PRINT aaverageq; "percentage of A"
PRINT baverageq; "percentage of B"
PRINT caverageq; "percentage of C"
PRINT daverageq; "percentage of D"
END IF
IF ave$ = "30" THEN
aaverager = az / (az + bz + cz + dz)
baverager = bz / (az + bz + cz + dz)
caverager = cz / (az + bz + cz + dz)
daverager = dz / (az + bz + cz + dz)
PRINT "Percentages of Room "; ave$
PRINT aaverager; "percentage of A"
PRINT baverager; "percentage of B"
PRINT caverager; "percentage of C"
PRINT daverager; "percentage of D"
END IF
IF ave$ = "31" THEN
aaverages = aaa / (aaa + baa + caa + daa)
baverages = baa / (aaa + baa + caa + daa)
caverages = caa / (aaa + baa + caa + daa)
daverages = daa / (aaa + baa + caa + daa)
PRINT "Percentages of Room "; ave$
PRINT aaverages; "percentage of A"
PRINT baverages; "percentage of B"
PRINT caverages; "percentage of C"
PRINT daverages; "percentage of D"
END IF
IF ave$ = "32" THEN
aaveraget = aab / (aab + bab + cab + dab)
baveraget = bab / (aab + bab + cab + dab)
caveraget = cab / (aab + bab + cab + dab)
daveraget = dab / (aab + bab + cab + dab)
PRINT "Percentages of Room "; ave$
PRINT aaveraget; "percentage of A"
PRINT baveraget; "percentage of B"
PRINT caveraget; "percentage of C"
PRINT daveraget; "percentage of D"
END IF
IF ave$ = "33" THEN
aaverageu = aac / (aac + bac + cac + dac)
baverageu = bac / (aac + bac + cac + dac)
caverageu = cac / (aac + bac + cac + dac)
daverageu = dac / (aac + bac + cac + dac)
PRINT "Percentages of Room "; ave$
PRINT aaverageu; "percentage of A"
PRINT baverageu; "percentage of B"
PRINT caverageu; "percentage of C"
PRINT daverageu; "percentage of D"
END IF
IF ave$ = "34" THEN
aaveragev = aad / (aad + bad + cad + dad)
baveragev = bad / (aad + bad + cad + dad)
caveragev = cad / (aad + bad + cad + dad)
daveragev = dad / (aad + bad + cad + dad)
PRINT "Percentages of Room "; ave$
PRINT aaveragev; "percentage of A"
PRINT baveragev; "percentage of B"
PRINT caveragev; "percentage of C"
PRINT daveragev; "percentage of D"
END IF
END IF
IF age$ = "attempts" THEN
PRINT offender; "people have tried to break in."
END IF
IF age$ = "verdad" THEN
CLS
SCREEN 1
Triangle$ = "F60 L120 E60"
DRAW "C2 X" + VARPTR$(Triangle$)
DRAW "BD30 P1,2 C3 M-30,-30"
END IF
IF age$ = "work" THEN
SCREEN 1
END IF
IF age$ = "data" THEN
CLS
COLOR 7
PRINT "Here is the standing data."
PRINT "a="; a
PRINT "b="; b
PRINT "c="; c
PRINT "d="; D
PRINT "aa="; aa
PRINT "ba="; ba
PRINT "ca="; ca
PRINT "ba="; da
PRINT "ab="; ab
PRINT "bb="; bb
PRINT "cb="; cb
PRINT "db="; db
PRINT "ac="; ac
PRINT "bc="; bc
PRINT "cc="; cc
PRINT "dc="; dc
PRINT "ad="; ad
PRINT "bd="; bd
PRINT "cd="; cd
PRINT "dd="; dd
SLEEP
CLS
PRINT "Continued...."
PRINT "ae="; ae
PRINT "be="; be
PRINT "ce="; ce
PRINT "de="; de
PRINT "af="; af
PRINT "bf="; BF
PRINT "cf="; cf
PRINT "df="; df
PRINT "ag="; ag
PRINT "bg="; bg
PRINT "cg="; cg
PRINT "dg="; dg
PRINT "ah="; ah
PRINT "bh="; bh
PRINT "ch="; ch
PRINT "dh="; dh
PRINT "ai="; ai
PRINT "bi="; bi
PRINT "ci="; ci
PRINT "di="; di
SLEEP
CLS
PRINT "And more...."
PRINT "aj="; aj
PRINT "bj="; bj
PRINT "cj="; cj
PRINT "dj="; dj
PRINT "ak="; ak
PRINT "bk="; bk
PRINT "ck="; ck
PRINT "dk="; dk
PRINT "al="; al
PRINT "bl="; bl
PRINT "cl="; cl
PRINT "dl="; dl
PRINT "am="; am
PRINT "bm="; bm
PRINT "cm="; cm
PRINT "dm="; dm
PRINT "an="; an
PRINT "bn="; bn
PRINT "cn="; cn
PRINT "dn="; dn
SLEEP
CLS
PRINT "And even more..."
PRINT "ao="; ao
PRINT "bo="; bo
PRINT "co="; co
PRINT "doz="; doz
PRINT "ap="; ap
PRINT "bp="; bp
PRINT "cp="; cp
PRINT "dp="; dp
PRINT "aq="; aq
PRINT "bq="; bq
PRINT "cq="; cq
PRINT "dq="; dq
PRINT "ar="; ar
PRINT "br="; br
PRINT "cr="; cr
PRINT "dr="; dr
PRINT "asz="; asz
PRINT "bs="; bs
PRINT "cs="; cs
PRINT "ds="; ds
SLEEP
CLS
PRINT "And more....."
PRINT "at="; at
PRINT "bt="; bt
PRINT "ct="; ct
PRINT "dt="; dt
PRINT "au="; au
PRINT "bu="; bu
PRINT "cu="; cu
PRINT "du="; du
PRINT "av="; av
PRINT "bv="; bv
PRINT "cv="; cv
PRINT "dv="; dv
PRINT "aw="; aw
PRINT "bw="; bw
PRINT "cw="; cw
PRINT "dw="; dw
PRINT "ax="; ax
PRINT "bx="; bx
PRINT "cx="; cx
PRINT "dx="; dx
SLEEP
CLS
PRINT "And almost over...."
PRINT "ay="; ay
PRINT "by="; by
PRINT "cy="; cy
PRINT "dy="; dy
PRINT "az="; az
PRINT "bz="; bz
PRINT "cz="; cz
PRINT "dz="; dz
PRINT "aaa="; aaa
PRINT "baa="; baa
PRINT "caa="; caa
PRINT "daa="; daa
PRINT "aab="; aab
PRINT "bab="; bab
PRINT "cab="; cab
PRINT "dab="; dab
PRINT "aac="; aac
PRINT "bac="; bac
PRINT "cac="; cac
PRINT "dac="; dac
SLEEP
CLS
PRINT "And just for good measure, the last!"
PRINT "aad="; aad
PRINT "bad="; bad
PRINT "cad="; cad
PRINT "dad="; dad
SLEEP
CLS
END IF
IF age$ = "screen" THEN
SCREEN 1
END IF
IF age$ = "A" THEN
a = a + 1
p = 1
GOTO 1
END IF
IF age$ = "B" THEN
p = 1
b = b + 1
GOTO 2
END IF
IF age$ = "C" THEN
p = 1
c = c + 1
GOTO 3
END IF
IF age$ = "D" THEN
p = 1
D = D + 1
GOTO 4
END IF
IF age$ = "end" THEN
GOTO 5
END IF
IF age$ = "53446" THEN
INPUT "What room Terry?"; r$
IF r$ = "1" THEN
GOTO 1
END IF
IF r$ = "2" THEN
GOTO 2
END IF
IF r$ = "3" THEN
GOTO 3
END IF
IF r$ = "4" THEN
GOTO 4
END IF
IF r$ = "5" THEN
GOTO 5
END IF
IF r$ = "6" THEN
GOTO 6
END IF
IF r$ = "7" THEN
GOTO 7
END IF
IF r$ = "8" THEN
GOTO 8
END IF
IF r$ = "9" THEN
GOTO 9
END IF
IF r$ = "10" THEN
GOTO 10
END IF
IF r$ = "11" THEN
GOTO 11
END IF
IF r$ = "12" THEN
GOTO 12
END IF
IF r$ = "13" THEN
GOTO 13
END IF
IF r$ = "14" THEN
GOTO 14
END IF
IF r$ = "15" THEN
GOTO 15
END IF
IF r$ = "16" THEN
GOTO 16
END IF
IF r$ = "17" THEN
GOTO 17
END IF
IF r$ = "18" THEN
GOTO 18
END IF
IF r$ = "19" THEN
GOTO 19
END IF
IF r$ = "20" THEN
GOTO 20
END IF
IF r$ = "21" THEN
GOTO 21
END IF
IF r$ = "22" THEN
GOTO 22
END IF
IF r$ = "23" THEN
GOTO 23
END IF
IF r$ = "24" THEN
GOTO 24
END IF
IF r$ = "25" THEN
GOTO 25
END IF
IF r$ = "26" THEN
GOTO 26
END IF
IF r$ = "27" THEN
GOTO 27
END IF
IF r$ = "28" THEN
GOTO 28
END IF
IF r$ = "29" THEN
GOTO 29
END IF
IF r$ = "30" THEN
GOTO 30
END IF
IF r$ = "31" THEN
GOTO 31
END IF
IF r$ = "32" THEN
GOTO 32
END IF
IF r$ = "33" THEN
GOTO 33
END IF
IF r$ = "34" THEN
GOTO 34
END IF
IF r$ = "999" THEN
GOTO 999
END IF
END IF
aaverage = 0
baverage = 0
caverage = 0
daverage = 0
PRINT "Please enter a valid response."
SLEEP
CLS
GOTO 10
1
n = 1
CLS
PRINT "What is your favorite flavor of Soda?"
PRINT "A= Mountain Dew"
PRINT "B= Coke"
PRINT "C= Doctor Pepper"
PRINT "D= Other"
INPUT "And your answer is"; q$
IF q$ = "room" THEN
PRINT n
SLEEP
END IF
IF q$ = "A" THEN
aa = aa + 1
GOTO 9
END IF
IF q$ = "B" THEN
ba = ba + 1
GOTO 6
END IF
IF q$ = "C" THEN
ca = ca + 1
GOTO 7
END IF
IF q$ = "D" THEN
da = da + 1
GOTO 8
END IF
IF q$ = "end" THEN
GOTO 5
END IF
PRINT "Invalid response."
SLEEP
GOTO 1
5
n = 5
CLS
INPUT "Would you like to end your session, if so type 'A'"; end$
IF end$ = "room" THEN
PRINT n; " = room number"
SLEEP
END IF
IF end$ = "end" THEN
INPUT "Password"; pass$
IF pass$ = "53446" THEN
COL

[potato]

oh my god... :o

[oracle]

I think I'm gonna cry

• PRINT "" = PRINT
  
• PRINT ""
  PRINT ""
  PRINT ""
  PRINT ""
  =
  FOR I = 1 TO 4
  PRINT
  NEXT I
  
• The variable names suck big time, you have to be able to understand what they mean
  

You can start with those ideas

[Plasma]

well, at least you don't use LET...

[oracle]

well, at least you don't use LET...

:rotfl:

Or line numbers on all the lines

[Agamemnus]

:O
:O

*jaws drop with disbelief*...

[seph]

oh my god... :o

Damn I was close... I was thinking "Oh sweet Jesus..." There's always next time though.

[seph]

Okay let's start off with the basics: the LOCATE command!

Code:

CLS
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "                   THIS IS THE FINE PROGRAM OF TERRY CREW "
PRINT "                        ON THE ROAD TO SUCCESS......"
PRINT ""
PRINT ""
PRINT ""
PRINT ""

You don't need all those PRINTS, especially since you just CLSed.
You can count the number of PRINTs and then do this (the first PRINT is line #1).

Code:

CLS
LOCATE 10
PRINT "                   THIS IS THE FINE PROGRAM OF TERRY CREW "
PRINT "                        ON THE ROAD TO SUCCESS......"

Now, for the second lesson in LOCATE:

Code:

CLS
LOCATE 10, 20
PRINT "THIS IS THE FINE PROGRAM OF TERRY CREW "
LOCATE 10, 25
PRINT "ON THE ROAD TO SUCCESS......"

See, the first argument after LOCATE is the Y coordinate, and the second is the X. (the upper left first character you see when you do CLS is x=1,y=1)

Don't have much time right now to look over the rest, someone wanna field it?

Also, DON'T use GOTO. It's evil. You don't know it yet, but GOTO really wants you to die. It pretends to send your program where you want it to go, but secretly, it's plotting its vengeance.... on your SOUL!

One last thing: Try to intend... Don't let your programs become "spaghetti code" (think of spaghetti and the metaphor will come to you like the wind to a blind man's ass).

[EDIT] Damnit I'm addicting to teaching :evil:

Anyways, lesson on the PRINT command:

Code:

PRINT "Hello"
'this statement is going to print "Hello", and move the cursor to the nex line.

PRINT "Hello";
'this statement is going to print "Hello", and then keep the cursor on the same line (right after the word).

PRINT "Hello",
' this statement is going to print "Hello", and then keep the cursor on the same line, but move it to the next TAB space.

PRINT "Hello"; i%; " =)"
' assuming (i% = 3) this statement is going to print "Hello 3 =)", and then keep the cursor on the same line (right after the word).

PRINT "Hello"; s$; " =)"
' assuming (s$ = "John") this statement is going to print "Hello John =)", and then keep the cursor on the same line (right after the word).


PRINT "Hello" + i% + " =)"
' this Doesn't work

PRINT "Hello" + s$ + " =)"
' this Works (you can't mix and match variables...)

There's something more I wanted to add, but I forgot....

[RST]

Terry: You put a whole lot of effort into that, and that says good about you. However, once you learn more of QB you'll be able to do the same thing much more efficently (in, say, about 1/4 of the lines you used). Subs/functions/arrays would do it.

Someone link this man to some good tutorials!!!! :o

[Mech1031]

Terry:
You my freind, have to have eaten 10 pounds of raw sugar when you coded this. you have put so much effort into it though. but here is some advice to you, read alot of tutorials or look at alot of code and mess with it to see what it does. do not do a major project unless you know the shortest way to do it (i.e. If you put your code in a word document, and it reads 55 pages, you need to shorten it. alot.)