home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 193 / 193.d81 / frodo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  307 lines
  1. 0 rem eloadstar presenter v 5.01              (c) 2000 j & f publishing, inc.
  2. 1 rem el005                             :
  3. 2 ifpeek(56)<>96thenpoke56,96:run
  4. 3 sw=1:vi=0:c64=1:ifpeek(44)<>57thenstop:rem sw=0>>64, sw=1>>81
  5. 4 dv=peek(186):print:poke14335,c64
  6. 5 poke53265,11
  7. 6 deffni(x)=peek(x)+256*peek(x+1):deffnh(x)=int(x/256):deffnl(x)=x-fnh(x)*256
  8. 7 ifpeek(41*256)<>96then10
  9. 8 sys4096+177,"features",dv,96*256
  10. 9 poke41*256,76
  11. 10 id=41*256+3
  12. 11 wc=14:rem wares color
  13. 12 pc=6 :rem text screen bkgd
  14. 13 cc=1 :rem text color
  15. 14 ec=7 :rem emphasis color
  16. 15 eq=0 :rem user change var
  17. 16 dimsl(3)
  18. 20 mm=4096:mv=mm+267
  19. 21 id=41*256+3
  20. 22 il=fni(id+4):ih=fni(id+7)
  21. 23 wt=fni(id+10):wl=fnl(wt):wh=fnh(wt)
  22. 24 pokemv+22,wl:pokemv+23,wh:pokemv+24,7+32+64+128:pokemv+25,22:pokemv+26,13
  23. 25 sysmm+129,224*256,232*256,8*256
  24. 26 poke53272,18
  25. 27 q$(1)="rq":q$(2)="req":ifsw=0thengosub7800:ifen<>63then30
  26. 28 open4,dv,4,"advertising":input#4,an:ifan=0then30
  27. 29 forx=1toan:input#4,ad$(x):next
  28. 30 close4:open15,dv,15,"i0":close15:sysmm+42,232
  29. 35 ifpeek(id-3)<>96thensysid-3,96*256:ew=peek(781):pokeid-3,96
  30. 36 pokemv,0:pokemv+1,56:pokemv+2,ew+1
  31. 37 pokemv+41,0:poke646,wc
  32. 38 ln$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  33. 39 cl$="                      ":bu$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  34. 40 forx=0toew:sysid,a$,0,x:l=len(a$)
  35. 41 sysmm+12,10-l/2,x+5,a$
  36. 42 sysmm+15,x+1,1,18,x+5,x+5
  37. 43 next
  38. 44 sysmm+36,1,255,wc+128:ro=1
  39. 45 sysmm+15,ew+2,1,4,17,20
  40. 46 sysmm+15,ew+3,15,19,17,20:pokemv+3,ew+3
  41. 47 pokemv+12,asc("_")
  42. 50 sys49615
  43. 53 sysid+39:m1=peek(780):m2=peek(781)
  44. 54 rem ifm1>1thenm1=0
  45. 55 rem ifm2>1thenm2=1
  46. 56 m1=m1andm2:poke214,23:print:print"[155][207]n [196]isk"dv;
  47. 57 sysid+42,i$:f$="[197]-[204]oadstar "+i$:poke646,15:sysmm+27,24,f$
  48. 58 poke53265,27:y0=1
  49. 59 df=1:ro=y0:rg=y0:bl=1:el=ew+1:sysmm+36,ro,255,wc+16+128:sysmm+201,rg-df
  50. 60 print"[146]";:gosub11000
  51. 61 ifcr%=-1then500
  52. 62 sysmm+39,208
  53. 63 ifcr%=-2thengosub3000:sysmm+42,208:poke646,wc:goto60
  54. 65 wc=3:cw=cr%-df:sysid,a$,0,cw:ln=peek(782)
  55. 66 ty=10-ln/2:by=ty+ln+4
  56. 67 sysmm+30,17,39,ty,by,32,14
  57. 68 sysmm+30,17,39,ty,by,160,4+16
  58. 69 la=len(a$)
  59. 70 print"[156]";:sysmm+12,18,ty+1,a$:print"[146][145][174]"right$(cl$,21-la)right$(bu$,21-la);
  60. 71 print"[157][173]"right$(ln$,21-la);
  61. 72 poke646,wc:forx=0toln:sysid,b$,0,cw,x
  62. 73 sysmm+15,x+10,18,38,ty+2+x,ty+2+x
  63. 80 sysmm+12,19,ty+2+x,b$:next
  64. 81 sysmm+12,19,ty+2+x,"[197]xit [212]his [205]enu"
  65. 82 sysmm+15,x+10,18,38,ty+2+x,ty+2+x
  66. 84 bl=10:el=x+10:df=10:y0=rg:rg=10:ro=10
  67. 85 tp=el
  68. 87 pokemv+22,peek(il+cw):pokemv+23,peek(ih+cw)
  69. 89 gosub11202:ifcr%=-1then92
  70. 90 ifcr%=-2then103
  71. 91 ifcr%<>tpthen100
  72. 92 sysmm+42,208:pokemv+22,wl:pokemv+23,wh:wc=14:goto59
  73. 100 ci=cr%-df:sysid,c$,3,cw,ci:c=val(left$(c$,1))+val(mid$(c$,2,1))
  74. 102 sysmm+36,cr%,255,(wcor8)+64+16
  75. 103 sysid,d$,0,cw,ci:sysid,sd$,4,cw,ci
  76. 104 sysmm+39,216:ifcr%=-2thengosub3000:sysmm+42,216:goto89
  77. 105 cx=cx%:cy=cy%
  78. 106 ifc=1thensl%=1:goto120
  79. 110 sysmm+30,14,36,8,11+c,160,7
  80. 111 sysmm+30,14,36,8,11+c,160,7+16
  81. 112 print"[158]";:sysmm+12,15,9,d$
  82. 113 sysmm+12,22,10,"[210]ead [201]t"
  83. 114 ifc>1thensysmm+12,22,11,"[210]un [201]t"
  84. 115 sysmm+12,22,10+c,"[195]lose [205]enu"
  85. 116 sysmm+33,22,31,10,10+c,7,7,q$(c)
  86. 119 ifsl%=0orsl%=c+1thensysmm+42,216:sysmm+21,cx,cy:ro=0:goto89
  87. 120 sysid,ee$,2,cw,ci
  88. 121 onsl%goto200,300
  89. 130 stop
  90. 200 poke49152,0:poke54276,0:poke54283,0:poke54290,0:gosub7700:ifi%<>2then261
  91. 201 rf$="t."+ee$
  92. 202 sysmm+177,rf$,dv,116*256
  93. 203 f=f%:iff<0thenf=f+65536
  94. 204 iff>=49152thenm2=0:gosub10300
  95. 205 sysid+12,116*256
  96. 210 print"[147]"
  97. 211 poke198,0:poke53280,pc:poke53281,pc
  98. 212 poke53282,ec
  99. 213 sysmm+30,0,39,0,22,160,0+16
  100. 214 poke646,cc:sysmm+27,23,d$:poke646,ec:sysmm+27,24,"[208]ress [200] for [200]elp"
  101. 215 poke646,cc:sysid+15:ifm1=1thenpoke49152,7
  102. 220 ifm1=1thenifpeek(49152)=0thengosub11010
  103. 221 sysmm+60,"[145][157]bch_eq"+chr$(13)+"sp[147]r"
  104. 222 oni%goto230,231,232,233,234,235,236,237,238,239,237,237,240,242,270,290
  105. 223 goto220
  106. 230 sysid+18:goto220
  107. 231 sysid+21:goto220
  108. 232 sysid+24:goto220
  109. 233 sysid+27:goto220
  110. 234 eq=1:pc=(pc+1)and15:gosub250:poke53280,pc:poke53281,pc:goto220
  111. 235 eq=1:cc=(cc+1)and15:gosub252:poke646,cc:sysid+15:goto220
  112. 236 goto280
  113. 237 pc=peek(53281)and15:sysmm+42,216:ro=0:goto260
  114. 238 sysid+30:sysmm+30,1,38,1,21,32,1:sysid+15:goto220
  115. 239 eq=1:ec=(ec+1)and15:gosub254:poke53282,ec:sysid+15:goto220
  116. 240 m1=abs(m1-m2):ifm1=0thengosub11014
  117. 241 goto220
  118. 242 gosub5000
  119. 249 goto283
  120. 250 if(pc=cc)or(pc=ec)thenpc=(pc+1)and15:goto250
  121. 251 return
  122. 252 if(cc=pc)or(cc=ec)thencc=(cc+1)and15:goto252
  123. 253 return
  124. 254 if(ec=pc)or(ec=cc)thenec=(ec+1)and15:goto254
  125. 255 return
  126. 260 ec=peek(53282)and15:cc=peek(646)and15
  127. 261 ifc=1thensl%=0:goto119
  128. 262 goto110
  129. 270 sysid+36:sysmm+30,1,38,1,21,32,1:sysid+15:goto220
  130. 280 poke646,ec:sysmm+12,0,23,"    [195]ursor [213]p/[196]n:[211]croll : [204]t/[210]t:[208]age   "
  131. 281 sysmm+12,0,24,"[208]:[208]rint [195]:[212]ext [194]:[194]kgd [197]:[197]mph [[200]ome]:[212]op"
  132. 282 poke198,0:wait198,1:poke198,0
  133. 283 sysmm+30,0,39,23,24,32,0
  134. 284 poke646,0:sysmm+27,23,d$:poke646,ec:sysmm+27,24,"[208]ress [200] for [200]elp"
  135. 285 poke646,cc:goto220
  136. 290 sysid,a1$,3,cw,ci:ifleft$(a1$,2)<>"11"then220
  137. 291 goto300
  138. 299 print"":stop
  139. 300 dw=dv:gosub10300:gosub7700:ifi%<2then110
  140. 302 poke198,0:sysmm+3:poke1022,m1:poke1023,m2
  141. 303 ifee$="el tools"thengosub3001:sysmm+42,216:goto89
  142. 304 poke53272,22:print"[147]":poke53280,0:poke53281,0
  143. 310 poke214,18:print:print" [158]                                      "
  144. 311 print" [129]                                      "
  145. 312 print" [129]                                      "
  146. 313 print" [129]                                      "
  147. 314 print" [149]                                      "
  148. 315 f$="[204][207][193][196]ing "+d$:print"[129]";:sysmm+27,21,f$
  149. 316 poke646,peek(53281):ifan=0then320
  150. 317 y=0:forx=1toan:ifad$(x)=ee$theny=x:x=an
  151. 318 next: ify=0then320
  152. 319 gosub2000
  153. 320 print"[146]l[207]"chr$(34)"b."ee$chr$(34)","dv""
  154. 321 forx=1to4:poke630+x,asc(mid$(chr$(13)+"r[213]"+chr$(13),x)):next:poke198,4
  155. 322 tq=ti+len(d$)*10+70
  156. 323 ifswtheniftq>tithen323
  157. 330 poke44,8:poke8*256,0
  158. 331 poke65534,m1:poke65535,m2
  159. 350 r$="p[207]646,1:r[213]"
  160. 399 poke56,160:end
  161. 400 forx=0to10:sysmm+30,x,39-x,x,24-x,160,0+16:next:poke646,8:print"[146]";
  162. 405 sysmm+27,11,"                  "
  163. 410 sysmm+27,12,"    [199][207][207][196]-[194][217][197]      "
  164. 420 sysmm+27,13,"                  "
  165. 430 poke198,0
  166. 431 t=ti:forx=1to30:next:ift=tithenforx=1to5000:next:goto444
  167. 440 t=ti+200
  168. 441 ift>tithen441
  169. 444 gosub10300
  170. 445 print"[147]";:sysmm+3:poke53269,0
  171. 450 q=8:poke44,q:pokeq*256,0:poke56,160:poke53272,22
  172. 455 ifvi=0thennew
  173. 456 clr:print"  [208]ress <[193]lt-[216]> to [210]eturn to [215]indows[144]":new
  174. 460 stop
  175. 500 sysmm+39,208:print"[158]";
  176. 505 sysmm+27,11,"                  "
  177. 510 sysmm+27,12," [197]xit [197]-[204]oadstar? "
  178. 520 sysmm+27,13,"      ([217]/[206])       "
  179. 521 forx=10to0step-1:sysmm+30,x,39-x,x,24-x,160,5+16:next:poke646,5
  180. 530 poke198,0
  181. 540 sysmm+60,"yn":ifi%=0then540
  182. 545 ifm1=1thenifpeek(49152)=0thengosub11010
  183. 549 ifi%=0then540
  184. 550 ifi%>1thensysmm+42,208:goto60
  185. 555 poke53269,0
  186. 560 goto400
  187. 600 sysmm+39,216:print"[147]":poke53269,0:sysmm+30,0,39,0,24,160,0+16
  188. 602 poke53281,12:poke53280,11
  189. 604 sysmm+12,1,1,"     [193][195][212][201][214][197] [203][197][217][211] [198][207][210] [205][197][206][213] [211][195][210][197][197][206]      "
  190. 606 sysmm+27,3,"[146][144][213]se [195]ursor [203]eys to [211]elect an [201]tem"
  191. 608 sysmm+27,5,"[195]lick with [211]pace/[197]nter/[210]t.[195]ursor"
  192. 609 sysmm+12,7,8,"[211]  [144][211]tart/[211]top [205]usic
  193. 610 [158]mm[170]12,7,9,"left$  stop(NULL)his left$val(NULL)(NULL) (NULL)creen"
  194. 611 [158]mm[170]12,7,10,"(NULL)  stope(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)ools
  195. 612 sysmm+12,7,11,"[209]  [144][197]xit [205]enu or e[204][207][193][196][211][212][193][210]
  196. 613 [158]mm[170]12,4,13," atnlen(NULL)right$(NULL)val (NULL)val(NULL)(NULL) asc(NULL)(NULL) (NULL)valatnstr$val(NULL) (NULL)len(NULL)valval(NULL) "
  197. 614 [158]mm[170]12,5,14,"wait(NULL)        stop(NULL)rints to *.txt file"
  198. 615 [158]mm[170]12,5,15,"lenursors  stop(NULL)croll (NULL)ext"
  199. 616 [158]mm[170]12,5,17,"val(NULL)(NUL