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 >
Commodore BASIC  |  2023-02-26  |  6KB  |  223 lines
  1. 99 rem"0 sys64738
  2. 100 [143]"               lenalendar-64
  3. 104 rem"
  4. 105 [143]"        @ 1986,87 (NULL)arkku left$eiskari
  5. 110 rem"
  6. 120 [143]"               version 3.0
  7. 130 rem"
  8. 140 [143]"                 050187
  9. 150 rem"
  10. 165 [143]"gosubkirjoita: run <return>"[204]
  11. 170 [143] a(365,0)=date ,1=recno ,2=no of rcds
  12. 200 [134]a(365,2),kk$(12),ap$(20):[153][199](14)
  13. 210 kk$( 1)[178]"(NULL)ammikuuta"
  14. 220 kk$( 2)[178]"left$elmikuuta"
  15. 225 kk$( 3)[178]"(NULL)aaliskuuta"
  16. 230 kk$( 4)[178]"left$uhtikuuta"
  17. 240 kk$( 5)[178]"(NULL)oukokuuta"
  18. 250 kk$( 6)[178]"(NULL)es[kuuta"
  19. 260 kk$( 7)[178]"left$ein[kuuta"
  20. 270 kk$( 8)[178]"vallokuuta"
  21. 280 kk$( 9)[178]"(NULL)yyskuuta"
  22. 290 kk$(10)[178]"(NULL)okakuuta"
  23. 300 kk$(11)[178]"(NULL)arraskuuta"
  24. 310 kk$(12)[178]"mid$oulukuuta"
  25. 320 sp$[178]"                                        ":mh%[178]0
  26. 399 [159]15,8,15
  27. 400 [137]700:[143] main program
  28. 410 [132]15,a1,a2$,a3,a4:[139]a1[178]50[176]a1[178]0[167][142]
  29. 420 [153]"(NULL) e v y v i r h e:wait"a1
  30. 430 [153]a2$,a3,a4
  31. 490 [142]
  32. 495 [132]15,a1,a2$,a3,a4:[142]
  33. 500 hi[178][181](re[173]256):lo[178]re[171]hi[172]256
  34. 510 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
  35. 511 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
  36. 520 [152]2,[200](a$[170]sp$,36)
  37. 521 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
  38. 530 [142]
  39. 550 hi[178][181](re[173]256):lo[178]re[171]hi[172]256
  40. 560 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
  41. 561 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
  42. 570 [132]2,a$
  43. 571 [152]15,"p"[199](3[170]96)[199](lo)[199](hi)[199](1)
  44. 580 [142]
  45. 600 a$[178]""
  46. 610 [153]"tocmd";:[129]dl[178]0[164]50:[161]b$:[139]b$[179][177]""[167]dl[178]51:[130]:[137]640
  47. 620 [130]:[153]" cmd";:[129]dl[178]0[164]50:[161]b$:[139]b$[179][177]""[167]dl[178]51:[130]:[137]640
  48. 630 [130]:[137]610
  49. 640 [139]b$[178][199](20)[175][195](a$)[177]0[167]680
  50. 645 [139]b$[178][199](20)[137]610
  51. 649 [139]b$[178][199](13)[175]a$[178]""[167]a$[178]"-"
  52. 650 [139]b$[178][199](13)[167][153]" ":[142]
  53. 655 [139]b$[178]":"[167]b$[178]"["
  54. 656 [139]b$[178]";"[167]b$[178]"]"
  55. 657 [139]b$[178]","[167]610
  56. 660 [139][198](b$)[179]32[167]610
  57. 661 [139][198](b$)[178]34[167]610
  58. 665 [139][198](b$)[177]93[175][198](b$)[179]193[167]610
  59. 670 [139][198](b$)[177]221[167]610
  60. 672 [139][195](a$)[178][177]ml[167]610
  61. 675 [153]b$;:a$[178]a$[170]b$:[137]610
  62. 680 [153]" cmdcmd cmd";:a$[178][200](a$,[195](a$)[171]1):[137]610
  63. 700 [159]2,8,2,"makedata,s,r":[141]495
  64. 710 [139]a1[179][177]0[167][153]"(NULL)[[r[ levyke!":[160]15:[153]"sys49152ononon":[162]
  65. 720 [132]2,mx:[132]2,vp:[129]i[178]1[164]mx
  66. 730 [129]j[178]0[164]2
  67. 740 [132]2,a(i,j):[130]j,i:[160]2
  68. 742 [159]2,8,2,"break,s,r":[141]495
  69. 743 [139]a1[178]0[167][141]2800
  70. 744 [160]2:[152]15,"s0:break":[159]2,8,2,"break,s,w"
  71. 745 [152]2,"(NULL)alenteri keskeytetty":[160]2
  72. 750 [159]2,8,3,"makesoft":[141]495
  73. 760 [139]a1[179][177]0[167][153]"(NULL)[[r[ levyke!":[160]15:[153]"sys49152ononon":[162]
  74. 1000 [153]"loadopen            (NULL)closeatnclose(NULL)closevalclose(NULL)close(NULL)closevalclose(NULL)closeright$           wait":[160]4
  75. 1001 [151]53280,6:[151]53281,9
  76. 1010 [153]"<asc1> (NULL)alenteriin kirjoittaminen"
  77. 1020 [153]"<asc3> (NULL)alenterin selaaminen"
  78. 1030 [153]"<asc5> (NULL)alenterin korjaaminen"
  79. 1040 [153]"<asc7> (NULL)oista jnkn p[iv[n tekstit"
  80. 1090 [153]"<asc8> (NULL)opetus (talletus)"
  81. 1095 [153]"sys"vp[171]1"rivi[ teksti[ kirjoitettu"
  82. 1096 [153]"         @ 1987, (NULL)arkku left$eiskari"
  83. 1097 [153]"     mid$ulkaisija: ascloppy (NULL)agazine"
  84. 1099 [151]198,0:[146]198,1:[161]a$
  85. 1100 [139]a$[178]"input"[137]1200:[143] kirjoitt.
  86. 1110 [139]a$[178]"dim"[137]1400:[143] selaaminen
  87. 1120 [139]a$[178]"read"[137]1800:[143] edit
  88. 1130 [139]a$[178]"let"[137]2500:[143] delete
  89. 1198 [139]a$[178]"restore"[137]1600:[143] exit
  90. 1199 [137]1099
  91. 1200 [153]"load(NULL)closecloseright$closeclose(NULL)closeclosemid$closeclose(NULL)closecloseright$closeclose(NULL)closeclose(NULL)closecloseatncloseclose(NULL)closecloseright$closeclose(NULL)closeclosevalcloseclose(NULL)wait"
  92. 1210 [153]"(NULL)[iv[m[[r[:";:ml[178]6:[141]600:[139][195](a$)[179][177]6[137]1000
  93. 1220 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$)
  94. 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)
  95. 1226 [153]"load         "d3"cmd. "kk$(d2)"   "d1"cmdcmdcmdcmdcmd19wait"
  96. 1230 [129]i[178]1[164]mx
  97. 1240 [139]a(i,0)[178]pv[167][141]1350
  98. 1250 [130]:[129]i[178]1[164]20:ap$(i)[178]"":[130]:i[178]0:[153]"* rivin alkuun kun loppu"
  99. 1260 [153]">";:ml[178]36:[141]600:[139][200](a$,1)[178]"*"[137]1280
  100. 1270 i[178]i[170]1:ap$(i)[178]a$:[139]i[179]20[137]1260
  101. 1280 [139]i[178]0[167]1000
  102. 1285 [153]"(NULL)irjoitan levylle...":mh%[178]1
  103. 1290 v%[178]vp:[129]j[178]1[164]i
  104. 1300 re[178]vp:vp[178]vp[170]1:a$[178]ap$(j):[141]500
  105. 1310 [130]
  106. 1320 [137]1500
  107. 1350 f%[178]1:[129]j[178]1[164]a(i,2)
  108. 1360 re[178]a(i,1)[170]j[171]1:[141]550:[153]a$:[130]
  109. 1370 [142]
  110. 1400 [153]"load      (NULL)closeclosevalcloseclose(NULL)closecloseatnclosecloseatncloseclose(NULL)closecloseright$closeclose(NULL)closeclosevalcloseclose(NULL)      wait":pr%[178]0:ct%[178]0
  111. 1405 [153]"(NULL)aperille / (NULL)uudulle (p/r):";:ml[178]1:[141]600:[139]a$[178]"p"[176]a$[178]"(NULL)"[167][141]2200
  112. 1410 [153]"(NULL)[iv[m[[r[:";:ml[178]6:[141]600:[139]a$[178]"-"[137]1000
  113. 1420 [139][195](a$)[179][177]6[137]1400
  114. 1430 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$)
  115. 1440 f%[178]0:[129]i[178]1[164]mx
  116. 1450 [139]a(i,0)[178][177]pv[167][141]1700:[143] print it, wait it
  117. 1455 [139]a$[178]"_"[167]i[178]mx:f%[178]1:[143] end loop
  118. 1460 [130]:[139]f%[178]0[167][153]"vali merkint\j[ sen j[lkeen":[151]198,0:[146]198,1:[137]1000
  119. 1465 [137]1000
  120. 1470 [153]"(NULL)aina <(NULL)val(NULL)(NULL)(NULL)(NULL)>":[151]198,0:[146]198,1:[161]a$:[142]
  121. 1500 [143] a(mx,0)=pv a(mx,1)=v% a(mx,2)=i
  122. 1510 [139]mx[178]0[167]k[178]0:v%[178]1:[137]1571
  123. 1520 k[178]mx
  124. 1530 [139]a(k,0)[177]pv[175]k[177]1[167]k[178]k[171]1:[137]1530
  125. 1540 [139]a(k,0)[177]pv[167]k[178]0:[143] ekaksi
  126. 1541 [143] move it
  127. 1550 [129]l[178]mx[164]k[170]1[169][171]1
  128. 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]
  129. 1570 [143] locate to k+1
  130. 1571 a(k[170]1,0)[178]pv:a(k[170]1,1)[178]v%:a(k[170]1,2)[178]i
  131. 1580 mx[178]mx[170]1
  132. 1590 [137]1000
  133. 1600 [153]"loadlenalendar (NULL)erminated"
  134. 1610 [139]mh%[178]0[167][160]2:[137]2900
  135. 1620 [160]2:[159]2,8,2,"@0:makedata,s,w"
  136. 1630 [152]2,mx:[152]2,vp
  137. 1640 [129]i[178]1[164]mx
  138. 1650 [129]j[178]0[164]2
  139. 1660 [152]2,a(i,j):[130]j,i:[160]2:[137]2900
  140. 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)
  141. 1702 [139]pr%[178]1[137]2300
  142. 1710 [153]"load         "d3"cmd. "kk$(d2)"   "d1"cmdcmdcmdcmdcmd19wait"
  143. 1720 [141]1350:[139]a(i,2)[178]1[175][195](a$)[178]0[167][142]
  144. 1730 [141]1470:[142]
  145. 1800 [143] edit it
  146. 1805 [153]"loadclose closeclose(NULL)closeclose(NULL)closeclose(NULL)closeclosemid$closecloseatnclosecloseatncloseclose(NULL)closecloseright$closeclose(NULL)closeclosevalcloseclose(NULL)closecloseclosecloseclosewait"
  147. 1810 [153]"(NULL)[iv[m[[r[:";:ml[178]6:[141]600:[139]a$[178]"-"[137]1000
  148. 1820 [139][195](a$)[179][177]6[137]1800
  149. 1830 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$):kr[178]0
  150. 1840 f%[178]0:[129]i[178]1[164]mx
  151. 1850 [139]a(i,0)[178]pv[167][141]1870
  152. 1860 [130]:[139]f%[178]0[167][153]"vali merkint\j[ sille p[iv[lle":[151]198,0:[146]198,1:[137]1000
  153. 1865 [137]1900
  154. 1870 [129]j[178]1[164]a(i,2):re[178]a(i,1)[170]j[171]1:[141]550
  155. 1880 f%[178]f%[170]1:[139]a$[179][177]""[167][153]f%;a$
  156. 1885 [130]:[142]
  157. 1900 [153]"(NULL)it[ rivi[ korjaat:";:ml[178]2:[141]600
  158. 1910 [139]a$[178]"-"[137]1000
  159. 1920 ln[178][197](a$):[139]ln[178]0[137]1000
  160. 1930 f%[178]0:[129]i[178]1[164]mx
  161. 1940 [139]a(i,0)[178]pv[167][141]1960
  162. 1950 [130]:[137]2000
  163. 1960 [129]j[178]1[164]a(i,2):re[178]a(i,1)[170]j[171]1:f%[178]f%[170]1
  164. 1970 [139]f%[178]ln[167]kr[178]re
  165. 1980 [130]:[142]
  166. 2000 [139]kr[178]0[137]1000
  167. 2010 re[178]kr:[141]550:[139]a$[178]""[137]1000
  168. 2020 [153]"load"a$"";:[159]1,0:[132]1,a$:[160]1:[153]:mh%[178]1
  169. 2030 [141]500:[137]1000
  170. 2200 pr%[178]1
  171. 2210 [153]"(NULL)ivun pituus (66 tms) :";:ml[178]2:[141]600
  172. 2220 sp[178][197](a$):[139]sp[178]0[167]sp[178]71
  173. 2230 [139]sp[179]30[167][153]"(NULL)iian pieni!":[137]2210
  174. 2240 [159]4,4,7:[142]
  175. 2300 [139]ct%[170]a(i,2)[170]3[177]sp[167][141]2400:ct%[178]0
  176. 2305 a$[178]""[170][196](d3)[170]". "[170][199](16)[170]"05"
  177. 2306 a$[178]a$[170]kk$(d2)[170][199](16)[170]"17 19"[170][201]([196](d1),2)[170][199](15)[170]"wait"
  178. 2307 [152]4,a$:ct%[178]ct%[170]1
  179. 2310 f%[178]1:[129]j[178]1[164]a(i,2)
  180. 2320 re[178]a(i,1)[170]j[171]1:[141]550:[152]4,a$:ct%[178]ct%[170]1:[130]
  181. 2330 [152]4:[152]4:ct%[178]ct%[170]2:[161]a$:[139]a$[178]"_"[167]i[178]mx:f%[178]1:[160]4
  182. 2340 [142]
  183. 2400 [143] form feed
  184. 2410 [129]z[178]ct%[164]sp[170]5:[152]4:[130]:[142]
  185. 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"
  186. 2510 [153]"p[iv[m[[r[:";:ml[178]6:[141]600:[139]a$[178]"-"[137]1000
  187. 2520 [139][195](a$)[179][177]6[137]2500
  188. 2525 c$[178][201](a$,2)[170][202](a$,3,2)[170][200](a$,2):pv[178][197](c$)
  189. 2530 f%[178]0:[129]i[178]1[164]mx
  190. 2540 [139]a(i,0)[178]pv[167][153]"----":[141]1350:[143] print it
  191. 2550 [130]:[139]f%[178]0[167][153]"vali teksti[ p[iv[m[[r[lle":[151]198,0:[146]198,1:[137]1000
  192. 2560 [153]"(NULL)uhotaanko ? (k/e) :";:ml[178]1:[141]600:[139]a$[179][177]"k"[137]1000
  193. 2565 [151]53265,[194](53265)[175]239:[151]788,52:[151]56334,0
  194. 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
  195. 2580 [130]:mh%[178]1
  196. 2600 [143] tiivist[
  197. 2610 a[178]1
  198. 2620 [139]a(a,0)[178]0[167]2650
  199. 2630 a[178]a[170]1:[139]a[179]mx[137]2620
  200. 2640 [137]2700
  201. 2650 b[178]a[170]1
  202. 2660 [139]a(b,0)[179][177]0[167]2690
  203. 2670 b[178]b[170]1:[139]b[179]mx[137]2660
  204. 2680 [137]2700
  205. 2690 [129]k[178]0[164]2
  206. 2691 a(a,k)[178]a(b,k):a(b,k)[178]0
  207. 2692 [130]:a[178]a[170]1
  208. 2695 [137]2620
  209. 2700 [143] lask. tod. mx
  210. 2710 ax[178]0
  211. 2720 [129]i[178]1[164]mx:[139]a(i,0)[179][177]0[167]ax[178]ax[170]1
  212. 2730 [130]:mx[178]ax
  213. 2740 [151]53265,[194](53265)[176]16:[151]788,49:[151]56334,1:[137]1000
  214. 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"
  215. 2810 [153]"stop(NULL)hjelman suoritus pys[htynyt edellisell[";
  216. 2820 [153]"kerralla jostain syyst[ v[[r[ss[ kohdas-";
  217. 2830 [153]"sa. (NULL)ietoja mahdollisesti mennyt hukkaan"
  218. 2840 [153]"sys(NULL)hjelma t[ytyy atnright$(NULL)atn lopettaa <asc8>:lla"
  219. 2850 [153]"p[[valintalistan kautta !!!"
  220. 2860 [153]"(NULL)aina <(NULL)val(NULL)(NULL)(NULL)(NULL)>, kun olet lukenut t[m[n":[151]198,0:[146]198,1
  221. 2870 [161]a$:[142]
  222. 2900 [152]15,"s0:break":[160]15:[153]"sys49152ononon":[162]
  223.