home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 149 / 149.d81 / b.number (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-01-01  |  6.3 KB  |  235 lines
  1. 10 poke55,0:poke56,56:clr
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0
  4. 30 print"[147]":gosub60000
  5. 32 tq=ti
  6. 40 sys57812"number font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 42 ifti<tq+100then42
  8. 50 dv=peek(186):ifdv<8thendv=8
  9. 60 goto230
  10. 70 poken%(i,j),nn%(i,j)+48:poken%(i,j)+c,1:return
  11. 80 pokes%(k,np-2),sp%(ss%(k,np-2)):pokes%(k,np-2)+c,5:return
  12. 90 ifv=0thenfl=1:return
  13. 100 onr+1goto110,120,130,140
  14. 110 w=u+v:return
  15. 120 w=u-v:return
  16. 130 w=u*v:return
  17. 140 w=u/v:return
  18. 150 print"":fori=0to19:print:next:print"                                    "
  19. 160 fori=sc+762tosc+794step2:pokei,32:next:return
  20. 170 fl=1:forii=0tonp:forjj=0tonp
  21. 180 ifnn%(ii,jj)+48<>peek(n%(ii,jj))thenfl=0
  22. 190 next:next:return
  23. 200 :
  24. 210 :rem setup
  25. 220 :
  26. 230 sc=1024:vc=53248:c=54272:z=40
  27. 240 dimn%(4,4),nn%(4,4),s%(25,1),ss%(25,1),sp%(4),d%(4,4),dd%(4,4)
  28. 242 dimo%(16),oo%(4,4),x%(25,1)
  29. 250 def fnb(i)=int(rnd(1)*i)
  30. 252 hz$="[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][192][192][192][192][192][192]"
  31. 254 sp$="                                      "
  32. 260 fori=0to3:forj=0to3:n%(i,j)=sc+92+j*4+i*z*4:next:next
  33. 270 fori=0to3:readsp%(i):next
  34. 272 data43,45,24,47
  35. 280 fori=0to23:readj:s%(i,1)=sc+j:next
  36. 282 data94,98,102,254,258,262,414,418,422,574,578,582
  37. 284 data172,332,492,176,336,496,180,340,500,184,344,504
  38. 286 fori=0to11:readj:s%(i,0)=sc+j:next
  39. 288 data94,98,254,258,414,418,172,332,176,336,180,340
  40. 290 fori=0to7:readj:x%(i,1)=sc+j:next
  41. 292 data106,266,426,586,651,655,659,663
  42. 294 fori=0to5:readj:x%(i,0)=sc+j:next
  43. 296 data102,262,422,491,495,499
  44. 300 fori=0to2:readm$(i),m(i):next
  45. 302 data" [195][200][193][204][204][197][206][199][197] ",3,"  [205][207][206][211][212][197][210]  ",15,"   [209][213][201][212]   ",27
  46. 310 fori=0to6:readmm$(i),mm(i):next
  47. 312 data" [200][193][210][196][197][211][212] ",0," 1 ",10," 2 ",14," 3 ",18," 4 ",22," 5 ",26," [197][193][211][201][197][211][212] ",30
  48. 320 print"[147][152]":poke53272,31
  49. 322 print"[155]     [203] [206] [197] [197] [211]    [195] [193] [204] [200] [207] [207] [206] ' [211][129]"
  50. 330 print"    [176][192][174] [176] [174]  [176] [176][192][174][176][192][174] [174][192][192][174] [176][192][192][174] [176][192][192][174]
  51. 332 [153]"    (NULL) (NULL) (NULL) (NULL)  (NULL) (NULL) /exp (NULL) -tantan< -tan<  -tan=exp
  52. 334 print"    [189] [173][192][189] [173][192][192][189] [189]    [173] [189][192][192][189] [173][192][192][189] [189] [173][192][189]"
  53. 340 print" [176][192][174][176][192][174] [176][192][192][174] [176][192][174] [176] [176][192][192][174] [176][192][178][192][174] [176][192][192][174] [176][192][192][174]
  54. 342 [153]" (NULL) /exp (NULL) (NULL)  (NULL) (NULL) (NULL) (NULL) /tantan^   (NULL)   -tan<  -tan=exp
  55. 344 print" [189]    [173] [173][192][192][189] [189] [173][192][189] [173][192][192][189]   [177]   [173][192][192][189] [189] [173][192][189]
  56. 350 [151]214,22:[153]:[153]"list     (NULL)se len(NULL)(NULL)(NULL) (NULL)right$chr$left$(NULL)/(NULL)valasc(NULL) and (NULL)val(NULL)(NULL)(NULL)(NULL)   "
  57. 352 [151]214,20:[153]
  58. 354 [153][163]m(0))m$(0)[163]m(1))m$(1)[163]m(2))m$(2)"on"
  59. 356 m[178]0
  60. 358 [153][163]m(m))""m$(m)"on"
  61. 360 [161]a$:[139]a$[178]""[167]360
  62. 362 [153][163]m(m))"print#"m$(m)"on"
  63. 364 [139]a$[178][199](13)[167]380
  64. 370 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]2[167]m[178]0
  65. 372 [139]a$[178]"cmd"[167]m[178]m[171]1:[139]m[179]0[167]m[178]2
  66. 374 [137]358
  67. 380 [139]m[178]2[167]40000
  68. 390 np[178]2[170]m
  69. 400 [145]np[171]1[137]630,440
  70. 410 :
  71. 420 :[143] 4x4 screen
  72. 430 :
  73. 440 [153]"loadclr"
  74. 450 [153][163]10)" ortan=tan=tan=tan=tan=tan=tan=tantantan^"
  75. 458 [129]i[178]0[164]2
  76. 460 [153][163]10)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   (NULL)"
  77. 470 [153][163]10)" -tanor=^waittanor=^waittanor=^waittan(NULL)tantantanexp
  78. 480 printtab(10)" [221] [171] [179][146][160][171] [179][146] [171] [179][146] [221]"
  79. 490 printtab(10)" [171][192][173][177][189][146][192][173][177][189][146][192][173][177][189][146][192][219][192][192][192][174]
  80. 492 [130]
  81. 580 [153][163]10)" (NULL) (NULL) (NULL)close(NULL) (NULL) (NULL) (NULL) (NULL)   (NULL)"
  82. 590 [153][163]10)"or>tan>=>tan>=>tan>=>tan>=tantanexp
  83. 600 printtab(10)"[221]   [221][160]  [221]   [221]   [221]
  84. 610 [153][163]10)"/tantantan>tantantan>tantantan>tantantanexp"
  85. 620 [137]780
  86. 630 [153]"loadclr"
  87. 632 [153][163]10)" ortan=tan=tan=tan=tan=tantantan^"
  88. 634 [129]i[178]0[164]1
  89. 640 [153][163]10)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   (NULL)"
  90. 650 [153][163]10)" -tanor=^waittanor=^waittan(NULL)tantantanexp
  91. 660 printtab(10)" [221] [171] [179][146] [171] [179][146] [221]"
  92. 670 printtab(10)" [171][192][173][177][189][146][192][173][177][189][146][192][219][192][192][192][174]
  93. 680 [130]
  94. 720 [153][163]10)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)   (NULL)"
  95. 730 [153][163]10)"or>tan>=>tan>=>tan>=tantanexp
  96. 740 printtab(10)"[221]   [221]   [221]   [221]
  97. 750 [153][163]10)"/tantantan>tantantan>tantantanexp"
  98. 760 :
  99. 770 :[143] set level
  100. 772 :
  101. 780 [151]214,22:[153]:[153]"list (NULL)se len(NULL)(NULL)(NULL) (NULL)right$chr$left$(NULL)/(NULL)valasc(NULL)/(NULL)val(NULL)(NULL)(NULL)(NULL)   (NULL) - (NULL)enu "
  102. 790 [151]214,20:[153]"print#":[129]i[178]0[164]6:[153][163]mm(i))mm$(i);:[130]:[153]
  103. 792 mq[178]0
  104. 794 [151]214,20:[153]:[153][163]mm(mq))""mm$(mq)"on"
  105. 796 [161]a$:[139]a$[178]""[167]796
  106. 798 [153][163]mm(mq))"print#"mm$(mq)"on"
  107. 800 [139]a$[178]"m"[167]320
  108. 802 [139]a$[178][199](13)[167]810
  109. 804 [139]a$[178]""[167]mq[178]mq[170]1:[139]mq[177]6[167]mq[178]0
  110. 806 [139]a$[178]"cmd"[167]mq[178]mq[171]1:[139]mq[179]0[167]mq[178]6
  111. 808 [137]794
  112. 810 g[178]mq
  113. 820 [151]781,21:[158]59903
  114. 830 :
  115. 840 :[143] create grid
  116. 850 :
  117. 860 [129]i[178]0[164]np:[129]j[178]0[164]np:nn%(i,j)[178][165]b(9)[170]1:[151]n%(i,j)[170]c,7
  118. 862 [130]:[130]
  119. 867 :
  120. 870 [151]214,22:[153]:[153]"list (NULL)se len(NULL)(NULL)(NULL) keys  1 - 9  (NULL)(NULL)atnlenval  (NULL) - (NULL)enu "
  121. 878 k[178]0:[129]i[178]0[164]np:d%(i,0)[178]nn%(i,0)
  122. 880 [129]j[178]0[164]np[171]1
  123. 890 ss%(k,np[171]2)[178][165]b(4)
  124. 900 r[178]ss%(k,np[171]2):u[178]d%(i,j):v[178]nn%(i,j[170]1):[141]90
  125. 910 [139]fl[167]fl[178]0:[137]890
  126. 920 d%(i,j[170]1)[178]w:[139]w[179]1[176]w[179][177][181](w)[167]890
  127. 930 [141]80
  128. 940 k[178]k[170]1:[130]j:e%(i)[178]w:[130]i
  129. 947 :
  130. 950 [129]j[178]0[164]np:dd%(0,j)[178]nn%(0,j)
  131. 960 [129]i[178]0[164]np[171]1
  132. 970 ss%(k,np[171]2)[178][165]b(4)
  133. 980 r[178]ss%(k,np[171]2):u[178]dd%(i,j):v[178]nn%(i[170]1,j):[141]90
  134. 990 [139]fl[167]fl[178]0:[137]970
  135. 1000 dd%(i[170]1,j)[178]w:[139]w[179]1[176](w[179][177][181](w))[167]970
  136. 1010 [141]80
  137. 1020 k[178]k[170]1
  138. 1030 [130]i:e%(j[170]np[170]1)[178]w:[130]j
  139. 1037 :
  140. 1038 :[143] check summations
  141. 1039 :
  142. 1040 [129]i[178]0[164]7[170]2[172](np[178]2):[139]e%(i)[177]999[167]870
  143. 1050 [130]
  144. 1060 [129]i[178]0[164]7[170]2[172](np[178]2)
  145. 1070 e$(i)[178][196](e%(i)):e$(i)[178]"  "[170]e$(i):e$(i)[178][201](e$(i),3)
  146. 1080 [130]
  147. 1090 [129]i[178]0[164]7[170]2[172](np[178]2):[129]j[178]0[164]2
  148. 1100 [151]x%(i,np[171]2)[170]j,[198]([202](e$(i),j[170]1,1)):[151]x%(i,np[171]2)[170]j[170]c,3
  149. 1110 [130]:[130]
  150. 1120 :
  151. 1130 :[143] numbers at bottom
  152. 1140 :
  153. 1150 [151]214,18:[153]
  154. 1152 [153][163]2[171]7[172](np[178]2))"or"[200](hz$,33[170]14[172](np[178]2))"^"
  155. 1154 [153][163]2[171]7[172](np[178]2))"(NULL)"[200](sp$,33[170]14[172](np[178]2))"(NULL)"
  156. 1156 [153][163]2[171]7[172](np[178]2))"/"[200](hz$,33[170]14[172](np[178]2))"exp"
  157. 1158 [129]i[178]1[164]16[170]7[172](np[178]2):o%(i)[178]0:[130]
  158. 1160 [129]i[178]0[164]np:[129]j[178]0[164]np
  159. 1170 ra[178][165]b(16[170]7[172](np[178]2))[170]1:[139]o%(ra)[167]1170
  160. 1180 [151]sc[170]802[171]7[172](np[178]2)[170]ra[172]2,nn%(i,j)[170]48:o%(ra)[178]1
  161. 1190 [130]:[130]
  162. 1200 [139]g[178]0[167]1290
  163. 1210 [129]i[178]0[164]np:[129]j[178]0[164]np:oo%(i,j)[178]0:[130]:[130]
  164. 1220 [129]i[178]1[164]g
  165. 1230 ra[178][165]b(np[170]1):rb[178][165]b(np[170]1):[139]oo%(ra,rb)[167]1230
  166. 1240 [151]n%(ra,rb),nn%(ra,rb)[170]48:[151]n%(ra,rb)[170]c,1:oo%(ra,rb)[178]1
  167. 1250 y[178]0
  168. 1260 hj[178]sc[170]802[171]7[172](np[178]2)[170]y:[139][194](hj)[178]nn%(ra,rb)[170]48[167][151]hj,32:[137]1280
  169. 1270 y[178]y[170]2:[137]1260
  170. 1280 [130]
  171. 1290 [129]i[178]0[164]31[170]14[172](np[178]2):[151]sc[170]804[171]7[172](np[178]2)[170]i[170]c,1:[130]
  172. 1300 i[178]0:j[178]0:h[178]0:l[178]1
  173. 1310 :
  174. 1320 :[143] loop
  175. 1330 :
  176. 1340 [151]n%(i,j),[194](n%(i,j))[170]128
  177. 1350 tq[178]ti
  178. 1352 [139]ti[179]tq[170]5[167]1352
  179. 1360 [151]n%(i,j),[194](n%(i,j))[171]128
  180. 1370 tq[178]ti
  181. 1372 [139]ti[179]tq[170]5[167]1372
  182. 1380 [161]a$:[139]a$[178]""[167]1340
  183. 1382 [139]a$[178]"m"[167]320
  184. 1390 [139]a$[179][177][199](13)[167]1410
  185. 1400 [141]170:[139]fl[167]1560
  186. 1402 [137]1610
  187. 1410 [139]a$[179][177]" "[167]1420
  188. 1412 [139]([194](n%(i,j)[170]c)[175]15)[178]1[167]1340
  189. 1414 mm[178][194](n%(i,j)):[151]n%(i,j),32
  190. 1416 [129]k[178]sc[170]802[171]7[172](np[178]2)[164]sc[170]834[170]7[172](np[178]2)[169]2
  191. 1418 [139][194](k)[178]32[167][151]k,mm:k[178]sc[170]834[170]7[172](np[178]2)
  192. 1419 [130]:[137]1340
  193. 1420 [139]a$[178]"on"[167]i[178]i[171]1:[139]i[179]0[167]i[178]np
  194. 1430 [139]a$[178]""[167]i[178]i[170]1:[139]i[177]np[167]i[178]0
  195. 1440 [139]a$[178]""[167]j[178]j[170]1:[139]j[177]np[167]j[178]0
  196. 1450 [139]a$[178]"cmd"[167]j[178]j[171]1:[139]j[179]0[167]j[178]np
  197. 1460 [139]a$[179]"1"[176]a$[177]"9"[167]1340
  198. 1470 mm[178][194](n%(i,j)[170]c)[175]15:[139]mm[178]1[167]1340
  199. 1480 [129]k[178]sc[170]802[171]7[172](np[178]2)[164]sc[170]834[170]7[172](np[178]2)
  200. 1482 [139][194](k)[178][198](a$)[167][151]k,32:k[178]sc[170]834[170]7[172](np[178]2):[130]:[137]1510
  201. 1490 [130]:[137]1340
  202. 1510 m[178][194](n%(i,j)):[139]m[178]32[167]1530
  203. 1520 ra[178][165]b(16[170]7[172](np[178]2)):k[178]sc[170]802[171]7[172](np[178]2)[170]2[172]ra:[139][194](k)[179][177]32[167]1520
  204. 1530 [151]k,m
  205. 1540 [151]n%(i,j),[198](a$)
  206. 1542 [141]170:[139]fl[167]1560
  207. 1550 [137]1340
  208. 1560 [151]214,22:[153]"list":[153]"   (NULL) - (NULL)enu    atnny key - (NULL)ew (NULL)uzzle   "
  209. 1564 [151]214,19:[153]:[153][163]11)"  (NULL)ou did it!!!  "
  210. 1566 [151]214,19:[153]:[153][163]11)"  (NULL)ou did it!!!  "
  211. 1570 [161]a$:[139]a$[178]""[167]1560
  212. 1580 [139]a$[178]"m"[167]320
  213. 1590 [137]400
  214. 10000 d[178][194](186):n$[178]"b.number":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  215. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  216. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  217. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  218. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  219. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  220. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  221. 40060 [130]:[142]
  222. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  223. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  224. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  225. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  226. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]10:[153]z$:[130]
  227. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  228. 60030 z$(0)[178]"(NULL) (NULL) (NULL) peek val (NULL)   (NULL) (NULL) (NULL) (NULL) (NULL) val (NULL)":z$(1)[178]"by (NULL)nees lenalhoon
  229. 60040 z$(3)="([195]) 1996 by [202] & [198] [208]ublishing, [201]nc."
  230. 60050 z$(5)="[212]his program is not shareware
  231. 60070 z$(6)[178]"or in the public domain."
  232. 60080 z$(8)[178]"1-800-594-3370 or 1-318-221-8718
  233. 60090 poke214,12:print
  234. 60100 fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next:return
  235.