home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / presenter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  270 lines
  1. 1 REM SIDIRQ PRESENTER 12/28/84
  2. 2 IFPEEK(49153)=11THENIFPEEK(49154)=192THEN5
  3. 3 LOAD"SIDIRQ V3",8,1
  4. 5 IFPEEK(51201)<>12ORPEEK(51202)<>200ORPEEK(52222)<>5THEN7
  5. 6 GOTO8
  6. 7 LOAD"ROUTINES V4",8,1
  7. 8 IFPEEK(927)=248THEN10
  8. 9 LOAD"MENU.SP1",8,1
  9. 10 POKE49161,0:POKE49162,160:OLD$="":GOTO6000
  10. 1000 POKE646,C%(2):PRINT"[147]"TL$:POKEV+33,C%(1):POKE1021,17:LP=1:POKE646,C%(4)
  11. 1010 PRINTWT$;:FORI=2TO17:PRINT"[221]"SPC(38)"[221]";:NEXT:PRINTWB$;:POKE646,C%(3)
  12. 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]";
  13. 1025 PRINT"[221]F1[146][208]AGE [194]ACK  [221][208][146]RINTER[221][202]OYSTICK[146] SCROLLS[221]";
  14. 1030 PRINT"[221]F3[146][211]CROLL [194]ACK[221][195][146]OLORS [221]    ([208]ORT 2)    [221]";
  15. 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]";
  16. 1040 PRINT"[221]F7[146][208]AGE [198]WD.  [221][216][146]=[197]XIT [221]"SPC((16-LEN(MO$))/2)MO$TAB(39)"[221]";
  17. 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]";
  18. 1050 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT:POKE646,C%(5):SYS51203
  19. 1055 POKE2023,125:POKE56295,C%(3):RETURN
  20. 1100 POKE783,PEEK(783)AND254:POKE781,Y%:POKE782,X%:SYS65520:RETURN
  21. 1200 INPUT#15,ER%,ER$,ET%,ES%
  22. 1205 IF(ER%>19ANDER%<30)ORER%=66ORER%=67ORER%=71ORER%=73THEN1250
  23. 1210 RETURN
  24. 1250 PRINT"[147][212]HERE HAS BEEN A DISK ERROR."
  25. 1251 PRINT
  26. 1252 PRINT"[208]RESS <SPACE> TO CONTINUE."
  27. 1253 GETK$:IF K$=""THEN 1253
  28. 1261 RUN
  29. 1300 IFPEEK(788)<>49THENRETURN
  30. 1305 POKES+4,20:POKES,RND(.)*256:POKES+1,RND(.)*256:POKES+14,RND(.)*256
  31. 1310 POKES+15,RND(.)*256:POKES+4,21:RETURN
  32. 1400 GOSUB1300:FORI=27TO24STEP-1:WAITR,C:POKER,I:NEXT
  33. 1405 FORI=24TO29:WAITR,C:WAITR,C:POKER,I:NEXT
  34. 1410 FORI=29TO27STEP-1:WAITR,C:WAITR,C:WAITR,C:WAITR,C:POKER,I:NEXT:RETURN
  35. 1450 GOSUB1300:FORI=27TO31:WAITR,C:POKER,I:NEXT
  36. 1455 FORI=31TO25STEP-1:WAITR,C:WAITR,C:POKER,I:NEXT
  37. 1460 FORI=25TO27:WAITR,C:WAITR,C:WAITR,C:WAITR,C:POKER,I:NEXT:RETURN
  38. 1500 IFF$=OLD$THENRETURN
  39. 1501 OLD$=F$
  40. 1502 OPEN8,8,8,F$:GOSUB1200:IFER%=62THENRETURN
  41. 1505 X%=3:Y%=10:GOSUB1100:PRINT"[158][204]OADING:":
  42. 1510 LL=1:POKE781,8:SYS65478
  43. 1515 SYSLI,B$:T$(LL)=LEFT$(B$,38):IFST=.THENLL=LL+1:GOTO1515
  44. 1520 SYS65484:CLOSE8:GOSUB1200:FORI=LL+1TOLL+20:T$(I)="":NEXT:RETURN
  45. 2000 GETK$:J%=NOTPEEK(J)AND31:IFK$=""ANDJ%=.THEN2000
  46. 2005 IFK$="\"THEN60000:RUN A PROGRAM
  47. 2010 IFK$="[145]"ORK$=""ORK$="[134]"ORJ%=1THENGOSUB2100:GOTO2000
  48. 2015 IFK$=""ORK$="[157]"ORK$="[135]"ORJ%=2THENGOSUB2200:GOTO2000
  49. 2020 IFK$="[133]"THEN2300
  50. 2025 IFK$="[136]"THEN2400
  51. 2030 IFK$="P"ORK$="[208]"ORK$="[175]"ORK$=""THEN50000
  52. 2035 IFK$="C"ORK$="[195]"ORK$="[188]"ORK$=""THEN2500
  53. 2040 IFK$="M"ORK$="[205]"ORK$="[167]"THENMU%=-1:GOSUB2700:MU$="[209][146]UIET":GOTO2800
  54. 2045 IFK$="Q"ORK$="[209]"ORK$="[171]"THENMU%=0:GOSUB2705:MU$="[205][146]USIC":GOTO2800
  55. 2050 IFK$="X"ORK$="[216]"ORK$="[189]"ORK$=""ORJ%=16ORK$=" "THEN5000
  56. 2055 GOTO2000
  57. 2100 IFLP=1THEN1450
  58. 2105 LP=LP-1:SYS51209:X%=1:Y%=2:GOSUB1100
  59. 2106 IFLEFT$(T$(LP),4)="\OAD"THENPRINT"":GOTO2110
  60. 2107 PRINTT$(LP)
  61. 2110 RETURN
  62. 2200 IFLP+16>LLTHEN1400
  63. 2205 LP=LP+1:SYS51206:X%=1:Y%=17:GOSUB1100
  64. 2206 IFLEFT$(T$(LP+15),4)="\OAD"THENPRINT"":GOTO2210
  65. 2207 PRINTT$(LP+15)
  66. 2210 RETURN
  67. 2300 FORI=1TO15:GOSUB2100:NEXT:GOTO2000
  68. 2400 FORI=1TO15:GOSUB2200:NEXT:GOTO2000
  69. 2500 POKE646,C%(2):PRINT"            [195]OLOR [211]ELECTION            ":R%=.
  70. 2505 POKE646,C%(5):SYS51200:PRINT"[198]ROM HERE, YOU CAN SELECT THE COLORS
  71. 2510 [153]"THAT YOU FIND MOST LEGIBLE FOR READ-
  72. 2515 PRINT"ING TEXT.  [212]HESE COLORS ARE ONLY AC-
  73. 2520 [153]"TIVE WHEN YOU ARE ACTUALLY READING AN
  74. 2525 PRINT"ARTICLE.  [217]OU MAY CHANGE THE COLORS OF
  75. 2530 [153]"ANY OF THE FOLLOWING:
  76. 2535 PRINT"      [212]HE [194]ORDER: ";:POKE646,C%(.):PRINT"  [146]";:POKE646,C%(5):PRINT"_"
  77. 2540 PRINT"  [212]HE [194]ACKGROUND:
  78. 2545 [153]"  (null)HE (null)ITLE (null)INE: ";:[151]646,C%(2):[153]"  ":[151]646,C%(5)
  79. 2550 [153]"(null)HE LENOMMAND (null)ENU: ";:[151]646,C%(3):[153]"  ":[151]646,C%(5)
  80. 2555 [153]"    (null)HE (null)EXT PEEKOX: ";:[151]646,C%(4):[153]"  ":[151]646,C%(5)
  81. 2560 [153]" (null)HE (null)EXT RIGHT$TSELF:   ":[151]646,C%(3):[153]WT$;
  82. 2565 [153]"(null) (null)SE LEN(null)(null)(null) KEYS/MID$OYSTICK TO MOVE THE   (null)";
  83. 2570 [153]"(null) ARROWS, AND (null)PACEBAR/PEEKUTTON TO EXIT. (null)";
  84. 2575 [129]I[178]1[164]2:[153]"(null)                                      (null)";:[130]
  85. 2580 [153][200](WB$,39);:[129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]:[141]1055
  86. 2585 X%[178]3:Y%[178]22:[141]1100:[153]"";:[129]I[178].[164]15:[151]646,I:[153]"  ";:[130]:[153]
  87. 2590 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[151]646,C%(3):[153]"^";
  88. 2600 [161]K$:J%[178][168][194](J)[175]31:[139]K$[178]""[175]J%[178].[167]2600
  89. 2601 [139]K$[178]"ON"[176]J%[178]1[167]2650
  90. 2602 [139]K$[178]""[176]J%[178]2[167]2670
  91. 2603 [139]K$[178]"CMD"[176]J%[178]4[167]2610
  92. 2604 [139]K$[178]""[176]J%[178]8[167]2630
  93. 2605 [139]J%[178]16[176]K$[178]" "[167]5999
  94. 2606 [137]2600
  95. 2610 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]" "
  96. 2612 C%(R%)[178]C%(R%)[171]1:[139]C%(R%)[179].[167]C%(R%)[178]15
  97. 2615 [139]R%[177]1[167][139]C%(R%)[178]C%(1)[167]2612
  98. 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
  99. 2618 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100:[153]"^"
  100. 2620 [145]R%[170]1[141]2810,2820,2830,2840,2850,2860
  101. 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)
  102. 2625 [137]2600
  103. 2630 X%[178]4[170]C%(R%)[172]2:Y%[178]23:[141]1100::[153]" "
  104. 2632 C%(R%)[178]C%(R%)[170]1:[139]C%(R%)[177]15[167]C%(R%)[178].
  105. 2635 [139]R%[177]1[167][139]C%(R%)[178]C%(1)[167]2632
  106. 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
  107. 2640 [137]2618
  108. 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]" "
  109. 2652 R%[178]R%[171]1:[139]R%[179].[167]R%[178]5
  110. 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
  111. 2656 [151]646,C%(3):[153]"^":[137]2600
  112. 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]" "
  113. 2672 R%[178]R%[170]1:[139]R%[177]5[167]R%[178].
  114. 2675 [137]2655
  115. 2700 [139][194](788)[178]49[167][151]S[170]24,15:[158]49158:[151]56325,49
  116. 2702 [142]
  117. 2705 [139][194](788)[178]49[167]2715
  118. 2710 [158]49155:[151]S[170]24,00
  119. 2715 [142]
  120. 2800 X%[178]15:Y%[178]22:[141]1100:[151]646,C%(3):[153]MU$:[151]646,C%(5):[137]2000
  121. 2810 [151]V[170]32,C%(.):[142]
  122. 2820 [151]V[170]33,C%(1):[142]
  123. 2830 [151]1020,.:[151]1021,.:[151]1022,.:[151]1023,39:[151]646,C%(2):[158]51203
  124. 2831 [151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,C%(5):[142]
  125. 2840 [151]1020,19:[151]1021,21:[151]1022,.:[151]1023,39:[151]646,C%(3):[158]51203
  126. 2841 [151]1020,24:[151]1021,24:[158]51203:[151]1020,2:[151]1021,17:[151]1022,1
  127. 2842 [151]1023,38:[151]56176,C%(3):[151]56215,C%(3):[151]56216,C%(3):[151]56255,C%(3)
  128. 2843 [151]646,C%(5):[142]
  129. 2850 [151]646,C%(4):[151]1020,1:[151]1021,1:[151]1022,.:[151]1023,39:[158]51203
  130. 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
  131. 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
  132. 2853 [151]1023,38:[151]646,C%(5):[142]
  133. 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)
  134. 2865 [139]I[179][177]1[167][153]"";
  135. 2870 [153]"  ":[130]:[151]646,C%(5):[142]
  136. 2900 X%[178]0:Y%[178]2:[141]1100:[158]51200:[129]I[178]LP[164]LP[170]15
  137. 2902 [139][200](T$(I),4)[178]"\OAD"[167][153]"":[137]2904
  138. 2903 [153]""T$(I)
  139. 2904 [130]
  140. 2906 [142]
  141. 5000 [141]2705:[153]"LOAD";:[151]V[170]33,.:[153]"PRINT "MT$[163]39[171][195](MO$))MO$
  142. 5005 [153]WT$;:[129]I[178]2[164]18:[153]"(null)"[166]38)"(null)";:[130]:[153]WB$;
  143. 5010 [153]"OPEN"WT$"(null) LEN(nu