home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 149 / 149.d81 / b.number (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  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