home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 162
/
162.d81
/
exp2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
312 lines
10 poke55,0:poke56,44:clr
12 sys36924,32768,34816,12288
13 poke53280,15:poke53281,15:poke53272,28
14 print"[147]"
16 poke648,44:print"[152][147]":poke648,4
22 ir=5*4096:tb=9*4096:p=256:cv=84*256
23 ra=20749:ba=20751:pokeba,28
24 w1$=" -expanded to packed font- "
26 w2$=" -packed to expanded font- "
30 gosub5060
32 w$=" 1997 [202] & [198] [208]ublishing ":r=16
34 gosub4200:gosub4300
35 systb+60,26624,28672,14336
36 sysir
38 ifpeek(ra)<>129then38
39 pokeba,190
40 w$="font expander":r=1:gosub4000
42 w$="by":r=4:gosub4000
44 w$="ken robinson":r=7:gosub4000
46 gosub4300:gosub4300:gosub4300
47 pokeba,28
48 sysir+3
50 ifpeek(788)<>49then50
52 systb+21,72
54 systb+15,4,35,12,21,160,0
56 systb+18,91
58 :
60 systb+21,91
61 w$="[204][207][193][196][160][198][207][206][212] [205][197][206][213]":r=13:gosub4200
62 w$="[204]oad from disk":r=15:gosub4200
64 w$="[213]pper/[199]rfx [210][207][205]":r=16:gosub4200
66 w$="[204]ower/[213]pper [210][207][205]":r=17:gosub4200
67 w$="[198]rom [213]ltra[198]ont+":r=18:gosub4200
68 w$="[196]irectory/[196]os":r=19:gosub4200
69 w$="[209]uit":r=20:gosub4200
70 systb+48,15,12,28,6,128,128+06,0
72 systb+21,72:onf%goto76,88,90,96,74
73 gosub9000:goto60
74 gosub4800:goto60
76 gosub4400:ifd=0then60
77 systb+21,72:w$=" * [204]oading [196]irectory * ":r=17:gosub4200
78 systb,"$:*=p",d,14*4096,10,4,12,0,2
80 ifval(e$)<>0thenw$=" "+e$+" ":gosub4500:goto60
81 iff%=0thenw$=" * [206][207][160][208][210][199] [198][201][204][197][211][160][207][206][160][196][201][211][203]! * ":gosub4500:goto60
82 iff$=""then60
83 systb+21,72:sysir+15,14336,16383,0
84 w$=" [204]oading "+chr$(34)+f$+chr$(34)+" ":r=17:gosub4200
85 sys57812f$,d,0:poke780,0:poke781,0:poke782,56:sys65493
86 goto100
88 bk=208:goto92
90 bk=216
92 poke56334,0:poke1,51:systb+60,bk*p,bk*p+2048,14336
94 poke1,55:poke56334,1:goto100
96 gosub7500:ife%goto60
98 systb+60,28672,30720,14336
100 :
102 gosub5365
104 sysir
106 ifpeek(ra)<>129then106
108 pokeba,190
110 gosub4600
112 w$="[198][207][206][212][160][211][201][218][197][160][205][197][206][213]":r=13:gosub4200
114 w$="[196]ouble [215]idth":r=15:gosub4200
116 w$="[196]ouble [200]eight":r=16:gosub4200
118 w$="[209]uadruple":r=17:gosub4200
119 w$="[204]oad font":r=18:gosub4200
120 w$="[211]ave font":r=19:gosub4200
121 w$="[209]uit":r=20:gosub4200
122 systb+48,15,13,27,6,128,134,0
123 iff%=6thengosub9000:goto100
124 iff%=5then7000
125 iff%=4then47
126 md=f%
128 gosub4600
130 w$="[195][207][206][214][197][210][211][201][207][206][160][205][197][206][213]":r=13:gosub4200
132 w$="[211]tandard to [197]xpanded":r=15:gosub4200
134 w$="[197]xpanded to [208]acked":r=16:gosub4200
136 w$="[208]acked to [197]xpanded":r=17:gosub4200
138 w$="[195]ancel":r=18:gosub4200
140 systb+48,15,9,30,4,128,134,0
142 iff%=4then110
143 pc=f%:gosub4700
144 systb+60,56*p,16384,64*p
146 a1=56*p:a2=64*p
160 onmdgoto1000,2000,3000
170 end
1000 :
1090 onpcgoto1140,1330,1460
1140 gosub8000
1150 w$=" -converting to [216][215] font- ":r=14:gosub4200
1160 syscv,ml
1230 w$=" -done!- ":gosub4505
1240 goto7000
1330 w$=w1$:r=14:gosub4200
1340 syscv+3
1400 goto1230
1460 w$=w2$:r=14:gosub4200
1470 syscv+6
1530 goto1230
2000 :
2090 onpcgoto2150,2360,2490
2150 w$=" -converting to [216][200] font- ":r=14:gosub4200
2160 syscv+9,ml
2260 goto1230
2360 w$=w1$:r=14:gosub4200
2370 syscv+12
2430 goto1230
2490 w$=w2$:r=14:gosub4200
2500 syscv+15
2560 goto1230
3000 :
3090 onpcgoto3095,3480,3630
3095 gosub8000
3100 gosub4600
3110 w$="[205][207][214][197][160][213][208][208][197][210][160][212][207][160][204][207][215][197][210][160][195][193][211][197]?":r=13:gosub4200
3120 w$="no":r=15:gosub4200
3130 w$="yes":r=16:gosub4200
3140 systb+48,15,18,22,2,128,134,0
3150 mu=f%:gosub4700
3180 ifmu=1then3230
3190 systb+60,64*p,17408,140*p
3200 systb+60,16904,17112,16392
3230 w$=" -converting to [209][213][193][196][160]font- ":r=14:gosub4200
3240 syscv+18,ml
3380 goto1230
3480 w$=w1$:r=14:gosub4200
3490 syscv+21
3570 goto1230
3630 w$=w2$:r=14:gosub4200
3640 syscv+24
3720 goto1230
4000 :
4005 poke648,44
4008 print"[144]";:ifr=0then4020
4010 poke214,r-1:print
4020 l=0:forx=1tolen(w$)
4030 if(asc(mid$(w$,x,1))and96)<>0thenl=l+1
4040 next:ifl>19thenreturn
4050 ta=20-l:printtab(ta);
4060 forx=1tolen(w$)
4070 a=asc(mid$(w$,x,1))
4080 if(aand96)=0thenprintchr$(a);:goto4110
4090 printchr$(a)chr$(a+128);
4100 print"[157][157]";chr$(a)chr$(a+128);"[146][145]";
4110 next:print:print
4120 poke648,4:return
4200 :
4205 print"[144]";
4210 systb+27,r,w$
4220 print"[146]"
4230 return
4300 :
4305 t=ti+60
4310 ift>tithen4310
4320 return
4400 :
4405 systb+21,72
4410 systb+15,11,27,12,21,160,0
4415 w$="[196][201][211][203][160][196][197][214] #":r=13:gosub4200
4420 forr=15to18:w$=str$(r-7):gosub4200:next
4422 w$="[195]ancel":r=19:gosub4200
4425 systb+48,15,16,23,5,128,134,0
4430 d=0:iff%=5thenreturn
4435 d=f%+7:open2,d,2:close2
4440 ifst=0thenreturn
4445 w$=" * [196][197][214][201][195][197][160][206][207][212][160][208][210][197][211][197][206][212] * "
4450 gosub4500
4455 d=0:return
4500 :
4501 gosub4700
4505 r=16:gosub4200
4510 w$=" [208]ress [211][208][193][195][197][160]to continue ":r=19:gosub4200
4515 gosub5340:return
4600 systb+60,23696,24296,1424
4610 systb+60,24720,25320,55696:return
4700 systb+60,18832,19432,1424
4710 systb+60,19856,20456,55696:return
4800 systb+21,91
4802 w$="[196][201][211][203][160][198][213][206][195][212][201][207][206][211]":r=13:gosub4200
4804 w$="[196]irectory":r=15:gosub4200
4806 w$="[196]os [195]ommand":r=16:gosub4200
4808 w$="[195]ancel":r=17:gosub4200
4810 systb+48,15,14,26,3,128,128+2,0
4812 ds=f%:ifds=3thenreturn
4814 gosub4400:ifd=0thenreturn
4816 ifds=1thensysir+21,d:return
4818 systb+15,4,35,15,19,32,15
4820 print"[144]":systb+27,16,"[208]ress [210][197][212][213][210][206] for error message"
4822 systb+24,5,17,"@"
4824 systb+66,11,0,29
4826 systb+42,w$,d:close15
4828 systb+27,18,e$
4830 gosub5340:return
5050 :
5060 poke214,9:print
5070 print"[151] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
5080 forx=1to12
5090 print" [221][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][161]"
5100 next
5110 print" [173][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][189]"
5120 systb+18,72:return
5330 :
5340 poke198,0
5350 geta$:ifa$<>" "then5350
5360 return
5365 :
5370 poke648,44:a$=chr$(34)+chr$(34)+chr$(20)
5380 print"[144]";
5390 print"[152] [144]@abcdefghijk";
5400 print"lmnopqrstuvwxyz[\]^_[152] [144] !"a$"#$%&'()*+,-./012345678";
5410 print"9:;<=>?[152] [144][192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][219][220][221][255][223][152] [144][160]";
5420 print"[161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191][152] [144]@abcdefghijklmno";
5430 print"pqrstuvwxyz[\]^_[146][152] [144] !"a$"#$%&'()*+";
5440 poke648,45 :print:print:print"";
5450 print"[144],-./0123456789:;<=>?[146][152] [144][192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217]";
5460 print"[144][218][219][220][221][255][223][146][152] [144][160][161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191][146][152] ";
5470 print" ";
5480 poke648,4:print"[151]"
5490 return
7000 pokeba,28:sysir+3
7002 ifpeek(788)<>49then7002
7005 gosub4600
7010 w$="[211][193][214][197][160][198][207][206][212] [205][197][206][213]":r=13:gosub4200
7012 w$="[211]ave to disk":r=15:gosub4200
7014 w$="[211]ave to [213]ltra[19