10 POKE56,56:CLR:POKE788,49:TQ=TI:POKE53371,0 20 POKE53281,0:POKE53280,0 30 DV=PEEK(186):IFDV<8THENDV=8 40 SYS57812"THEME FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493 50 SYS57812"THEME MOUSE 6000",DV,0:POKE780,0:POKE781,0:POKE782,96:SYS65493 60 SYS57812"THEME PLAYER",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493 70 ML=6*4096:MV=ML+177:POKEMV+1,64:V=53248:SD=49152 80 POKEV+21,0:SYSML:SYSML+6,704 90 SYS49615 100 POKE53272,31 107 : 108 :REM SCREEN 109 : 110 SYSML+30,0,39,0,24,254,2+32 120 SYSML+30,1,38,1,7,160,7+16 130 PRINT"";:SYSML+27,2,"[196]AVE [205]ARQUIS'":PRINT"[129]"; 140 SYSML+27,3,"[176][174][176][174][176][192][174][176] [174][178][176][192][174] [176][178][174][174] [176][176][192][174][176][174][176][174][176][192][174]" 150 SYSML+27,4,"[221][173][189][221][221] [221][173][174][176][189][221][171][179] [221] [171][192][179][171][179] [221][173][189][221][171][179]" 160 SYSML+27,5,"[189] [173][173][192][189] [173][189] [177][173][192][189] [177] [189] [173][173][192][189][189] [173][173][192][189]" 170 PRINT"";:SYSML+27,6,"[195] [207] [206] [212] [197] [211] [212]" 180 SYSML+30,3,19,10,23,160,7+16 190 SYSML+30,20,36,10,23,160,7+16 200 FORI=0TO19 210 SYSML+12,7-17*(I>11),11+I+12*(I>11),"[212]HEME"+STR$(I+1) 220 NEXT 230 SYSML+12,22,19,"[208]RINT [194]ALLOT" 240 SYSML+12,24,20,"[208]LAY [193]LL" 250 SYSML+12,24,21,"[195]REDITS" 260 SYSML+12,23,22,"[209]UIT TO [204][211]" 270 POKEMV+11,2 280 SYSML+21,11,11 287 : 288 :REM MAIN LOOP 289 : 290 SYSML+156,2,4,18,21,35,11,22,5,1,"A" 300 PK=SL% 310 IFPK=0THEN290 320 IFPK=21THENGOSUB450:GOTO290 330 IFPK=22THENGOSUB1300:GOTO290 340 IFPK=23THENGOSUB1210:GOTO290 350 IFPK=24THENSYSML+3:POKEV+21,0:GOTO40000 357 : 358 :REM PLAY A SONG 359 : 360 POKEV+21,0:SYSML+54,"THEME"+STR$(PK)+".MUS",DV,66*256:POKEV+21,3 370 POKE781,0:POKE782,66 380 SYS49664 390 SYSML+39,160:SYSML+30,7,32,14,16,160,8+16 400 SYSML+27,15,"[155] [212]HEME"+STR$(PK)+"[154] IS PLAYING" 402 POKE49152,7 410 SYSML+9 420 IFL2%THENSYS49897:POKE49152,0:POKE54296,0:SYSML+42,160:GOTO290 430 IFPEEK(49152)=0THENSYSML+42,160:GOTO290 440 GOTO410 447 : 448 :REM BALLOT 449 : 450 SYSML+39,168 460 SYSML+30,14,26,12,14,160,8+16 470 SYSML+30,14,26,17,19,160,8+16 480 SYSML+15,1,14,26,12,14 490 SYSML+15,2,14,26,17,19 500 SYSML+12,18,13,"[208][154][210][201][206][212]" 510 SYSML+12,16,18,"[198][154][207][210][199][197][212] [201][212] 520 [158]ML[170]9 530 [158]ML[170]60,"PF" 540 [139]CR%[178]2[176]I%[178]2[167][158]ML[170]42,168:[158]ML[170]24,10:[142] 550 [139]CR%[179][177]1[175]I%[179][177]1[167]520 560 G$[178]" " 570 H$[178]"..............................." 580 [159]4,4,7 590 [157]4 600 [153]G$"(null)AME:......................"H$ 610 [153] 620 [153]G$"ATNDDRESS:..................."H$ 630 [153] 640 [153]G$"LENITY/(null)TATE:"H$"(null)RIGHT$(null):............ 650 PRINT 660 PRINTG$"[195]IRCLE ONE LETTER PER GROUP. [193]S A TIE-BREAKER, WRITE THE NAME OF 662 [153]G$"THE SONG ON THE DOTTED LINE. (null)END BALLOT TO (null)(null) (null)LEFT$VAL(null)VAL LEN(null)(null)(null)VAL(null)(null) 664 PRINTG$"606 [195]OMMON [211]TREET, [211]HREVEPORT [204][193] 71101. [196]EADLINE IS [198]EBRUARY 28, 1999 670 [153] 680 [153]G$"1. "H$" 11. "H$ 690 [153]G$" ATN. (null)HE (null)HOMAS LENROWN ATNFFAIR ATN. (null)HE (null)ANDPIPER 700 PRINTG$" [194]. [201]CE [195]ASTLES [194]. [204]OVE [211]TORY 710 [153]G$" LEN. (null)IVE AND (null)ET STR$IE LEN. (null)OMEWHERE RIGHT$N (null)IME 720 PRINTG$" [196]. [212]HE [211]ANDPIPER [196]. [198]AME 730 [153]G$"2. "H$" 12. "H$ 740 [153]G$" ATN. PEEKIG PEEKROADCAST OF 1938 ATN. (null)OMEO AND MID$ULIET 750 PRINTG$" [194]. [212]HE [198]LEET'S [201]N [194]. [204]OVE [211]TORY 760 [153]G$" LEN. (null)HE (null)IZARD OF (null)Z LEN. STR$R. (null)HIVAGO 770 PRINTG$" [196]. [204]AURA [196]. [211]OMEWHERE [201]N [212]IME 780 [153]G$"3. "H$" 13. "H$ 790 [153]G$" ATN. PEEKIG PEEKROADCAST OF 1938 ATN. (null)WEET PEEKIRD OF (null)OUTH 800 PRINTG$" [194]. [193]N [193]MERICAN [201]N [208]ARIS [194]. [215]HAT'S [206]EW [208]USSYCAT? 810 [153]G$" LEN. (null)ANHATTAN LEN. RIGHT$CE LENASTLES 820 PRINTG$" [196]. [196]OCTOR [218]HIVAGO [196]. [212]HE [212]HOMAS [195]ROWN [193]FFAIR 830 [153]G$"4. "H$" 14. "H$ 840 [153]G$" ATN. PEEKEN ATN. PEEKEN 850 PRINTG$" [194]. [199]OLDFINGER [194]. [199]OLDFINGER 860 [153]G$" LEN. (null)OVE (null)ETTERS LEN. (null)AURA 870 PRINTG$" [196]. [204]AURA [196]. [201]CE [195]ASTLES 880 [153]G$"5. "H$" 15. "H$ 890 [153]G$" ATN. (null)OVE RIGHT$S ATN (null)ANY-(null)PLENDORED (null)HING ATN. (null)WEET LENHARITY 900 PRINTG$" [194]. [204]AURA [194]. [212]HE [199]REATEST 910 [153]G$" LEN. CHR$OLDFINGER LEN. (null)HE (null)PY (null)HO (null)OVED (null)E 920 PRINTG$" [196]. [204]OVE [204]ETTERS [196]. [210]OCKY 930 [153]G$"6. "H$" 16. "H$ 940 [153]G$" ATN. (null)WEET LENHARITY ATN. (null)OMEO AND MID$ULIET 950 PRINTG$" [194]. [210]OCKY [194]. [197]LVIRA [205]ADIGAN 960 [153]G$" LEN. (null)OU (null)IGHT (null)P (null)Y (null)IFE LEN. (null)OVE (null)TORY 970 PRINTG$" [196]. [207]RDINARY [208]EOPLE [196]. [193]MADEUS 980 [153]G$"7. "H$" 17. "H$ 990 [153]G$" ATN. (null)OVE (null)E (null)ONIGHT ATN. (null)OVE (null)TORY 1000 PRINTG$" [194]. [196]ANGEROUS [205]OONLIGHT [194]. [210]OMEO AND [202]ULIET 1010 [153]G$" LEN. (null)HE ASCLEET'S RIGHT$N LEN. (null)HE CHR$ODFATHER 1020 PRINTG$" [196]. [211]WEET [194]IRD OF [217]OUTH [196]. [212]OOTSIE 1030 [153]G$"8. "H$" 18. "H$ 1040 [153]G$" ATN. PEEKEN ATN. (null)OVE (null)TORY 1050 PRINTG$" [194]. [204]OVE [201]S [193] [205]ANY-[211]PLENDORED [212]HING [194]. [210]OMEO AND [202]ULIET 1060 [153]G$" LEN. (null)RDINARY (null)EOPLE LEN. (null)HE CHR$ODFATHER 1070 PRINTG$" [196]. [211]WEET [195]HARITY [196]. [204]OVE [205]E [212]ONIGHT 1080 [153]G$"9. "H$" 19. "H$ 1090 [153]G$" ATN. VALVERY (null)IGHT ATNT VALIGHT ATN. (null)OOTSIE 1100 PRINTG$" [194]. [212]HE [215]IZARD OF [207]Z [194]. [205]EET [205]E IN [211]T. [204]OUIS 1110 [153]G$" LEN. (null)HE ASCLEET'S RIGHT$N LEN. (null)OMEWHERE RIGHT$N (null)IME 1120 PRINTG$" [196]. [212]HAT'S [197]NTERTAINMENT [196]. [212]HE [215]IZARD OF [207]Z 1130 [153]G$"10."H$" 20. "H$ 1140 [153]G$" ATN. PEEKEN ATN. (null)HE (null)PY (null)HO (null)OVED (null)E 1150 PRINTG$" [194]. [199]OLDFINGER [194]. [212]HE [212]HOMAS [195]ROWN [193]FFAIR 1160 [153]G$" LEN. (null)HE (null)INK (null)ANTHER LEN. ASCOR (null)OUR VALYES (null)NLY 1170 PRINTG$" [196]. [210]OCKY [196]. [212]HE [211]ANDPIPER 1172 [153] 1180 [160]4 1190 [158]ML[170]42,168:[151]186,DV 1200 [142] 1207 : 1208 :[143] CREDITS 1209 : 1210 [158]ML[170]39,168 1220 [158]ML[170]30,3,36,10,23,160,8[170]16 1230 [158]ML[170]12,7,14,"CONT(null)USIC LENLIPS -LIST STR$AVE (null)ARQUIS 1240 SYSML+12,7,16,"[154][208]ROGRAM -[155] [203]NEES [195]ALHOON 1250 [158]ML[170]12,7,18,"CONT(null)(null). (null)(null)(null)(null)VAL -LIST (null)EE (null)OVAK 1260 SYSML+9 1270 IFL2%=0THEN1260 1280 SYSML+42,168 1290 RETURN 1297 : 1298 :REM PLAY ALL 1299 : 1300 SYSML+39,168 1310 FORPK=1TO20 1320 POKEV+21,0:SYSML+54,"THEME"+STR$(PK)+".MUS",DV,66*256:POKEV+21,3 1330 POKE781,0:POKE782,66 1340 SYS49664 1350 SYSML+39,160:SYSML+30,7,32,14,16,160,8+16 1360 SYSML+27,15,"[155] [212]HEME"+STR$(PK)+"[154] IS PLAYING" 1362 POKE49152,7 1370 SYSML+9 1380 SYSML+60,"Q" 1390 IFI%=1THENPK=20:POKE49152,0:SYS49897:POKE54296,0:GOTO1430 1400 IFL2%THENSYS49897:POKE49152,0:POKE54296,0:GOTO1430 1410 IFPEEK(49152)=0THENPOKE54296,0:SYSML+42,168:GOTO1430 1420 GOTO1370 1430 NEXT 1440 SYSML+42,168 1450 GOTO290 10000 D=PEEK(186):N$="0:B.THEME":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END 40000 FORI=8TO29:POKE820+I,I:NEXT:IFDV>8ANDDV<30THENPOKE828,DV:POKE820+DV,8 40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030 40020 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END 40030 FORJ=8TO29:I=PEEK(820+J):IFI=14THENNEXT 40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060 40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070 40060 NEXT:RETURN 40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23 40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I 40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END