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)(null)VAL(null),(null)  STOP(null)ETURN TO (null)ENU"
640 [158]MM[170]27,23,"(null)RESS (null)EY TO LENONTINUE"
642 [151]198,0:[146]198,1:[151]198,0:[151]53269,0:CR%[178]0:[158]MM[170]42,216
649 [151]198,0:[142]
699 [144]
2000 [159]4,DW,4,[196](Y):[161]#4,A$:S[178]ST:[160]4
2002 [139]S[178]0[167][142]
2004 [137]2100::::AD$[178]"AD"[170][196](Y)
2100 [151]53280,14:[151]53281,14:[151]646,14:[153]"":[151]53272,22:[142]
2604 [158]MM[170]12,21,14,"11"
2605 [158]MM[170]33,21,23,11,14,""
2606 [144]
3000 [141]3100
3001 [141]7700:SD$[178]DS$:[139]I%[179][177]2[167][142]
3002 [151]53265,11:[153]"";:[158]MM[170]30,0,39,0,24,247,2[170]32
3003 [158]MM[170]30,9,28,6,16,255,255
3004 [158]MM[170]30,10,29,5,15,160,7
3005 [158]MM[170]27,6,"E(null)(null)ATNSTR$(null)(null)ATN(null) (null)(null)(null)(null)(null)"
3006 [158]MM[170]30,11,28,8,14,255,1
3007 [158]MM[170]12,13,9,"OPEN(null)EXT (null)EADER"
3008 [158]MM[170]12,13,10,"OPENCHR$RAPHICS (null)IEWER"
3009 [158]MM[170]12,13,11,"OPENLENOPY RIGHT$T"
3010 [158]MM[170]12,13,12,"OPENVALDSTAR
3011 SYSMM+12,13,13,"[159][209]UIT
3012 [151]53265,27
3013 [158]MM[170]33,14,27,9,13,1,7,"TGCEQ"
3014 [139](SL%[178]0)[176](SL%[178]5)[167]SL%[178]0:[142]
3015 [139]SL%[178]4[167]EE$[178]"EDSTAR":D$[178]"VALSTR$(null)(null)ATN(null)":SD$[178]"SIDE 1":[137]300
3016 [151]832,SL%
3017 [147]"TOOLS",DV
3100 [139]RG[179]10[167][158]MM[170]39,208:[137]3110
3105 [158]MM[170]39,216
3110 DS$[178]SD$:SD$[178]"SIDE 1":[142]
5000 [158]MM[170]27,23,"                  ":[158]MM[170]27,24,"                  "
5001 [139]VI[178]1[167]5100
5002 [139]C64[178]0[167]5243
5004 F$[178]"(null)RINTING "[170]D$[170]" TO (null)RINTER"
5006 F1$[178]"":[139][195](F$)[177]38[167]F1$[178][202](F$,9):F$[178]"(null)RINTING"
5008 [158]MM[170]27,23,F$:[158]MM[170]27,24,F1$
5010 [159]2,4,7
5012 [152]2,EE$" FROM E(null)(null)ATNSTR$(null)(null)ATN(null) "I$
5014 [158]ID[170]48:[160]2
5016 [142]
5100 [158]MM[170]27,23,"(null)SE (null)EXT (null)EADER IN (null)OOLS
5101 SYSMM+27,24,"TO CREATE [212][216][212] FILES."
5102 T=TI+540:POKE198,0
5103 IFPEEK(198)=0ANDTI<TTHEN5103
5104 POKE198,0:RETURN
5243 F$="[208]RINTING "+D$+" TO "+EE$+".TXT"
5244 F1$="":IFLEN(F$)>38THENF1$=MID$(F$,9):F$="[208]RINTING"
5245 SYSMM+27,23,F$:SYSMM+27,24,F1$
5248 OPEN4,DV,4,EE$+".TXT,P,W":GET#4,V$:CMD4:SYSID+33:PRINT#4:CLOSE4
5249 RETURN
5500 OPEN15,4,15:OPEN4,4,7:INPUT#15,E:CLOSE15:PRINTE:CLOSE4
7700 CLOSE2:OPEN2,DV,2,SD$:GET#2,A$:CLOSE2:IFST=0THENI%=2:RETURN
7701 GOTO7750
7702 SYSMM+30,9,27,5,14,255,7+255:POKE646,7
7703 SYSMM+30,11,27,5,12,160,7:POKE646,7
7704 SYSMM+30,10,28,4,13,160,14+16
7705 SYSMM+27,6,"[208]UT "+SD$+" IN"
7706 SYSMM+27,7,"[196]RIVE"+STR$(DV)
7708 SYSMM+27,8,"AND [208]RESS [146][197][206][212][197][210]"
7710 SYSMM+27,9,"---------------
7712 [158]MM[170]27,10,"(null)R PRESS WAIT(null)(null)ATNLENVAL"
7714 [158]MM[170]27,11,"TO ATNBORT"
7716 [151]198,0:[146]198,1
7720 [158]MM[170]60," "[170][199](13)
7722 [158]MM[170]42,216:[153];
7723 [139]I%[178]2[167]7700
7724 [142]
7750 [160]2:[129]X[178]DV[164]DV[170]3:I[178](X[175]3)[176]8:[159]2,I,2:[160]2:[139]ST[179][177]0[167]7770
7755 [159]2,I,2,SD$:[161]#2,A$:[160]2:[139]ST[179][177]0[167]7765
7760 I%[178]2:DV[178]I:[142]
7765 [159]15,I,15,"I0":[132]15,EN:[160]15
7770 [130]:[151]186,DV:[137]7702
7800 [159]15,DV,15,"R0:ADVERTISING=ADVERTISING":[132]15,EN:[160]15:[142]
9999 [143] BT=BOTTOM, TP=TOP, DF=DIFFER
10300 [151]49152,0:[151]54276,0:[151]54283,0:[151]54290,0:[158]49897:[158]49935
10310 M1[178]0:M2[178]0:[142]
11000 [158]MM[170]60,"ONCMDSHQ_ "[170][199](13)[170]"T"
11002 [145]I%[137]11100,11200,11300,11400,11500,11600,11300,11300,11400,11400,11900
11004 [139][194](49152)[178]0[167][141]11010
11006 [137]11000
11010 [139]M1[178]0[167][142]
11012 [151]781,0:[151]782,106:[158]49664:[151]49152,7:[142]
11014 [151]49152,0:[151]54276,0:[151]54283,0:[151]54290,0:[142]
11100 RG[178]RG[171]1:[139]RG[179]BL[167]RG[178]EL
11102 [137]11202
11200 RG[178]RG[170]1:[139]RG[177]EL[167]RG[178]BL
11202 [158]MM[170]36,RO,255,WC[170]64[170]16:[158]MM[170]36,RG,255,WC[170]16[170]128:RO[178]RG
11204 [158]MM[170]201,RG[171]DF
11205 [139]RG[179]10[167]11000
11206 [139]RG[178]EL[167][158]MM[170]12,33,24,"      ":[137]11000
11207 [139]SW[167]11000
11208 [158]ID,SD$,4,CW,RG[171]DF:C0[178][194](646):[151]646,15:[158]MM[170]12,33,24,"WAITLIST"[170]SD$
11209 [151]646,C0
11210 [137]11000
11300 CR%[178][171]1:[142]
11400 CR%[178]RG:[158]MM[170]36,RG,255,(WC[175]7)[170]64[170]16:[142]
11500 M1[178][182](M1[171]M2):[139]M1[178]0[167][141]11014
11502 [137]11000
11600 [141]600:[137]11000
11700 [144]
11800 [144]
11900 [141]10300:[153]"SYS";:CR%[178][171]2:[142]
59999 [128]
60000 [151]53269,0:DV[178][194](186):[139]DV[179]8[167][144]
60001 [159]15,DV,15,"S0:FRODO":[160]15:[148]"0:FRODO",DV