home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 March & April / rerun-1990-03-04.d64 / calendar (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  152 lines
  1. 10 rem print-a-month by jared reynolds
  2. 20 poke53280,9:poke53281,0
  3. 30 gosub1350:gosub1450
  4. 40 rem title screen
  5. 50 print"[147]";spc(13);"print-a-month"
  6. 60 printspc(13);"*************"
  7. 70 print"[152]";spc(11);"by jared reynolds"
  8. 80 print"[159]     1 - start a new calendar"
  9. 90 print"     2 - add/edit notes on calendar"
  10. 100 print"     3 - view notes on calendar"
  11. 110 print"     4 - print calendar *"
  12. 120 print"     5 - load calendar"
  13. 130 print"     6 - save calendar"
  14. 140 print"     7 - quit"
  15. 145 print"*note: requires a printer that has a
  16. 146 [153]"       condensed mode for printing."
  17. 150 [161]zz$:[139]zz$[178]""[167]150
  18. 160 zz[178][197](zz$):[139]zz[179]1[176]zz[177]7[167]150
  19. 170 [145]zz[137]180,380,610,760,1000,1150,1290
  20. 180 [153]"load* new calendar *":[153]"  you will losewait all current notes of"
  21. 190 [153]"  current calendar!!  do you want to":[153]"  proceed [y/n]?"
  22. 200 [161]zz$:[139]zz$[178]""[167]200 
  23. 210 [139]zz$[178]"y"[167]240 
  24. 220 [139]zz$[178]"n"[167]40 
  25. 230 [137]200
  26. 240 [156]:[141]1350:[133]"enter month and year (mm,yyyy)";mo,yr:[141]1450
  27. 250 ns[178]0:ck[178]0:dy$[178]"01":dy[178]1:[153]"load":cn[178](40[171]([195](mo$(mo))[170]5))[173]2
  28. 260 [153][166]cn);mo$(mo);yr;"":[153]"print# ";ds$;"open"
  29. 270 [129]cl[178]1[164]nw:[153]"    ";:[129]v1[178]1[164]7:ns[178]ns[170]1:[139]ns[177]s[167]ck[178]1
  30. 280 [139]dy[177]nd(mo)[167]ck[178]0
  31. 290 [139]ck[178]0[167]310 
  32. 300 [153][201](dy$,2);"   ";:dy[178]dy[170]1:dy$[178]"0"[170][202]([196](dy),2):[137]320 
  33. 310 [153]"     ";
  34. 320 [130]v1:[153]"":[130]cl
  35. 330 [153]"    is everything ok [y/n]?"
  36. 340 [161]zz$:[139]zz$[178]""[167]340 
  37. 350 [139]zz$[178]"y"[167]40 
  38. 360 [139]zz$[178]"n"[167]240 
  39. 370 [137]340 
  40. 380 [143] add/edit
  41. 390 ns[178]0:ck[178]0:dy$[178]"01":dy[178]1:[153]"load";:cn[178](40[171]([195](mo$(mo))[170]5))[173]2
  42. 400 [153][166]cn);mo$(mo);yr;"":[153]"print# ";ds$;"open"
  43. 410 [129]cl[178]1[164]nw:[153]"    ";:[129]v1[178]1[164]7:ns[178]ns[170]1:[139]ns[177]s[167]ck[178]1
  44. 420 [139]dy[177]nd(mo)[167]ck[178]0
  45. 430 [139]ck[178]0[167]450 
  46. 440 [153][201](dy$,2);"   ";:dy[178]dy[170]1:dy$[178]"0"[170][202]([196](dy),2):[137]460 
  47. 450 [153]"     ";
  48. 460 [130]v1:[153]"":[130]cl
  49. 470 dt$[178]"":[133]"print#    date to edit (retprint# to exit)";dt$:dt[178][197](dt$)
  50. 480 [139]dt[178]0[167]40
  51. 490 [139]dt[179]0[176]dt[177]nd(mo)[167][153]"on";:[137]470
  52. 500 qq[178]0:dt[178]dt[170]s:[153]:[129]v2[178]1[164]6:v3[178]v2[170]2:n[178][195](no$(dt,v3))
  53. 510 [153]"    note";v2;"cmd: ";no$(dt,v3);">waitcmd";
  54. 520 [161]zz$:[139]zz$[178]""[167]520
  55. 530 zz[178][198](zz$)
  56. 540 [139]zz[178]13[167][153]:[130]v2:[137]390 
  57. 550 [139]zz[178]20[167]590 
  58. 560 [139]zz[179]32[176]zz[178]34[176]zz[178]44[176]zz[178]58[176]zz[177]94[167]520 
  59. 570 [139]n[178]18[167]520 
  60. 580 n[178]n[170]1:[153]zz$;">waitcmd";:no$(dt,v3)[178]no$(dt,v3)[170]zz$:[137]520
  61. 590 [139]n[178]0[167]520 
  62. 600 n[178]n[171]1:no$(dt,v3)[178][200](no$(dt,v3),n):[153]" cmdcmd>waitcmd";:[137]520
  63. 610 [143] view
  64. 620 v1[178]1
  65. 630 [153]"loadopen* view *":[153]"    ";v1;mo$(mo);yr;"open":dt[178]v1[170]s
  66. 640 [129]v2[178]1[164]6:v3[178]v2[170]2:[153]"    ";v2;"- ";no$(dt,v3);"":[130]v2
  67. 650 [153]"  <=crsr=> print#to view dates (retprint# to exit)"
  68. 660 [161]zz$:[139]zz$[178]""[167]660 
  69. 670 zz[178][198](zz$)
  70. 680 [139]zz[178]157[167]720
  71. 690 [139]zz[178]29[167]740
  72. 700 [139]zz[178]13[167]40
  73. 710 [137]660 
  74. 720 v1[178]v1[171]1:[139]v1[178]0[167]v1[178]nd(mo)
  75. 730 [137]630 
  76. 740 v1[178]v1[170]1:[139]v1[178]nd(mo)[170]1[167]v1[178]1
  77. 750 [137]630 
  78. 760 [143] print
  79. 770 [153]"load* print calendar *":[153]"print current calendar [y/n]?"
  80. 780 [161]zz$:[139]zz$[178]""[167]780 
  81. 790 [139]zz$[178]"y"[167]820
  82. 800 [139]zz$[178]"n"[167]40 
  83. 810 [137]780 
  84. 820 [139]qq[178]1[167]880
  85. 830 [153]"working...";
  86. 840 [129]v1[178]1[164]nd(mo)[170]12:[129]v2[178]2[164]8
  87. 850 nt$(v1,v2)[178][200](":"[170]no$(v1,v2)[170]sp$,19)
  88. 860 [130]v2:[153]".";:[130]v1:[153]
  89. 870 yr$[178][196](yr):x$[178]mo$(mo)[170]yr$:[129]i[178]1[164][195](x$):xx$[178]xx$[170][202](x$,i,1)[170]" ":[130]i
  90. 880 [153]"printing..."
  91. 890 qq[178]1:nc[178]0:ns[178]0:ck[178]0:dy$[178]"01":dy[178]1:v1[178]0:cn[178](80[171][195](xx$))[173]2:[159]4,4,0
  92. 900 [152]4,re$;[166]cn);xx$:[152]4,cp$:[152]4,d1$:[152]4,t$
  93. 910 [129]cl[178]1[164]nw:[152]4," ";:[129]v1[178]1[164]7:ns[178]ns[170]1:[139]ns[177]s[167]ck[178]1
  94. 920 [139]dy[177]nd(mo)[167]ck[178]0
  95. 930 [139]ck[178]0[167]960 
  96. 940 [152]4,[200](s$,16);[201](dy$,2);" ";:dy[178]dy[170]1:dy$[178]"0"[170][202]([196](dy),2)
  97. 950 [137]970 
  98. 960 [152]4,s$;
  99. 970 [130]v1:[152]4,":":[129]v2[178]2[164]8:[152]4," ";:[129]v1[178]1[164]7:nc[178]nc[170]1
  100. 980 [152]4,nt$(nc,v2);:[130]v1:[152]4,":":nc[178]nc[171]7:[130]v2:[152]4,t$:nc[178]nc[170]7
  101. 990 [130]cl:[152]4,ff$:[160]4:[137]40
  102. 1000 [143] **load**
  103. 1010 [153]"load* load calendar *":[153]"load new calendar [y/n]?"
  104. 1020 [161]zz$:[139]zz$[178]""[167]1020
  105. 1030 [139]zz$[178]"y"[167]1060
  106. 1040 [139]zz$[178]"n"[167]40 
  107. 1050 [137]1020
  108. 1060 [133]"enter month and year (mm,yyyy)";mo,yr:[141]1450
  109. 1070 [153]"loading..."
  110. 1080 [159]15,8,15:[159]2,8,2,"0:cal."[170][196](mo)[170]"/"[170][196](yr)[170]",s,r"
  111. 1090 [141]1130:[139]er[179][177]0[167]1120
  112. 1100 [129]v1[178]1[164]nd(mo):dt[178]v1[170]s:[129]v2[178]3[164]8:[132]2,no$(dt,v2):[130]v2:[130]v1
  113. 1110 [141]1130
  114. 1120 [160]2:[160]15:[137]40
  115. 1130 [132]15,er,er$,tr,se:[139]er[179][177]0[167][153]"";er;er$;tr;se:[129]x[178]1[164]1500:[130]x
  116. 1140 [142]
  117. 1150 [143] save
  118. 1160 [153]"load* save *":[153]"save current calendar [y/n]?"
  119. 1170 [161]zz$:[139]zz$[178]""[167]1170
  120. 1180 [139]zz$[178]"y"[167]1210
  121. 1190 [139]zz$[178]"n"[167]40
  122. 1200 [137]1170
  123. 1210 [153]"working...";:[129]v1[178]1[164]nd(mo):dt[178]v1[170]s:[129]v2[178]2[164]8
  124. 1220 [139]no$(dt,v2)[178]""[167]no$(dt,v2)[178]" "
  125. 1230 [130]v2:[153]".";:[130]v1:[153]:[153]"saving..."
  126. 1240 [159]15,8,15:[159]2,8,2,"@0:cal."[170][196](mo)[170]"/"[170][196](yr)[170]",s,w"
  127. 1250 [141]1130:[139]er[179][177]0[167]1280
  128. 1260 [129]v1[178]1[164]nd(mo):dt[178]v1[170]s:[129]v2[178]3[164]8:[152]2,no$(dt,v2):[130]v2:[130]v1
  129. 1270 [141]1130
  130. 1280 [160]15:[160]2:[137]40
  131. 1290 [153]"load* quit *":[153]"do you want to quit now [y/n]?"
  132. 1300 [161]zz$:[139]zz$[178]""[167]1300
  133. 1310 [139]zz$[178]"y"[167]1340
  134. 1320 [139]zz$[178]"n"[167]40
  135. 1330 [137]1300
  136. 1340 [151]53281,6:[151]53280,14:[153]"loadcont     print-a-month still in memory.":[128]
  137. 1350 [143] initialize variables
  138. 1360 cpi17$[178][199](20):ffeed$[178][199](12):reset$[178][199](27)[170][199](64)
  139. 1370 [134]nd(12),mo$(12),nt$(43,8),no$(43,8):[140]
  140. 1380 [129]d[178]1[164]12:[135]mo$(d),nd(d):[130]d:d1$[178]"          "
  141. 1390 [129]d[178]1[164]7:[135]dn$:ds$[178]ds$[170]"  "[170]dn$:d1$[178]d1$[170]dn$[170]"                ":[130]d
  142. 1400 mo[178]1:yr[178]2000:sp$[178]"                  ":s$[178]":                  "
  143. 1410 t$[178]" ":[129]d[178]1[164]134:t$[178]t$[170]"-":[130]d:[142]
  144. 1420 [131]january,31,february,28,march,31,april,30,may,31,june,30,july,31
  145. 1430 [131]august,31,september,30,october,31,november,30,december,31
  146. 1440 [131]sun,mon,tue,wed,thu,fri,sat
  147. 1450 [143] calendar initialization
  148. 1460 x[178]yr[170](mo[179]3):s[178][181](275[172]mo[173]9)[171][181]((7[172]x[170]7)[173]4)[170]367[172]yr[170]1[171][181](([181](x[173]100)[170]1)[172]3[173]4)
  149. 1470 s[178]s[171]4[171]7[172][181]((s[171]4)[173]7):qq[178]0:x1[178](nd(mo)[170]s)[173]7:nw[178][181](x1):[139]x1[177]nw[167]nw[178]nw[170]1
  150. 1480 [139](yr[173]4)[171][181](yr[173]4)[178]0[175]mo[178]2[167]nd(2)[178]29
  151. 1490 [142]
  152.