home *** CD-ROM | disk | FTP | other *** search
- 10 PRINT"[147]":CLR
- 20 PRINT"VERTICAL BAR GRAPH"
- 30 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
- 40 PRINT"INSTRUCTIONS- USE ONLY POSITIVE"
- 50 PRINT"NUMBERS UP TO 4 DIGITS, ENTER"
- 60 PRINT"ALL DECIMALS AS INTEGERS BY SHIFTING"
- 70 PRINT"DECIMAL PLACE TO RIGHT OR DROPPING DECIMALS"
- 80 PRINT"IF NO VALUE ENTER ZERO, HIT ANY KEY AFTER GRAPH IS DRAWN FOR ANALYSIS"
- 90 PRINT"YOU MAY ENTER UP TO 18 VALUES"
- 100 PRINT
- 110 PRINT"HIT ANY KEY TO GO ON"
- 120 GETG$:IFG$=""THEN120
- 130 PRINT"[147]"
- 140 PRINT"ENTER YOUR VALUES"
- 150 PRINT
- 160 INPUT"#1";AA:INPUT"#2";BA:INPUT"#3";CA
- 170 INPUT"#4";DA:INPUT"#5";EA:INPUT"#6";FA
- 180 INPUT"#7";GA:INPUT"#8";HA:INPUT"#9";IA
- 185 INPUT"#10";JA:INPUT"#11";KA:INPUT"#12";LA
- 195 INPUT"#13";MA:INPUT"#14";NA:INPUT"#15";OA
- 200 INPUT"#16";PA:INPUT"#17";QA:INPUT"#18";RA
- 210 INPUT"HIGHEST VALUE";P
- 215 INPUT"TOTAL # OF VALUES";N
- 216 PRINT"[147]"
- 220 AI=INT(22*AA/P):BI=INT(22*BA/P):CI=INT(22*CA/P)
- 225 DI=INT(22*DA/P):EI=INT(22*EA/P):FI=INT(22*FA/P)
- 230 GI=INT(22*GA/P):HI=INT(22*HA/P):II=INT(22*IA/P)
- 235 JI=INT(22*JA/P):KI=INT(22*KA/P):LI=INT(22*LA/P)
- 240 MI=INT(22*MA/P):NI=INT(22*NA/P):OI=INT(22*OA/P)
- 245 PI=INT(22*PA/P):QI=INT(22*QA/P):RI=INT(22*RA/P)
- 250 FORX=0TOAI:POKE1949-(40*X),102
- 251 POKE56221-(40*X),1:NEXT
- 260 FORX=0TOBI:POKE1951-(40*X),102
- 261 POKE56223-(40*X),1:NEXT
- 270 FORX=0TOCI:POKE1953-(40*X),102
- 271 POKE56225-(40*X),1:NEXT
- 280 FORX=0TODI:POKE1955-(40*X),102
- 281 POKE56227-(40*X),1:NEXT
- 290 FORX=0TOEI:POKE1957-(40*X),102
- 291 POKE56229-(40*X),1:NEXT
- 300 FORX=0TOFI:POKE1959-(40*X),102
- 301 POKE56231-(40*X),1:NEXT
- 310 FORX=0TOGI:POKE1961-(40*X),102
- 311 POKE56233-(40*X),1:NEXT
- 320 FORX=0TOHI:POKE1963-(40*X),102
- 321 POKE56235-(40*X),1:NEXT
- 330 FORX=0TOII:POKE1965-(40*X),102
- 331 POKE56237-(40*X),1:NEXT
- 340 FORX=0TOJI:POKE1967-(40*X),102
- 341 POKE56239-(40*X),1:NEXT
- 350 FORX=0TOKI:POKE1969-(40*X),102
- 351 POKE56241-(40*X),1:NEXT
- 360 FORX=0TOLI:POKE1971-(40*X),102
- 361 POKE56243-(40*X),1:NEXT
- 370 FORX=0TOMI:POKE1973-(40*X),102
- 371 POKE56245-(40*X),1:NEXT
- 389 FORX=0TONI:POKE1975-(40*X),102
- 390 POKE56247-(40*X),1:NEXT
- 400 FORX=0TOOI:POKE1977-(40*X),102
- 401 POKE56249-(40*X),1:NEXT
- 410 FORX=0TOPI:POKE1979-(40*X),102
- 411 POKE56251-(40*X),1:NEXT
- 420 FORX=0TOQI:POKE1981-(40*X),102
- 421 POKE56253-(40*X),1:NEXT
- 430 FORX=0TORI:POKE1983-(40*X),102
- 431 POKE56255-(40*X),1:NEXT
- 440 FORX=22TO0STEP-1
- 441 PRINTINT(X*P/22):NEXTX
- 443 GETG$:IFG$=""THEN443
- 600 FORX=1024TO1063:Y=PEEK(X)
- 601 A$=CHR$(Y):AA$=AA$+A$:NEXT
- 605 FORX=1064TO1103:Y=PEEK(X)
- 606 B$=CHR$(Y):BB$=BB$+B$:NEXT
- 700 FORX=1104TO1143:Y=PEEK(X)
- 701 C$=CHR$(Y):CC$=CC$+C$:NEXT
- 705 FORX=1144TO1183:Y=PEEK(X)
- 706 D$=CHR$(Y):DD$=DD$+D$:NEXT
- 800 FORX=1184TO1223:Y=PEEK(X)
- 801 E$=CHR$(Y):EE$=EE$+E$:NEXT
- 805 FORX=1224TO1263:Y=PEEK(X)
- 806 F$=CHR$(Y):FF$=FF$+F$:NEXT
- 900 FORX=1264TO1303:Y=PEEK(X)
- 901 G$=CHR$(Y):GG$=GG$+G$:NEXT
- 905 FORX=1304TO1343:Y=PEEK(X)
- 906 H$=CHR$(Y):HH$=HH$+H$:NEXT
- 1000 FORX=1344TO1383:Y=PEEK(X)
- 1001 I$=CHR$(Y):II$=II$+I$:NEXT
- 1010 FORX=1384TO1423:Y=PEEK(X)
- 1011 J$=CHR$(Y):JJ$=JJ$+J$:NEXT
- 1015 FORX=1424TO1463:Y=PEEK(X)
- 1016 K$=CHR$(Y):KK$=KK$+K$:NEXT
- 1020 FORX=1464TO1503:Y=PEEK(X)
- 1021 L$=CHR$(Y):LL$=LL$+L$:NEXT
- 1025 FORX=1504TO1543:Y=PEEK(X)
- 1026 M$=CHR$(Y):MM$=MM$+M$:NEXT
- 1030 FORX=1544TO1583:Y=PEEK(X)
- 1031 N$=CHR$(Y):NN$=NN$+N$:NEXT
- 1035 FORX=1584TO1623:Y=PEEK(X)
- 1036 O$=CHR$(Y):OO$=OO$+O$:NEXT
- 1040 FORX=1624TO1663:Y=PEEK(X)
- 1041 P$=CHR$(Y):PP$=PP$+P$:NEXT
- 1045 FORX=1664TO1703:Y=PEEK(X)
- 1046 Q$=CHR$(Y):QQ$=QQ$+Q$:NEXT
- 1050 FORX=1704TO1743:Y=PEEK(X)
- 1051 R$=CHR$(Y):RR$=RR$+R$:NEXT
- 1055 FORX=1744TO1783:Y=PEEK(X)
- 1056 S$=CHR$(Y):SS$=SS$+S$:NEXT
- 1057 FORX=1784TO1823:Y=PEEK(X)
- 1058 T$=CHR$(Y):TT$=TT$+T$:NEXT
- 1060 FORX=1824TO1863:Y=PEEK(X)
- 1061 U$=CHR$(Y):UU$=UU$+U$:NEXT
- 1065 FORX=1864TO1903:Y=PEEK(X)
- 1066 V$=CHR$(Y):VV$=VV$+V$:NEXT
- 1070 FORX=1904TO1943:Y=PEEK(X)
- 1071 W$=CHR$(Y):WW$=WW$+W$:NEXT
- 1075 FORX=1944TO1983:Y=PEEK(X)
- 1076 X$=CHR$(Y):XX$=XX$+X$:NEXT
- 1080 FORX=1984TO2023:Y=PEEK(X)
- 1081 Y$=CHR$(Y):YY$=YY$+Y$:NEXT
- 1090 TA=AA+BA+CA+DA+EA+FA+GA+HA+IA
- 1091 TB=JA+KA+LA+MA+NA+OA+PA+QA+RA
- 1092 TT=TA+TB:ME=TT/N
- 1095 OPEN4,4
- 1100 PRINT#4,"REPORT OF INPUT"
- 1105 PRINT#4
- 1110 PRINT#4,"TOTAL OF VALUES IS" TT
- 1111 PRINT#4,"MEAN VALUE IS " ME
- 1115 PRINT#4
- 1120 PRINT#4,"DATA VALUE %OF TOTAL"
- 1125 PRINT#4
- 1130 PRINT#4,"#1...."AA" "INT(AA/TT*100)
- 1135 PRINT#4,"#2...."BA" "INT(BA/TT*100)
- 1140 PRINT#4,"#3...."CA" "INT(CA/TT*100)
- 1145 PRINT#4,"#4...."DA" "INT(DA/TT*100)
- 1150 PRINT#4,"#5...."EA" "INT(EA/TT*100)
- 1155 PRINT#4,"#6...."FA" "INT(FA/TT*100)
- 1160 PRINT#4,"#7...."GA" "INT(GA/TT*100)
- 1165 PRINT#4,"#8...."HA" "INT(HA/TT*100)
- 1166 PRINT#4,"#9...."IA" "INT(IA/TT*100)
- 1167 PRINT#4,"#10..."JA" "INT(JA/TT*100)
- 1168 PRINT#4,"#11..."KA" "INT(KA/TT*100)
- 1169 PRINT#4,"#12..."LA" "INT(LA/TT*100)
- 1170 PRINT#4,"#13..."MA" "INT(MA/TT*100)
- 1171 PRINT#4,"#14..."NA" "INT(NA/TT*100)
- 1172 PRINT#4,"#15..."OA" "INT(OA/TT*100)
- 1173 PRINT#4,"#16..."PA" "INT(PA/TT*100)
- 1174 PRINT#4,"#17..."QA" "INT(QA/TT*100)
- 1175 PRINT#4,"#18..."RA" "INT(RA/TT*100)
- 1176 PRINT#4
- 1180 PRINT#4,"SCALE GRAPH OF DATA"
- 1185 PRINT#4
- 1186 PRINT#4,AA$
- 1187 PRINT#4,BB$
- 1188 PRINT#4,CC$
- 1189 PRINT#4,DD$
- 1190 PRINT#4,EE$
- 1191 PRINT#4,FF$
- 1192 PRINT#4,GG$
- 1193 PRINT#4,HH$
- 1194 PRINT#4,II$
- 1195 PRINT#4,JJ$
- 1196 PRINT#4,KK$
- 1197 PRINT#4,LL$
- 1198 PRINT#4,MM$
- 1199 PRINT#4,NN$
- 1200 PRINT#4,OO$
- 1201 PRINT#4,PP$
- 1202 PRINT#4,QQ$
- 1203 PRINT#4,RR$
- 1205 PRINT#4,SS$
- 1206 PRINT#4,TT$
- 1207 PRINT#4,UU$
- 1208 PRINT#4,VV$
- 1209 PRINT#4,WW$
- 1210 PRINT#4,XX$
- 1211 PRINT#4,YY$
- 1250 PRINT#4," 1 2 3 4 5 6 7 8 9 1 1 1 1 1 1 1 1 1"
- 1251 PRINT#4," 0 1 2 3 4 5 6 7 8"
- 1252 CLOSE4
- 1253 GETZ$:IFZ$=""THEN1253
- 1254 GOTO10
-