home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 76
/
076.d81
/
bytes
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
7KB
|
238 lines
10 poke53281,0:poke53280,0:print"[147][159]"
15 d=0:f=0:g=0:p=0:r=0:s=0:u=0:v=0
20 gosub660:rem disk drive check
45 gosub1145
50 sys57812"fv.dirtovar.o",8,0:poke780,0:poke781,0:poke782,141:sys65493
55 sys57812"ss 1990",8,0:poke780,0:poke781,60:poke782,3:sys65493
60 sys57812"prntallscnchr.o",8,0:poke780,0:poke781,0:poke782,206:sys65493
65 q$=chr$(34)
70 tp$="[147][150] [197] [193] [211] [217] [198] [207] [206] [212] [214] [201] [197] [215] [197] [210]"
75 dim ty$(144),na$(144),le$(144),td$(144),pc%(144)
80 forz=1to144:td$(z)="":pc%(z)=0:ty$(z)="":na$(z)="":le$(z)="":next
82 printtp$:print" [208]lease turn your printer [207][198][198]."
85 print"[159] [201]nsert the disk with the font[159] files"
90 printtab(11)"and press [211][208][193][195][197][154]."
95 geta$:ifa$<>" "then95
100 printtp$:print"[159] [211]electing all font [159]files on this disk"
105 sys36096:i=1:j=1
110 printtp$
115 poke214,5:print:au$="[158][215]orking...":printspc(20-len(au$)/2)au$
120 ifna$(i)=""then135
125 ifval(le$(i))=9thentd$(j)=na$(i):gosub730:j=j+1
130 i=i+1:goto120
135 ifj=1thenpoke214,5:print:au$="[159] ":printspc(20-len(au$)/2)au$
140 ifj=1thenprint"[159] [212]here are no font[159] files on this disk."
145 ifj=1thengosub605:fort=0to3999:next:goto1215
150 ifj>17thenr=1
155 ifj<=17thenu=1
160 printtp$
165 bv$=" [158][221] [158][221]"
170 bu$="[158] [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][174]"
175 printbu$
180 ifsthenfori=atoj-1:print" [158][221]"tab(13)"[154]"td$(i)tab(35)"[158][221]":next:goto195
185 ifuthenfori=1toj-1:print" [158][221]"tab(13)"[154]"td$(i)tab(35)"[158][221]":next:goto195
190 ifrthenfori=1to16:print" [158][221]"tab(13)"[154]"td$(i)tab(35)"[158][221]":next
195 bd$=" [173][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][189]"
200 printbd$
205 k=1
210 poke214,19:print:print"[195][210][211][210]-[213][208]/[196][207][215][206][159]-[211]elect font to view"
215 print"[211][208][193][195][197][159]-[212]oggle [193][159]-[211]elect all"
220 print"[210][197][212][213][210][206][159]-[214]iew highlighted font(s)"
225 print"[196][159]-[196]irectory [209][159]-[209]uit to [204][207][193][196][211][212][193][210]"
230 poke214,k+1:print:printtab(10)"[153][192]>[145]":poke198,0
235 geta$:ifa$=""then235
240 printtab(10)" [145]"
245 ifsthenifa$="[145]"thenk=k-1:ifk<1thenk=j-a:goto260
250 ifuthenifa$="[145]"thenk=k-1:ifk<1thenk=j-1:goto260
255 ifrthenifa$="[145]"thenk=k-1:ifk<1thenk=16
260 ifsthenifa$=""thenk=k+1:ifk>j-athenk=1:goto275
265 ifuthenifa$=""thenk=k+1:ifk>j-1thenk=1:goto275
270 ifrthenifa$=""thenk=k+1:ifk>16thenk=1
275 ifa$<>"d"anda$<>"[196]"then285
280 sys828,1:goto515
285 ifa$<>"q"anda$<>"[209]"then295
290 goto1215
295 ifa$<>chr$(13)then305
300 goto350
305 ifa$<>"a"anda$<>"[193]"then325
310 ifsthenprint"":fori=atoj-1:printtab(13)""td$(i):pc%(i)=1:next:goto205
315 ifrthenprint"":fori=1to16:printtab(13)""td$(i):pc%(i)=1:next:goto205
320 ifuthenprint"":fori=1toj-1:printtab(13)""td$(i):pc%(i)=1:next:goto205
325 ifa$<>" "then230
330 ifsthenifpc%(a+k-1)thenpc%(a+k-1)=0:printtab(13)"[154]"td$(a+k-1):goto230
335 ifsthenpc%(a+k-1)=1:printtab(13)""td$(a+k-1):goto230
340 ifpc%(k)thenpc%(k)=0:printtab(13)"[154]"td$(k):goto230
345 pc%(k)=1:printtab(13)""td$(k):goto230
350 ifsthenfori=atoj:goto365
355 ifrthenfori=1to16:goto365
360 ifuthenfori=1toj
365 ifpc%(i)=0then475
370 ifsthenpoke214,i-a+2:print:print"[153][204]oading[145]":goto380
375 poke214,i+1:print:print"[153][204]oading[145]"
380 sys828,1:fort=1to2000:next
385 print"[147]"
390 iffthen415
395 poke214,0:print:printbu$
400 forx=1to8:printbv$:next
405 printbd$
410 iff=0thensys828,2:f=1:goto420
415 sys831,2
420 printspc(20-len(td$(i))/2)td$(i)
425 ifg=0thengosub635:g=1
430 poke214,6:print:print"[193]fter viewing font, press [211][208][193][195][197]"
432 print"to continue, [209] to quit"
435 fort=1to1000:next
440 sys57812td$(i),8,0:poke780,0:poke781,0:poke782,56:sys65493
442 open15,8,15,"i0":close15
445 poke53272,31:sys52736
450 geta$:ifa$<>"q"anda$<>"[209]"anda$<>" "then450
452 ifa$="q"ora$="[209]"then1215
455 poke53272,22
460 sys831,1
465 ifsthenpoke214,i-a+2:print:print" ":goto475
470 poke214,i+1:print:print" "
475 nexti
480 ifvthenreturn
485 ifrthenr=0:s=1
490 ifsthengosub840
495 goto1215
500 :
505 : directory
510 :
515 print"[147] [208]lease wait -- reading directory"
520 print"[159] [215]hile directory scrolls, [211][208][193][195][197] [159]will"
525 print" pause and [209][159] will return to the menu"
530 fori=1to144:na$(i)="":next
535 sys36096
540 fori=1to144
545 ifna$(i)=""theni=144:goto565
550 ifpeek(197)=60then550
555 ifpeek(197)=62thensys831,1:poke198,0:goto230
560 printtab(6)"[155]"na$(i)tab(26)"[154]"ty$(i)tab(32)"[159]"le$(i)
565 next
570 printtab(6)""le$(0)"[154]blocks free"
575 print"[159] [208]ress [210][197][212][213][210][206][159] to return to program"
580 geta$:ifa$<>chr$(13)then580
585 sys831,1:poke198,0:goto230
590 :
595 :buzzer sound
600 :
605 forz=54272to54296:pokez,0:next
610 w=54272:pokew+6,240:pokew,10:pokew+1,40:pokew+4,33
615 forj=1to10:poke54296,15:fort=1to5:next:poke54296,0:fort=1to5:next:next
620 pokew+4,128
625 return
630 :
635 forz=54272to54296:pokez,0:next
640 w=54272:pokew+1,135:pokew+5,9:pokew+6,9:pokew+24,15:pokew+4,17:pokew+4,16
645 fort=1to800:next:forz=54272to54296:pokez,0:next
650 return
655 :
660 open15,8,15:close15
665 ifst=0thenreturn
670 print"[147][212]urn your disk drive on!!
675 [153]"(NULL)ress any key to try again."
680 [161]a$:[139]a$[178]""[167]680
685 [142]
690 [159]15,8,15:[132]15,er,er$:[160]15
695 [139]er[178]0[167][142]
700 [141]605:[153]"loadstr$isk drive error!!!!!"
705 [153]"(NULL)he error message is:":[153]:[153]er,er$
710 [153]"(NULL)ress any key to try again."
715 [161]a$:[139]a$[178]""[167]715
720 [159]15,8,15,"i0":[160]15
725 [142]
730 [139][200](na$(i),4)[178]"font"[176][200](na$(i),3)[178]"fnt"[167][142]
731 [139][201](na$(i),4)[178]"font"[176][201](na$(i),3)[178]"fnt"[167][142]
734 [139][200](na$(i),2)[178]"t."[167]td$(j)[178]"":j[178]j[171]1:[142]
735 [139][201](na$(i),2)[178]"-2"[167]td$(j)[178]"":j[178]j[171]1:[142]
740 [139][201](na$(i),2)[178]"-3"[167]td$(j)[178]"":j[178]j[171]1:[142]
743 [142]
810 [151]53272,22
840 [129]n[178]1[164]8:[139]j[177][178]17[175]j[179][178](n[170]1)[172]16[167]m[178]n:[137]850
845 [130]
850 n[178]8:[130]
855 [145]m[141]865,880,900,925,955,990,1030,1075
860 [142]
865 a[178]17:v[178]1:[141]1125:[141]160
870 v[178]0:s[178]0
875 [142]
880 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
885 a[178]33:[141]1125:[141]160
890 v[178]0:s[178]0
895 [142]
900 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
905 a[178]33:j[178]49:[141]1125:[141]160
910 a[178]49:[141]1125:[141]160
915 v[178]0:s[178]0
920 [142]
925 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
930 a[178]33:j[178]49:[141]1125:[141]160
935 a[178]49:j[178]65:[141]1125:[141]160
940 a[178]65:[141]1125:[141]160
945 v[178]0:s[178]0
950 [142]
955 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
960 a[178]33:j[178]49:[141]1125:[141]160
965 a[178]49:j[178]65:[141]1125:[141]160
970 a[178]65:j[178]81:[141]1125:[141]160
975 a[178]81:[141]1125:[141]160
980 v[178]0:s[178]0
985 [142]
990 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
995 a[178]33:j[178]49:[141]1125:[141]160
1000 a[178]49:j[178]65:[141]1125:[141]160
1005 a[178]65:j[178]81:[141]1125:[141]160
1010 a[178]81:j[178]97:[141]1125:[141]160
1015 a[178]97:[141]1125:[141]160
1020 v[178]0:s[178]0
1025 [142]
1030 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
1035 a[178]33:j[178]49:[141]1125:[141]160
1040 a[178]49:j[178]65:[141]1125:[141]160
1045 a[178]65:j[178]81:[141]1125:[141]160
1050 a[178]81:j[178]97:[141]1125:[141]160
1055 a[178]97:j[178]113:[141]1125:[141]160
1060 a[178]113:[141]1125:[141]160
1065 v[178]0:s[178]0
1070 [142]
1075 a[178]17:j[178]33:v[178]1:[141]1125:[141]160
1080 a[178]33:j[178]49:[141]