home *** CD-ROM | disk | FTP | other *** search
- 0 PRINT"[147]";:POKE650,255:PRINTCHR$(142)CHR$(8)"";
- 10 POKE53280,00:POKE53281,00:POKE2023,032:POKE56295,01
- 20 POKE53282,01:POKE53283,02:POKE53284,03
- 25 IFJK=1THEN100
- 30 FORT=52480TO52519:READA:POKET,A:NEXT:JK=1
- 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] ";
- 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";
- 120 PRINT"1[159] [152][146] [152] [159] 1991[159] [146][221][151][192][192][149][192][192][221]";
- 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]";
- 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]";
- 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]";
- 160 PRINT" [221][152] [221][152] [221][152] [221][152] [221][152] [221][152] [221][152][192]";
- 170 PRINT"[192][129][192][192][221][152] [221][152] [221][152] [221][152] [221][152] [221][152] [221][152] ";
- 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]";
- 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] ";
- 200 PRINT" 14[221][155][192][192][158][192][192][221][152] [221][152] [221][152] [221][152] [221][152] [221][152] ";
- 210 PRINT" [221][152] [221][155][192][192][158][192][192][221][152] [221][152] [221][152] [221][152] [221][152] ";
- 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]";
- 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";
- 240 PRINT"9[221][152] 20[221][152] 21[221][155][192][192][158][192][192][221][152] [221][152] [221][152] [221][152] ";
- 250 PRINT" [221][152] [221][152] [221][152] [221][155][192][192][158][192][192][221][152] [221][152] [221][152] ";
- 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]";
- 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";
- 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] ";
- 290 PRINT" [221][152] [221][152] [221][152] [221][152] [221][152] [221][152][192][192][129][192][192][221][152] ";
- 300 PRINT" [221][152] [221][152] [221][152] [221][152] [221][152] [221][152] [221][152][192][192][129][192]";
- 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";
- 320 PRINT"9[221][152] 30[221][152] 31[221][152] [221][152] [221][152] [221][152] [221][151][192][192][149][192]";
- 330 PRINT"[192][221][152] [221][152] [221][152] [221][152] [221][152] [221][152] [221][152] ";
- 340 PRINT"[221][151][192][192][149][192][192][221][152] [221][152] [221][152] [221][152] [221][152] [221][152] ";
- 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]";
- 360 PRINT"[189] ";
- 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]"
- 365 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
- 370 PRINT""SPC(9)"DECEMBER GENIE EVENTS!"
- 375 A$="[169][146][169][159]":B$=" "
- 380 POKE214,21:SYS58732:PRINTSPC(18)"[159] USE CRSR KEYS TO "
- 382 PRINTSPC(18)"[159] MOVE; RETURN WILL "
- 384 PRINTSPC(18)"[159] SELECT; Q QUITS! "
- 385 IFBH=1THENBH=0:GOTO388
- 386 C=4:R=6:DY=1
- 388 POKE214,R:POKE211,C:SYS58732:PRINT"[146]"A$
- 390 GETAA$:IFAA$=""THEN390
- 392 IFAA$="[157]"ANDDY=1THENGOSUB490:GOTO388
- 394 IFAA$=""ANDDY=31THENPOKE214,R:POKE211,C:SYS58732:PRINT"[146]"B$:GOTO386
- 395 IFAA$=""ORAA$="[147]"THENPOKE214,R:POKE211,C:SYS58732:PRINTB$:GOTO386
- 396 IFAA$="[145]"ANDR=6THEN390
- 398 IFAA$=""ANDR=22THEN390
- 400 IFAA$=""ANDC=34THENGOSUB480:GOTO388
- 402 IFAA$="[157]"ANDC=4THENGOSUB470:GOTO388
- 404 IFAA$=""ANDDY+7>31THEN390
- 406 IFAA$=""THENGOSUB500:GOTO388
- 408 IFAA$="[157]"THENGOSUB510:GOTO388
- 410 IFAA$="[145]"THENGOSUB520:GOTO388
- 412 IFAA$=""THENGOSUB530:GOTO388
- 414 IFAA$=CHR$(13)THEN600
- 416 IFAA$="Q"ORAA$="[209]"THEN450
- 418 GOTO 390
- 450 PRINT"":SYS52480:POKE53280,14:POKE53281,6:POKE646,14:PRINTCHR$(9)CHR$(14)
- 452 PRINT" [199][197]NIE [197]VENTS [195]ALENDAR - [196]ECEMBER 1991 "
- 454 PRINT"[199][197]NIE IS A REGISTERED TRADEMARK OF"
- 456 PRINT"[199]ENERAL [197]LECTRIC, [201]NC."
- 458 PRINT"[208]ROGRAM BY [208]AUL [205]C[193]LEER."
- 460 PRINT"[195]OMMENTS, COMPLAINTS, AND QUESTIONS"
- 462 PRINT"WELCOMED! [205]AIL THEM TO [196].[205][195][193][204][197][197][210]1."
- 464 PRINT:END
- 470 IFDY=1THENRETURN
- 472 POKE214,R:POKE211,C:SYS58732:PRINT"[146]"B$
- 474 DY=DY-1:R=R-4:C=34:RETURN
- 480 POKE214,R:POKE211,C:SYS58732:PRINT"[146]"B$
- 482 DY=DY+1:R=R+4:C=4:RETURN
- 490 POKE214,R:POKE211,C:SYS58732:PRINTB$:R=22:C=14:DY=31:RETURN
- 500 POKE214,R:POKE211,C:SYS58732:PRINTB$:C=C+5:DY=DY+1:RETURN
- 510 POKE214,R:POKE211,C:SYS58732:PRINTB$:C=C-5:DY=DY-1:RETURN
- 520 POKE214,R:POKE211,C:SYS58732:PRINTB$:R=R-4:DY=DY-7:RETURN
- 530 POKE214,R:POKE211,C:SYS58732:PRINTB$:R=R+4:DY=DY+7:RETURN
- 600 IFR>6THEN700
- 602 GOSUB1200
- 604 IFC>5THEN608
- 605 PRINT"[145][153] 1ST DAY OF ADVENT [146]"
- 606 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 608 IFC>10THEN620
- 609 PRINT"[145][153] 1ST DAY OF HANUKKAH [146]"
- 610 PRINT"[158]9:00 PM - [155]AMIGA POKER NIGHT":PRINTSPC(11)"PK"
- 612 PRINTSPC(11)"[155]WEEKLY HOBBY RTC":PRINTSPC(11)"HOBBY"
- 614 PRINT"[158]10:00 PM - [155]GIFT IDEAS FOR LAPTOP"
- 616 PRINTSPC(12)"USERS! LAPTOPS"
- 618 GOSUB1250:BH=1:GOTO0
- 620 IFC>15THEN622
- 621 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 622 IFC>20THEN630
- 624 PRINT"[158]9:00 PM - [155]KOREA NIGHT IN...":PRINTSPC(11)"AIR[155]"
- 626 PRINT"[158]9:30 PM - [155]WHAT'S UP WITH MP GAMES?":PRINTSPC(11)"ASK THE SYSOP"
- 628 PRINTSPC(11)"MPGRT":GOSUB1250:BH=1:GOTO0
- 630 IFC>25THEN638
- 632 PRINT"[158]6:00 PM - [155]INVESTORS QUESTIONS":PRINTSPC(11)"ANSWERED! INVESTORS"
- 634 PRINT"[158]10:00 PM - [155]SEEING IS BELIEVING:"
- 636 PRINTSPC(12)"V-V-VIDEO WITH YURI AMIGA":GOSUB1250:BH=1:GOTO0
- 638 IFC>30THENPRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 640 PRINT"[158]9:00 PM - [155]NEW PLAYERS WELCOME TO"
- 642 PRINTSPC(11)"REVERSI LEAGUE! REVERSI"
- 644 PRINT"[158]9:30 PM - [155]CHAT WITH SCORPIA AND"
- 646 PRINTSPC(11)"THE GAMERS SCORPIA":GOSUB1250:BH=1:GOTO0
- 700 IFR>10THEN800
- 701 GOSUB1200
- 702 IFC>5THEN720
- 704 PRINT"[158]7:15 PM - [155]HOLIDAY CLIP ART TO"
- 706 PRINTSPC(11)"SPRUCE UP YOUR PAPERS":PRINTSPC(11)"WORDPERFECT"
- 708 PRINT"[158]8:00 PM - [155]GIFT IDEAS FOR PROGRAMMERS"
- 710 PRINTSPC(11)"ON YOUR LIST BORLAND[155]"
- 712 PRINTSPC(11)"KILLERS KLUB A-MAZE-ING[155]"
- 714 PRINT"[158]10:00 PM - [155]JERRY POURNELLE AND"
- 716 PRINTSPC(12)"MIKE BANKS DISCUSS THEIR"
- 718 PRINTSPC(12)"NEW BOOK! HOSB":GOSUB1250:BH=1:GOTO0
- 720 IFC>10THEN722
- 721 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 722 IFC>15THEN726
- 723 PRINT"[158]9:00 PM - [155]THE FINE ART OF ONLINE"
- 724 PRINTSPC(11)"COOKERY HOBBY":GOSUB1250:BH=1:GOTO0
- 726 IFC>20THEN728
- 727 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 728 IFC>25THEN740
- 730 PRINT"[158]9:30 PM - [155]JSR THREADING WITH GUEST"
- 732 PRINTSPC(11)"MIKE HASS FORTH"
- 734 PRINTSPC(11)"[155]QUANTUM LEAP CONFERENCE!":PRINTSPC(11)"SFRT"
- 736 PRINT"[158]12:30 AM - [155]STELLAR EMPEROR RESET":PRINTSPC(12)"CONFERENCE MPGRT"
- 738 GOSUB1250:BH=1:GOTO0
- 740 IFC>30THEN742
- 741 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 742 PRINT"[158]7:15 PM - [155]BIT-MAPPED IMAGES IN"
- 744 PRINTSPC(11)"WORDPERFECT WORDPERFECT"
- 746 PRINT"[158]11:00 PM - [155]LATE NIGHT ROCK 'N'":PRINTSPC(12)"ROLLERS MUSIC"
- 748 GOSUB1250:BH=1:GOTO0
- 800 IFR>14THEN900
- 801 GOSUB1200
- 802 IFC>5THEN806
- 803 PRINT"[145][153] BILL OF RIGHTS DAY [146]"
- 804 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 806 IFC>10THEN814
- 808 PRINT"[158]9:00 PM - [155]MACINTOSH POKER NIGHT":PRINTSPC(11)"PK"
- 810 PRINT"[158]10:30 PM - [155]SHARE YOUR LAPTOP TRICKS":PRINTSPC(12)"& TIPS LAPTOPS"
- 812 GOSUB1250:BH=1:GOTO0
- 814 IFC>15THEN816
- 815 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 816 IFC>20THEN830
- 820 PRINT"[158]9:00 PM - [155]CHESS CLUB NIGHT CHESS"
- 822 PRINT"[158]10:00 PM - [155]ATARI ONLINE; SUPPORT"
- 824 PRINTSPC(12)"FROM THE SOURCE":PRINTSPC(12)"ST"
- 826 GOSUB1250:BH=1:GOTO0
- 830 IFC>25THEN832
- 831 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 832 IFC>30THEN840
- 834 PRINT"[158]9:00 PM - [155]REVERSI LEAGUE NIGHT REVERSI"
- 836 PRINT"[158]10:30 PM - [155]PARIS IN SPRING? NO,"
- 838 PRINTSPC(12)"FLORIDA IN WINTER! FLORIDA":GOSUB1250:BH=1:GOTO0
- 840 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 900 IFR>18THEN1000
- 901 GOSUB1200
- 902 IFC>5THEN904
- 903 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 904 IFC>10THEN914
- 906 PRINT"[158]9:00 PM - [155]ATARI ST POKER NIGHT PK"
- 908 PRINT"[158]10:30 PM - [155]WHAT FEATURES ARE MISSING"
- 910 PRINTSPC(12)"IN THE LAPTOPS? LAPTOPS"
- 912 GOSUB1250:BH=1:GOTO0
- 914 IFC>15THEN920
- 915 PRINT"[145][153] CHRISTMAS EVE [146]"
- 916 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
- 918 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 920 IFC>20THEN924
- 921 PRINT"[145][153] CHRISTMAS DAY [146]"
- 922 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
- 923 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 924 IFC>25THEN934
- 926 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
- 928 PRINT"[158]9:30 PM - [155]WORDPERFECT UNDER THE"
- 930 PRINTSPC(11)"TREE? BEGINNERS' TIPS!":PRINTSPC(11)"WORDPERFECT"
- 932 GOSUB1250:BH=1:GOTO0
- 934 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
- 935 PRINT"[158]NO SPECIAL EVENTS TODAY."
- 936 GOSUB1250:BH=1:GOTO0
- 1000 IFR>22THEN390
- 1001 GOSUB1200
- 1002 PRINT"NON-PRIME RATES 24 HOURS THE REST":PRINT"OF THE YEAR!"
- 1004 PRINT"[158]NO SPECIAL EVENTS TODAY.":GOSUB1250:BH=1:GOTO0
- 1200 SYS52480:PRINT"[156]"BS$:PRINT"[155]SPECIAL EVENTS FOR DEC."DY"[157], 1991"
- 1201 PRINT"[152](TIMES LISTED ARE EASTERN)"
- 1202 POKE214,23:SYS58732:PRINT"[156]"BS$"":RETURN
- 1250 POKE214,22:SYS58732:PRINT"[152](PRESS ANY KEY)"
- 1252 GETY$:IFY$=""THEN1252
- 1254 RETURN
- 60000 DATA 169,19,32,210,255,162,0,160,0,169,166,32,210,255,169,157,32,210,255
- 60002 DATA 169,32,32,210,255,200,192,40,208,236,232,224,25,208,229,169,147,32
- 60004 DATA 210,255,96
-