1 REM SIDIRQ PRESENTER 12/28/84 2 IFPEEK(49153)=11THENIFPEEK(49154)=192THEN5 3 LOAD"SIDIRQ V3",8,1 5 IFPEEK(51201)<>12ORPEEK(51202)<>200ORPEEK(52222)<>5THEN7 6 GOTO8 7 LOAD"ROUTINES V4",8,1 8 IFPEEK(927)=248THEN10 9 LOAD"MENU.SP1",8,1 10 POKE49161,0:POKE49162,160:OLD$="":GOTO6000 1000 POKE646,C%(2):PRINT"[147]"TL$:POKEV+33,C%(1):POKE1021,17:LP=1:POKE646,C%(4) 1010 PRINTWT$;:FORI=2TO17:PRINT"[221]"SPC(38)"[221]";:NEXT:PRINTWB$;:POKE646,C%(3) 1020 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"; 1025 PRINT"[221]F1[146][208]AGE [194]ACK [221][208][146]RINTER[221][202]OYSTICK[146] SCROLLS[221]"; 1030 PRINT"[221]F3[146][211]CROLL [194]ACK[221][195][146]OLORS [221] ([208]ORT 1) [221]"; 1035 PRINT"[221]F5[146][211]CROLL [198]WD.[221]"MU$" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"; 1040 PRINT"[221]F7[146][208]AGE [198]WD. [221][216][146]=[197]XIT [221]"SPC((16-LEN(MO$))/2)MO$TAB(39)"[221]"; 1045 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"; 1050 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE646,C%(5):SYS51203 1055 POKE2023,125:POKE56295,C%(3):RETURN 1100 POKE783,PEEK(783)AND254:POKE781,Y%:POKE782,X%:SYS65520:RETURN 1200 INPUT#15,ER%,ER$,ET%,ES% 1205 IF(ER%>19ANDER%<30)ORER%=66ORER%=67ORER%=71ORER%=73THEN1250 1210 RETURN 1250 PRINT"[147][212]HERE HAS BEEN A DISK ERROR." 1251 PRINT 1252 PRINT"[208]RESS TO CONTINUE." 1253 GETK$:IF K$=""THEN 1253 1261 RUN 1300 IFPEEK(788)<>49THENRETURN 1305 POKES+4,20:POKES,RND(.)*256:POKES+1,RND(.)*256:POKES+14,RND(.)*256 1310 POKES+15,RND(.)*256:POKES+4,21:RETURN 1400 GOSUB1300:FORI=27TO24STEP-1:WAITR,C:POKER,I:NEXT 1405 FORI=24TO29:WAITR,C:WAITR,C:POKER,I:NEXT 1410 FORI=29TO27STEP-1:WAITR,C:WAITR,C:WAITR,C:WAITR,C:POKER,I:NEXT:RETURN 1450 GOSUB1300:FORI=27TO31:WAITR,C:POKER,I:NEXT 1455 FORI=31TO25STEP-1:WAITR,C:WAITR,C:POKER,I:NEXT 1460 FORI=25TO27:WAITR,C:WAITR,C:WAITR,C:WAITR,C:POKER,I:NEXT:RETURN 1500 IFF$=OLD$THENRETURN 1501 OLD$=F$ 1502 OPEN8,8,8,F$:GOSUB1200:IFER%=62THENRETURN 1505 X%=3:Y%=10:GOSUB1100:PRINT"[158][204]OADING:": 1510 LL=1:POKE781,8:SYS65478 1515 SYSLI,B$:T$(LL)=LEFT$(B$,38):IFST=.THENLL=LL+1:GOTO1515 1520 SYS65484:CLOSE8:GOSUB1200:FORI=LL+1TOLL+20:T$(I)="":NEXT:RETURN 2000 GETK$:J%=NOTPEEK(J)AND31:IFK$=""ANDJ%=.THEN2000 2005 IFK$="\"THEN60000:RUN A PROGRAM 2010 IFK$="[145]"ORK$=""ORK$="[134]"ORJ%=1THENGOSUB2100:GOTO2000 2015 IFK$=""ORK$="[157]"ORK$="[135]"ORJ%=2THENGOSUB2200:GOTO2000 2020 IFK$="[133]"THEN2300 2025 IFK$="[136]"THEN2400 2030 IFK$="P"ORK$="[208]"ORK$="[175]"ORK$=""THEN50000 2035 IFK$="C"ORK$="[195]"ORK$="[188]"ORK$=""THEN2500 2040 IFK$="M"ORK$="[205]"ORK$="[167]"THENMU%=-1:GOSUB2700:MU$="[209][146]UIET":GOTO2800 2045 IFK$="Q"ORK$="[209]"ORK$="[171]"THENMU%=0:GOSUB2705:MU$="[205][146]USIC":GOTO2800 2050 IFK$="X"ORK$="[216]"ORK$="[189]"ORK$=""ORJ%=16THEN5000 2055 GOTO2000 2100 IFLP=1THEN1450 2105 LP=LP-1:SYS51209:X%=1:Y%=2:GOSUB1100 2106 IFLEFT$(T$(LP),4)="\OAD"THENPRINT"":GOTO2110 2107 PRINTT$(LP) 2110 RETURN 2200 IFLP+16>LLTHEN1400 2205 LP=LP+1:SYS51206:X%=1:Y%=17:GOSUB1100 2206 IFLEFT$(T$(LP+15),4)="\OAD"THENPRINT"":GOTO2210 2207 PRINTT$(LP+15) 2210 RETURN 2300 FORI=1TO15:GOSUB2100:NEXT:GOTO2000 2400 FORI=1TO15:GOSUB2200:NEXT:GOTO2000 2500 POKE646,C%(2):PRINT" [195]OLOR [211]ELECTION ":R%=. 2505 POKE646,C%(5):SYS51200:PRINT"[198]ROM HERE, YOU CAN SELECT THE COLORS 2510 [153]"THAT YOU FIND MOST LEDGIBLE FOR READ- 2515 PRINT"ING TEXT. [212]HESE COLORS ARE ONLY AC- 2520 [153]"TIVE WHEN YOU ARE ACTUALLY READING AN 2525 PRINT"ARTICLE. [217]OU MAY CHANGE THE COLORS OF 2530 [153]"ANY OF THE FOLLOWING: 2535 PRINT" [212]HE [194]ORDER: ";:POKE646,C%(.):PRINT" [146]";:POKE646,C%(5):PRINT"_" 2540 PRINT" [212]HE [194]ACKGROUND: 2545 [153]" (null)HE (null)ITLE (null)INE: ";:[151]646,C%(2):[153]" ":[151]646,C%(5) 2550 [153]"(null)HE LENOMMAND (null)ENU: ";:[151]646,C%(3):[153]" ":[151]646,C%(5) 2555 [153]" (null)HE (null)EXT PEEKOX: ";:[151]646,C%(4):[153]" ":[151]646,C%(5) 2560 [153]" (null)HE (null)EXT RIGHT$TSELF:  ":[151]646,C%(3):[153]WT$; 2565 [153]"(null) (null)SE LEN(null)(null)(null) KEYS/MID$OYSTICK TO MOVE THE (null)"; 2570 [153]"(null) ARROWS, AND (null)PACEBAR/PEEKUTTON TO EXIT. (null)"; 2575 [129]I[178]1[164]2:[153]"(null) (null)";:[130] 2580 [153][200](WB$,39);:[129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[141]1055 2585 X%[178]3:Y%[178]22:[141]1100:[153]"";:[129]I[178].[164]15:[151]646,I:[153]" ";:[130]:[153] 2590 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[151]646,C%(3):[153]"^"; 2600 [161]K$:J%[178][168][194](J)[175]31:[139]K$[178]""[175]J%[178].[167]2600 2601 [139]K$[178]"ON"[176]J%[178]1[167]2650 2602 [139]K$[178]""[176]J%[178]2[167]2670 2603 [139]K$[178]"CMD"[176]J%[178]4[167]2610 2604 [139]K$[178]""[176]J%[178]8[167]2630 2605 [139]J%[178]16[167]5999 2606 [137]2600 2610 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" " 2612 C%(R%)[178]C%(R%)[171]1:[139]C%(R%)[179].[167]C%(R%)[178]15 2615 [139]R%[177]1[167][139]C%(R%)[178]C%(1)[167]2612 2617 [139]R%[178]1[167][139]C%(1)[178]C%(2)[176]C%(1)[178]C%(3)[176]C%(1)[178]C%(4)[176]C%(1)[178]C%(5)[167]2612 2618 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]"^" 2620 [145]R%[170]1[141]2810,2820,2830,2840,2850,2860 2622 [139]R%[179][177]1[167]X%[178]19:Y%[178]10[170]R%:[141]1100:[151]646,C%(R%):[153]" ":[151]646,C%(5) 2625 [137]2600 2630 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100::[153]" " 2632 C%(R%)[178]C%(R%)[170]1:[139]C%(R%)[177]15[167]C%(R%)[178]. 2635 [139]R%[177]1[167][139]C%(R%)[178]C%(1)[167]2632 2637 [139]R%[178]1[167][139]C%(1)[178]C%(2)[176]C%(1)[178]C%(3)[176]C%(1)[178]C%(4)[176]C%(1)[178]C%(5)[167]2632 2640 [137]2618 2650 X%[178]21:Y%[178]10[170]R%:[141]1100:[153]" ":X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" " 2652 R%[178]R%[171]1:[139]R%[179].[167]R%[178]5 2655 X%[178]21:Y%[178]10[170]R%:[141]1100:[151]646,C%(5):[153]"_":X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100 2656 [151]646,C%(3):[153]"^":[137]2600 2670 X%[178]21:Y%[178]10[170]R%:[141]1100:[153]" ":X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" " 2672 R%[178]R%[170]1:[139]R%[177]5[167]R%[178]. 2675 [137]2655 2700 [139][194](788)[178]49[167][151]S[170]24,15:[158]49158 2702 [142] 2705 [139][194](788)[178]49[167]2715 2710 [158]49155:[151]S[170]24,00 2715 [142] 2800 X%[178]15:Y%[178]22:[141]1100:[151]646,C%(3):[153]MU$:[151]646,C%(5):[137]2000 2810 [151]V[170]32,C%(.):[142] 2820 [151]V[170]33,C%(1):[142] 2830 [151]1020,.:[151]1021,.:[151]1022,.:[151]1023,39:[151]646,C%(2):[158]51203 2831 [151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,C%(5):[142] 2840 [151]1020,19:[151]1021,21:[151]1022,.:[151]1023,39:[151]646,C%(3):[158]51203 2841 [151]1020,24:[151]1021,24:[158]51203:[151]1020,2:[151]1021,17:[151]1022,1 2842 [151]1023,38:[151]56176,C%(3):[151]56215,C%(3):[151]56216,C%(3):[151]56255,C%(3) 2843 [151]646,C%(5):[142] 2850 [151]646,C%(4):[151]1020,1:[151]1021,1:[151]1022,.:[151]1023,39:[158]51203 2851 [151]1020,18:[151]1021,18:[158]51203:CM[178]55296:TN[178]39:FT[178]40:F[178]C%(4):[129]I[178]2[164]17 2852 [151]CM[170]I[172]FT,F:[151]CM[170]I[172]FT[170]TN,F:[130]:[151]1020,2:[151]1021,17:[151]1022,1 2853 [151]1023,38:[151]646,C%(5):[142] 2860 [151]646,C%(5):[158]51203:[129]I[178].[164]4:X%[178]19:Y%[178]I[170]10:[141]1100:[151]646,C%(I) 2865 [139]I[179][177]1[167][153]""; 2870 [153]" ":[130]:[151]646,C%(5):[142] 2900 X%[178]0:Y%[178]2:[141]1100:[158]51200:[129]I[178]LP[164]LP[170]15:[153]""T$(I):[130]:[142] 5000 [141]2705:[153]"LOAD";:[151]V[170]33,.:[153]"PRINT "MT$[163]39[171][195](MO$))MO$ 5005 [153]WT$;:[129]I[178]2[164]18:[153]"(null)"[166]38)"(null)";:[130]:[153]WB$; 5010 [153]"OPEN"WT$"(null) LEN(null)(null)(null)WAIT KEYS OR MID$OYSTICKWAIT TO SCROLL MENU (null)"; 5015 [153]"(null) (null)(null)ATNLENVALWAIT BAR OR PEEKUTTONWAIT TO READ ARTICLE (null)"; 5020 [153]"(null) (null)WAIT KEY TO EXIT TO TABLE OF CONTENTS (null)"; 5022 [153][200](WB$,39);:[151]2023,125:[151]56295,3 5025 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130] 5030 [151]1020,2:[151]1021,18:[151]1022,1:[151]1023,38:[158]51200:[153]"FOR";:[158]51203 5035 X%[178]1:Y%[178]10:[141]1100:[153]"SYS STOP"; 5040 [151]2040,14:[151]V,60:[151]V[170]1,128:[151]V[170]29,1:[151]V[170]39,7:[151]V[170]21,1 5045 [141]5500 5050 [161]A$:J%[178][168][194](J)[175]31:[139]J%[178].[175]A$[178]""[167]5050 5055 [139]A$[178]"ON"[176]A$[178]""[176]A$[178]"DIM"[176]A$[178]"RUN"[176]J%[178]1[167]5100 5060 [139]A$[178]""[176]A$[178]"CMD"[176]A$[178]"READ"[176]A$[178]"IF"[176]J%[178]2[167]5200 5065 [139]A$[178]"INPUT"[176]A$[178]"GOTO"[167]5300 5070 [139]A$[178]"LET"[176]A$[178]"RESTORE"[167]5400 5075 [139]J%[178]16[167]5900 5080 [139]A$[178]"X"[176]A$[178]"(null)"[176]A$[178]"EXP"[167][151]V[170]21,.:[137]5600 5090 [137]5050 5100 [139]MP[178]1[167][141]1450:[137]5050 5105 [158]51209:[158]51209:MP[178]MP[171]1 5110 [139]MP[179]5[167][151]1021,2[172](5[171]MP):[158]51200:[151]1021,18:[137]5050 5115 X%[178]12:Y%[178]2:[141]1100:[153]"FOR"M$(MP[171]4,.);:[137]5050 5200 [139]MP[178]ML[167][141]1400:[137]5050 5205 [158]51206:[158]51206:MP[178]MP[170]1 5210 [139]MP[177]ML[171]4[167][151]1020,2[172](6[170](ML[171]MP)):[158]51200:[151]1020,2:[137]5050 5215 X%[178]12:Y%[178]18:[141]1100:[153]"FOR"M$(MP[170]4,.);:[137]5050 5300 MP[178]1:[141]5500:[137]5050 5400 MP[178]ML:[141]5500:[137]5050 5500 [158]51200:[153]"FOR";:[139]MP[179]5[167]5520 5505 [129]I[178]MP[171]4[164]MP[170]4:[139]I[178]MP[167][153]"SYS"; 5510 [153][163]12)M$(I,.)"":[139]I[178]MP[167][153]"FOR"; 5515 [130]:[142] 5520 [129]I[178]MP[164]4:[153]"";:[130]:[129]I[178]1[164]MP[170]4:[139]I[178]MP[167][153]"SYS"; 5525 [153][163]12)M$(I,.)"":[139]I[178]MP[167][153]"FOR"; 5530 [130]:[142] 5600 [153]"LOADSTR$OCKING WITH (null)ABLE OF LENONTENTS"; 5605 [141]63002:[141]63000 5606 [139][194](44)[179][177]8[167]5610 5607 [153]"LOADSTOPLOAD"[199](34)"HELLO"[199](34)",8":[153]"RUN" 5608 [151]597,0:[151]631,13:[151]632,13:[151]198,2:[128] 5610 [151]198,0 :[151]597,1 5615 [151]44,8:[138]:[128] 5620 : 5630 : 5900 : 5902 F$[178]M$(MP,1):TL$[178]M$(MP,.):[151]V[170]21,.:[141]1500:[139]ER%[178]62[167][160]8:[137]5000 5910 [151]S[170]4,.:[151]S[170]11,.:[151]S[170]18,. 5915 [139]MU%[175][194](788)[178]49[167][158]49152:MU%[178][171]1:[151]S[170]24,15 5999 [141]1000:[141]2900:[137]2000 6000 V[178]53248:R[178]V[170]17:C[178]128:S[178]V[170]1024:J[178]56321:LP[178]1:LI[178]52016:MU%[178][171]1:[158]52176 6002 [151]S[170]5,96:[151]S[170]6,246 6005 [159]15,8,15:[134]T$(600),M$(32,1),C(4):[129]I[178]1[164]4:[135]C(I):[130]:MU$[178]"(null)WAITUIET 6006 DATA2,5,6,7 6010 POKE1020,2:POKE1021,17:POKE1022,1:POKE1023,38:POKE49665,4:F%=USR(65535) 6012 PRINT"[147]":POKES+23,.:POKES+4,128 6015 WL$="[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][192][192][192][192]":WT$="[176]"+WL$+"[174]":WB$="[173]"+WL$+"[189]" 6020 M$="FEATURES"+MID$(STR$(F%),2,2):OPEN8,8,8,M$:GOSUB1200:ML=1 6025 POKE781,8:SYS65478:SYSLI,B$:MT$=B$+"":GOSUB1200 6027 POKE781,8:SYS65478:SYSLI,B$:MO$=B$+"":GOSUB1200 6030 FORI=.TO1:POKE781,8:SYS65478:SYSLI,B$:M$(ML,I)=B$+"" 6032 IFSTTHENGOSUB1200:IFER%=.ANDST>63THEN6037 6033 NEXT 6035 ML=ML+1:GOTO6030 6037 DIMC%(5):FORI=1TO5:READC%(I):NEXT:C%(.)=C(F%/10):DATA1,2,6,5, 6040 CLOSE8:SYS65484:MP=1:POKES+4,.:POKES+23,.:POKES+5,9:POKES+6,.:GOTO5000 50000 PRINT"[147][144] [204][207][193][196][211][212][193][210][160][200]ARDCOPY " 50005 PRINT"[196]O YOU HAVE:":PRINT:PRINT" [195]OMMODORE 1525" 50010 PRINT" [195]OMMODORE 1526":PRINT" [195]OMMODORE [205][208][211] 801" 50015 PRINT" [212]YMAC [195]ONNECTION" 50020 PRINT" [195]ARD/?[160][193], [194], OR +[199]" 50025 PRINT" [194]US[195]ARD [201][197][197][197]" 50030 PRINT"OR ANY OTHER 1525-COMPATIBLE SETUP?" 50035 POKE198,.:WAIT198,1:GETA$ 50040 IFA$="Y"ORA$="[217]"ORA$=""ORA$="[183]"THENPA=4:SA=7:C8%=-1:GOTO51000 50045 IFA$<>"N"ANDA$<>"[206]"ANDA$<>""ANDA$<>"[170]"THEN50035 50100 PRINT"[147][196]O YOU HAVE A [195]OMMODORE 1520?" 50105 POKE198,.:WAIT198,1:GETA$ 50110 IFA$="Y"ORA$="[217]"ORA$=""ORA$="[183]"THENPA=6:SA=0:GOTO51000 50115 IFA$<>"N"ANDA$<>"[206]"ANDA$<>""ANDA$<>"[170]"THEN50105 50200 PRINT"[147][196]O YOU HAVE AN OLD [195]OMMODORE 1515?" 50205 POKE198,.:WAIT198,1:GETA$ 50210 IFA$="Y"ORA$="[217]"ORA$=""ORA$="[183]"THENPA=4:SA=7:C8%=0:GOTO55000 50215 IFA$<>"N"ANDA$<>"[206]"ANDA$<>""ANDA$<>"[170]"THEN50205 50950 PRINT"[147][201]N THAT CASE YOU JUST WON'T GET ANY" 50955 PRINT"HARDCOPY TODAY, THANK YOU!" 50960 FORI=1TO5000:NEXT:GOTO5999 51000 IFC8%=.THEN55000 51005 PRINT"[147][217]OU HAVE A CHOICE BETWEEN HAVING YOUR" 51010 PRINT"HARDCOPY IN ONE COLUMN AS IT APPEARS ON" 51015 PRINT"THE SCREEN, OR IN TWO COLUMNS USING THE" 51020 PRINT"FULL WIDTH OF YOUR PRINTER. [196]O YOU WANT"; 51025 PRINT"TWO-COLUMN HARDCOPY?" 51035 POKE198,.:WAIT198,1:GETA$ 51040 IFA$="Y"ORA$="[217]"ORA$=""ORA$="[183]"THEN55000 51045 IFA$<>"N"ANDA$<>"[206]"ANDA$<>""ANDA$<>"[170]"THEN51035 51050 C8%=.:GOTO55000 55000 PRINT"[147][201] AM NOW READY TO PRINT YOUR COMMENTS" 55005 PRINT"TO THE PRINTER HOOKED UP AS DEVICE"PA 55010 PRINT"SECONDARY ADDRESS"SA"[157]. [208]LEASE MAKE SURE" 55015 PRINT"THAT THE PRINTER IS ON-LINE AND READY TO"; 55020 PRINT"GO, THEN PRESS THE SPACE BAR.":POKE198,.:WAIT198,1:POKE198,. 55022 IFMU%THENGOSUB2705 55025 OPEN4,PA,SA:LC=.:CL=1:IFC8%THEN55100 55030 FORI=1TOLL:LC=LC+1:IFLC>60THENFORJ=1TO6:PRINT#4," ":NEXT:LC=1 55035 PRINT#4,T$(I):NEXT:FORI=LLTO65:PRINT#4," ":NEXT:GOTO55160 55100 IFLL-CL<120THEN55150 55105 FORI=CLTOCL+59:T$=T$(I):PRINT#4,T$SPC(42-LEN(T$))T$(I+60):NEXT 55110 FORI=1TO6:PRINT#4," ":NEXT:CL=CL+120:GOTO55100 55150 CH%=(LL-CL+2)/2:FORI=CLTOCL+CH%-1:T$=T$(I):PRINT#4,T$SPC(42-LEN(T$))T$(I+CH%) 55155 NEXT:FORI=1TO4:PRINT#4," ":NEXT 55160 CLOSE4:IFMU%THENGOSUB2700 55165 GOTO5999 59999 END 60000 REM RUN A PROGRAM FROM INSIDE 60010 FORCK=LPTOLP+15:IFLEFT$(T$(CK),4)="\OAD"THEN61000 60020 NEXT CK 60030 GOTO2000 60050 : 60105 : 61000 REM ACTUALLY RUN 61005 MU%=0:GOSUB2705 61006 POKE597,0:REM HIDE FLAG 61010 PRINT"[147]L"+MID$(T$(CK),2):PRINT"RUN" 61020 POKE631,13:POKE632,13:POKE198,2:POKE44,8:END 63000 FORI=.TO24:POKES+I,.:NEXT:POKES+1,100:POKES+2,100:POKES+5,10:POKES+6,2 63001 POKES+24,15:POKES+4,33:FORDL=1TO600:NEXT:POKE2+4,32:RETURN 63002 FORI=0TO24:POKES+I,0:NEXT:POKES+1,40:POKES+2,40:POKES+5,10:POKES+6,2 63003 POKES+24,15:POKES+4,33:FORDL=1TO600:NEXT:POKES+4,32:RETURN