home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / DEC-CALENDAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  195 lines

  1. 0 PRINT"[147]";:POKE650,255:PRINTCHR$(142)CHR$(8)"";
  2. 10 POKE53280,00:POKE53281,00:POKE2023,032:POKE56295,01
  3. 20 POKE53282,01:POKE53283,02:POKE53284,03
  4. 25 IFJK=1THEN100
  5. 30 FORT=52480TO52519:READA:POKET,A:NEXT:JK=1
  6. 100 PRINT"  [176][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][174]  [149][192][192][221][159]  ";
  7. 110 PRINT"    [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]      [146][221][151][192][192][149][192][192][221][159] 199";
  8. 120 PRINT"1[159] [152][146]                     [152] [159] 1991[159] [146][221][151][192][192][149][192][192][221]";
  9. 130 PRINT"[159]      [146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]      [146][221][151][192][192][129][192][192][171][192]";
  10. 140 PRINT"[192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][179][152][192][192][129][192][192][221][152]   1[221][152]";
  11. 150 PRINT"   2[221][152]   3[221][152]   4[221][152]   5[221][152]   6[221][152]   7[221][152][192][192][129][192][192][221][152]";
  12. 160 PRINT"    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152][192]";
  13. 170 PRINT"[192][129][192][192][221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152] ";
  14. 180 PRINT"   [221][152][192][192][129][192][192][171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179][152][192]";
  15. 190 PRINT"[192][158][192][192][221][152]   8[221][152]   9[221][152]  10[221][152]  11[221][152]  12[221][152]  13[221][152] ";
  16. 200 PRINT" 14[221][155][192][192][158][192][192][221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152] ";
  17. 210 PRINT"   [221][152]    [221][155][192][192][158][192][192][221][152]    [221][152]    [221][152]    [221][152]    [221][152] ";
  18. 220 PRINT"   [221][152]    [221][152]    [221][155][192][192][192][192][171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192]";
  19. 230 PRINT"[219][192][192][192][192][219][192][192][192][192][179][192][192][158][192][192][221][152]  15[221][152]  16[221][152]  17[221][152]  18[221][152]  1";
  20. 240 PRINT"9[221][152]  20[221][152]  21[221][155][192][192][158][192][192][221][152]    [221][152]    [221][152]    [221][152]   ";
  21. 250 PRINT" [221][152]    [221][152]    [221][152]    [221][155][192][192][158][192][192][221][152]    [221][152]    [221][152]   ";
  22. 260 PRINT" [221][152]    [221][152]    [221][152]    [221][152]    [221][155][192][192][129][192][192][171][192][192][192][192][219][192][192][192][192][219][192]";
  23. 270 PRINT"[192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179][152][192][192][129][192][192][221][152]  22[221][152]  23[221][152]  2";
  24. 280 PRINT"4[221][152]  25[221][152]  26[221][152]  27[221][152]  28[221][152][192][192][129][192][192][221][152]    [221][152]   ";
  25. 290 PRINT" [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152][192][192][129][192][192][221][152]   ";
  26. 300 PRINT" [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152][192][192][129][192]";
  27. 310 PRINT"[192][171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179][152][192][192][149][192][192][221][152]  2";
  28. 320 PRINT"9[221][152]  30[221][152]  31[221][152]    [221][152]    [221][152]    [221][152]    [221][151][192][192][149][192]";
  29. 330 PRINT"[192][221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    ";
  30. 340 PRINT"[221][151][192][192][149][192][192][221][152]    [221][152]    [221][152]    [221][152]    [221][152]    [221][152]    ";
  31. 350 PRINT"[221][152]    [221][151][192][192]  [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192]";
  32. 360 PRINT"[189] ";
  33. 362 BS$="[186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208][186][208]"
  34. 365 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
  35. 370 PRINT""SPC(9)"DECEMBER GENIE EVENTS!"
  36. 375 A$="[169][146][169][159]":B$="  "
  37. 380 POKE214,21:SYS58732:PRINTSPC(18)"[159] USE CRSR KEYS TO  "
  38. 382 PRINTSPC(18)"[159] MOVE; RETURN WILL "
  39. 384 PRINTSPC(18)"[159] SELECT; Q QUITS!  "
  40. 385 IFBH=1THENBH=0:GOTO388
  41. 386 C=4:R=6:DY=1
  42. 388 POKE214,R:POKE211,C:SYS58732:PRINT"[146]"A$
  43. 390 GETAA$:IFAA$=""THEN390
  44. 392 IFAA$="[157]"ANDDY=1THENGOSUB490:GOTO388
  45. 394 IFAA$=""ANDDY=31THENPOKE214,R:POKE211,C:SYS58732:PRINT"[146]"B$:GOTO386
  46. 395 IFAA$=""ORAA$="[147]"THENPOKE214,R:POKE211,C:SYS58732:PRINTB$:GOTO386
  47. 396 IFAA$="[145]"ANDR=6THEN390
  48. 398 IFAA$=""ANDR=22THEN390
  49. 400 IFAA$=""ANDC=34THENGOSUB480:GOTO388
  50. 402 IFAA$="[157]"ANDC=4THENGOSUB470:GOTO388
  51. 404 IFAA$=""ANDDY+7>31THEN390
  52. 406 IFAA$=""THENGOSUB500:GOTO388
  53. 408 IFAA$="[157]"THENGOSUB510:GOTO388
  54. 410 IFAA$="[145]"THENGOSUB520:GOTO388
  55. 412 IFAA$=""THENGOSUB530:GOTO388
  56. 414 IFAA$=CHR$(13)THEN600
  57. 416 IFAA$="Q"ORAA$="[209]"THEN450
  58. 418 GOTO 390
  59. 450 PRINT"":SYS52480:POKE53280,14:POKE53281,6:POKE646,14:PRINTCHR$(9)CHR$(14)
  60. 452 PRINT" [199][197]NIE [197]VENTS [195]ALENDAR - [196]ECEMBER 1991 "
  61. 454 PRINT"[199][197]NIE IS A REGISTERED TRADEMARK OF"
  62. 456 PRINT"[199]ENERAL [197]LECTRIC, [201]NC."
  63. 458 PRINT"[208]ROGRAM BY [208]AUL [205]C[193]LEER."
  64. 460 PRINT"[195]OMMENTS, COMPLAINTS, AND QUESTIONS"
  65. 462 PRINT"WELCOMED!  [205]AIL THEM TO [196].[205][195][193][204][197][197][210]1."
  66. 464 PRINT:END
  67. 470 IFDY=1THENRETURN
  68. 472 POKE214,R:POKE211,C:SYS58732:PRINT"[146]"B$
  69. 474 DY=DY-1:R=R-4:C=34:RETURN
  70. 480 POKE214,R:POKE211,C:SYS58732:PRINT"[146]"B$
  71. 482 DY=DY+1:R=R+4:C=4:RETURN
  72. 490 POKE214,R:POKE211,C:SYS58732:PRINTB$:R=22:C=14:DY=31:RETURN
  73. 500 POKE214,R:POKE211,C:SYS58732:PRINTB$:C=C+5:DY=DY+1:RETURN
  74. 510 POKE214,R:POKE211,C:SYS58732:PRINTB$:C=C-5:DY=DY-1:RETURN
  75. 520 POKE214,R:POKE211,C:SYS58732:PRINTB$:R=R-4:DY=DY-7:RETURN
  76. 530 POKE214,R:POKE211,C:SYS58732:PRINTB$:R=R+4:DY=DY+7:RETURN
  77. 600 IFR>6THEN700
  78. 602 GOSUB1200
  79. 604 IFC>5THEN608
  80. 605 PRINT"[145][153] 1ST DAY OF ADVENT [146]"
  81. 606 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  82. 608 IFC>10THEN620
  83. 609 PRINT"[145][153] 1ST DAY OF HANUKKAH [146]"
  84. 610 PRINT"[158]9:00 PM - [155]AMIGA POKER NIGHT":PRINTSPC(11)"PK"
  85. 612 PRINTSPC(11)"[155]WEEKLY HOBBY RTC":PRINTSPC(11)"HOBBY"
  86. 614 PRINT"[158]10:00 PM - [155]GIFT IDEAS FOR LAPTOP"
  87. 616 PRINTSPC(12)"USERS! LAPTOPS"
  88. 618 GOSUB1250:BH=1:GOTO0
  89. 620 IFC>15THEN622
  90. 621 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  91. 622 IFC>20THEN630
  92. 624 PRINT"[158]9:00 PM - [155]KOREA NIGHT IN...":PRINTSPC(11)"AIR[155]"
  93. 626 PRINT"[158]9:30 PM - [155]WHAT'S UP WITH MP GAMES?":PRINTSPC(11)"ASK THE SYSOP"
  94. 628 PRINTSPC(11)"MPGRT":GOSUB1250:BH=1:GOTO0
  95. 630 IFC>25THEN638
  96. 632 PRINT"[158]6:00 PM - [155]INVESTORS QUESTIONS":PRINTSPC(11)"ANSWERED! INVESTORS"
  97. 634 PRINT"[158]10:00 PM - [155]SEEING IS BELIEVING:"
  98. 636 PRINTSPC(12)"V-V-VIDEO WITH YURI AMIGA":GOSUB1250:BH=1:GOTO0
  99. 638 IFC>30THENPRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  100. 640 PRINT"[158]9:00 PM - [155]NEW PLAYERS WELCOME TO"
  101. 642 PRINTSPC(11)"REVERSI LEAGUE! REVERSI"
  102. 644 PRINT"[158]9:30 PM - [155]CHAT WITH SCORPIA AND"
  103. 646 PRINTSPC(11)"THE GAMERS SCORPIA":GOSUB1250:BH=1:GOTO0
  104. 700 IFR>10THEN800
  105. 701 GOSUB1200
  106. 702 IFC>5THEN720
  107. 704 PRINT"[158]7:15 PM - [155]HOLIDAY CLIP ART TO"
  108. 706 PRINTSPC(11)"SPRUCE UP YOUR PAPERS":PRINTSPC(11)"WORDPERFECT"
  109. 708 PRINT"[158]8:00 PM - [155]GIFT IDEAS FOR PROGRAMMERS"
  110. 710 PRINTSPC(11)"ON YOUR LIST BORLAND[155]"
  111. 712 PRINTSPC(11)"KILLERS KLUB A-MAZE-ING[155]"
  112. 714 PRINT"[158]10:00 PM - [155]JERRY POURNELLE AND"
  113. 716 PRINTSPC(12)"MIKE BANKS DISCUSS THEIR"
  114. 718 PRINTSPC(12)"NEW BOOK! HOSB":GOSUB1250:BH=1:GOTO0
  115. 720 IFC>10THEN722
  116. 721 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  117. 722 IFC>15THEN726
  118. 723 PRINT"[158]9:00 PM - [155]THE FINE ART OF ONLINE"
  119. 724 PRINTSPC(11)"COOKERY HOBBY":GOSUB1250:BH=1:GOTO0
  120. 726 IFC>20THEN728
  121. 727 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  122. 728 IFC>25THEN740
  123. 730 PRINT"[158]9:30 PM - [155]JSR THREADING WITH GUEST"
  124. 732 PRINTSPC(11)"MIKE HASS FORTH"
  125. 734 PRINTSPC(11)"[155]QUANTUM LEAP CONFERENCE!":PRINTSPC(11)"SFRT"
  126. 736 PRINT"[158]12:30 AM - [155]STELLAR EMPEROR RESET":PRINTSPC(12)"CONFERENCE MPGRT"
  127. 738 GOSUB1250:BH=1:GOTO0
  128. 740 IFC>30THEN742
  129. 741 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  130. 742 PRINT"[158]7:15 PM - [155]BIT-MAPPED IMAGES IN"
  131. 744 PRINTSPC(11)"WORDPERFECT WORDPERFECT"
  132. 746 PRINT"[158]11:00 PM - [155]LATE NIGHT ROCK 'N'":PRINTSPC(12)"ROLLERS MUSIC"
  133. 748 GOSUB1250:BH=1:GOTO0
  134. 800 IFR>14THEN900
  135. 801 GOSUB1200
  136. 802 IFC>5THEN806
  137. 803 PRINT"[145][153] BILL OF RIGHTS DAY [146]"
  138. 804 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  139. 806 IFC>10THEN814
  140. 808 PRINT"[158]9:00 PM - [155]MACINTOSH POKER NIGHT":PRINTSPC(11)"PK"
  141. 810 PRINT"[158]10:30 PM - [155]SHARE YOUR LAPTOP TRICKS":PRINTSPC(12)"& TIPS LAPTOPS"
  142. 812 GOSUB1250:BH=1:GOTO0
  143. 814 IFC>15THEN816
  144. 815 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  145. 816 IFC>20THEN830
  146. 820 PRINT"[158]9:00 PM - [155]CHESS CLUB NIGHT CHESS"
  147. 822 PRINT"[158]10:00 PM - [155]ATARI ONLINE; SUPPORT"
  148. 824 PRINTSPC(12)"FROM THE SOURCE":PRINTSPC(12)"ST"
  149. 826 GOSUB1250:BH=1:GOTO0
  150. 830 IFC>25THEN832
  151. 831 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  152. 832 IFC>30THEN840
  153. 834 PRINT"[158]9:00 PM - [155]REVERSI LEAGUE NIGHT REVERSI"
  154. 836 PRINT"[158]10:30 PM - [155]PARIS IN SPRING?  NO,"
  155. 838 PRINTSPC(12)"FLORIDA IN WINTER! FLORIDA":GOSUB1250:BH=1:GOTO0
  156. 840 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  157. 900 IFR>18THEN1000
  158. 901 GOSUB1200
  159. 902 IFC>5THEN904
  160. 903 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  161. 904 IFC>10THEN914
  162. 906 PRINT"[158]9:00 PM - [155]ATARI ST POKER NIGHT PK"
  163. 908 PRINT"[158]10:30 PM - [155]WHAT FEATURES ARE MISSING"
  164. 910 PRINTSPC(12)"IN THE LAPTOPS?  LAPTOPS"
  165. 912 GOSUB1250:BH=1:GOTO0
  166. 914 IFC>15THEN920
  167. 915 PRINT"[145][153] CHRISTMAS EVE [146]"
  168. 916 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
  169. 918 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  170. 920 IFC>20THEN924
  171. 921 PRINT"[145][153] CHRISTMAS DAY [146]"
  172. 922 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
  173. 923 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  174. 924 IFC>25THEN934
  175. 926 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
  176. 928 PRINT"[158]9:30 PM - [155]WORDPERFECT UNDER THE"
  177. 930 PRINTSPC(11)"TREE? BEGINNERS' TIPS!":PRINTSPC(11)"WORDPERFECT"
  178. 932 GOSUB1250:BH=1:GOTO0
  179. 934 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
  180. 935 PRINT"[158]NO SPECIAL EVENTS TODAY."
  181. 936 GOSUB1250:BH=1:GOTO0
  182. 1000 IFR>22THEN390
  183. 1001 GOSUB1200
  184. 1002 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
  185. 1004 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
  186. 1200 SYS52480:PRINT"[156]"BS$:PRINT"[155]SPECIAL EVENTS FOR DEC."DY"[157], 1991"
  187. 1201 PRINT"[152](TIMES LISTED ARE EASTERN)"
  188. 1202 POKE214,23:SYS58732:PRINT"[156]"BS$"":RETURN
  189. 1250 POKE214,22:SYS58732:PRINT"[152](PRESS ANY KEY)"
  190. 1252 GETY$:IFY$=""THEN1252
  191. 1254 RETURN
  192. 60000 DATA 169,19,32,210,255,162,0,160,0,169,166,32,210,255,169,157,32,210,255
  193. 60002 DATA 169,32,32,210,255,200,192,40,208,236,232,224,25,208,229,169,147,32
  194. 60004 DATA 210,255,96
  195.