home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / ADD-CONCEPTS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.4 KB  |  186 lines
  1. 10 GOSUB51000:GOSUB60000
  2. 11 C0$="[144][129][149][150][151][152][154][155]":C0=LEN(C0$):C1$="[144][159][158][129][149][150][151][152][153][154][155]":C1=LEN(C1$)
  3. 12 B7=PEEK(646):B8=PEEK(53280):B9=PEEK(53281)
  4. 13 POKE53280,14:POKE53281,1:DEFFNR(A)=INT(RND(TI)*A+1):PRINTCHR$(142);CHR$(8);
  5. 20 PRINT"[147]":DIMTP$(6),A$(11),ZN$(9)
  6. 30 RR=15:CC=12:GOSUB52040:PRINT"[144] ADDITION CONCEPT "
  7. 40 PRINTTAB(14)"PRODUCED BY:"
  8. 50 PRINTTAB(7)"JMH SOFTWARE OF MINNESOTA"
  9. 90 GOSUB39000
  10. 100 FORA=1TO1500:NEXT:GOSUB38000
  11. 200 RR=15:CC=0:GOSUB52040:PRINT"CHOOSE ONE OF THE FOLLOWING:"
  12. 210 PRINT"   1 [146]","SUMS TO 5"
  13. 220 PRINT"   2 [146]","SUMS TO 10"
  14. 230 PRINT"";TAB(5)" ENTER 1 OR 2 "
  15. 1000 GETA$:IFA$<>""THEN1000
  16. 1010 GETOP$:IFOP$=""THEN1010
  17. 1020 OP=VAL(OP$):IFOP<1OROP>2THEN1010
  18. 1030 MN=OP*5:GOSUB38000
  19. 1050 FORNP=1TO5
  20. 1100 A1=INT(RND(TI)*MN):A2=INT(RND(TI)*(MN-A1))+1:RA=A1+A2
  21. 1105 IFA1>9ORA2>9THEN1100
  22. 1110 RR=15:CC=5:GOSUB52040:PRINTZN$(A1):CC=10:GOSUB52040:PRINTAN$(4)
  23. 1120 CC=15:GOSUB52040:PRINTZN$(A2):CC=20:GOSUB52040:PRINTAN$(1)
  24. 1130 ES=16:IFA1THENRR=14:CC=6-INT(A1/2):GOSUB52040:FORA=1TOA1:PRINT"[209]";:NEXT
  25. 1140 IFA2THENRR=14:CC=16-INT(A2/2):N2=CC:ES=CC+A2:GOSUB52040:FORA=1TOA2:PRINT"[209]";:NEXT
  26. 1150 IFA1=0ANDA2=0THEN1400
  27. 1200 RR=13:IFA1<1THEN1300
  28. 1205 FORA=1TO11:A$(A)="":NEXT
  29. 1210 C=6-INT(A1/2):N1=C:FORA=CTOA1+C-1:CC=A:GOSUB52040
  30. 1220 PRINT"[209][157][215]":FORB=1TO50:NEXT:NEXT
  31. 1225 IFA1-ATHENB=0:FORB=1TOA1-A:A$(A)="[209]"+A$(A):NEXT:FORA=1TOA1
  32. 1230 FORA=1TOA1:A$(A)=A$(A)+"[209]":IFA>1THENB=0:FORB=1TOA-1:A$(A)=A$(A)+"[209]":NEXT
  33. 1235 IFA1-ATHENB=0:FORB=1TOA1-A:A$(A)="[209]"+A$(A):NEXT
  34. 1240 FORB=1TOA:A$(A)="  [157]"+A$(A):NEXT:NEXT
  35. 1250 A$=" ":FORA=1TOA1:A$=A$+"[209]":NEXT:FORA=CTOES-A1:CC=A:GOSUB52040:PRINTA$
  36. 1260 FORB=1TO100:NEXT:NEXT:FORA=1TOA1:GOSUB52040:PRINTA$(A)
  37. 1270 FORB=1TO100:NEXT:NEXT
  38. 1300 A$="":FORA=1TOA1+A2:A$=A$+"[209]":NEXT
  39. 1305 ES=28-INT((A1+A2)/2):IFA2<1THENCC=CC+A1-1:RR=RR+1:GOTO1330
  40. 1310 RR=RR+1:FORA=0TOA2-1:CC=16-INT(A2/2)+A:GOSUB52040
  41. 1320 PRINT"[215]"+A$:FORB=1TO100:NEXT:NEXT
  42. 1330 C=CC:FORA=C+1TOES:CC=A:GOSUB52040:PRINT" ";A$:FORB=1TO100:NEXT:NEXT
  43. 1400 ZL=2:RR=17:CC=27:GOSUB52040:GOSUB41000
  44. 1410 IFZI=RAANDNI<1THENCP=CP+1:GOTO39600
  45. 1420 IFZI=RATHEN1600
  46. 1425 RR=15:CC=25:GOSUB52040:PRINTSP$;"";SP$
  47. 1430 NI=NI+1:IFNI=1THENGOTO1500
  48. 1440 A$=STR$(RA):A$=RIGHT$(A$,LEN(A$)-1):RR=13:CC=ES+RA:FORA=1TO5:GOSUB52040
  49. 1450 PRINTA$:FORB=1TO200:NEXT:GOSUB52040:PRINT"";A$:FORB=1TO200:NEXT
  50. 1460 NEXT:GOTO1400
  51. 1500 IFA1<1THEN1530
  52. 1510 RR=13:CC=N1-1:GOSUB52040:FORA=1TOA1:PRINTA;:GOSUB1590:PRINT"[157][157]";:NEXT
  53. 1520 PRINT"";RIGHT$(STR$(A1),1);"[146][145][157][164]":GOSUB1590:GOSUB1590
  54. 1530 RR=13:CC=N2-1:GOSUB52040:FORA=1TOA2:PRINTA;:GOSUB1590:PRINT"[157][157]";:NEXT
  55. 1540 PRINT"";RIGHT$(STR$(A2),1);"[146][145][157][164]":GOSUB1590:GOSUB1590
  56. 1550 CC=ES:GOSUB52040:FORA=1TORA:PRINTA;:GOSUB1590:PRINT"[157][157]";:NEXT:GOTO1400
  57. 1590 FORB=1TO500:NEXT:RETURN
  58. 1600 NI=0:GOSUB56000:GOSUB38000:NEXTNP
  59. 1610 FORA=1TO30-((CP+1)*4+CP):PRINT"";TAB(A);TP$(6):FORB=1TO70:NEXT:NEXT
  60. 1620 PRINT"";TAB(A+3);"[192]"
  61. 1630 GOSUB56000
  62. 1650 FORA=1TO38:PRINT"":FORB=1TO4:PRINTCHR$(148)" ";TAB(39);CHR$(20)
  63. 1660 NEXT:FORC=1TO120-A*5:NEXT:NEXT
  64. 1670 GOSUB38000:RR=13:CC=5:GOSUB52040:PRINT"YOU ANSWERED"CP"CORRECTLY ON THE"
  65. 1680 RR=RR+2:GOSUB52040:PRINT"FIRST TRY, OUT OF A POSSIBLE 5."
  66. 1690 GOTO55000
  67. 10000 GETA$:IFA$=""THEN10000
  68. 10005 GOSUB38000
  69. 10010 NEXTNP
  70. 38000 ONINT(RND(TI)*4)+1GOTO38100,38200,38300,38400
  71. 38100 :
  72. 38110 GOSUB38500:CC=0:FORRR=12TO24:GOSUB52040:PRINTA$:NEXT:RETURN
  73. 38200 :
  74. 38210 GOSUB38500:CC=0:FORRR=24TO12STEP-1:GOSUB52040:PRINTA$:NEXT:RETURN
  75. 38300 :
  76. 38310 GOSUB38600:RR=12:CC=1:GOSUB52040:FORCC=1TO38:PRINTA$;"[145][145][145][145][145][145][145][145][145][145][145][145]";:NEXT
  77. 38320 RETURN
  78. 38400 :
  79. 38410 GOSUB38600:RR=12:CC=38:GOSUB52040:FORCC=1TO38:PRINTA$;"[157][145][145][145][145][145][145][145][145][145][145][145][145]";:NEXT
  80. 38500 A$="                                      ":RETURN
  81. 38600 A$="":FORA=1TO12:A$=A$+" [157]":NEXT:RETURN
  82. 39000 PRINTMID$(C1$,FNR(C1),1)"";:FORA=1TO17:PRINT"[163][184]";:NEXT:PRINT"     
  83. 39020 RR[178]7:CC[178]35:[141]52040:[153]"(null) THEN(null)FNCMDCMDCMDCMDFNTHEN(null)FNCMDCMDCMDCMDTAB(TAB(TAB(FNCMD(null)(null)STOP"
  84. 39030 [129]A[178]0[164]6:[135]TP$(A):[130]
  85. 39070 C$[178][202](C1$,[165]R(C1),1)
  86. 39080 [129]A[178]1[164]30:[153]"";[163]A);C$;TP$(0):[129]B[178]1[164]100:[130]:[130]
  87. 39300 [137]63000
  88. 39500 [131]" *WAITFN RNDRNDCMDCMDCMDCMDCMDCMDCMD OR    WAITRNDCMDCMDCMDCMDCMDCMDSTOP (null)(null) (null)"
  89. 39510 [131]"   (null)CMDCMDCMDCMDCMDWAIT OR    WAIT^"," (null)TAB(TAB((null)CMDCMDCMDCMDCMDCMD OR(null)TOTOSQR^"
  90. 39520 [131]" SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMD ORSPC((null)SQRSPC(^","CMD ORFREFREFREFREWAIT^"," *NEWNEWRNDCMDCMDCMDCMDCMDCMDWAIT ORLOGCOSLOGCOSWAIT^"
  91. 39530 [131]" COSNEWLOGCMDCMDCMDCMDWAIT    WAIT^CMDCMDCMDCMDCMD (null) (null)"
  92. 39600 C$[178][202](C1$,[165]R(C1),1)
  93. 39605 [129]A[178]1[164]30[171]CP[172]6[170]CP:[153]"";[163]A);C$;TP$(NP);"STOPCMDCMDCMDCMDCMDCMD (null)  (null)":[129]B[178]1[164]70
  94. 39610 [130]:[130]:[153]"";[163]A[170]4)"STOPTAN"
  95. 39650 [137]1600
  96. 39999 [137]39999
  97. 41000 :
  98. 41010 :
  99. 41050 ZI$[178]""
  100. 41060 [161]ZG$:[139]ZG$[179][177]""[167]41080
  101. 41065 [139][195](ZI$)[178]ZL[167]41060
  102. 41070 [153]"?CMD";:[129]Z1[178]1[164]60:[130]:[153]" CMD";:[129]Z1[178]1[164]02:[130]Z1:[137]41060
  103. 41080 Z9[178][198](ZG$):Z8[178][195](ZI$)
  104. 41090 [139]Z9[178]20[167]41150
  105. 41100 [139]Z9[178]13[167]41200
  106. 41110 [139]Z8[178]ZL[167]41060
  107. 41111 [139] Z9[178]34 [167] 41060
  108. 41120 [139]Z9[179]48[176]Z9[177]57[167]41060
  109. 41125 [139] ZO[178]1 [167]41135
  110. 41130 RR[178]15:CC[178]25[170][195](ZI$)[172]4:[141]52040:[153]ZN$([197](ZG$))
  111. 41135 ZI$[178]ZI$[170]ZG$
  112. 41140 RR[178]17:CC[178]27[170][195](ZI$)[172]4:[141]52040:[137]41060
  113. 41150 [139]Z8[178]0[167]41060
  114. 41160 CC[178]25[170]([195](ZI$)[171]1)[172]4:RR[178]15:[141]52040:[153]SP$:RR[178]17:CC[178]27:[141]52040
  115. 41170 [139]Z8[178]1[167]41050
  116. 41180 ZI$[178][200](ZI$,Z8[171]1)
  117. 41190 [137]41140
  118. 41200 [139]Z8[178]0[167]41060
  119. 41210 ZI[178][197](ZI$):[129]Z1[178]1[164]Z8:[153]"CMD";:[130]
  120. 41220 [139]ZC[178]1[167][129]Z1[178]1[164]Z8:[153]" ";:[130]:[129]Z1[178]1[164]Z8:[153]"CMD";:[130]
  121. 41230 [142]
  122. 51000 :
  123. 51030 ZR$[178]"":ZC$[178]""
  124. 51040 [129] Z1[178]1[164]41:ZC$[178]ZC$[170]"":[130]
  125. 51050 [129] Z2[178]1[164]25:ZR$[178]ZR$[170]"":[130]
  126. 51060 [143] IFPEEK(833)<>93THENNEW
  127. 51070 [151]59468,12
  128. 51080 [142]
  129. 52000 :
  130. 52040 [153]"";
  131. 52050 [139]CC[179]2[167]52070
  132. 52060 [153][200](ZC$,CC[171]1);
  133. 52070 [139]RR[179]2[167]52090
  134. 52080 [153][200](ZR$,RR[171]1);
  135. 52090 [142]
  136. 53030 [142]
  137. 55000 :
  138. 55040 RR[178]20:CC[178]1:[141]52000
  139. 55060 [153]"                 SWAITTART OVER      "
  140. 55070 [153]"                 EWAITND             "
  141. 55080 [153]"             TYPE   S, OR E ON"
  142. 55090 [161]ZG$:[139]ZG$[179][177]""[167]55090
  143. 55100 [161]ZG$:[139]ZG$[178]""[167]55100
  144. 55120 [139]ZG$[178]"S"[167][138]
  145. 55130 [139]ZG$[179][177]"E"[167]55100
  146. 55140 [141]60500:[151]53280,B8:[151]53281,B9:[151]646,B7
  147. 55150 [153]"LOAD"
  148. 55160 [137] 61000
  149. 55170 [141]52000:[129]Z1[178]1[164]5:[153]"                                    "
  150. 55180 [130]:[153]"":[142]
  151. 56000 :
  152. 56010 C[178][165]R(C0):[161]ZG$:[139]ZG$[177]""[167]56010
  153. 56020 [129]A[178]C[164]C0:RR[178]24:CC[178]5:[141]52000
  154. 56030 [153][202](C0$,A,1)" PRESS SPACE BAR TO CONTINUE ON"
  155. 56040 [129]B[178]1[164]200:[161]ZG$:[139]ZG$[178]" "[167]56050
  156. 56045 [130]:[130]:C[178]1:[137]56020
  157. 56050 [153]"                                      STOP";
  158. 56060 [142]
  159. 60000 :
  160. 60010 [151]788,52
  161. 60050 [142]
  162. 60500 :
  163. 60510 [151]788,49:[142]
  164. 60430 [139] [194](50003)[178]160[167][151]144,85:[142]
  165. 61000 [153]"LOAD"
  166. 61010 [153]" LOAD"[199](34)"0:MENU"[199](34)",8"
  167. 61020 [153]"RUN":[153]"ONONONONONONONONON"
  168. 61030 [151]631,13:[151]632,13:[151]198,2:[128]
  169. 63000 :
  170. 63010 UP$[178]"ONONONONCMDCMDCMD"
  171. 63020 ZN$(0)[178]"NEWNEWNEWCMDCMDCMDGET GETWAITCMDCMDCMDGET GETWAITCMDCMDCMDGET GETWAITCMDCMDCMDLOGWAITNEWCOSWAIT"
  172. 63030 ZN$(1)[178]" NEWCMDGETCMDGETCMDGETCMDCOSWAITRND"
  173. 63040 ZN$(2)[178]"NEWNEWNEWCMDGETCMDCMDCMDWAITNEWNEWCOSWAITCMDCMDCMDGETCMDLOGWAITNEWNEWWAIT"
  174. 63050 ZN$(3)[178]"NEWNEWNEWCMDGETWAITCMDCMDCMDNEWNEWCOSCMDGETWAITCMDCMDCMDNEWNEWCOSWAIT"
  175. 63060 ZN$(4)[178]"RND *CMDCMDCMDWAITGET GETCMDCMDCMDLOGWAITNEWCOSCMDGETCMDGETWAIT"
  176. 63070 ZN$(5)[178]"NEWNEWNEWCMDCMDCMDGETCMDLOGWAITNEWNEWCMDGETCMDCMDCMDWAITNEWNEWCOSWAIT"
  177. 63080 ZN$(6)[178]"NEWNEWNEWCMDCMDCMDGETCMDLOGWAITNEWNEWCMDCMDCMDGET GETWAITCMDCMDCMDLOGWAITNEWCOSWAIT"
  178. 63090 ZN$(7)[178]"NEWNEWNEWCMDGETCMDGETCMDGETCMDGETWAIT"
  179. 63100 ZN$(8)[178]"NEWNEWNEWCMDCMDCMDGET GETCMDCMDCMDLOGWAITNEWCOSWAITCMDCMDCMDGET GETCMDCMDCMDLOGWAITNEWCOS"
  180. 63110 ZN$(9)[178]"NEWNEWNEWCMDCMDCMDGET GETCMDCMDCMDLOGWAITNEWCOSCMDGETWAITCMDCMDCMDNEWNEWCOSWAIT"
  181. 63120 AN$(4)[178]"*CMDCMD*COSWAITNEWCMDCMDGETWAIT"
  182. 63150 AN$(1)[178]"NEWNEWNEWCMDCMDCMDNEWNEWNEWWAIT"
  183. 63160 SP$[178]"   CMDCMDCMD   CMDCMDCMD   CMDCMDCMD   CMDCMDCMD   "[170]UP$
  184. 63180 [129]Z1[178]0[164]9:ZN$(Z1)[178]ZN$(Z1)[170]UP$:[130]
  185. 63190 [142]
  186.