home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 149
/
149.d81
/
b.number
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
235 lines
10 poke55,0:poke56,56:clr
12 dv=peek(186):ifdv<8thendv=8
20 poke53281,0:poke53280,0
30 print"[147]":gosub60000
32 tq=ti
40 sys57812"number font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
42 ifti<tq+100then42
50 dv=peek(186):ifdv<8thendv=8
60 goto230
70 poken%(i,j),nn%(i,j)+48:poken%(i,j)+c,1:return
80 pokes%(k,np-2),sp%(ss%(k,np-2)):pokes%(k,np-2)+c,5:return
90 ifv=0thenfl=1:return
100 onr+1goto110,120,130,140
110 w=u+v:return
120 w=u-v:return
130 w=u*v:return
140 w=u/v:return
150 print"":fori=0to19:print:next:print" "
160 fori=sc+762tosc+794step2:pokei,32:next:return
170 fl=1:forii=0tonp:forjj=0tonp
180 ifnn%(ii,jj)+48<>peek(n%(ii,jj))thenfl=0
190 next:next:return
200 :
210 :rem setup
220 :
230 sc=1024:vc=53248:c=54272:z=40
240 dimn%(4,4),nn%(4,4),s%(25,1),ss%(25,1),sp%(4),d%(4,4),dd%(4,4)
242 dimo%(16),oo%(4,4),x%(25,1)
250 def fnb(i)=int(rnd(1)*i)
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]"
254 sp$=" "
260 fori=0to3:forj=0to3:n%(i,j)=sc+92+j*4+i*z*4:next:next
270 fori=0to3:readsp%(i):next
272 data43,45,24,47
280 fori=0to23:readj:s%(i,1)=sc+j:next
282 data94,98,102,254,258,262,414,418,422,574,578,582
284 data172,332,492,176,336,496,180,340,500,184,344,504
286 fori=0to11:readj:s%(i,0)=sc+j:next
288 data94,98,254,258,414,418,172,332,176,336,180,340
290 fori=0to7:readj:x%(i,1)=sc+j:next
292 data106,266,426,586,651,655,659,663
294 fori=0to5:readj:x%(i,0)=sc+j:next
296 data102,262,422,491,495,499
300 fori=0to2:readm$(i),m(i):next
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
310 fori=0to6:readmm$(i),mm(i):next
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
320 print"[147][152]":poke53272,31
322 print"[155] [203] [206] [197] [197] [211] [195] [193] [204] [200] [207] [207] [206] ' [211][129]"
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]
332 [153]" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) /exp (NULL) -tantan< -tan< -tan=exp
334 print" [189] [173][192][189] [173][192][192][189] [189] [173] [189][192][192][189] [173][192][192][189] [189] [173][192][189]"
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]
342 [153]" (NULL) /exp (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) /tantan^ (NULL) -tan< -tan=exp
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]
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) "
352 [151]214,20:[153]
354 [153][163]m(0))m$(0)[163]m(1))m$(1)[163]m(2))m$(2)"on"
356 m[178]0
358 [153][163]m(m))""m$(m)"on"
360 [161]a$:[139]a$[178]""[167]360
362 [153][163]m(m))"print#"m$(m)"on"
364 [139]a$[178][199](13)[167]380
370 [139]a$[178]""[167]m[178]m[170]1:[139]m[177]2[167]m[178]0
372 [139]a$[178]"cmd"[167]m[178]m[171]1:[139]m[179]0[167]m[178]2
374 [137]358
380 [139]m[178]2[167]40000
390 np[178]2[170]m
400 [145]np[171]1[137]630,440
410 :
420 :[143] 4x4 screen
430 :
440 [153]"loadclr"
450 [153][163]10)" ortan=tan=tan=tan=tan=tan=tan=tantantan^"
458 [129]i[178]0[164]2
460 [153][163]10)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)"
470 [153][163]10)" -tanor=^waittanor=^waittanor=^waittan(NULL)tantantanexp
480 printtab(10)" [221] [171] [179][146][160][171] [179][146] [171] [179][146] [221]"
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]
492 [130]
580 [153][163]10)" (NULL) (NULL) (NULL)close(NULL) (NULL) (NULL) (NULL) (NULL) (NULL)"
590 [153][163]10)"or>tan>=>tan>=>tan>=>tan>=tantanexp
600 printtab(10)"[221] [221][160] [221] [221] [221]
610 [153][163]10)"/tantantan>tantantan>tantantan>tantantanexp"
620 [137]780
630 [153]"loadclr"
632 [153][163]10)" ortan=tan=tan=tan=tan=tantantan^"
634 [129]i[178]0[164]1
640 [153][163]10)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)"
650 [153][163]10)" -tanor=^waittanor=^waittan(NULL)tantantanexp
660 printtab(10)" [221] [171] [179][146] [171] [179][146] [221]"
670 printtab(10)" [171][192][173][177][189][146][192][173][177][189][146][192][219][192][192][192][174]
680 [130]
720 [153][163]10)" (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)"
730 [153][163]10)"or>tan>=>tan>=>tan>=tantanexp
740 printtab(10)"[221] [221] [221] [221]
750 [153][163]10)"/tantantan>tantantan>tantantanexp"
760 :
770 :[143] set level
772 :
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 "
790 [151]214,20:[153]"print#":[129]i[178]0[164]6:[153][163]mm(i))mm$(i);:[130]:[153]
792 mq[178]0
794 [151]214,20:[153]:[153][163]mm(mq))""mm$(mq)"on"
796 [161]a$:[139]a$[178]""[167]796
798 [153][163]mm(mq))"print#"mm$(mq)"on"
800 [139]a$[178]"m"[167]320
802 [139]a$[178][199](13)[167]810
804 [139]a$[178]""[167]mq[178]mq[170]1:[139]mq[177]6[167]mq[178]0
806 [139]a$[178]"cmd"[167]mq[178]mq[171]1:[139]mq[179]0[167]mq[178]6
808 [137]794
810 g[178]mq
820 [151]781,21:[158]59903
830 :
840 :[143] create grid
850 :
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
862 [130]:[130]
867 :
870 [151]214,22:[153]:[153]"list (NULL)se len(NULL)(NULL)(NULL) keys 1 - 9 (NULL)(NULL)atnlenval (NULL) - (NULL)enu "
878 k[178]0:[129]i[178]0[164]np:d%(i,0)[178]nn%(i,0)
880 [129]j[178]0[164]np[171]1
890 ss%(k,np[171]2)[178][165]b(4)
900 r[178]ss%(k,np[171]2):u[178]d%(i,j):v[178]nn%(i,j[170]1):[141]90
910 [139]fl[167]fl[178]0:[137]890
920 d%(i,j[170]1)[178]w:[139]w[179]1[176]w[179][177][181](w)[167]890
930 [141]80
940 k[178]k[170]1:[130]j:e%(i)[178]w:[130]i
947 :
950 [129]j[178]0[164]np:dd%(0,j)[178]nn%(0,j)
960 [129]i[178]0[164]np[171]1
970 ss%(k,np[171]2)[178][165]b(4)
980 r[178]ss%(k,np[171]2):u[178]dd%(i,j):v[178]nn%(i[170]1,j):[141]90
990 [139]fl[167]fl[178]0:[137]970
1000 dd%(i[170]1,j)[178]w:[139]w[179]1[176](w[179][177][181](w))[167]970
1010 [141]80
1020 k[178]k[170]1
1030 [130]i:e%(j[170]np[170]1)[178]w:[130]j
1037 :
1038 :[143] check summations
1039 :
1040 [129]i[178]0[164]7[170]2[172](np[178]2):[139]e%(i)[177]999[167]870
1050 [130]
1060 [129]i[178]0[164]7[170]2[172](np[178]2)
1070 e$(i)[178][196](e%(i)):e$(i)[178]" "[170]e$(i):e$(i)[178][201](e$(i),3)
1080 [130]
1090 [129]i[178]0[164]7[170]2[172](np[178]2):[129]j[178]0[164]2
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
1110 [130]:[130]
1120 :
1130 :[143] numbers at bottom
1140 :
1150 [151]214,18:[153]
1152 [153][163]2[171]7[172](np[178]2))"or"[200](hz$,33[170]14[172](np[178]2))"^"
1154 [153][163]2[171]7[172](np[178]2))"(NULL)"[200](sp$,33[170]14[172](np[178]2))"(NULL)"
1156 [153][163]2[171]7[172](np[178]2))"/"[200](hz$,33[170]14[172](np[178]2))"exp"
1158 [129]i[178]1[164]16[170]7[172](np[178]2):o%(i)[178]0:[130]
1160 [129]i[178]0[164]np:[129]j[178]0[164]np
1170 ra[178][165]b(16[170]7[172](np[178]2))[170]1:[139]o%(ra)[167]1170
1180 [151]sc[170]802[171]7[172](np[178]2)[170]ra[172]2,nn%(i,j)[170]48:o%(ra)[178]1
1190 [130]:[130]
1200 [139]g[178]0[167]1290
1210 [129]i[178]0[164]np:[129]j[178]0[164]np:oo%(i,j)[178]0:[130]:[130]
1220 [129]i[178]1[164]g
1230 ra[178][165]b(np[170]1):rb[178][165]b(np[170]1):[139]oo%(ra,rb)[167]1230
1240 [151]n%(ra,rb),nn%(ra,rb)[170]48:[151]n%(ra,rb)[170]c,1:oo%(ra,rb)[178]1
1250 y[178]0
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
1270 y[178]y[170]2:[137]1260
1280 [130]
1290 [129]i[178]0[164]31[170]14[172](np[178]2):[151