home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / teach / lbasic / calender.bas (.txt) next >
Encoding:
GW-BASIC  |  1992-07-25  |  11.6 KB  |  301 lines
  1. 5  REM CALENDER
  2. 6  PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  3. 7  PRINT"#########################  C  A  L  E  N  D  E  R  #############################"
  4. 10  PRINT"################## T H E  50  Y E A R S  C A L E N D E R  ######################"
  5. 15  PRINT"##################### Y E A R  F R O M  1950  T O  1999 ########################"
  6. 16  PRINT"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
  7. 20  PRINT "WHICH YEAR YOU WONT Y=?"
  8. 21  INPUT Y
  9. 30  IF Y=51 OR Y=62 OR Y=73 OR Y=79 OR Y=90 THEN GOTO 50
  10. 31  IF Y=57 OR Y=63 OR Y=74 OR Y=85 OR Y=91 THEN GOTO 60
  11. 32  IF Y=58 OR Y=69 OR Y=75 OR Y=86 OR Y=97 THEN GOTO 70
  12. 33  IF Y=53 OR Y=59 OR Y=70 OR Y=81 OR Y=87 OR Y=698 THEN GOTO 80
  13. 34  IF Y=54 OR Y=65 OR Y=71 OR Y=82 OR Y=93 OR Y=99 THEN GOTO 90
  14. 35  IF Y=55 OR Y=66 OR Y=77 OR Y=83 OR Y=94 THEN GOTO 100
  15. 36  IF Y=50 OR Y=61 OR Y=67 OR Y=78 OR Y=89 OR Y=95 THEN GOTO 110
  16. 37  IF Y=68 OR Y=96 THEN GOTO 120
  17. 38  IF Y=52 OR Y=80 THEN GOTO 130
  18. 39  IF Y=64 OR Y=92 THEN GOTO 140
  19. 40  IF Y=76 THEN GOTO 150
  20. 41  IF Y=60 OR Y=88 THEN GOTO 160
  21. 42  IF Y=72 THEN GOTO 170
  22. 43  IF Y=56 OR Y=84 THEN GOTO 180
  23. 50  PRINT"WHICH MONTH YOU WONT M=?"
  24. 51  INPUT M
  25. 52  IF M=1 OR M=10 THEN GOTO 200
  26. 53  IF M=2 OR M=3 OR M=11 THEN GOTO 260
  27. 54  IF M=4 OR M=7 THEN GOTO 320
  28. 55  IF M=5 THEN GOTO 220
  29. 56  IF M=6 THEN GOTO 280
  30. 57  IF M=8 THEN GOTO 240
  31. 58  IF M=9 OR M=12 THEN GOTO 300
  32. 59  STOP
  33. 60  PRINT"WHICH MONTH YOU WONT M=?"
  34. 61  INPUT M
  35. 62  IF M=1 OR M=10 THEN GOTO 220
  36. 63  IF M=2 OR M=3 OR M=11 THEN GOTO 280
  37. 64  IF M=4 OR M=7 THEN GOTO 200
  38. 65  IF M=5 THEN GOTO 240
  39. 66  IF M=6 THEN GOTO 300
  40. 67  IF M=8 THEN GOTO 260
  41. 68  IF M=9 OR M=12 THEN GOTO 320
  42. 69  STOP
  43. 70  PRINT"WHICH MONTH YOU WONT M=?"
  44. 71  INPUT M
  45. 72  IF M=1 OR M=10 THEN GOTO 240
  46. 73  IF M=2 OR M=3 OR M=11 THEN GOTO 300
  47. 74  IF M=4 OR M=7 THEN GOTO 220
  48. 75  IF M=5 THEN GOTO 260
  49. 76  IF M=6 THEN GOTO 320
  50. 77  IF M=8 THEN GOTO 280
  51. 78  IF M=9 OR M=12 THEN GOTO 200
  52. 79  STOP
  53. 80  PRINT"WHICH MONTH YOU WONT M=?"
  54. 81  INPUT M
  55. 82  IF M=1 OR M=10 THEN GOTO 260
  56. 83  IF M=2 OR M=3 OR M=11 THEN GOTO 320
  57. 84  IF M=4 OR M=7 THEN GOTO 240
  58. 85  IF M=5 THEN GOTO 280
  59. 86  IF M=6 THEN GOTO 200
  60. 87  IF M=8 THEN GOTO 300
  61. 88  IF M=9 OR M=12 THEN GOTO 220
  62. 89  STOP
  63. 90  PRINT"WHICH MONTH YOU WONT M=?"
  64. 91  INPUT M
  65. 92  IF M=1 OR M=10 THEN GOTO 280
  66. 93  IF M=2 OR M=3 OR M=11 THEN GOTO 200
  67. 94  IF M=4 OR M=7 THEN GOT 260
  68. 95  IF M=5 THEN GOTO 300
  69. 96  IF M=6 THEN GOTO 220
  70. 97  IF M=8 THEN GOTO 320
  71. 98  IF M=9 OR M=12 THEN GOTO 240
  72. 99  STOP
  73. 100  PRINT"WHICH MONTH YOU WONT M=?"
  74. 101  INPUT M
  75. 102  IF M=1 OR M=10 THEN GOTO 300
  76. 103  IF M=2 OR M=3 OR M=11 THEN GOTO 220
  77. 104  IF M=4 OR M=7 THEN GOTO 280
  78. 105  IF M=5 THEN GOTO 320
  79. 106  IF M=6 THEN GOTO 240
  80. 107  IF M=8 THEN GOTO 200
  81. 108  IF M=9 OR M=12 THEN GOTO 260
  82. 109  STOP
  83. 110  PRINT"WHICH MONTH YOU WONT M=?"
  84. 111  INPUT M
  85. 112  IF M=1 OR M=10 THEN GOTO 320
  86. 113  IF M=2 OR M=3 OR M=11 THEN GOTO 240
  87. 114  IF M=4 OR M=7 THEN GOTO 300
  88. 115  IF M=5 THEN GOTO 200
  89. 116  IF M=6 THEN GOTO 260
  90. 117  IF M=8 THEN GOTO 220
  91. 118  IF M=9 OR M=12 THEN GOTO 280
  92. 119  STOP
  93. 120  PRINT"WHICH MONTH YOU WONT M=?"
  94. 121  INPUT M
  95. 122  IF M=1 OR M=4 OR M=7 THEN GOTO 200
  96. 123  IF M=2 OR M=8 THEN GOTO 260
  97. 124  IF M=3 OR M=11 THEN GOTO 280
  98. 125  IF M=5 THEN GOTO 240
  99. 126  IF M=6 THEN GOTO 300
  100. 127  IF M=9 OR M=12 THEN GOTO 320
  101. 128  IF M=10 THEN GOTO 220
  102. 129  STOP
  103. 130  PRINT"WHICH MONTH YOU WONT M=?"
  104. 131  INPUT M
  105. 132  IF M=1 OR M=4 OR M=7 THEN GOTO 220
  106. 133  IF M=2 OR M=8 THEN GOTO 280
  107. 134  IF M=3 OR M=11 THEN GOTO 300
  108. 135  IF M=5 THEN GOTO 260
  109. 136  IF M=6 THEN GOTO 320
  110. 137  IF M=9 OR 12 THEN GOTO 200
  111. 138  IF M=10 THEN GOTO 240
  112. 139  STOP
  113. 140  PRINT"WHICH MONTH YOU WONT M=?"
  114. 141  INPUT M
  115. 142  IF M=1 OR M=4 OR M=7 THEN GOTO 240
  116. 143  IF M=2 OR M=8 THEN GOTO 300
  117. 144  IF M=3 OR 11 THEN 320
  118. 145  IF M=5 THEN GOTO 280
  119. 146  IF M=6 THEN GOTO 200
  120. 147  IF M=9 OR M=12 THEN GOTO 220
  121. 148  IF M=10 THEN GOTO 260
  122. 149  STOP
  123. 150  PRINT"WHICH MONTH YOU WONT M=?"
  124. 151  INPUT M
  125. 152  IF M=1 OR M=4 OR M=7 THEN GOTO 260
  126. 153  IF M=2 OR M=8 THEN GOTO 320
  127. 154  IF M=3 OR M=11 THEN GOTO 200
  128. 155  IF M=5 THEN GOTO 300
  129. 156  IF M=6 THEN GOTO 220
  130. 157  IF M=9 OR M=12 THEN GOTO 240
  131. 158  IF M=10 THEN GOTO 280
  132. 159  STOP
  133. 160  PRINT"WHICH MONTH YOU WONT M=?"
  134. 161  INPUT M
  135. 162  IF M=1 OR M=4 OR M=7 THEN GOTO 280
  136. 163  IF M=2 OR M=8 THEN GOTO 200
  137. 164  IF 6=3 OR M=11 THEN GOTO 220
  138. 165  IF M=5 THEN GOTO 320
  139. 166  IF M=6 THEN GOTO 240
  140. 167  IF M=9 OR M=12 THEN GOTO 260
  141. 168  IF M=10 THEN GOTO 300
  142. 169  STOP
  143. 170  PRINT"WHICH MONTH YOU WONT M=?"
  144. 171  INPUT M
  145. 172  IF M=1 OR M=4 OR M=7 THEN GOTO 300
  146. 173  IF M=2 OR M=8 THEN GOTO 220
  147. 174  IF 6=3 OR M=11 THEN GOTO 240
  148. 175  IF M=5 THEN GOTO 200
  149. 176  IF M=6 THEN GOTO 260
  150. 177  IF M=9 OR M=12 THEN GOTO 280
  151. 178  IF M=10 THEN GOTO 320
  152. 179  STOP
  153. 180  PRINT"WHICH MONTH YOU WONT M=?"
  154. 181  INPUT M
  155. 182  IF M=1 OR M=4 OR M=7 THEN GOTO 320
  156. 183  IF M=2 OR M=8 THEN GOTO 240
  157. 184  IF 6=3 OR M=11 THEN GOTO 260
  158. 185  IF M=5 THEN GOTO 220
  159. 186  IF M=6 THEN GOTO 280
  160. 187  IF M=9 OR M=12 THEN GOTO 300
  161. 188  IF M=10 THEN GOTO 200
  162. 189  STOP
  163. 200  CLS
  164. 201  PRINT"      #################################################"
  165. 202  PRINT"      #-----------------------------------------------#"
  166. 203  PRINT"      # SAT   *       6       13      20      27      #"
  167. 204  PRINT"      #-----------------------------------------------#"
  168. 205  PRINT"      # SUN   *       7       14      21      28      #"
  169. 206  PRINT"      #-----------------------------------------------#"
  170. 207  PRINT"      # MON   1       8       15      22      29      #"
  171. 208  PRINT"      #-----------------------------------------------#"
  172. 209  PRINT"      # TUS   2       9       16      23      30      #"
  173. 210  PRINT"      #-----------------------------------------------#"
  174. 211  PRINT"      # WED   3       10      17      24      31      #"
  175. 212  PRINT"      #-----------------------------------------------#"
  176. 213  PRINT"      # THU   4       11      18      25      *       #"
  177. 214  PRINT"      #-----------------------------------------------#"
  178. 215  PRINT"      # FRI   5       12      19      26      *       #"
  179. 216  PRINT"      #-----------------------------------------------#"
  180. 218  PRINT"      #################################################"
  181. 219  GOTO 350
  182. 220  CLS
  183. 221  PRINT"      #################################################"
  184. 222  PRINT"      #-----------------------------------------------#"
  185. 223  PRINT"      # SAT   *       5       12      19      26      #"
  186. 224  PRINT"      #-----------------------------------------------#"
  187. 225  PRINT"      # SUN   *       6       13      20      27      #"
  188. 226  PRINT"      #-----------------------------------------------#"
  189. 227  PRINT"      # MON   *       7       14      21      28      #"
  190. 228  PRINT"      #-----------------------------------------------#"
  191. 229  PRINT"      # TUS   1       8       15      22      29      #"
  192. 230  PRINT"      #-----------------------------------------------#"
  193. 231  PRINT"      # WED   2       9       16      23      30      #"
  194. 232  PRINT"      #-----------------------------------------------#"
  195. 233  PRINT"      # THU   3       10      17      24      31      #"
  196. 234  PRINT"      #-----------------------------------------------#"
  197. 235  PRINT"      # FRI   4       11      18      25      *       #"
  198. 236  PRINT"      #-----------------------------------------------#"
  199. 238  PRINT"      #################################################"
  200. 239  GOTO 350
  201. 240  CLS
  202. 241  PRINT"      #################################################"
  203. 242  PRINT"      #-----------------------------------------------#"
  204. 243  PRINT"      # SAT   *       4       11      17      25      #"
  205. 244  PRINT"      #-----------------------------------------------#"
  206. 245  PRINT"      # SUN   *       5  ,) bP<UNK! {0001}><UNK! {0009}>&7
  207. 50304  
  208. 8192  <UNK! {0002}>
  209. 8  VLIST:B2 <UNK! {0009}>BCOLOR`<UNK! {0009}>1"<UNK! {0002}><UNK! {0002}><UNK! {0002}>"<UNK! {0002}><UNK! {0002}>(R<UNK! {0010}><UNK! {0080}><UNK! {0004}><UNK! {0004}><UNK! {0004}>NEWWENDB<0x9A!>H
  210. 5264  STOP<UNK! {0003}>CIKKIIKBIi)KKKKKIKKKKKKKIKKKHSCREEN<UNK! {0080}>4LOCATE<UNK! {FDC0}>$HLET<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>SCREEN2SNOTLET<UNK! {0008}><UNK! {0008}><UNK! {000A}>LET<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {000D}>LET<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>&HC84C<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>&H88C<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>&HC88D<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>SCREEN<UNK! {0080}><UNK! {0004}>IF>
  211. 2184  <UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><0xCB!>KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKHSCREEN<UNK! {0080}>3K>@$HLET<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>SCREEN44TSCREEN<UNK! {0008}><UNK! {0008}><UNK! {000A}>LET<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {000D}>SCREEN<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>&H84D<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>&H488C<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>&H88E<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}>SCREEN<UNK! {0080}>$&O37777700076$HLET<UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><UNK! {0008}><0xCB!>KKKKKKKKKKKKKKm--------------------------------#"
  212. 251  PRINT"      # WED   1       8       15      22      29      #"
  213. 252  PRINT"      #-----------------------------------------------#"
  214. 253  PRINT"      # THU   2       9       16      23      30      #"
  215. 254  PRINT"      #-----------------------------------------------#"
  216. 255  PRINT"      # FRI   3       10      17      24      31      #"
  217. 256  PRINT"      #-----------------------------------------------#"
  218. 258  PRINT"      #################################################"
  219. 259  GOTO 350
  220. 260  CLS
  221. 261  PRINT"      #################################################"
  222. 262  PRINT"      #-----------------------------------------------#"
  223. 263  PRINT"      # SAT   *       3       10      17      24/31   #"
  224. 264  PRINT"      #-----------------------------------------------#"
  225. 265  PRINT"      # SUN   *       4       11      18      25      #"
  226. 266  PRINT"      #-----------------------------------------------#"
  227. 267  PRINT"      # MON   *       5       12      19      28      #"
  228. 268  PRINT"      #-----------------------------------------------#"
  229. 269  PRINT"      # TUS   *       6       13      20      27      #"
  230. 270  PRINT"      #-----------------------------------------------#"
  231. 271  PRINT"      # WED   *       7       14      21      28      #"
  232. 272  PRINT"      #-----------------------------------------------#"
  233. 273  PRINT"      # THU   1       8       15      22      29      #"
  234. 274  PRINT"      #-----------------------------------------------#"
  235. 275  PRINT"      # FRI   2       9       16      23      30      #"
  236. 276  PRINT"      #-----------------------------------------------#"
  237. 278  PRINT"      #################################################"
  238. 279  GOTO 350
  239. 280  CLS
  240. 281  PRINT"      #################################################"
  241. 282  PRINT"      #-----------------------------------------------#"
  242. 283  PRINT"      # SAT   *       2       9       16      23/30   #"
  243. 284  PRINT"      #-----------------------------------------------#"
  244. 285  PRINT"      # SUN   *       3       10      17      24/31   #"
  245. 286  PRINT"      #-----------------------------------------------#"
  246. 287  PRINT"      # MON   *       4       11      18      25      #"
  247. 288  PRINT"      #-----------------------------------------------#"
  248. 289  PRINT"      # TUS   *       5       12      19      26      #"
  249. 290  PRINT"      #-----------------------------------------------#"
  250. 291  PRINT"      # WED   *       6       13      20      27      #"
  251. 292  PRINT"      #-----------------------------------------------#"
  252. 293  PRINT"      # THU   *       7       14      21      28      #"
  253. 294  PRINT"      #-----------------------------------------------#"
  254. 295  PRINT"      # FRI   1       8       15      22      29      #"
  255. 296  PRINT"      #-----------------------------------------------#"
  256. 298  PRINT"      #################################################"
  257. 299  GOTO 350
  258. 300  CLS
  259. 301  PRINT"      #################################################"
  260. 302  PRINT"      #-----------------------------------------------#"
  261. 303  PRINT"      # SAT   1       8       15      22      29      #"
  262. 304  PRINT"      #-----------------------------------------------#"
  263. 305  PRINT"      # SUN   2       9       16      23      30      #"
  264. 306  PRINT"      #-----------------------------------------------#"
  265. 307  PRINT"      # MON   3       10      17      24      31      #"
  266. 308  PRINT"      #-----------------------------------------------#"
  267. 309  PRINT"      # TUS   4       11      18      25      *       #"
  268. 310  PRINT"      #-----------------------------------------------#"
  269. 311  PRINT"      # WED   5       12      19      26      *       #"
  270. 312  PRINT"      #-----------------------------------------------#"
  271. 313  PRINT"      # THU   6       13      20      27      *       #"
  272. 314  PRINT"      #-----------------------------------------------#"
  273. 315  PRINT"      # FRI   7       14      21      28      *       #"
  274. 316  PRINT"      #-----------------------------------------------#"
  275. 318  PRINT"     #################################################"
  276. 319  GOTO 350
  277. 320  CLS
  278. 321  PRINT"      #################################################"
  279. 322  PRINT"      #-----------------------------------------------#"
  280. 323  PRINT"      # SAT   *       7       14      21      28      #"
  281. 324  PRINT"      #-----------------------------------------------#"
  282. 325  PRINT"      # SUN   1       8       15      22      29      #"
  283. 326  PRINT"      #-----------------------------------------------#"
  284. 327  PRINT"      # MON   2       9       16      23      30      #"
  285. 328  PRINT"      #-----------------------------------------------#"
  286. 329  PRINT"      # TUS   3       10      17      24      31      #"
  287. 330  PRINT"      #-----------------------------------------------#"
  288. 331  PRINT"      # WED   4       11      18      25      *       #"
  289. 332  PRINT"      #-----------------------------------------------#"
  290. 333  PRINT"      # THU   5       12      19      26      *       #"
  291. 334  PRINT"      #-----------------------------------------------#"
  292. 335  PRINT"      # FRI   6       13      20      27      *       #"
  293. 336  PRINT"      #-----------------------------------------------#"
  294. 338  PRINT"     #################################################"
  295. 339  GOTO 350
  296. 350  PRINT"*********************************************************************"
  297. 351  PRINT"*                                                                   *"
  298. 352  PRINT"* FOR MONTH'S 2,4,6,9 AND 11 THEES MONTH'S HAVE 28,29,30 DAYS ONLY  *"
  299. 353  PRINT"*                                                                   *"
  300. 354  PRINT"*********************************************************************"
  301.