home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 122 / 122side3.d64 / sched-gen (.txt) < prev    next >
Commodore BASIC  |  2022-08-29  |  18KB  |  516 lines
  1. 5 poke56,158:clr:poke650,128
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 12 sys57812"toolbox c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 15 sys49152+30,"reader c000",dv,240*256
  5. 16 sys49152+54,240*256,248*256,53248
  6. 17 sys49152+30,"swappymem",dv,159*256
  7. 20 dim q$(11),rq$(111),tn$(11),d1(6),d2(6),f1(10),f2(10),g1(15),g2(15)
  8. 25 dim m1(21),m2(21),q1(28),q2(28),u1(36),u2(36),v1(45),v2(45),s1(55),s2(55)
  9. 30 m=49152:qt$=chr$(34):gosub1000:gosub3400:gosub4000
  10. 34 :
  11. 35 rem restore menu
  12. 45 poke198,0:poke64,206:printchr$(14)
  13. 65 poke200,0:sysm+21,224:gosub3800
  14. 100 sysm+48,7,9,31,10,3+128,1+128,0:poke199,0
  15. 110 iff%=1then2100
  16. 120 iff%=2then250
  17. 130 iff%=3then2400
  18. 140 iff%=4then1650
  19. 150 iff%=5andf$=""then2950
  20. 155 iff%=5thengosub2500:gosub2550:goto2600
  21. 160 iff%=6andsd$=""then2950
  22. 165 iff%=6thengosub2500:gosub2550:goto2640
  23. 170 iff%=7andq$(1)=""then2950
  24. 175 iff%=7thengosub2500:goto2650
  25. 180 iff%=8andrq$(1)=""then2950
  26. 185 iff%=8thengosub2500:goto2680
  27. 190 iff%=9then3000
  28. 192 iff%<>10then45
  29. 200 print"[147][204] [154]- [204][207][193][196][211][212][193][210]
  30. 202 [153]"(NULL) cont- (NULL)enu
  31. 204 print"[209] [154]- [209]uit to [194][193][211][201][195]
  32. 210 [161]w$:[139]w$[178]""[167]210
  33. 220 [139]w$[178]"l"[167]245
  34. 225 [139]w$[178]"m"[167][141]2500:[137]35
  35. 230 [139]w$[178]"q"[167][153]"load":[151]53280,14:[151]53281,6:[151]646,14:[162]
  36. 235 [137]210
  37. 245 [141]2500:[141]2975:[153][199](147):[137]60000
  38. 249 :
  39. 250 [158]m[170]15,0,39,0,22,102,14
  40. 255 n[178]0:f$[178]"":sd$[178]"***":[151]646,3:[141]2500:
  41. 260 [153][163]91)"ortantantantantantantantantantantantantantantantan^
  42. 265 printtab(11)"[221]  [198]ile [197]ntries  [221]
  43. 270 [153][163]11)"/tantantantantantantantantantantantantantantantanexp
  44. 275 printtab(164)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  45. 280 printtab(4)"[221] [198]ile [206]ame...=                 [221]
  46. 285 [153][163]4)"(NULL) (NULL)ub div.name=***              (NULL)
  47. 290 printtab(4)"[221] #[212]eams(4-11)=                 [221]
  48. 295 [153][163]4)"(NULL) valxit                          (NULL)
  49. 300 printtab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  50. 305 [158]m[170]27,24," valnter/(NULL)val(NULL)(NULL)(NULL)(NULL) atn(NULL)str$ (NULL)(NULL)/str$(NULL)(NULL)(NULL)/(NULL)val(NULL)(NULL)(NULL)(NULL) "
  51. 310 [129]i[178]1[164]2:[158]m[170]24,19,i[170]10,""
  52. 315 [158]m[170]66,1,1,16:[139]w$[178]""[167]315
  53. 320 [141]2500
  54. 325 [139]i[178]1[167]f$[178]w$
  55. 330 [139]i[178]2[167]sd$[178]w$
  56. 332 [130]
  57. 335 [158]m[170]24,19,13,"":[158]m[170]66,1,1,2
  58. 337 [139]w$[178]""[167]335
  59. 338 n[178][197](w$)
  60. 340 [139]n[179]4[167]335
  61. 342 [139]n[177]11[167][158]m[170]15,19,21,13,13,160,0:[137]335
  62. 344 [141]2500:[158]m[170]48,11,5,18,4,3,1,0
  63. 345 [153][163]19)
  64. 346 [139]f%[178]1[167][158]m[170]66,1,1,16:f$[178]w$:[137]344
  65. 347 [139]f%[178]2[167][158]m[170]66,1,1,16:sd$[178]w$:[137]344
  66. 348 [139]f%[178]3[167][158]m[170]24,19,13,"":[158]m[170]66,1,1,2:n[178][197](w$):[139]n[179]4[167]348
  67. 349 [139]f%[178]3[175]n[177]11[167][158]m[170]24,19,13,"  ":[137]348
  68. 350 [139]f%[178]3[167]344
  69. 351 [141]2500
  70. 352 :
  71. 355 [158]m[170]15,1,39,0,22,102,14:[151]646,3
  72. 360 [153][163]50)"ortantantantantantantantantantantantantantantantantan^
  73. 365 printtab(10)"[221][197]nter [212]eam [206]ames [221]
  74. 370 [153][163]10)"/tantantantantantantantantantantantantantantantantanexp
  75. 371 ifn=4thentb=160:tn=4
  76. 372 ifn=5thentb=120:tn=3
  77. 373 ifn=6thentb= 80:tn=2
  78. 374 ifn=7thentb=80:tn= 2
  79. 375 ifn=8thentb=40:tn=1
  80. 376 ifn=9thentb=40:tn=1
  81. 377 ifn=10thentb=40:tn=1
  82. 378 ifn=11thentb=0:tn=0
  83. 380 printtab(80):printtab(tb)
  84. 385 printtab(8)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  85. 390 [129]i[178]1[164]n:[153][163]8)"(NULL)  ";tn$(i);"         (NULL)":[130]
  86. 395 [153][163]8)"(NULL)  valxit (NULL)ames         (NULL)
  87. 400 printtab(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  88. 410 [158]m[170]27,24," valnter/(NULL)val(NULL)(NULL)(NULL)(NULL) atn(NULL)str$ (NULL)(NULL)/str$(NULL)(NULL)(NULL)/(NULL)val(NULL)(NULL)(NULL)(NULL) "
  89. 412 [129]i[178]1[164]n:[158]m[170]24,21,6[170]i[170]tn,""
  90. 415 [158]m[170]66,1,1,7:[139]w$[178]""[167]415
  91. 420 [141]3600:q$(i)[178]w$:[141]2500:[130]
  92. 425 [158]m[170]48,7[170]tn,11,20,n[170]1,3,1,0
  93. 430 [139]f%[178]n[170]1[175]q$(n)[177]""[167]446
  94. 435 [153][163]21):[158]m[170]66,1,1,7:[139]w$[178]""[167]435
  95. 440 [141]3600:q$(f%)[178]w$:[141]2500
  96. 442 [137]425
  97. 445 :
  98. 446 [141]2500:[158]m[170]15,1,39,0,22,102,14:[153][163]45)"open"
  99. 450 [153][163]10)"ortantantantantantantantantantantantantantantantantantantan^
  100. 455 printtab(10)"[221] [159]# [207]f [199]ames [197]ntry  [221]
  101. 460 [153][163]10)"/tantantantantantantantantantantantantantantantantantantanexp
  102. 462 printtab(123)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  103. 465 [153][163]3)"(NULL)sys# (NULL)ourn.  valach-team  (NULL)otal-gamesopen(NULL)"
  104. 470 [153][163]3)"open(NULL)                                (NULL)"
  105. 475 [139]n[178]4[167][141]600:rx[178]7
  106. 480 [139]n[178]5[167][141]650:rx[178]6
  107. 490 [139]n[178]6[167][141]700:rx[178]5
  108. 500 [139]n[178]7[167][141]750:rx[178]4
  109. 510 [139]n[178]8[167][141]800:rx[178]3
  110. 520 [139]n[178]9[167][141]850:rx[178]3
  111. 530 [139]n[178]10[167][141]900:rx[178]2
  112. 540 [139]n[178]11[167][141]950:rx[178]2
  113. 550 [153][163]3)"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  114. 560 [158]m[170]27,24,"    len(NULL)(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL)  (NULL)val(NULL)(NULL)(NULL)(NULL)=valnter   "
  115. 570 [141]3800
  116. 575 [158]m[170]48,11,6,33,rx,3,1,0:pc[178]f%:[141]2500
  117. 585 [137]1400
  118. 599 :
  119. 600 [143] n=4
  120. 605 [153][163]3)"(NULL)     1         3         6      (NULL)
  121. 610 printtab(3)"[221]     2         6         12     [221]
  122. 615 [153][163]3)"(NULL)     3         9         18     (NULL)
  123. 620 printtab(3)"[221]     4         12        24     [221]
  124. 630 [153][163]3)"(NULL)     5         15        30     (NULL)
  125. 635 printtab(3)"[221]     6         18        36     [221]
  126. 640 [153][163]3)"(NULL)     7         21        42     (NULL)":[142]
  127. 650 [143] n=5
  128. 655 [153][163]3)"(NULL)     1         4         10     (NULL)
  129. 660 printtab(3)"[221]     2         8         20     [221]
  130. 665 [153][163]3)"(NULL)     3         12        30     (NULL)"
  131. 670 [153][163]3)"(NULL)     4         16        40     (NULL)
  132. 675 printtab(3)"[221]     5         20        50     [221]
  133. 680 [153][163]3)"(NULL)     6         24        60     (NULL)":[142]
  134. 700 [143] n=6
  135. 710 [153][163]3)"(NULL)     1         5         15     (NULL)
  136. 720 printtab(3)"[221]     2         10        30     [221]
  137. 730 [153][163]3)"(NULL)     3         15        45     (NULL)
  138. 740 printtab(3)"[221]     4         20        60     [221]
  139. 745 [153][163]3)"(NULL)     5         25        75     (NULL)":[142]
  140. 750 [143] n=7
  141. 755 [153][163]3)"(NULL)     1         6         21     (NULL)
  142. 760 printtab(3)"[221]     2         12        42     [221]
  143. 770 [153][163]3)"(NULL)     3         18        63     (NULL)
  144. 780 printtab(3)"[221]     4         24        84     [221]":return
  145. 800 rem n=8
  146. 810 printtab(3)"[221]     1         7         28     [221]
  147. 820 [153][163]3)"(NULL)     2         14        56     (NULL)
  148. 840 printtab(3)"[221]     3         21        84     [221]
  149. 845 [153][163]3)"(NULL)                                (NULL)":[142]
  150. 850 [143] n=9
  151. 860 [153][163]3)"(NULL)     1         8         36     (NULL)
  152. 870 printtab(3)"[221]     2         16        72     [221]
  153. 875 [153][163]3)"(NULL)     3         24        108    (NULL)
  154. 885 printtab(3)"[221]                                [221]":return
  155. 900 rem n=10
  156. 910 printtab(3)"[221]     1         9          45    [221]
  157. 930 [153][163]3)"(NULL)     2         18         90    (NULL)
  158. 940 printtab(3)"[221]                                [221]":return
  159. 950 rem n=11
  160. 960 printtab(3)"[221]     1         10         55    [221]
  161. 970 [153][163]3)"(NULL)     2         20         110   (