home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / 1LETTER-ORDER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.9 KB  |  285 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. 30 :
  10. 35 [143] +++ INPUT SECTION +++
  11. 40 UR$[178]"":UI$[178]"":[151]UO,0
  12. 42 [139]UL[178]0[167]UL[178]80
  13. 45 [151]UC,0
  14. 50 [161]UI$:[139]UI$[178]""[167]50
  15. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]"  ";:[137]85:[143] RETURN
  16. 60 [139]UI$[178][199](20)[167]105:[143] DELETE
  17. 62 [139] [195](UR$)[178][177]UL[167]50
  18. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  19. 70 UR$[178]UR$[170]UI$
  20. 75 [153]UI$;
  21. 80 [137]50
  22. 85 [143] +++ CHECK FOR HELP REQUEST +++
  23. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  24. 95 [139]UF[178]1[167][141]240
  25. 100 UF[178]0:[153]:[142]
  26. 102 [143] ++ CHECK DELETE ++
  27. 105 [139][195](UR$)[179]1[167]50
  28. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  29. 115 [153]"CMD  CMDCMD";:[137]50
  30. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  31. 125 [139][195](US$)[178]0[167]150
  32. 130 [129]US[178]1[164][195](US$)
  33. 135 [139]UI$[178][202](US$,US,1)[167][142]
  34. 140 [130]
  35. 145 UI$[178]"":[142]
  36. 150 [143] ** STANDARD INPUT **
  37. 152 [139][198](UI$)[178]46[167]190:[143] PERIOD
  38. 153 [139]UI$[178][199](42)[167] 187
  39. 155 [139]UI$[178][199](32)[167]190:[143] SPACE
  40. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  41. 165 [142]:[143] NUMBERS
  42. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  43. 175 [142]:[143] ALPHABET
  44. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]:[143] SHIFTED ALPHABET?
  45. 185 [139][194](UT)[178]UU%[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:UV%[178][194](UT)
  54. 216 [137]300
  55. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  56. 220 UT$[178]UL$:[153]"LOAD";:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  57. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  58. 230 [151]U1,U1%
  59. 232 [151]U2,U2%
  60. 233 [151]U4,U4%
  61. 234 [151]U3,U3%[171]1
  62. 235 [137]35
  63. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  64. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  65. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  66. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  67. 255 [142]
  68. 300 [143] ** MENU **
  69. 301 :
  70. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  71. 303 :
  72. 305 [153]"                MENU"
  73. 310 [153]" --------------------------------------"
  74. 315 [153]"SYS       1.   BEGIN LETTER ORDER"
  75. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  76. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  77. 330 [153]"       4.   MODIFICATION OF PROGRAM"
  78. 335 [153]"       5.   QUIT"
  79. 340 [153]" --------------------------------------"
  80. 345 [153]"       PRESS A NUMBER KEY (1-5) ";
  81. 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE
  82. 352 US$[178]""
  83. 355 [145][197](UR$)[141]1000,400,500,600,396
  84. 360 [137]300
  85. 395 [143] ** RE-ENABLE STOP KEY AND END **
  86. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  87. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  88. 398 [153]"CONTLOAD":[128]
  89. 399 [141]875:[142]
  90. 400 [143] ** STUDENT INSTRUCTIONS **
  91. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  92. 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  93. 412 [153]"(null)ETTER ORDER"
  94. 413 [153]" (null)OU TYPE IN THE LETTER THAT IS"
  95. 414 [153]"MISSING THEN PRESS (null)VAL(null)(null)(null)(null)."
  96. 425 [141]835:[141]850
  97. 460 [153]"(null)(null)(null)VAL:(null)O ADVANCE FROM ONE QUESTION"
  98. 470 [153]"TO THE NEXT PRESS THE SPACE BAR."
  99. 475 [153]"RIGHT$F AT ANY TIME YOU WISH TO RETURN"
  100. 480 [153]"TO THE MENU PRESS H RETURN."
  101. 485 [141]835
  102. 490 [139]UZ[178]1[167][158]UP%:[137]217
  103. 499 [142]
  104. 500 [143] ** TEACHER INSTRUCTIONS **
  105. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  106. 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
  107. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  108. 504 [153]"   THIS PROGRAM WAS GIVEN TO THE"
  109. 505 [153]"   PUBLIC DOMAIN BY ITS MAKER."
  110. 506 [153]"   (null)ARJIE (null)ARLER 1988"
  111. 512 UP[178]1:[141]835:[141]850
  112. 513 [153]"     (null)ROGRAM (null)AME: (null)ETTER (null)RDER"
  113. 514 [153]"     (null)RITTEN PEEKY  : (null)ARJIE (null)ARLER"
  114. 515 [153]"     (null)PGRADED PEEKY :     "
  115. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  116. 517 PRINT"         [194][193][211][201][195][160]2.0 [208][197][212] [195][207][205][208][213][212][197][210]
  117. 518 [153]"         PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELEN(null)(null)(null)(null)(null)VAL(null)
  118. 519 PRINT"         8032 [195][194][205] [195][207][205][208][213][212][197][210]
  119. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  120. 521 GOSUB835
  121. 590 IFUZ=1THENSYSUP%:GOTO217
  122. 599 RETURN
  123. 600 REM ** PROGRAM MODIFICATION INST **
  124. 601 PRINT"[147]":POKEUT,UL%
  125. 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  126. 606 PRINT"[208]OSSIBILITIES FOR MODIFICATION"
  127. 607 PRINT"WOULD BE TO USE THE PROGRAM FOR"
  128. 609 PRINT"NUMBERS INSTEAD OF LETTERS."
  129. 611 PRINT"[195]HANGE THE DATA IN LINES 1400-1410."
  130. 612 PRINT"[196]ELETE [195][200][210]$(142) FOR LOWERCASE IN"
  131. 613 PRINT"LINE 1310."
  132. 660 GOSUB835
  133. 690 IFUZ=1THENSYSUP%:GOTO217
  134. 699 RETURN
  135. 700 REM ** TO USE 8032 LOAD CBM4032 **
  136. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  137. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  138. 730 [158]UU[170]71
  139. 740 [128]
  140. 797 [143] ** TO USE 8032 LOAD CBM4032 **
  141. 798 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  LOAD CBM 4032 PROGRAM"
  142. 799 [158]1093:[128]
  143. 800 [143] ** T I T L E   P A G E **
  144. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  145. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  146. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  147. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  148. 809 [161] A$:[139] A$[179][177]"" [167] 300
  149. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  150. 812 [153]"STEP  WAIT
  151. 814 PRINT" [146]   [146][169]
  152. 816 [153]" WAIT  TAB((null)
  153. 818 PRINT"[223]  [146]
  154. 820 [153]"C O M M O D O R E
  155. 822 PRINT"EDUCATIONAL
  156. 824 [153]"SOFTWARE
  157. 826 REM ** COMMODORE LOGO **
  158. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  159. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  160. 830 T1$="":T2$="":T3$="":T4$="":I=0
  161. 832 GOTO300
  162. 835 REM ** SPACE BAR PRESS **
  163. 840 PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]":POKEUO,0
  164. 844 GETUI$:IFUI$<>" "THEN844
  165. 846 RETURN
  166. 850 REM ** PAGE DESIGN ROUTINE **
  167. 852 UP=UP+1
  168. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  169. 860 PRINT" --------------------------------------"
  170. 864 IFUH<>0THEN870
  171. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   * <RETURN>"
  172. 870 UH=0:PRINT"":RETURN
  173. 875 REM ** PLEASE WAIT REMARK **
  174. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  175. 885 RETURN
  176. 900 REM ** SET UP VARIABLES **
  177. 901 UX$="*":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  178. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:POKE 50003,0:UO=158
  179. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  180. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  181. 905 UD$=""
  182. 906 UP$="                                       "
  183. 907 UT$=" LETTER ORDER":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  184. 908 RETURN
  185. 910 REM ** SET VARIABLES **
  186. 915 GOSUB900
  187. 916 DIMB$(33):E$="[164]":G$=" "
  188. 917 J=53248
  189. 920 REM ** CHECK FOR 8032 **
  190. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  191. 930 IFPEEK(UB+40)<>96THENGOSUB700
  192. 931 REM ** MEMORY CHECK **
  193. 932 IF FRE(0)>2000THEN937
  194. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  195. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  196. 935 SYSUU+71
  197. 936 END
  198. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  199. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  200. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  201. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  202. 943 POKE1104,145:POKE1105,234:POKE1082,234
  203. 945 IFPEEK(50003)<>160THEN955
  204. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  205. 955 IFPEEK(50003)<>1THEN990
  206. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  207. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  208. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  209. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  210. 965 SYSUU+48:REM DISABLE STOP KEY
  211. 970 GOSUB800:REM TITLE
  212. 980 GOTO300:REM MENU
  213. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  214. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  215. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  216. 1010 PRINT"[147]":POKEUT,UL%
  217. 1020 REM *****************************
  218. 1030 REM        LETTER ORDER
  219. 1035 REM
  220. 1040 REM        IN MEMORY OF
  221. 1045 REM
  222. 1050 REM    MATTHEW ALLEN MARLER
  223. 1055 REM
  224. 1060 REM      BY MARJIE MARLER
  225. 1070 REM
  226. 1080 REM      SEPTEMBER 24,1988
  227. 1090 REM
  228. 1100 REM ****************************
  229. 1110 REM
  230. 1120 UP=0:UG$="":
  231. 1170 W1=0:M1=0:W$="1"
  232. 1180 C=0:I=0
  233. 1230 GOSUB1400:REM READ DATA
  234. 1280 IFC<=5THENGOSUB1490:REM GET RANDOM NUMBER
  235. 1290 IFC>=6THEN GOSUB1460:
  236. 1300 GOSUB850:REM PAGE DESIGN
  237. 1310 PRINTCHR$(142)""SPC(12);
  238. 1311 REM PRINT QUESTION
  239. 1315 PRINT B$(F);G$;B$(F+1);G$;B$(F+2);G$;E$;G$;B$(F+4);G$;B$(F+5);G$;B$(F+6)
  240. 1316 PRINT""SPC(18);
  241. 1320 UL=1:GOSUB35:H$=UR$:REM GET ANSWER
  242. 1330 IFH$=(B$(F+3))THENGOTO1370
  243. 1335 REM RIGHT ANSWER
  244. 1339 IFI=2THENGOTO1350
  245. 1340 PRINT""SPC(12);"TRY AGAIN":I=I+1:GOSUB835
  246. 1345 GOTO1300:REM  WRONG ANSWER RETRY
  247. 1350 IFI>=2THEN PRINTSPC(18)"[145][145][145][163][145][157]"B$(F+3):I=0:REM CORRECT ANSWER
  248. 1360 M1=M1+1
  249. 1370 W1=W1+1
  250. 1380 GOSUB2740:GOSUB2770:GOSUB835
  251. 1382 IF C>=10 THEN GOTO 5000
  252. 1390 GOTO1280
  253. 1400 DATA" "," "," ",A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z," "
  254. 1410 DATA " "," ","END"
  255. 1420 FOR A=1TO32:READB$(A)
  256. 1430 IFB$(A)="END"THENRESTORE:GOTO1420
  257. 1440 NEXTA
  258. 1450 RETURN
  259. 1460 D=RND(TI)
  260. 1470 F=INT((D*13)+14)
  261. 1480 RETURN
  262. 1490 D=RND(TI)
  263. 1500 F=INT((D*14)+1)
  264. 1510 RETURN
  265. 2690 REM ***WINNER OUTPUT***
  266. 2691 IF V<>X THEN RETURN
  267. 2700 FORK1=1TO10
  268. 2710 PRINT" CORRECT "
  269. 2720 NEXTK1
  270. 2725 REM  GOSUB835
  271. 2730 RETURN
  272. 2740 REM *** SCORE ***
  273. 2750 S%=(W1/(W1+M1))*100
  274. 2760 RETURN
  275. 2770 REM *** PRINT SCORE ***
  276. 2780 PRINT"[146]SCORE = ";S%
  277. 2781 C=C+1
  278. 2790 RETURN
  279. 2800 :
  280. 5000 GOSUB850
  281. 5010 PRINT"YOU ARE DONE NOW!!"
  282. 5020 PRINT"YOUR SCORE WAS:"
  283. 5030 PRINT"";S%
  284. 6999 GOSUB835:RETURN
  285.