home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU23.ARC / STATISTICS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.9 KB  |  394 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143]---GENERAL INPUT ROUTINE----
  8. 15 :
  9. 25 :
  10. 30 :
  11. 35 [143]-----INPUT SECTION-----
  12. 40 :  UR$[178]"":UI$[178]""
  13. 42 :  [139] UL[178]0[167]UL[178]80
  14. 45 [153]"  CMDCMD";:[151]UC,0
  15. 50 :  [161]UI$:[139]UI$[178]""[167]50
  16. 55 :  [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  17. 60 :  [139]UI$[178][199](20)[167]105
  18. 62 :  [139] [195](UR$)[178][177]UL [167]50
  19. 65 :  [141]120:[143] CHECK FOR VALID CHARACTER
  20. 70 :  UR$[178]UR$[170]UI$
  21. 75 :  [153]UI$;
  22. 80 :  [137]50
  23. 85 [143]-----CHECK FOR HELP REQUEST-----
  24. 90 :  [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  25. 95 :  [139]UF[178]1[167][141]240
  26. 100 : UF[178]0:[153]:[142]
  27. 102 [143]-----CHECK DELETE-----
  28. 105 : [139][195](UR$)[179]1[167]50
  29. 110 : UR$[178][200](UR$,[195](UR$)[171]1)
  30. 115 : [153]"CMD  CMDCMD";:[137]50
  31. 120 [143]-----CHECK FOR VALID CHARACTERS-----
  32. 125 :  [139][195](US$)[178]0[167]150
  33. 130 :  [129]US[178]1[164][195](US$)
  34. 135 :    [139]UI$[178][202](US$,US,1)[167][142]
  35. 140 :  [130]
  36. 145 :  UI$[178]"":[142]
  37. 150 [143]-----STANDARD INPUT-----
  38. 152 :  [139][198](UI$)[178]46[167] [142]
  39. 155 :  [139]UI$[178][199](32)[167] [142]
  40. 160 :  [139][198](UI$)[179]48 [176] [198](UI$)[177]57[167]170
  41. 165 :  [142]
  42. 170 :  [139][198](UI$)[179]65 [176] [198](UI$)[177]90[167]180
  43. 175 :  [142]
  44. 180 :  [139][198](UI$)[179]193 [176] [198](UI$)[177]218[167]UI$[178]"":[142]
  45. 185 :  [139][194](UT)[178]12[176][194](UT)[178]21[167]UI$[178][199]([198](UI$)[171]128):[142]
  46. 187 :  [142]
  47. 190 :  UI$[178]"":[142]
  48. 195 :  UF[178]1:[143]-----HELP ROUTINE EXIT-----
  49. 197 :  [141]250
  50. 200 :  [141]245
  51. 205 :  [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  52. 210 :  UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  53. 215 :  UZ[178]1
  54. 216 :  [137]300
  55. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  56. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  57. 219 [153]"LOAD";
  58. 220 UT$[178]UL$::[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  59. 225 :  [151]UQ,UQ%(UQ[171]UB):[130]
  60. 230 :  [151]U1,U1%
  61. 232 :  [151]U2,U2%
  62. 233 :  [151]U4,U4%
  63. 234 :  [151]U3,U3%[171]1
  64. 235 :  [137]35
  65. 240 :  UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  66. 245 :  [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  67. 250 :  U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  68. 251 UJ$[178]US$:UJ[178]UL
  69. 252 :  UJ$[178]US$:UK$[178]UG$:UJ[178]UP:UK[178]UL
  70. 255 :  [142]
  71. 300 [143]-----MENU-----
  72. 301 :
  73. 302 :  [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  74. 303 :
  75. 305 :  [153]"LOAD                MENU"
  76. 310 :  [153]" --------------------------------------"
  77. 315 :  [153]"       1.   STATISTICS
  78. 320 :  PRINT"       2.   STUDENT INSTRUCTIONS"
  79. 325 :  PRINT"       3.   TEACHER INSTRUCTIONS"
  80. 330 :  PRINT"       4.   MODIFICATION OF PROGRAM"
  81. 335 :  PRINT"       5.   QUIT"
  82. 340 :  PRINT" --------------------------------------"
  83. 345 :  PRINT"       PRESS A NUMBER KEY (1-5) ";
  84. 350 :  UL=1:US$="12345":GOSUB35:REM---INPUT ROUTINE---
  85. 351 :  IFLEN(UR$)>1THEN300
  86. 352 :  US$=""
  87. 355 :  ONVAL(UR$)GOSUB1000,400,500,600,396
  88. 360 :  GOTO300
  89. 395 REM-----RE-ENABLE STOP KEY AND END-----
  90. 396 :  IFPEEK(50003)<>1ANDPEEK(50003)<>160ANDPEEK(50003)<>0THEN399
  91. 397 :  SYSUU+71:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  92. 398 :  PRINT"[154][147]":END
  93. 399 :  GOSUB875:RETURN
  94. 400 REM-----STUDENT INSTRUCTIONS-----
  95. 405 :  PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
  96. 410 UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  97. 412 PRINT"    [212]HIS PROGRAM DOES A STATISTICAL"
  98. 414 PRINT"   ANALYSIS ON A LIST OF DATA VALUES."
  99. 416 PRINT"   ([205]AXIMUM "MX")  [201]T WILL ORDER THE"
  100. 418 PRINT"   LIST AND FIND SEVERAL STATISTICAL"
  101. 420 PRINT"   QUANTITIES DESCRIBING THE DATA."
  102. 422 PRINT"    [212]HE DATA MAY BE ENTERED IN EITHER"
  103. 424 PRINT"   OF TWO FORMS:"
  104. 426 PRINT"     1) [193]S A SIMPLE LIST OF VALUES, OR"
  105. 428 PRINT"     2) [215]ITH AN IDENTIFIER ACCOMPANYING"
  106. 430 PRINT"        EACH VALUE."
  107. 432 :  GOSUB835
  108. 434 :  GOSUB850
  109. 436 PRINT"    [210]EMEMBER TO HIT <RETURN> AFTER"
  110. 438 PRINT"   TYPING YOUR ANSWER.  [212]HIS TELLS"
  111. 440 PRINT"   THE COMPUTER TO ACCEPT WHAT YOU"
  112. 442 PRINT"   HAVE TYPED."
  113. 444 PRINT"    [212]YPE <H> AT ANY TIME TO RETURN"
  114. 446 PRINT"   TO THE MENU FOR HELP.  [217]OU WILL"
  115. 448 PRINT"   BE RETURNED TO THE PLACE IN THE"
  116. 450 PRINT"   PROGRAM WHERE YOU LEFT OFF AS"
  117. 452 PRINT"   SOON AS THE OPTION FROM THE MENU"
  118. 454 PRINT"   IS COMPLETE."
  119. 485 :  GOSUB835
  120. 490 :  IFUZ=1THENSYSUP%:GOTO217
  121. 499 :  RETURN
  122. 500 REM-----TEACHER INSTRUCTIONS-----
  123. 501 :  PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
  124. 502 :  UP=0:UG$="[212]EACHER [201]NST.":GOSUB850
  125. 503 :  PRINT"      [212]O THE BEST OF OUR KNOWLEDGE,"
  126. 504 :  PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  127. 505 :  PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  128. 506 :  PRINT"   PLEASE CONTACT:"
  129. 507 :  PRINT"      [195]OMMODORE [194]USINESS [205]ACHINES"
  130. 508 :  PRINT"          3370 [208]HARMACY [193]VE.
  131. 509 :  [153]"          ATNGINCOURT, (null)NTARIO"
  132. 510 :  [153]"          LENANADA   (null)1(null) 2(null)4"
  133. 511 :  [153]"          (416) 499-4292"
  134. 512 UP[178]1:[141] 835:[141] 850:
  135. 513 [153]"     (null)ROGRAM (null)AME: (null)TATISTICS 
  136. 514 PRINT"     [215]RITTEN [194]Y  : [213]NKNOWN
  137. 515 [153]"     (null)PGRADED PEEKY : (null)YNDA PEEKONANNO"
  138. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  139. 519 PRINT"         [208][197][212] 64 [195][207][205][208][213][212][197][210]
  140. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  141. 524 :  GOSUB835
  142. 526 :  GOSUB850
  143. 528 :  PRINT"    [212]HIS PROGRAM WILL SPEED UP"
  144. 530 :  PRINT"   THE PROCESS OF CALCULATING STAT-"
  145. 532 :  PRINT"   ISTICS."
  146. 534 :  PRINT"    [212]HE DATA MAY BE TYPED IN WITH,"
  147. 536 :  PRINT"   OR WITHOUT, IDENTIFIERS UP TO A"
  148. 538 :  PRINT"   MAXIMUM OF "MX"[157].  [212]HIS MAY BE"
  149. 540 :  PRINT"   CHANGED TO ANY NUMBER OF YOUR"
  150. 542 :  PRINT"   CHOICE USING THE INSTRUCTIONS IN"
  151. 544 :  PRINT"   '4.  [205][207][196][201][198][201][195][193][212][201][207][206][160][207][198][160][208][210][207][199][210][193][205]'."
  152. 546 :  PRINT"   [212]HE STATISTICS CALCULATED ARE:"
  153. 548 :  PRINT"   [205]INIMUM     [205]AXIMUM      [211]UM"
  154. 550 :  PRINT"   [205]EAN        [205]EDIAN       [210]ANGE"
  155. 552 :  PRINT"   [204]OWER [200]INGE [213]PPER [200]INGE  [205]ID [211]PREAD"
  156. 554 :  PRINT"   [211]TANDARD [196]EVIATION"
  157. 556 :  PRINT"   [214]ARIANCE"
  158. 558 :
  159. 560 :  GOSUB835
  160. 590 :  IFUZ=1THENSYSUP%:GOTO217
  161. 599 :  RETURN
  162. 600 REM-----PROGRAM MODIFICATION INST-----
  163. 601 :  PRINT"[147]":POKEUT,UL%
  164. 605 :  UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  165. 606 :  PRINT"    [212]HIS PROGRAM SETS A MAXIMUM"
  166. 608 :  PRINT"   LIMIT TO THE NUMBER OF DATA THAT"
  167. 610 :  PRINT"   MAY BE TYPED IN.  [212]HIS MAXIMUM"
  168. 612 :  PRINT"   IS SIMPLE TO CHANGE.  [201]N LINE"
  169. 614 :  PRINT"   '908',  MX=100:RET...  [195]HANGE"
  170. 618 :  PRINT"   THE '100' TO ANY NUMBER YOU WISH."
  171. 620 :  PRINT"    [212]O SEE LINE 908; EXIT THE PROGRAM"
  172. 622 :  PRINT"   (OPTION 5) AND TYPE '[204][201][211][212] 908'."
  173. 624 :  PRINT"   [213]SE THE CURSOR CONTROLS TO CHANGE"
  174. 626 :  PRINT"   THE NUMBER."
  175. 660 :  GOSUB835
  176. 690 :  IFUZ=1THENSYSUP%:GOTO217
  177. 699 :  RETURN
  178. 700 REM-----TO USE 8032 LOAD CBM4032-----
  179. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  180. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  181. 730 :  [158]UU[170]71
  182. 740 :  [128]
  183. 800 [143] ** T I T L E   P A G E **
  184. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  185. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  186. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  187. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  188. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  189. 812 [153]"STEP  WAIT
  190. 814 PRINT" [146]   [146][169]
  191. 816 [153]" WAIT  TAB((null)
  192. 818 PRINT"[223]  [146]
  193. 820 [153]"C O M M O D O R E
  194. 822 PRINT"EDUCATIONAL
  195. 824 [153]"SOFTWARE
  196. 826 REM ** COMMODORE LOGO **
  197. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  198. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  199. 830 :  T1$="":T2$="":T3$="":T4$="":I=0
  200. 832 :  GOTO300
  201. 835 REM-----SPACE BAR PRESS-----
  202. 840 :  PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  203. 844 :  GETUI$:IFUI$<>" "THEN844
  204. 846 :  RETURN
  205. 850 REM-----PAGE DESIGN ROUTINE-----
  206. 852 :  UP=UP+1
  207. 855 :  PRINT"[147]"LEFT$(UT$+UP$,21);LEFT$(UG$+UP$,14);UP
  208. 860 :  PRINT" --------------------------------------"
  209. 865 :  PRINTLEFT$(UD$,24);LEFT$(UP$,6);"HELP - PRESS   H <RETURN>"
  210. 870 :  PRINT"":RETURN
  211. 875 REM-----PLEASE WAIT REMARK-----
  212. 880 :  PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  213. 885 :  RETURN
  214. 900 REM-----SET UP VARIABLES-----
  215. 901 :  UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  216. 902 :  UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:POKE50003,0
  217. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  218. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024
  219. 905 :  UD$=""
  220. 906 :  UP$="                                       "
  221. 907 :  UT$=" [211][212][193][212][201][211][212][201][195][211]  [160][160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!!!***
  222. 908 :  MX=100:RETURN
  223. 910 REM-----SET VARIABLES-----
  224. 915 :  GOSUB900
  225. 916 : DIM D$(MX),V(MX),Z(MX)
  226. 917 :
  227. 920 REM-----CHECK FOR 8032-----
  228. 925 :  PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  229. 930 :  IFPEEK(UB+40)<>96THENGOSUB700
  230. 931 REM-----MEMORY CHECK-----
  231. 932 :  IF FRE(0)>2000THEN937
  232. 933 :  PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  233. 934 :  PRINT"MEMORY TO RUN THIS PROGRAM !"
  234. 935 :  SYSUU+71
  235. 936 :  END
  236. 937 :  PRINT"[147]":IFPEEK(50003)=0THEN962
  237. 940 REM-----BASIC 2.0  OR  4.0  OR  C-64 SETUP-----
  238. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  239. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  240. 943 POKE1104,145:POKE1105,234:POKE1082,234
  241. 945 :  IFPEEK(50003)<>160THEN955
  242. 950 :  POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  243. 955 :  IFPEEK(50003)<>1THEN990
  244. 960 :  POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  245. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  246. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  247. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  248. 965 :  SYSUU+48:REM DISABLE STOP KEY
  249. 970 :  GOSUB800:REM TITLE
  250. 980 :  GOTO300:REM MENU
  251. 990 :  PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  252. 1000 : IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM-----PROGRAM STARTS HERE-----
  253. 1001 PRINT"[147]";:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  254. 1010 REM --------------STATS-----------------------------------------------
  255. 1020 REM BASIC STATISTICS OF A SET OF DATA
  256. 1030 B$="BACK":E$="END"
  257. 1060 Z(0)=0:N$=" "
  258. 1070 POKEUT,UL%
  259. 1080 PRINT"[147]"TAB(16)"[211][212][193][212][211]"
  260. 1090 PRINTTAB(16);:FORJ=1TO5:PRINTCHR$(192);:NEXT:PRINT
  261. 1200 PRINT"   [215]OULD YOU LIKE TO USE IDENTIFIERS"
  262. 1210 PRINT"   WITH YOUR INPUT (Y OR N) ? ";
  263. 1220 UL=1:US$="YNH":GOSUB35
  264. 1230 IFUR$="Y"THENF=1:GOTO1260
  265. 1240 IFUR$="N"THENF=0:GOTO1260
  266. 1260 PRINT"[147]":GOSUB2260
  267. 1270 PRINT"     [212]HE DATA MUST NOW BE ENTERED."
  268. 1280 PRINT:IFF=1THEN1320
  269. 1290 PRINT"    [197]NTER EACH VALUE SEPARATELY IN"
  270. 1300 PRINT"    RESPONSE TO THE QUESTION MARK."
  271. 1310 GOSUB2220:GOTO1360
  272. 1320 PRINT"     [198]OR EACH DATA ITEM ENTER ITS"
  273. 1330 PRINT" IDENTIFIER (ABBREVIATED [201].[196].) AND ITS"
  274. 1340 PRINT"   VALUE IN RESPONSE TO THE SEPARATE"
  275. 1350 PRINT"           QUESTION MARKS.":GOSUB2220
  276. 1360 GOSUB2260:FORJ=1TO9:GETR$:NEXT:N=1
  277. 1370 IFN<1THENN=1
  278. 1380 GOSUB2490:PRINT"           [196]ATA [201]TEM #";N
  279. 1390 IFF=0THEND$(N)=N$:GOTO1430
  280. 1400 PRINT"           [201].[196]. ";:UL=16:US$="":GOSUB35:R$=UR$:IFR$=E$THEN1490
  281. 1410 IFR$=B$THENN=N-1:GOTO1370
  282. 1420 D$(N)=R$
  283. 1430 PRINT"           [214]ALUE ";:US$="-.0123456789H*ENDBACK"
  284. 1435 UL=5:GOSUB35:R$=UR$:IFR$=E$THEN1490
  285. 1440 IFR$=B$ANDF=1THEN1380
  286. 1450 IFR$=B$THENN=N-1:GOTO1370
  287. 1460 V(N)=VAL(R$)
  288. 1470 IFN=MXTHENPRINT:PRINT"** [206]O MORE DATA ALLOWED **":GOSUB835:N=N+1:GOTO1490
  289. 1480 N=N+1:GOTO1370
  290. 1490 N=N-1
  291. 1500 IFN=0THENPRINT"[147] ** [206][207][160][196][193][212][193] -- RUN ABORTED **":GOTO300
  292. 1510 PRINT"[147]":GOSUB2260
  293. 1520 PRINT"[195]ONTINUATION [207]PTIONS"
  294. 1530 PRINT"    1) [204]IST DATA IN ORIGINAL ORDER
  295. 1540 [153]"    2) (null)IST DATA IN RANKING ORDER
  296. 1550 PRINT"    3) [196]ISPLAY STATISTICS
  297. 1560 [153]"    4) VALND SESSION
  298. 1570 PRINT" [197]NTER OPTION (1,2,3, OR 4)
  299. 1580 [141]2260
  300. 1590 [153]" ";:UL[178]1:US$[178]"1234H":[141]35
  301. 1610 [153]"LOAD"
  302. 1620 R[178][197](UR$)
  303. 1630 [139]R[178]4[167]300:[143] --- MAIN MENU ---
  304. 1640 [145] R [141] 1660,1770,1900
  305. 1650 [137]1510
  306. 1660 [141]2260:[153]
  307. 1670 [153]" (null)LEFT$VALCLOSE(null)(null)RIGHT$CHR$RIGHT$(null)ATN(null)CLOSESTR$ATN(null)ATNCLOSE(null)(null)STR$VAL(null)":[153]
  308. 1680 [153]" ";N;"(null)OTAL VALNTRIES":[141]2280
  309. 1690 [153]:[153]" #   (null)ALUE";
  310. 1700 [139]F[178]0[167][153]
  311. 1710 [139]F[178]1[167][153][163]22);"RIGHT$.STR$."
  312. 1720 [141]2260
  313. 1730 [129]J[178]1[164]N
  314. 1740 [153]J;[163]5);V(J);[163]22);D$(J)
  315. 1750 [141]2370
  316. 1760 [130]:[141]835:[142]
  317. 1770 [141]2260
  318. 1780 [153]" (null)LEFT$VALCLOSESTR$ATN(null)ATNCLOSERIGHT$(null)CLOSE(null)ATN(null)(null)RIGHT$(null)CHR$CLOSE(null)(null)STR$VAL(null)":[153]
  319. 1790 [153]" ";N;"(null)OTAL VALNTRIES"
  320. 1800 [141]2280
  321. 1810 [141]875:[143] --- ONE MOMENT ---
  322. 1820 [141]2400:[153]:[153]"LOAD  #   (null)ALUE";
  323. 1830 [139]F[178]0[167][153]
  324. 1840 [139]F[178]1[167][153][163]22);"RIGHT$.STR$."
  325. 1850 [141]2260
  326. 1860 [129]J[178]1[164]N
  327. 1870 [153]J;[163]5);V(Z(J));[163]22);D$(Z(J))
  328. 1880 [141]2370
  329. 1890 [130]:[141]835:[142]
  330. 1900 [141]2260
  331. 1910 [153][163]10);"(null)(null)ATN(null)RIGHT$(null)(null)RIGHT$LENATN(null)CLOSEATN(null)ATN(null)(null)(null)RIGHT$(null)"
  332. 1920 [153]"     (null)OUR LIST HAS";N;"VALUES"
  333. 1925 [139]N[177]10[167][141]875:[153]"":[143] --- ONE MOMENT ---
  334. 1930 NP[178]0:NN[178]0:NZ[178]0:SQ[178]0:W[178]0
  335. 1940 [129]J[178]1[164]N:W[178]W[170]V(J):SQ[178]SQ[170]V(J)[172]V(J)
  336. 1950 [139]V(J)[177]0[167]NP[178]NP[170]1
  337. 1960 [139]V(J)[179]0[167]NN[178]NN[170]1
  338. 1970 [139]V(J)[178]0[167]NZ[178]NZ[170]1
  339. 1980 [130]:M[178]W[173]N:VA[178]0:[139]N[178]1[167]2000
  340. 1990 VA[178](SQ[173]N)[171]M[172]M
  341. 2000 SD[178][186](VA)
  342. 2010 [153]"  "NP;"(null)OSITIVE;";NN;"(null)EGATIVE;";NZ;"(null)ERO"
  343. 2020 [141]2400:[153]"    (null)INIMUM (null)ALUE     = ";V(Z(N))
  344. 2030 [153]"    (null)AXIMUM (null)ALUE     = ";V(Z(1))
  345. 2040 [153]"    (null)ANGE             = ";V(Z(1))[171]V(Z(N))
  346. 2050 [153]"   (null)UM OF THE VALUES = ";W:[153]
  347. 2060 [153]"    (null)EAN              = ";[181](100[172]M)[173]100
  348. 2070 Q[178][181]((N[170]1)[173]2)
  349. 2080 MD[178](V(Z(Q))[170]V(Z(N[170]1[171]Q)))[173]2
  350. 2090 [153]"    (null)EDIAN            = ";[181](100[172]MD)[173]100
  351. 2100 H1[178](N[170]2)[173]4
  352. 2110 [139] H1[177][181](H1) [167] H1[178][181](H1):[137]2140
  353. 2120 UH[178]V(Z(H1)):LH[178]V(Z(N[170]1[171]H1)):[137] 2160
  354. 2130 [137] 2160
  355. 2140 UH[178](V(Z(H1))[170]V(Z(H1[170]1)))[173]2
  356. 2150 LH[178](V(Z(N[170]1[171]H1))[170]V(Z(N[171]H1)))[173]2
  357. 2160 [153]"    (null)OWER LEFT$INGE       = ";[181](100[172]LH)[173]100
  358. 2170 [153]"    (null)PPER LEFT$INGE       = ";[181](100[172]UH)[173]100
  359. 2180 [153]"    (null)ID-(null)PREAD        = ";[181](100[172](UH[171]LH))[173]100
  360. 2190 [153]:[153]"    (null)ARIANCE          = ";[181](100[172]VA)[173]100
  361. 2200 [153]"    (null)TANDARD STR$EVIATION= ";[181](100[172]SD)[173]100
  362. 2210 [141]835:[142]
  363. 2220 [153]:[153]"    RIGHT$F YOU MAKE A MISTAKE, TYPE"
  364. 2230 [153]"  '"B$;"' TO RE-ENTER THE LAST DATUM."
  365. 2240 [153]:[153]"     (null)HEN THE LIST IS COMPLETED, TYPE"
  366. 2250 [153]"  '"E$;"' TO TERMINATE THE LIST.":[142]
  367. 2255 [143]-----PRINT LINE-----
  368. 2260 [153]" ";:[129]J[178]1[164]37:[153][199](45);:[130]:[153]
  369. 2270 [153]:[142]
  370. 2280 [153]:[153]"   (null)HILE THE LIST IS DISPLAYING, YOU"
  371. 2290 [153]" CAN HIT ANY KEY TO CAUSE A TEMPORARY"
  372. 2300 [153]" HALT.  (null)HE DISPLAY WILL RESUME WHEN
  373. 2310 PRINT" YOU HIT ANOTHER KEY."
  374. 2320 PRINT"":GOSUB2260
  375. 2330 GOSUB835
  376. 2350 PRINT"[147]"
  377. 2360 RETURN
  378. 2370 GETR$:IFR$=""THENRETURN
  379. 2380 GETR$:IFR$=""THEN2380
  380. 2390 RETURN
  381. 2400 IFZ(0)=1THENRETURN
  382. 2410 FORJ=1TON:Z(J)=J:NEXT:IFN=1THENRETURN
  383. 2420 NM=N-1:FORK=1TON:FORJ=1TONM:N1=Z(J)
  384. 2430 N2=Z(J+1):IFV(N1)>V(N2)THEN2450
  385. 2440 Z(J+1)=N1:Z(J)=N2
  386. 2450 NEXT:NEXT:Z(0)=1:RETURN
  387. 2490 REM-----CLEAR BOTTOM SCREEN-------
  388. 2500 PRINT"";
  389. 2510 FORQ=1TO5
  390. 2520 :  PRINT"                                       "
  391. 2530 NEXTQ
  392. 2540 PRINT"";
  393. 2550 RETURN
  394.