home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / KAR.LOT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  15.4 KB  |  594 lines
  1. 100 NN=44:P=6:C$=CHR$(13):LF=0:FL=0:NL=0
  2. 104 OPEN15,8,15
  3. 105 PRINTCHR$(14)
  4. 113 DIMDD$(200),G(200),TN(NN)
  5. 114 DIMA(P,200),B(P,200)
  6. 120 NF$="LOTTO WINNERS"
  7. 122 NH$="NUM.DRW"
  8. 125 ND$="LOTDTE"
  9. 130 NG$="NUM.DATA"
  10. 140 GOTO3000
  11. 160 POKE53280,0:POKE53281,0:GOSUB1000
  12. 169 PRINT""TAB(7)"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  13. 170 PRINTTAB(7)"[217][207][213][210][160][215][201][211][200][160][201][211][160][205][217][160][195][207][205][205][193][206][196]...[146]"
  14. 171 PRINTTAB(7)"[158][145][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  15. 172 PRINT"[155]  1.[197]NTER DATA INTO MEMORY"
  16. 173 PRINT"[155]  2.[197]NTER WINNING NUMBERS"
  17. 174 PRINT"  3.[210]EAD NUMBERS"
  18. 175 PRINT"  4.[210]EAD DRAWINGS"
  19. 176 PRINT"  5.[195]HOOSE NUMBERS"
  20. 177 PRINT"  6.[209]UIT"
  21. 178 PRINT"[158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  22. 179 PRINTSPC(8)" [205]AKE YOUR CHOICE BY # "
  23. 180 PRINT"[158][145][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  24. 185 GETCC$:IFCC$=""THEN185
  25. 191 IFCC$="1"THEN2260
  26. 192 IFCC$="2"THEN250
  27. 193 IFCC$="3"THEN710
  28. 194 IFCC$="4"THEN1400
  29. 195 IFCC$="5"THEN1200
  30. 196 IFCC$="6"THEN930
  31. 200 GOTO185
  32. 250 IFLF=0THENGOSUB860
  33. 440 PRINT"[147]":POKE53280,0:POKE53281,11
  34. 444 POKE646,7
  35. 450 REM **INPUT NUMBERS **
  36. 455 PRINT"[147]"TAB(4)""
  37. 460 POKE646,7
  38. 470 PRINTTAB(3)"[197]NTER [212]HIS [215]EEK'S [204]OTTO 44 [206]UMBERS "
  39. 475 PRINT"DRAWING DATE:"
  40. 476 PRINTTAB(18)"[145]  MM-DD-YY";:INPUT"[157][157][157][157][157][157][157][157][157][157]";DD$
  41. 480 PRINT:PRINT
  42. 500 FORF=1TOP:PRINTTAB(12)"[206]UMBER   ";F;:INPUTN(F)
  43. 505 IFN(F)<1ORN(F)>NNTHEN631
  44. 510 FORS=1TONN:IFN(F)=STHEN630
  45. 520 NEXT:NEXT
  46. 521 PRINT"[147]"
  47. 522 PRINT"[144][217]OU ENTERED:"
  48. 523 PRINTSPC(8)"";
  49. 524 FORF=1TOP
  50. 525 PRINTN(F);:NEXT
  51. 530 PRINT:PRINTTAB(7)"[144][193]RE NUMBERS [195]ORRECT ? ([217]/[206]) "
  52. 540 GETE$:IFE$=""THEN540
  53. 550 IFE$="N"THEN640
  54. 560 IFE$="Y"THEN900
  55. 570 GOTO540
  56. 580 PRINTTAB(11)" [206][213][205][194][197][210][211][160][196][197][204][197][212][197][196] "
  57. 590 PRINTTAB(6)" [197]NTER [205]ORE [206]UMBERS ? ([217]/[206])[146] "
  58. 600 GETQ$:IFQ$=""THEN600
  59. 610 IFQ$="Y"THEN450
  60. 615 IFQ$="N"THENGOTO2100
  61. 620 GOTO160
  62. 630 TN(S)=TN(S)+1:GOTO520
  63. 631 FORXZ=1TO5
  64. 632 PRINT"[147]";:PRINTTAB(8)"[158][206]UMBER [206]OT [198]ROM 1 TO ";NN
  65. 634 FORBE=1TO500
  66. 635 NEXT:NEXTXZ
  67. 640 PRINT"[147]"
  68. 650 FORF=1TOP:FORS=1TONN
  69. 660 IFN(F)=STHEN700
  70. 680 NEXT:NEXT
  71. 690 GOTO580
  72. 700 TN(S)=TN(S)-1:GOTO680
  73. 710 OPEN2,8,2,"@0:"+NF$+",S,R"
  74. 712 FORS=1TONN
  75. 713 INPUT#2,TN(S)
  76. 714 NEXTS:CLOSE2
  77. 715 OPEN2,8,2,"@0:"+ND$+",S,R"
  78. 716 INPUT#2,DD$
  79. 717 CLOSE2
  80. 718 PRINT"[147][158][196]O YOU WANT A CERTAIN FREQUENCY MARKED?"
  81. 719 GOSUB1050
  82. 720 PRINT"[147]":POKE53280,0:POKE53281,0:M=1
  83. 722 FORA=1TOINT(NN*.33)+1
  84. 724 GOSUB4000
  85. 726 PRINTA;TAB(4);TN(A)
  86. 728 IFCM$="N"THEN732
  87. 730 IFCM$="Y"ANDTN(A)>=DNTHENGOSUB5000
  88. 732 NEXTA
  89. 733 PRINT"":M=2
  90. 734 FORA=INT(NN*.33)+2TOINT(NN*.66)+2
  91. 736 GOSUB4000
  92. 738 PRINTTAB(12);A;SPC(2);TN(A)
  93. 740 IFCM$="N"THEN744
  94. 742 IFCM$="Y"ANDTN(A)>=DNTHENGOSUB4900
  95. 744 NEXT
  96. 745 PRINT"":M=3
  97. 746 FORA=INT(NN*.66)+3TONN
  98. 748 GOSUB4000
  99. 750 PRINTTAB(24);A;SPC(2);TN(A)
  100. 752 IFCM$="N"THEN756
  101. 754 IFCM$="Y"ANDTN(A)>=DNTHENGOSUB4900
  102. 756 NEXT
  103. 758 POKE646,14
  104. 760 PRINT""
  105. 762 PRINTTAB(8)"[210]ESULTS AS OF: ";DD$
  106. 765 PRINT:PRINTTAB(14)"[158][200][201][212][160][193][160][203][197][217]!"
  107. 766 GETQ$:IFQ$=""THEN766
  108. 767 GOTO160
  109. 770 PRINT"[147]"
  110. 771 PRINTTAB(17)"[159][211][207][210][210][217]!!!!"
  111. 773 PRINT:PRINTTAB(5);"[201][160][195][193][206]'[212][160][196][207][160][212][200][201][211][160][213][206][204][197][211][211][160][217][207][213][160][204][207][193][196]"
  112. 775 PRINT:PRINTTAB(12)"[212][200][197][160][198][201][204][197][211][160][198][201][210][211][212]!!!"
  113. 776 FORX=1TO5000:NEXT:GOTO160
  114. 820 PRINTTAB(13)"[156] [208]RESS ANY KEY "
  115. 830 GETAN$:IFAN$=""THEN830
  116. 840 GOTO160
  117. 850 GOSUB1360
  118. 860 POKE53281,5:POKE646,0:PRINT"[147]"
  119. 863 PRINTTAB(18)"[200][197][217]!!!!"
  120. 865 PRINT:PRINT:PRINT:PRINT"      [217][207][213][160][196][201][196][206]'[212][160][204][207][193][196][160][212][200][197][160][198][201][204][197][211][160][198][201][210][211][212]   "
  121. 867 PRINT:PRINTTAB(9)"[201]F YOU GO ON FROM HERE,":PRINTTAB(8)"YOU'LL ERASE THE OLD FILES!"
  122. 869 PRINTTAB(5)"[201]S THAT WHAT YOU WANT TO DO???":PRINTTAB(17)"([217]/[206])
  123. 870 [161]Q$:[139]Q$[178]""[167]870
  124. 872 [139]Q$[178]"N"[167]160
  125. 875 [139]Q$[178]"Y"[167][142]
  126. 878 [137]870
  127. 899 [128]
  128. 900 NS[178]NS[170]1
  129. 910 [129]F[178]1[164]P
  130. 912 A(F,NS)[178]N(F)
  131. 915 [130]
  132. 917 DD$(NS)[178]DD$
  133. 920 [137]590
  134. 930 [141]1100
  135. 931 [153][163]17)""
  136. 932 [129]I[178]1[164]200
  137. 935 [139]I[178]50[167][153][163]14)"GOOD-BYE!!!!"
  138. 936 [139]I[178]100[167][153][163]19)"&"
  139. 937 [139]I[178]150[167][153][163]14)"GOOD-LUCK!!!"
  140. 938 [130]
  141. 940 [160]15
  142. 953 [129]X[178]1[164]4000:[130]:[153]"LOAD":[128]
  143. 1000 [153]"LOAD"
  144. 1005 [153]"SYSORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  145. 1006 [129]X[178]1[164]21
  146. 1007 [153]"SYSON$"[166]38)"$"
  147. 1008 [130]
  148. 1009 [153]"SYSON/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  149. 1010 [153]""[166]2)" # "[166]30)" # "
  150. 1015 [129]X[178]1[164]9:Y[178][181](10[170](44[171]10[170]1)[172][187](1))
  151. 1020 [153][166]2)""Y[166]29)""Y
  152. 1030 [130]
  153. 1035 [142]
  154. 1050 [161]CM$:[139]CM$[178]"Y"[167]1057
  155. 1053 [139]CM$[178]"N"[167]1061
  156. 1055 [137]1050
  157. 1057 [153][163]4)"LEFT$OW MANY TIMES PICKED DO YOU WANT "
  158. 1058 [153][163]13);:[133]"MARKED";DN
  159. 1059 [139]DN[178]0[167]DN[178]1
  160. 1061 [153]""[163]10)"SYSLENHECKING THE LIST...."
  161. 1063 [129]I[178]1[164]1000:[130]
  162. 1065 [142]
  163. 1100 [153]"LOAD"[199](142)
  164. 1105 [153]"ONORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  165. 1106 [153]"ON$ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^$"
  166. 1107 [153]"ON$$ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^$$"
  167. 1108 [153]"ON$$$CLRORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^$$$"
  168. 1109 [153]"ON$$$CLR$VERIFYORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^CLR$$$$"
  169. 1110 [153]"ON$$$CLR$VERIFY$DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^VERIFY$CLR$$$$"
  170. 1115 [129]X[178]1[164]12:[153]"ON$$$CLR$VERIFY$DEF$"[166]28)"DEF$VERIFY$CLR$$$$":[130]
  171. 1119 [153]"ON$$$CLR$VERIFY$DEF/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPVERIFY$CLR$$$$"
  172. 1120 [153]"ON$$$CLR$VERIFY/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCLR$$$$"
  173. 1121 [153]"ON$$$CLR/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP$$$"
  174. 1122 [153]"ON$$/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP$$"
  175. 1123 [153]"ON$/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP$"
  176. 1125 [153]"ON/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPON"
  177. 1130 [142]
  178. 1199 [128]
  179. 1200 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,13
  180. 1205 [153]"LEFT$OW WOULD YOU LIKE YOUR NUMBERS PICKED? "
  181. 1207 [153]"ON NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  182. 1210 [153][163]10)"PRINT1. (null)ANDOMLY "
  183. 1212 [153][163]10)" NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  184. 1214 [153]"";[163]10)"PRINT2. (null)OST ASCREQUENT "
  185. 1216 [153][163]10)" NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  186. 1218 [153]""[163]10)"PRINT3. (null)EAST ASCREQUENT "
  187. 1219 [153][163]10)" NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  188. 1220 [153]""[163]10)"PRINT4. (null)IDDLE (null)UMBERS "
  189. 1221 [153][163]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  190. 1222 [153]""[163]10)"PRINT5. (null)N ATNVERAGE "
  191. 1223 [153][163]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  192. 1225 [153]""[163]10)"PRINT6. (null)ATN(null)(null)ATN(null)'(null) (null)RIGHT$(null) "
  193. 1226 [153][163]10)" NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  194. 1228 [153]"PRINT    VALNTER THE NUMBER OF YOUR CHOICE!   "
  195. 1229 [153]" NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  196. 1230 [161]Z$:[139]Z$[178]""[167]1230
  197. 1232 [139]Z$[178]"1"[167]1240
  198. 1234 [139]Z$[178]"2"[176]Z$[178]"3"[176]Z$[178]"4"[167]1270
  199. 1235 [139]Z$[178]"5"[167]1350
  200. 1236 [139]Z$[178]"6"[167]1475
  201. 1239 [137]1230
  202. 1240 [129]R[178]1[164]P
  203. 1245 S(R)[178]([171]TI):S(R)[178][181](44[172][187](0))[170]1
  204. 1250 [130]
  205. 1253 [139]S(1)[178]S(2)[176]S(1)[178]S(3)[176]S(1)[178]S(4)[176]S(1)[178]S(5)[176]S(1)[178]S(6)[167]1240
  206. 1254 [139]S(2)[178]S(3)[176]S(2)[178]S(4)[176]S(2)[178]S(5)[176]S(2)[178]S(6)[167]1240
  207. 1255 [139]S(3)[178]S(4)[176]S(3)[178]S(5)[176]S(3)[178]S(6)[167]1240
  208. 1256 [139]S(4)[178]S(5)[176]S(4)[178]S(6)[167]1240
  209. 1257 [139]S(5)[178]S(6)[167]1240
  210. 1262 [137]6000
  211. 1265 NS[178]0:BV[178]0:AD[178]0
  212. 1266 [129]S[178]1[164]NN:TN(S)[178]0:[130]
  213. 1267 [129]G[178]1[164]NN:TN(G)[178]0:[130]
  214. 1270 [151]53280,7:[151]53281,7:[151]646,0
  215. 1271 [153]"LOAD"
  216. 1275 [159]2,8,2,"@0:"[170]NH$[170]",S,R"
  217. 1276 [132]2,NS
  218. 1277 [160]2
  219. 1278 [159]2,8,2,"@0:"[170]NF$[170]",S,R"
  220. 1279 [129]S[178]1[164]NN
  221. 1280 [132]2,TN(S)
  222. 1281 [130]S:[160]2
  223. 1282 AD[178]0
  224. 1283 [153]"LOADRIGHT$'M GETTING THEM IN ORDER";
  225. 1285 [129]BV[178]NS[164]0[169][171]1
  226. 1286 [129]G[178]1[164]NN
  227. 1287 [139]TN(G)[178]BV[167]AD[178]AD[170]1:G(AD)[178]G
  228. 1288 [130]G:[153]"..";:[130]BV
  229. 1291 [139]Z$[178]"3"[167]1300
  230. 1292 [139]Z$[178]"4"[167]1600
  231. 1293 [153]:[153][166]4);"(null)HE "P" MOST PICKED NUMBERS ARE:":[153][163]8);
  232. 1294 [129]X[178]1[164]P
  233. 1295 [153]G(X);
  234. 1296 [130]X
  235. 1297 [153]:[153][163]13)"STOPLEFT$RIGHT$(null) ATN (null)VAL(null) !!"
  236. 1298 [161]Q$:[139]Q$[178]""[167]1298
  237. 1299 [137]160
  238. 1300 [153]:[153][166]4);"(null)HE "P" LEAST PICKED NUMBERS ARE:":[153][163]8);
  239. 1302 [129]X[178]AD[164](AD[171]P)[170]1[169][171]1
  240. 1304 [153]G(X);
  241. 1306 [130]X
  242. 1310 [153]:[153][163]13)"STOPLEFT$RIGHT$(null) ATN (null)VAL(null) !!"
  243. 1312 [161]Q$:[139]Q$[178]""[167]1312
  244. 1314 [137]160
  245. 1320 [153]"LOAD"[163]8)"STOP(null)OU CAN'T CHOOSE MORE THAN"
  246. 1321 [153][163]8)"THE NUMBER OF DRAWINGS...."
  247. 1325 [153][163]15)"(null)OU PEEK(null)(null)(null)!!!!"
  248. 1328 [129]I[178]1[164]5500:[130]
  249. 1330 [142]
  250. 1340 [151]53280,1:[151]53281,1:[151]646,11
  251. 1341 [153]"";
  252. 1342 [153]"LOADSTR$O YOU (null)VALATN(null)(null)(null) WANT TO DO MORE THAN 30??"
  253. 1343 [161]Q$:[139]Q$[178]""[167]1343
  254. 1344 [139]Q$[178]"N"[167]1347
  255. 1345 [139]Q$[178]"Y"[167]1380
  256. 1346 [137]1343
  257. 1347 [153]"(null)ELL THEN TRY SOMETHING UNDER 30"
  258. 1348 [129]X[178]1[164]2500:[130]:[137]1475
  259. 1350 [151]53281,13:[151]53280,5:[153]"LOAD"
  260. 1351 [159]2,8,2,"@0:"[170]NH$[170]",S,R"
  261. 1352 [132]2,NS:[160]2
  262. 1353 [153]"LOAD(null)HERE ARE STOP"NS" DRAWING IN THE FILE"
  263. 1354 [153]"LEFT$OW FAR BACK DO YOU WANT TO AVERAGE";:[133]DB
  264. 1355 [139]DB[177]NS[167][141]1320:[153]"LOAD":[128]
  265. 1356 [139]LF[178]1[167]1358
  266. 1357 [141]2320:LF[178]1
  267. 1358 [129]V[178]1[164]P:[129]AB[178]NS[164](NS[171]DB)[170]1[169][171]1
  268. 1359 Z(V)[178]Z(V)[170]A(V,AB)
  269. 1360 [130]:[130]
  270. 1361 [153]""
  271. 1364 [129]V[178]1[164]P
  272. 1365 G(V)[178][181](Z(V)[173]DB)
  273. 1366 [153][163]8)"STOP"G(V);
  274. 1367 [130]
  275. 1368 [129]V[178]1[164]P:Z(V)[178]0:[130]
  276. 1369 [153]:[153]"(null)HESE ARE THE AVERAGE NUMBERS"
  277. 1370 [153][163]12)"STOPLEFT$IT A KEY FOR MENU"
  278. 1373 [161]C$:[139]C$[178]""[167]1373
  279. 1375 [137]160
  280. 1380 [153]:[153]:[153][163]10);"(null).(null). BE THAT WAY"
  281. 1383 [153]"(null)HIS WILL TAKE ME A COUPLE OF MINUTES..."
  282. 1385 [129]Z[178]1[164]5000:[130]
  283. 1386 [151]53281,2:[151]53280,10:[142]
  284. 1400 [139]LF[178]0[167][141]2260
  285. 1401 [151]53280,0:[151]53281,11:[153]"LOAD"
  286. 1405 [129]SD[178]1[164]NS
  287. 1406 [141]4030
  288. 1411 [153]:[153]""DD$(SD)[166]3);
  289. 1412 [129]V[178]1[164]P
  290. 1413 [153]A(V,SD);:[130]V
  291. 1415 RW[178]RW[170]1
  292. 1420 [139]RE[178]10[167][153]:[153][163]13)"SYSLEFT$RIGHT$(null)CLOSEATNCLOSE(null)VAL(null)!!":[141]1450:[153]"LOAD"
  293. 1425 [139]RW[178]NS[167][153]:[153][163]13)"SYSVAL(null)STR$CLOSE(null)ASCCLOSE(null)RIGHT$(null)(null)!!":[137]1460
  294. 1431 RE[178]RE[170]1
  295. 1432 [130]SD:RE[178]RE[170]1:[130]WD
  296. 1447 [130]
  297. 1450 [151]198,0:[146]198,1
  298. 1451 [161]H$:[139]H$[178]""[167]1451
  299. 1452 RE[178]0:[142]
  300. 1460 [151]198,0:[146]198,1
  301. 1461 [161]H$:[139]H$[178]""[167]1456
  302. 1462 RE[178]0:RW[178]0:[137]160
  303. 1475 CF[178]0:WD[178]0:AE[178]0:G[178]0:DE[178]0
  304. 1476 [129]G[178]1[164]NN:TN(G)[178]0:[130]
  305. 1477 [139]FL[178]1[167]1490
  306. 1478 [159]2,8,2,"@0:"[170]NH$[170]",S,R"
  307. 1479 [132]2,NS:[160]2
  308. 1480 [129]G[178]1[164]NN:TN(G)[178]0:[130]
  309. 1485 FL[178]1
  310. 1490 [151]53281,2:[151]53280,10
  311. 1492 [153]"LOADSTOP                                        "
  312. 1494 [153]"ONSTOP   (null)HERE ARE STOP"NS"CMD  DRAWINGS IN THE FILE  "
  313. 1500 [139]NL[178]1[167]1504
  314. 1503 [153]:[153]:[153][163]8)"STOPCHR$ETTING INFO...":[141]2320:NL[178]1
  315. 1504 [153][163]8)"ONDEF(null)OULD (null)DEFWAITOU LIKE TO CHOOSE,"
  316. 1505 [153][163]6)"OR LET (null)DEFWAITARNAK CHOOSE HOW MANY"
  317. 1506 [153][166]17)"((null)/(null)) ?"
  318. 1507 [161]Q$:[139]Q$[178]""[167]1507
  319. 1508 [139]Q$[178]"Y"[167]1513
  320. 1509 [139]Q$[178]"K"[167]1801
  321. 1510 [137]1507
  322. 1513 [153]"LEFT$OW MANY GAMES DO YOU WANT TO"
  323. 1514 [153]"CHOOSE FROM? (AT LEAST 2)"
  324. 1515 [133]"30 RECOMMENDED LIMIT";CF
  325. 1516 [139]CF[177]NS[167][141]1320:[160]15:[128]
  326. 1517 [139]CF[179]2[167]1513
  327. 1518 [139]CF[177]30[167][141]1340
  328. 1522 [153]"LOADSTOP   LENHECKING THE LAST "CF"CMD  DRAWINGS      "
  329. 1528 SE[178]0
  330. 1530 [129]Y[178]NS[164](NS[171]CF)[170]1[169][171]1
  331. 1535 [129]G[178]1[164]NN:[129]V[178]1[164]P
  332. 1540 [139]A(V,Y)[178]G[167]TN(G)[178]TN(G)[170]1
  333. 1541 [130]V
  334. 1550 [139]SE[178][177]CF[173]2[167][141]1567
  335. 1560 [130]G:SE[178]SE[170]1:DE[178]DE[170]1
  336. 1562 [153]"        CHR$OING BACK"DE"CMD DRAWINGSONONONONONON"
  337. 1563 [130]Y:[129]X[178]1[164]500:[130]:[137]1700
  338. 1567 [153][163]8)"STOPLEFT$AVE SOME PATIENCE..."
  339. 1568 [153][163]8)"STOPRIGHT$'M GETTING THERE!!!ONONONONONONONONON"
  340. 1569 SE[178]0:[142]
  341. 1600 [153]:[153][166]4);"(null)HE "P" NUMBERS IN THE MIDDLE ARE:":[153][163]8);
  342. 1605 [129]X[178](AD[173]2)[171](P[171]5)[164](AD[173]2)[171](P[171]5)[170](P[171]1)
  343. 1610 [153]G(X);
  344. 1615 [130]
  345. 1617 [153]:[153][163]13)"STOPLEFT$RIGHT$(null) ATN (null)VAL(null) !!"
  346. 1618 [161]Q$:[139]Q$[178]""[167]1618
  347. 1619 [137]160
  348. 1650 [151]53281,0
  349. 1651 [153]"LOAD(null)OULD YOU LIKE ME TO PICK NUMBERS BASED ON THIS INFORMATION?"
  350. 1652 [161]Q$:[139]Q$[178]""[167]1652
  351. 1654 [139]Q$[178]"Y"[167]1660
  352. 1656 [139]Q$[178]"N"[167]160
  353. 1658 [137]1652
  354. 1660 [153]"LOADSYS";[163]3)
  355. 1661 AE[178]AE[171]3
  356. 1662 [153]"CHR$ATN(null)VAL 1TAN";
  357. 1663 [129]I[178]1[164]P
  358. 1664 [139]AE[179]1[167]AE[178][181](NN[172].59)
  359. 1665 G(I)[178]G(AE)
  360. 1667 [153]G(I);:AE[178]AE[171]7:[129]T[178]1[164]1500:[130]
  361. 1668 [130]
  362. 1669 AE[178]AE[170]1
  363. 1670 [153]:[153]"";[163]3);
  364. 1671 [153]"CHR$ATN(null)VAL 2TAN";
  365. 1672 [129]I[178](P[170]1)[164](P[170]P)
  366. 1673 AE[178]AE[170]7
  367. 1674 [139]AE[177]NN[167]AE[178][181](NN[172].57)[171]1
  368. 1675 G(I)[178]G(AE)
  369. 1678 [153]G(I);:[129]T[178]1[164]1500:[130]
  370. 1679 [130]
  371. 1680 [153]:[153][163]5)"OPEN(null)HESE ARE (null)ATN(null)(null)ATN(null)'(null) CHOICES"
  372. 1682 [153][163]11)"GIVE THEM A TRY!!"
  373. 1685 [153][163]12);"LEFT$RIGHT$(null)CLOSEATNCLOSE(null)VAL(null)!!"
  374. 1686 [161]Q$:[139]Q$[178]""[167]1686
  375. 1687 AE[178]0:[137]160
  376. 1690 [137]1686
  377. 1700 [151]53281,0:[151]53280,0:[151]646,12
  378. 1701 [153]"LOAD"
  379. 1702 [141]1840
  380. 1703 [141]1843
  381. 1705 [153]"LOAD"
  382. 1706 [129]CV[178]6[164]0[169][171]1
  383. 1707 [139]QA[178]6[167][141]1751
  384. 1710 [153]:[153]"OPEN(null)HE NUMBERS PICKED "CV" TIMES:"
  385. 1715 [129]G[178]1[164]NN
  386. 1720 [139]TN(G)[178]CV[167]AE[178]AE[170]1:G(AE)[178]G:[153]"CONT"G(AE);
  387. 1725 [130]G:QA[178]QA[170]1:[130]CV
  388. 1730 [153]:[153][163]15)"TOTOTOTOTOTOTOTOTO"
  389. 1731 [153][163]12)"==>SYSLEFT$IT A (null)EY<=="
  390. 1732 [153][163]15)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  391. 1735 [161]Q$:[139]Q$[178]""[167]1735
  392. 1737 QA[178]0
  393. 1740 [137]1650
  394. 1751 [153]:[153][163]12)"LIST< LEFT$IT A (null)EY >"
  395. 1753 [161]Q$:[139]Q$[178]""[167]1753
  396. 1754 [153]"LOAD"
  397. 1755 [142]
  398. 1801 CF[178]([171]TI):CF[178][181](2[170](30[171]2[170]1)[172][187](1))
  399. 1802 [139]CF[179]2[167]1801
  400. 1805 [153]"(null)ARNAK PICKED "CF"CMD";:[153]" DRAWINGS. ":[133]"RIGHT$S THIS O.K.?";Q$
  401. 1807 [139]Q$[178]"Y"[167]1518
  402. 1810 [139]Q$[178]"N"[167][153]"ONONONON":[141]4050:[137]1801
  403. 1840 [129]G[178]1[164]NN
  404. 1841 [139]TN(G)[177]12[167][141]1861
  405. 1842 [130]:[142]
  406. 1843 [129]G[178]1[164]NN:[139]TN(G)[177]6[167][141]1850
  407. 1844 [130]
  408. 1845 [142]
  409. 1850 [153]"LOAD"
  410. 1851 [129]CV[178]12[164]7[169][171]1
  411. 1853 [153]:[153]"OPEN(null)HE NUMBERS PICKED "CV" TIMES:"
  412. 1855 [129]G[178]1[164]NN
  413. 1856 [139]TN(G)[178]CV[167]AE[178]AE[170]1:G(AE)[178]G:[153]"CONT"G(AE);
  414. 1857 [130]G:[130]CV
  415. 1858 [153]:[153][163]12)"SYS<LEFT$IT A (null)EY>"
  416. 1859 [161]Q$:[139]Q$[178]""[167]1859
  417. 1860 [142]
  418. 1861 [153]"LOAD"
  419. 1864 [153]:[153]"OPEN(null)HE NUMBERS PICKED MORE THAN 12 TIMES:"
  420. 1865 [129]G[178]1[164]NN
  421. 1866 [139]TN(G)[177]12[167]AE[178]AE[170]1:G(AE)[178]G:[153]"CONT"G(AE)"TAN"TN(G)"(null)IMES"
  422. 1867 [130]
  423. 1868 [153]:[153][163]12)"SYS<LEFT$IT A (null)EY>"
  424. 1869 [161]Q$:[139]Q$[178]""[167]1869
  425. 1870 [142]
  426. 2100 [151]53281,5:[151]646,1:[153]"LOAD"
  427. 2104 [153][163]6);"STR$O YOU WANT TO (null)ATN(null)VAL THIS INFO "
  428. 2105 [153][163]12);"TO THE FILE?"
  429. 2110 [153]"RIGHT$F THE FILES WEREN'T ENTERED, THEY WILL"
  430. 2111 [153][163]2)"SYSBE REPLACED BY THE NEW INFO ONLY!!!"
  431. 2112 [161]Q$:[139]Q$[178]""[167]2112
  432. 2113 [139]Q$[178]"N"[167]160
  433. 2140 [143] ** WRITE ROUTINE **
  434. 2150 [153]"LOAD":[151]53280,0:[151]53281,0
  435. 2160 [153][163]10)"RIGHT$'M WRITING THIS DOWN."
  436. 2161 [153][163]11)"FORLEFT$OLD YOUR BREATH....."
  437. 2162 [159]2,8,2,"@0:"[170]NH$[170]",S,W"
  438. 2163 [152]2,NS
  439. 2164 [160]2
  440. 2165 [159]2,8,2,"@0:"[170]ND$[170]",S,W"
  441. 2166 [129]V[178]1[164]NS
  442. 2167 [152]2,DD$
  443. 2168 [130]
  444. 2169 [160]2
  445. 2170 [159]2,8,2,"@0:"[170]NF$[170]",S,W"
  446. 2180 [129]S[178]1[164]NN
  447. 2190 [152]2,TN(S)
  448. 2200 [130]S:[160]2
  449. 2210 [159]2,8,2,"@0:"[170]NG$[170]",S,W"
  450. 2213 [129]WD[178]1[164]NS:[129]V[178]1[164]P
  451. 2215 [152]2,A(V,WD),C$
  452. 2216 [130]V
  453. 2217 [152]2,DD$(WD)
  454. 2219 [130]:[160]2
  455. 2220 [153]"LOAD":[153][163]8)"STR$O YOU WISH TO QUIT? ((null)/(null))"
  456. 2230 [161]E$:[139]E$[178]""[167]2230
  457. 2240 [139]E$[178]"Y"[167][160]15:[128]
  458. 2250 [139]E$[178]"N"[167]2256
  459. 2255 [137]2230
  460. 2256 [137]160
  461. 2260 [143]**READ ROUTINE**
  462. 2270 [153]"LOAD":[151]53280,0:[151]53281,0
  463. 2280 [153][163]10)"LEFT$ANG IN THERE PLEASE...."
  464. 2290 [153]:[153]
  465. 2300 [153][163]10)"RIGHT$'M GATHERING INFO...."
  466. 2301 LF[178]1
  467. 2302 [159]2,8,2,"@0:"[170]NH$[170]",S,R"
  468. 2303 [132]2,NS
  469. 2304 [160]2
  470. 2305 [159]2,8,2,"@0:"[170]ND$[170]",S,R"
  471. 2307 [132]2,DD$
  472. 2308 [160]2
  473. 2310 [159]2,8,2,"@0:"[170]NF$[170]",S,R"
  474. 2313 [129]S[178]1[164]NN
  475. 2315 [132]2,TN(S)
  476. 2317 [130]S:[160]2
  477. 2320 [159]2,8,2,"@0:"[170]NG$[170]",S,R"
  478. 2322 [129]WD[178]1[164]NS:[129]V[178]1[164]P
  479. 2324 [132]2,A(V,WD):[130]V
  480. 2325 [132]2,DD$(WD)
  481. 2326 [130]WD:[160]2
  482. 2327 [139]CC$[178]"1"[167]160
  483. 2330 [142]
  484. 2400 [151]53281,5:[151]646,0
  485. 2405 [153]"LOAD"[163]6);"  STR$O YOU WANT INSTRUCTIONS ? "
  486. 2410 [161]Q$:[139]Q$[178]""[167]2410
  487. 2415 [139]Q$[178]"Y"[167]2440
  488. 2420 [139]Q$[178]"N"[167]160
  489. 2422 [137]2410
  490. 2440 [153]"STOPLOAD(null).(null) LEFT$VAL(null)VALCLOSEATN(null)VALCLOSE(null)LEFT$VALCLOSE(null)(null)(null)VAL(null)........          "
  491. 2450 [153]"(null)HIS STARTS WITH 6 OF 44 NUMBERS."
  492. 2451 [153]"  (null)HIS PROGRAM CAN BE ALTERED TO FIT    MOST ANY LOTTO GAME. ";
  493. 2452 [153]"(null)IST LINE 100 AND  CHANGE THE VALUES TO THOSE OF THE LOTTO GAME  YOU ";
  494. 2453 [153]"PLAY. (null)(null)=THE TOTAL NUMBERS IN THE GAME AND  (null)= THE NUMBER OF NUMBERS"
  495. 2454 [153]"THAT ARE PICKED. (null)VAL(null)ATN(null)VALCLOSE(null)LEFT$VALCLOSE(null)(null)(null)CHR$(null)ATN(null)!"
  496. 2455 [153]"  PEEKEFORE ENTERING NEW NUMBERS, THE FILES MUST BE PUT INTO MEMORY FIRST"
  497. 2456 [153]"RIGHT$F NOT, THE OLD DATA WILL BE ERASED!"
  498. 2459 [153]" (null)HEN USING THE PROGRAM FOR THE FIRST   TIME, CHOOSE OPTION '2'";
  499. 2460 [153]" AND ANSWER YES  WHEN ASKED IF YOU ENTERED THE FILES.";
  500. 2461 [153]"(null)HIS WILL CREATE NEW FILES.
  501. 2462 PRINT"  [207]PTION '3' GIVES YOU THE REPORT OF HOWMANY TIMES EACH NUMBER";
  502. 2463 PRINT" HAS BEEN PICKED."
  503. 2464 PRINT"  [207]PTION '4' GIVES YOU THE RESULTS OF   EACH DRAWING ENTERED."
  504. 2465 PRINT"   [207]PTION '5' IS THE [208]ICKER SECTION!!":PRINTTAB(14)"[200][201][212][160][193][160][203][197][217]"
  505. 2466 GETW$:IFW$=""THEN2466
  506. 2467 PRINT"[147][144]              *[207][208][212][201][207][206]  5*               "
  507. 2468 PRINT"[212]HERE ARE FIVE (5) WAYS TO PICK NUMBERS.
  508. 2469 [153]"(null)ETHOD '1' IS THE GOOD OLD RANDOM    NUMBER GENERATOR"
  509. 2470 [153]"(null)ETHOD '2' IS THE (null)(null)(null)(null) FREQUENTLY    PICKED NUMBERS."
  510. 2471 [153]"(null)ETHOD '3' IS THE (null)VALATN(null)(null) FREQUENTLY   PICKED NUMBERS."
  511. 2472 [153]"(null)ETHOD '4' IS THE (null)RIGHT$STR$STR$(null)VAL FREQUENTLY  PICKED NUMBERS."
  512. 2478 [153]"(null)ETHOD '5' IS AN AVERAGER. (null)HIS WILL GIVE YOU THE AVERAGE OF";
  513. 2479 [153]" THE NUMBERS     PICKED. VALNTERING THE NUMBERS IN         NUMERICAL";
  514. 2480 [153]" ORDER MAKES THIS OPTION WORK  BETTER.";
  515. 2481 [153]" (null)OU CAN CHOOSE HOW MANY DRAWINGSTO AVERAGE."
  516. 2482 [153][163]14)"LEFT$RIGHT$(null) ATN (null)VAL(null) !!"
  517. 2483 [161]W$:[139]W$[178]""[167]2483
  518. 2484 [153]"LOADSTOP       (null)VAL(null)LEFT$(null)STR$ '6'--(null)ATN(null)(null)ATN(null)'(null) LENLEFT$(null)RIGHT$LENVAL      "
  519. 2485 [153]"STOPON****************************************"
  520. 2486 [153]"ON                                        "
  521. 2487 [153]"ON  (null)HIS OPTION PUTS THE NUMBERS IN THE   ORDER OF FREQUENCY DRAWN AND
  522. 2488 PRINT" CHOOSES THE NUMBERS THAT FALL IN A PRE-SELECTED SPOT.";
  523. 2489 PRINT"  [212]HIS IS ALMOST LIKE THE PING-PONG BALL METHOD.";
  524. 2490 PRINT" [217]OU CAN ALSO     CHOOSE HOW MANY DRAWINGS TO GO BACK TO  GET THE INFO."
  525. 2491 PRINT"    [201]F THE NUMBERS PICKED REPEAT IN THE SAME LINE, [197]-[205]AIL ME ";
  526. 2492 PRINT"WITH THE LIMITS OF YOUR GAME, AND [201]'[204][204][160]SEND YOU THE CORREC-TIONS.";
  527. 2493 PRINT"  [201] HAVE TRIED MANY COMBINATIONS  BUT THERE MAY BE ONE [201] DIDN'T."
  528. 2495 PRINT"  [200]OPEFULLY THIS WILL HELP YOU IN THE SEARCH OF WINNING NUMBERS."
  529. 2498 PRINTTAB(8)"[200][201][212][160][193][160][203][197][217][160][198][207][210][160][212][200][197][160][205][197][206][213]"
  530. 2499 GETW$:IFW$=""THEN2499
  531. 2500 GOTO160
  532. 3000 A$="":PRINT"[147]":GOSUB3110:SYS49152
  533. 3005 SYS49185:GOSUB3125:PRINT"[147]":X=4:GOSUB3090:PRINT"[153]"
  534. 3060 X=3:GOSUB3090:GOSUB3099
  535. 3090 PRINTTAB(X)" [146]     [146]     [146]     [146]     [146]"
  536. 3091 PRINTTAB(X)" [146] [146] [146] [146] [146] [146] [146]"
  537. 3092 PRINTTAB(X)" [146] [146] [146] [146] [146] [146] [146]"
  538. 3093 PRINTTAB(X)" [146] [146] [146] [146] [146] [146] [146]"
  539. 3094 PRINTTAB(X)" [146] [146] [146] [146] [146] [146] [146]"
  540. 3095 PRINTTAB(X)"     [146]     [146] [146] [146]     [146]"
  541. 3096 PRINT""TAB(12)"[203][193][210][206][193][203]  [208][210][197][211][197][206][212][211]:":PRINTTAB(14)"[153][217][207][213][210] "P"[157] OF"NN"
  542. 3097 [153]""[163]12)"LEFT$IT A KEY FOR MENU!WAIT"
  543. 3098 [142]
  544. 3099 [158]49185:[151]198,0:[146]198,1:[161]A$
  545. 3100 [158]49201
  546. 3101 [137]2400
  547. 3110 [129]U[178]49152[164]49272:[135]Q:[151]U,Q:CK[178]CK[170]Q:[130]
  548. 3111 [139]CK[179][177]14738[167][153]"ERROR IN DATA...":[128]
  549. 3112 [129]T[178]50000[164]50000[170]254[169]2:[151]T,0:[130]
  550. 3113 [131]120,169,127,141,13,220,169,1,141,26,208,169,40,141,18,208,169,27
  551. 3114 [131]141,17,208,169,81,141,20,3,169,192,141,21,3,88,96,173,18,208
  552. 3115 [131]201,38,208,249,173,17,208,73,16,141,17,208,96,120,169,49,141,20
  553. 3116 [131]3,169,234,141,21,3,169,240,141,26,208,169,129,141,13,220,173,120
  554. 3117 [131]195,141,32,208,141,33,208,88,96,169,1,141,25,208,174,18,208,224
  555. 3118 [131]0,240,20,189,80,195,141,33,208,141,32,208,232,232,142,18,208,104
  556. 3119 [131]168,104,170,104,64,169,40,141,18,208,76,49,234
  557. 3120 [142]
  558. 3125 X[178]0:[129]T[178]50000[164]50000[170]254[169]2:[151]T,0:[130]
  559. 3126 [129]T[178]50000[164]50000[170]40[170]214[169]2
  560. 3127 [151]T,7:T[178]T[170]X:X[178]X[170]2:[130]
  561. 3128 [142]
  562. 4000 [143]**COLORS
  563. 4010 [139]JK[178]1[167][151]646,5:JK[178]0:[142]
  564. 4020 [139]JK[178]0[167][151]646,7:JK[178]1:[142]
  565. 4030 [139]KL[178]1[167][151]646,0:KL[178]0:[142]
  566. 4040 [139]KL[178]0[167][151]646,13:KL[178]1:[142]
  567. 4050 [139]KL[178]1[167][151]646,0:KL[178]0:[142]
  568. 4060 [139]KL[178]0[167][151]646,1:KL[178]1:[142]
  569. 4900 [143] MARKERS***
  570. 4904 [139]TN(A)[179]DN[167][142]
  571. 4910 [139]M[178]1[167]CL[178]8
  572. 4912 [139]M[178]2[167]CL[178]21
  573. 4914 [139]M[178]3[167]CL[178]34
  574. 4920 [153]"ON";[163]CL);"SQR"
  575. 4924 [142]
  576. 5000 [143]
  577. 5002 [139]TN(A)[177][178]DN[167][141]4900
  578. 5004 [142]
  579. 6000 [153]"LOAD":[151]53281,5:[151]53280,0:[151]646,0
  580. 6001 [153]"(null)HESE ARE YOUR RANDOMLY PICKED NUMBERS: "
  581. 6002 [153]"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
  582. 6003 [153]"****************************************"
  583. 6004 [129]R[178]1[164]P
  584. 6005 [153][163]9)"PRINT"S(R);
  585. 6006 [130]
  586. 6007 [153]:[153]"****************************************"
  587. 6008 [153]"STOPTANTANTANTANTANTANTANTANTANTANTAN<LEFT$IT (null)ETURN FOR (null)ORE>TANTANTANTANTANTANTANTAN"
  588. 6010 [153]"STOPTANTANTANTANTANTANTANTANTANTANTAN<LEFT$IT (null)PACE FOR (null)ENU>TANTANTANTANTANTANTANTANTAN"
  589. 6011 [161]Z$:[139]Z$[178]""[167]6011
  590. 6012 [139]Z$[178][199](13)[167]1240
  591. 6013 [139]Z$[178][199](32)[167]160
  592. 6014 [137]6011
  593. 8774 [139]Q$[178]"Y"[167][142]
  594.