home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 4 / 004.d81 / presenter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  242 lines
  1. 5 ifpeek(49152)<>76orpeek(51200)<>76orpeek(52016)<>32orpeek(52080)<>173then7
  2. 6 ifpeek(52176)=169then8
  3. 7 load"routines m3",8,1
  4. 8 ifpeek(927)=248then10
  5. 9 load"menu.sp1",8,1
  6. 10 poke49161,0:poke49162,160:old$="":goto6000
  7. 1000 poke646,c%(2):print"[147]"tl$:pokev+33,c%(1):poke1021,17:lp=1:poke646,c%(4)
  8. 1010 printwt$;:fori=2to17:print"[221]"spc(38)"[221]";:next:printwb$;:poke646,c%(3)
  9. 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]";
  10. 1025 print"[221]f1[146][208]age [194]ack  [221][208][146]rinter[221][202]oystick[146] scrolls[221]";
  11. 1030 print"[221]f3[146][211]croll [194]ack[221][195][146]olors [221]    ([208]ort 1)    [221]";
  12. 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]";
  13. 1040 print"[221]f7[146][208]age [198]wd.  [221][216][146]=[197]xit [221]"spc((16-len(mo$))/2)mo$tab(39)"[221]";
  14. 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]";
  15. 1050 fori=217to242:pokei,peek(i)or128:next:poke646,c%(5):sys51203
  16. 1055 poke2023,125:poke56295,c%(3):return
  17. 1100 poke783,peek(783)and254:poke781,y%:poke782,x%:sys65520:return
  18. 1200 input#15,er%,er$,et%,es%
  19. 1205 if(er%>19ander%<30)orer%=66orer%=67orer%=71orer%=73then1250
  20. 1210 return
  21. 1250 print"[147][212]here has been a disk error."
  22. 1251 print
  23. 1252 print"[208]ress <space> to continue."
  24. 1253 getk$:if k$=""then 1253
  25. 1261 run
  26. 1300 ifpeek(788)<>49thenreturn
  27. 1305 pokes+4,20:pokes,rnd(.)*256:pokes+1,rnd(.)*256:pokes+14,rnd(.)*256
  28. 1310 pokes+15,rnd(.)*256:pokes+4,21:return
  29. 1400 gosub1300:fori=27to24step-1:waitr,c:poker,i:next
  30. 1405 fori=24to29:waitr,c:waitr,c:poker,i:next
  31. 1410 fori=29to27step-1:waitr,c:waitr,c:waitr,c:waitr,c:poker,i:next:return
  32. 1450 gosub1300:fori=27to31:waitr,c:poker,i:next
  33. 1455 fori=31to25step-1:waitr,c:waitr,c:poker,i:next
  34. 1460 fori=25to27:waitr,c:waitr,c:waitr,c:waitr,c:poker,i:next:return
  35. 1500 iff$=old$thenreturn
  36. 1501 old$=f$
  37. 1502 open8,8,8,f$:gosub1200:ifer%=62thenreturn
  38. 1505 x%=3:y%=10:gosub1100:print"[158][204]oading:":
  39. 1510 ll=1:poke781,8:sys65478
  40. 1515 sysli,b$:t$(ll)=left$(b$,38):ifst=.thenll=ll+1:goto1515
  41. 1520 sys65484:close8:gosub1200:fori=ll+1toll+20:t$(i)="":next:return
  42. 2000 getk$:j%=notpeek(j)and31:ifk$=""andj%=.then2000
  43. 2010 ifk$="[145]"ork$=""ork$="[134]"orj%=1thengosub2100:goto2000
  44. 2015 ifk$=""ork$="[157]"ork$="[135]"orj%=2thengosub2200:goto2000
  45. 2020 ifk$="[133]"then2300
  46. 2025 ifk$="[136]"then2400
  47. 2030 ifk$="p"ork$="[208]"ork$="[175]"ork$=""then50000
  48. 2035 ifk$="c"ork$="[195]"ork$="[188]"ork$=""then2500
  49. 2040 ifk$="m"ork$="[205]"ork$="[167]"thenmu%=-1:gosub2700:mu$="[209][146]uiet":goto2800
  50. 2045 ifk$="q"ork$="[209]"ork$="[171]"thenmu%=0:gosub2705:mu$="[205][146]usic":goto2800
  51. 2050 ifk$="x"ork$="[216]"ork$="[189]"ork$=""orj%=16then5000
  52. 2055 goto2000
  53. 2100 iflp=1then1450
  54. 2105 lp=lp-1:sys51209:x%=1:y%=2:gosub1100:printt$(lp):return
  55. 2200 iflp+16>llthen1400
  56. 2205 lp=lp+1:sys51206:x%=1:y%=17:gosub1100:printt$(lp+15):return
  57. 2300 fori=1to15:gosub2100:next:goto2000
  58. 2400 fori=1to15:gosub2200:next:goto2000
  59. 2500 poke646,c%(2):print"            [195]olor [211]election            ":r%=.
  60. 2505 poke646,c%(5):sys51200:print"[198]rom here, you can select the colors
  61. 2510 [153]"that you find most ledgible for read-
  62. 2515 print"ing text.  [212]hese colors are only ac-
  63. 2520 [153]"tive when you are actually reading an
  64. 2525 print"article.  [217]ou may change the colors of
  65. 2530 [153]"any of the following:
  66. 2535 print"      [212]he [194]order: ";:poke646,c%(.):print"  [146]";:poke646,c%(5):print"_"
  67. 2540 print"  [212]he [194]ackground:
  68. 2545 [153]"  (NULL)he (NULL)itle (NULL)ine: ";:[151]646,c%(2):[153]"  ":[151]646,c%(5)
  69. 2550 [153]"(NULL)he lenommand (NULL)enu: ";:[151]646,c%(3):[153]"  ":[151]646,c%(5)
  70. 2555 [153]"    (NULL)he (NULL)ext peekox: ";:[151]646,c%(4):[153]"  ":[151]646,c%(5)
  71. 2560 [153]" (NULL)he (NULL)ext right$tself:   ":[151]646,c%(3):[153]wt$;
  72. 2565 [153]"(NULL) (NULL)se len(NULL)(NULL)(NULL) keys/mid$oystick to move the   (NULL)";
  73. 2570 [153]"(NULL) arrows, and (NULL)pacebar/peekutton to exit. (NULL)";
  74. 2575 [129]i[178]1[164]2:[153]"(NULL)                                      (NULL)";:[130]
  75. 2580 [153][200](wb$,39);:[129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[141]1055
  76. 2585 x%[178]3:y%[178]22:[141]1100:[153]"";:[129]i[178].[164]15:[151]646,i:[153]"  ";:[130]:[153]
  77. 2590 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[151]646,c%(3):[153]"^";
  78. 2600 [161]k$:j%[178][168][194](j)[175]31:[139]k$[178]""[175]j%[178].[167]2600
  79. 2601 [139]k$[178]"on"[176]j%[178]1[167]2650
  80. 2602 [139]k$[178]""[176]j%[178]2[167]2670
  81. 2603 [139]k$[178]"cmd"[176]j%[178]4[167]2610
  82. 2604 [139]k$[178]""[176]j%[178]8[167]2630
  83. 2605 [139]j%[178]16[167]5999
  84. 2606 [137]2600
  85. 2610 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]" "
  86. 2612 c%(r%)[178]c%(r%)[171]1:[139]c%(r%)[179].[167]c%(r%)[178]15
  87. 2615 [139]r%[177]1[167][139]c%(r%)[178]c%(1)[167]2612
  88. 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
  89. 2618 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100:[153]"^"
  90. 2620 [145]r%[170]1[141]2810,2820,2830,2840,2850,2860
  91. 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)
  92. 2625 [137]2600
  93. 2630 x%[178]4[170]c%(r%)[172]2:y%[178]23:[141]1100::[153]" "
  94. 2632 c%(r%)[178]c%(r%)[170]1:[139]c%(r%)[177]15[167]c%(r%)[178].
  95. 2635 [139]r%[177]1[167][139]c%(r%)[178]c%(1)[167]2632
  96. 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
  97. 2640 [137]2618
  98. 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]" "
  99. 2652 r%[178]r%[171]1:[139]r%[179].[167]r%[178]5
  100. 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
  101. 2656 [151]646,c%(3):[153]"^":[137]2600
  102. 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]" "
  103. 2672 r%[178]r%[170]1:[139]r%[177]5[167]r%[178].
  104. 2675 [137]2655
  105. 2700 [139][194](788)[178]49[167][151]s[170]24,15:[151]s[170]5,96:[151]s[170]6,246:[158]49158
  106. 2702 [142]
  107. 2705 [139][194](788)[178]49[167][142]
  108. 2710 [158]49155:[151]s[170]4,.:[151]s[170]11,.:[151]s[170]18,.:[151]s[170]5,8:[151]s[170]6,.:[151]s[170]24,15
  109. 2715 [142]
  110. 2800 x%[178]15:y%[178]22:[141]1100:[151]646,c%(3):[153]mu$:[151]646,c%(5):[137]2000
  111. 2810 [151]v[170]32,c%(.):[142]
  112. 2820 [151]v[170]33,c%(1):[142]
  113. 2830 [151]1020,.:[151]1021,.:[151]1022,.:[151]1023,39:[151]646,c%(2):[158]51203
  114. 2831 [151]1020,2:[151]1021,17:[151]1022,1:[151]1023,38:[151]646,c%(5):[142]
  115. 2840 [151]1020,19:[151]1021,21:[151]1022,.:[151]1023,39:[151]646,c%(3):[158]51203
  116. 2841 [151]1020,24:[151]1021,24:[158]51203:[151]1020,2:[151]1021,17:[151]1022,1
  117. 2842 [151]1023,38:[151]56176,c%(3):[151]56215,c%(3):[151]56216,c%(3):[151]56255,c%(3)
  118. 2843 [151]646,c%(5):[142]
  119. 2850 [151]646,c%(4):[151]1020,1:[151]1021,1:[151]1022,.:[151]1023,39:[158]51203
  120. 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
  121. 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
  122. 2853 [151]1023,38:[151]646,c%(5):[142]
  123. 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)
  124. 2865 [139]i[179][177]1[167][153]"";
  125. 2870 [153]"  ":[130]:[151]646,c%(5):[142]
  126. 2900 x%[178]0:y%[178]2:[141]1100:[158]51200:[129]i[178]lp[164]lp[170]15:[153]""t$(i):[130]:[142]
  127. 5000 [141]2705:[153]"load";:[151]v[170]33,.:[153]"print "mt$[163]39[171][195](mo$))mo$
  128. 5005 [153]wt$;:[129]i[178]2[164]18:[153]"(NULL)"[166]38)"(NULL)";:[130]:[153]wb$;
  129. 5010 [153]"open"wt$"(NULL) len(NULL)(NULL)(NULL)wait keys or mid$oystickwait to scroll menu (NULL)";
  130. 5015 [153]"(NULL) (NULL)(NULL)atnlenvalwait bar or peekuttonwait to read article  (NULL)";
  131. 5020 [153]"(NULL) (NULL)wait key to exit to table of conten