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