home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1988 Guru
/
Floppy_Magazine_88-guru_1988_Megasystems_Oy_fi_Side_A.d64
/
t
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
223 lines
99 rem"0 sys64738
100 [143]" lenalendar-64
104 rem"
105 [143]" @ 1986,87 (NULL)arkku left$eiskari
110 rem"
120 [143]" version 3.0
130 rem"
140 [143]" 050187
150 rem"
165 [143]"gosubkirjoita: run <return>"[204]
170 [143] a(365,0)=date ,1=recno ,2=no of rcds
200 [134]a(365,2),kk$(12),ap$(20):[153][199](14)
210 kk$( 1)[178]"(NULL)ammikuuta"
220 kk$( 2)[178]"left$elmikuuta"
225 kk$( 3)[178]"(NULL)aaliskuuta"
230 kk$( 4)[178]"left$uhtikuuta"
240 kk$( 5)[178]"(NULL)oukokuuta"
250 kk$( 6)[178]"(NULL)es[kuuta"
260 kk$( 7)[178]"left$ein[kuuta"
270 kk$( 8)[178]"vallokuuta"
280 kk$( 9)[178]"(NULL)yyskuuta"
290 kk$(10)[178]"(NULL)okakuuta"
300 kk$(11)[178]"(NULL)arraskuuta"
310 kk$(12)[178]"mid$oulukuuta"
320 sp$[178]" ":mh%[178]0
399 [159]15,8,15
400 [137]700:[143] main program
410 [132]15,a1,a2$,a3,a4:[139]a1[178]50[176]a1[178]0[167][142]
420 [153]"(NULL) e v y v i r h e:wait"a1
430 [153]a2$,a3,a4
490 [142]
495 [132]15,a1,a2$,a3,a4:[142]
500 hi[178][181](re[173]256):lo[178]re[171]hi[172]256
510 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
511 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
520 [152]2,[200](a$[170]sp$,36)
521 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
530 [142]
550 hi[178][181](re[173]256):lo[178]re[171]hi[172]256
560 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
561 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
570 [132]2,a$
571 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
580 [142]
600 a$[178]""
610 [153]"tocmd";:[129]dl[178]0[164]50:[161]b$:[139]b$[179][177]""[167]dl[178]51:[130]:[137]640
620 [130]:[153]" cmd";:[129]dl[178]0[164]50:[161]b$:[139]b$[179][177]""[167]dl[178]51:[130]:[137]640
630 [130]:[137]610
640 [139]b$[178][199](20)[175][195](a$)[177]0[167]680
645 [139]b$[178][199](20)[137]610
649 [139]b$[178][199](13)[175]a$[178]""[167]a$[178]"-"
650 [139]b$[178][199](13)[167][153]" ":[142]
655 [139]b$[178]":"[167]b$[178]"["
656 [139]b$[178]";"[167]b$[178]"]"
657 [139]b$[178]","[167]610
660 [139][198](b$)[179]32[167]610
661 [139][198](b$)[178]34[167]610
665 [139][198](b$)[177]93[175][198](b$)[179]193[167]610
670 [139][198](b$)[177]221[167]610
672 [139][195](a$)[178][177]ml[167]610
675 [153]b$;:a$[178]a$[170]b$:[137]610
680 [153]" cmdcmd cmd";:a$[178][200](a$,[195](a$)[171]1):[137]610
700 [159]2,8,2,"makedata,s,r":[141]495
710 [139]a1[179][177]0[167][153]"(NULL)[[r[ levyke!":[160]15:[153]"sys49152ononon":[162]
720 [132]2,mx:[132]2,vp:[129]i[178]1[164]mx
730 [129]j[178]0[164]2
740 [132]2,a(i,j):[130]j,i:[160]2
742 [159]2,8,2,"break,s,r":[141]495
743 [139]a1[178]0[167][141]2800
744 [160]2:[152]15,"s0:break":[159]2,8,2,"break,s,w"
745 [152]2,"(NULL)alenteri keskeytetty":[160]2
750 [159]2,8,3,"makesoft":[141]495
760 [139]a1[179][177]0[167][153]"(NULL)[[r[ levyke!":[160]15:[153]"sys49152ononon":[162]
1000 [153]"loadopen (NULL)closeatnclose(NULL)closevalclose(NULL)close(NULL)closevalclose(NULL)closeright$ wait":[160]4
1001 [151]53280,6:[151]53281,9
1010 [153]"<asc1> (NULL)alenteriin kirjoittaminen"
1020 [153]"<asc3> (NULL)alenterin selaaminen"
1030 [153]"<asc5> (NULL)alenterin korjaaminen"
1040 [153]"<asc7> (NULL)oista jnkn p[iv[n tekstit"
1090 [153]"<asc8> (NULL)opetus (talletus)"
1095 [153]"sys"vp[171]1"rivi[ teksti[ kirjoitettu"
1096 [153]" @ 1987, (NULL)arkku left$eiskari"
1097 [153]" mid$ulkaisija: ascloppy (NULL)agazine"
1099 [151]198,0:[146]198,1:[161]a$
1100 [139]a$[178]"input"[137]1200:[143] kirjoitt.
1110 [139]a$[178]"dim"[137]1400:[143] selaaminen
1120 [139]a$[178]"read"[137]1800:[143] edit
1130 [139]a$[178]"let"[137]2500:[143] delete
1198 [139]a$[178]"restore"[137]1600:[143] exit
1199 [137]1099
1200 [153]"load(NULL)closecloseright$closeclose(NULL)closeclosemid$closeclose(NULL)closecloseright$closeclose(NULL)closeclose(NULL)closecloseatncloseclose(NULL)closecloseright$closeclose(NULL)closeclosevalcloseclose(NULL)wait"
1210 [153]"(NULL)[iv[m[[r[:";:ml[178]6:[141]600:[139][195](a$)[179][177]6[137]1000
1220 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$)
1225 cv[178]pv:d1[178][181](cv[173]10000):d2[178][181](cv[173]100)[171]100[172]d1:d3[178]cv[171]100[172][181](cv[173]100)
1226 [153]"load "d3"cmd. "kk$(d2)" "d1"cmdcmdcmdcmdcmd19wait"
1230 [129]i[178]1[164]mx
1240 [139]a(i,0)[178]pv[167][141]1350
1250 [130]:[129]i[178]1[164]20:ap$(i)[178]"":[130]:i[178]0:[153]"* rivin alkuun kun loppu"
1260 [153]">";:ml[178]36:[141]600:[139][200](a$,1)[178]"*"[137]1280
1270 i[178]i[170]1:ap$(i)[178]a$:[139]i[179]20[137]1260
1280 [139]i[178]0[167]1000
1285 [153]"(NULL)irjoitan levylle...":mh%[178]1
1290 v%[178]vp:[129]j[178]1[164]i
1300 re[178]vp:vp[178]vp[170]1:a$[178]ap$(j):[141]500
1310 [130]
1320 [137]1500
1350 f%[178]1:[129]j[178]1[164]a(i,2)
1360 re[178]a(i,1)[170]j[171]1:[141]550:[153]a$:[130]
1370 [142]
1400 [153]"load (NULL)closeclosevalcloseclose(NULL)closecloseatnclosecloseatncloseclose(NULL)closecloseright$closeclose(NULL)closeclosevalcloseclose(NULL) wait":pr%[178]0:ct%[178]0
1405 [153]"(NULL)aperille / (NULL)uudulle (p/r):";:ml[178]1:[141]600:[139]a$[178]"p"[176]a$[178]"(NULL)"[167][141]2200
1410 [153]"(NULL)[iv[m[[r[:";:ml[178]6:[141]600:[139]a$[178]"-"[137]1000
1420 [139][195](a$)[179][177]6[137]1400
1430 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$)
1440 f%[178]0:[129]i[178]1[164]mx
1450 [139]a(i,0)[178][177]pv[167][141]1700:[143] print it, wait it
1455 [139]a$[178]"_"[167]i[178]mx:f%[178]1:[143] end loop
1460 [130]:[139]f%[178]0[167][153]"vali merkint\j[ sen j[lkeen":[151]198,0:[146]198,1:[137]1000
1465 [137]1000
1470 [153]"(NULL)aina <(NULL)val(NULL)(NULL)(NULL)(NULL)>":[151]198,0:[146]198,1:[161]a$:[142]
1500 [143] a(mx,0)=pv a(mx,1)=v% a(mx,2)=i
1510 [139]mx[178]0[167]k[178]0:v%[178]1:[137]1571
1520 k[178]mx
1530 [139]a(k,0)[177]pv[175]k[177]1[167]k[178]k[171]1:[137]1530
1540 [139]a(k,0)[177]pv[167]k[178]0:[143] ekaksi
1541 [143] move it
1550 [129]l[178]mx[164]k[170]1[169][171]1
1560 a(l[170]1,0)[178]a(l,0):a(l[170]1,1)[178]a(l,1):a(l[170]1,2)[178]a(l,2):[130]
1570 [143] locate to k+1
1571 a(k[170]1,0)[178]pv:a(k[170]1,1)[178]v%:a(k[170]1,2)[178]i
1580 mx[178]mx[170]1
1590 [137]1000
1600 [153]"loadlenalendar (NULL)erminated"
1610 [139]mh%[178]0[167][160]2:[137]2900
1620 [160]2:[159]2,8,2,"@0:makedata,s,w"
1630 [152]2,mx:[152]2,vp
1640 [129]i[178]1[164]mx
1650 [129]j[178]0[164]2
1660 [152]2,a(i,j):[130]j,i:[160]2:[137]2900
1700 cv[178]a(i,0):d1[178][181](cv[173]10000):d2[178][181](cv[173]100)[171]100[172]d1:d3[178]cv[171]100[172][181](cv[173]100)
1702 [139]pr%[178]1[137]2300
1710 [153]"load "d3"cmd. "kk$(d2)" "d1"cmdcmdcmdcmdcmd19wait"
1720 [141]1350:[139]a(i,2)[178]1[175][195](a$)[178]0[167][142]
1730 [141]1470:[142]
1800 [143] edit it
1805 [153]"loadclose closeclose(NULL)closeclose(NULL)closeclose(NULL)closeclosemid$closecloseatnclosecloseatncloseclose(NULL)closecloseright$closeclose(NULL)closeclosevalcloseclose(NULL)closecloseclosecloseclosewait"
1810 [153]"(NULL)[iv[m[[r[:";:ml[178]6:[141]600:[139]a$[178]"-"[137]1000
1820 [139][195](a$)[179][177]6[137]1800
1830 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$):kr[178]0
1840 f%[178]0:[129]i[178]1[164]mx
1850 [139]a(i,0)[178]pv[167][141]1870
1860 [130]:[139]f%[178]0[167][153]"vali merkint\j[ sille p[iv[lle":[151]198,0:[146]198,1:[137]1000
1865 [137]1900
1870 [129]j[178]1[164]a(i,2):re[178]a(i,1)[170]j[171]1:[141]550
1880 f%[178]f%[170]1:[139]a$[179][177]""[167][153]f%;a$
1885 [130]:[142]
1900 [153]"(NULL)it[ rivi[ korjaat:";:ml[178]2:[141]600
1910 [139]a$[178]"-"[137]1000
1920 ln[178][197](a$):[139]ln[178]0[137]1000
1930 f%[178]0:[129]i[178]1[164]mx
1940 [139]a(i,0)[178]pv[167][141]1960
1950 [130]:[137]2000
1960 [129]j[178]1[164]a(i,2):re[178]a(i,1)[170]j[171]1:f%[178]f%[170]1
1970 [139]f%[178]ln[167]kr[178]re
1980 [130]:[142]
2000 [139]kr[178]0[137]1000
2010 re[178]kr:[141]550:[139]a$[178]""[137]1000
2020 [153]"load"a$"";:[159]1,0:[132]1,a$:[160]1:[153]:mh%[178]1
2030 [141]500:[137]1000
2200 pr%[178]1
2210 [153]"(NULL)ivun pituus (66 tms) :";:ml[178]2:[141]600
2220 sp[178][197](a$):[139]sp[178]0[167]sp[178]71
2230 [139]sp[179]30[167][153]"(NULL)iian pieni!":[137]2210
2240 [159]4,4,7:[142]
2300 [139]ct%[170]a(i,2)[170]3[177]sp[167][141]2400:ct%[178]0
2305 a$[178]""[170][196](d3)[170]". "[170][199](16)[170]"05"
2306 a$[178]a$[170]kk$(d2)[170][199](16)[170]"17 19"[170][201]([196](d1),2)[170][199](15)[170]"wait"
2307 [152]4,a$:ct%[178]ct%[170]1
2310 f%[178]1:[129]j[178]1[164]a(i,2)
2320 re[178]a(i,1)[170]j[171]1:[141]550:[152]4,a$:ct%[178]ct%[170]1:[130]
2330 [152]4:[152]4:ct%[178]ct%[170]2:[161]a$:[139]a$[178]"_"[167]i[178]mx:f%[178]1:[160]4
2340 [142]
2400 [143] form feed
2410 [129]z[178]ct%[164]sp[170]5:[152]4:[130]:[142]
2500 [153]"load (NULL)(NULL)right$(NULL)(NULL)val(NULL)atnatn(NULL)closemid$(NULL)(NULL)(NULL)right$(NULL)close(NULL)(NULL)right$(NULL)(NULL)(NULL)close(NULL)val(NULL)(NULL)(NULL)right$(NULL) wait"
2510 [153]"p[iv[m[[r[:";:ml[178]6:[141]600:[139]a$[178]"-"[137]1000
2520 [139][195](a$)[179][177]6[137]2500
2525 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$)
2530 f%[178]0:[129]i[178]1[164]mx
2540 [139]a(i,0)[178]pv[167][153]"----":[141]1350:[143] print it
2550 [130]:[139]f%[178]0[167][153]"vali teksti[ p[iv[m[[r[lle":[151]198,0:[146]198,1:[137]1000
2560 [153]"(NULL)uhotaanko ? (k/e) :";:ml[178]1:[141]600:[139]a$[179][177]"k"[137]1000
2565 [151]53265,[194](53265)[175]239:[151]788,52:[151]56334,0
2570 [129]i[178]1[164]mx:[139]a(i,0)[178]pv[167]a(i,0)[178]0:a(i,1)[178]0:a(i,2)[178]0
2580 [130]:mh%[178]1
2600 [143] tiivist[
2610 a[178]1
2620 [139]a(a,0)[178]0[167]2650
2630 a[178]a[170]1:[139]a[179]mx[137]2620
2640 [137]2700
2650 b[178]a[170]1
2660 [139]a(b,0)[179][177]0[167]2690
2670 b[178]b[170]1:[139]b[179]mx[137]2660
2680 [137]2700
2690 [129]k[178]0[164]2
2691 a(a,k)[178]a(b,k):a(b,k)[178]0
2692 [130]:a[178]a[170]1
2695 [137]2620
2700 [143] lask. tod. mx
2710 ax[178]0
2720 [129]i[178]1[164]mx:[139]a(i,0)[179][177]0[167]ax[178]ax[170]1
2730 [130]:mx[178]ax
2740 [151]53265,[194](53265)[176]16:[151]788,49:[151]56334,1:[137]1000
2800 [153]"load(NULL)closeatn (NULL) val (NULL) (NULL) val (NULL) right$closeclose(NULL) val (NULL)close(NULL) val (NULL)close(NULL) val (NULL) (NULL) (NULL)wait"
2810 [153]"stop(NULL)hjelman suoritus pys[htynyt edellisell[";
2820 [153]"kerralla jostain syyst[ v[[r[ss[ kohdas-";
2830 [153]"sa. (NULL)ietoja mahdollisesti mennyt hukkaan"
2840 [153]"sys(NULL)hjelma t[ytyy atnright$(NULL)atn lopettaa <asc8>:lla"
2850 [153]"p[[valintalistan kautta !!!"
2860 [153]"(NULL)aina <(NULL)val(NULL)(NULL)(NULL)(NULL)>, kun olet lukenut t[m[n":[151]198,0:[146]198,1
2870 [161]a$:[142]
2900 [152]15,"s0:break":[160]15:[153]"sys49152ononon":[162]