Loadstar 34/034.d81/load_dir

Commodore BASIC | 1987-01-01 | 5.3 KB | 162 lines

1 gosub60100:clr:ag=.
10 poke53280,0:poke53281,0
20 printchr$(147)chr$(142);
30 print tab(7)"instant load and directory"
40 print:print tab(9)"by bennett cookson jr.":print:
50 print spc(15)chr$(30)"commands"
60 print
62 print"dir            :list directory"
70 print"!dir           :slowly list directory"
80 print"disk           :read disk error"
90 print"disk";chr$(34);"s0:prg";chr$(34);"   :rem send disk command"
100 print:print:printspc(13)"[158]function keys"
110 print"    (place cursor on program to load)"
120 print:print"        f1 : load & run program"
130 print"        f3 : load ml program (,8,1)"
140 print"        f5 : load program (no run)"
150 print"        f7 : !dir"
155 ifag=1thenpoke631,63:poke632,13:poke198,2:end
160 print:print:print"reading data...";
170 for i=49152 to 49768:read a:poke i,a:c=c+a:next
180 if c<>74434 then print"error in data, check for typos":end
181 print:print"** program ready to activate **"
182 print"[145][145]press [return] to continue"
183 print"press [space] to go back to loadstar"
184 poke198,0:wait198,1:geta$:ifa$=chr$(32)then60000
185 ifa$=chr$(13)then190:print:print
186 goto 184
190 sys 49152:ag=1:goto10
200 data 120,169,23,160,192,141,8,3
210 data 140,9,3,169,191,160,193,141
220 data 143,2,140,144,2,88,96,166
230 data 58,232,240,3,76,228,167,160
240 data 1,140,104,194,177,122,201,33
250 data 208,8,169,240,141,104,194,200
260 data 177,122,201,68,208,230,200,177
270 data 122,201,73,208,223,200,177,122
280 data 201,82,208,6,32,91,192,76
290 data 174,167,201,83,208,206,200,177
300 data 122,201,75,208,199,32,79,193
310 data 76,174,167,32,115,0,136,208
320 data 250,44,104,194,80,7,169,40
330 data 160,194,32,25,194,32,204,255
340 data 169,120,32,195,255,32,115,0
350 data 240,33,32,158,173,36,13,48
360 data 16,32,161,183,224,1,208,19
370 data 169,2,162,102,160,194,76,161
380 data 192,32,163,182,166,34,164,35
390 data 76,161,192,169,2,162,100,160
400 data 194,32,189,255,32,121,0,240
410 data 4,32,155,183,44,162,8,169
420 data 120,160,0,32,186,255,32,192
430 data 255,144,4,170,76,55,164,32
440 data 204,255,162,120,32,30,225,32
450 data 140,193,32,36,225,32,36,225
460 data 32,36,225,240,34,32,36,225
470 data 170,32,36,225,32,205,189,169
480 data 32,32,210,255,32,36,225,32
490 data 210,255,208,248,169,13,32,210
500 data 255,32,250,192,76,205,192,76
510 data 182,193,32,204,255,44,104,194
520 data 80,16,169,0,133,198,165,145
530 data 16,17,165,198,240,248,169,0
540 data 133,198,165,145,16,5,162,120
550 data 76,30,225,32,182,193,56,76
560 data 75,168,32,121,0,201,44,208
570 data 4,32,155,183,44,162,8,134
580 data 87,32,204,255,169,120,32,195
590 data 255,169,0,32,189,255,169,120
600 data 166,87,160,15,32,186,255,32
610 data 192,255,144,63,76,187,192,32
620 data 115,0,136,208,250,32,115,0
630 data 240,68,201,44,240,70,32,158
640 data 173,32,163,182,72,165,34,72
650 data 165,35,72,32,34,193,162,120
660 data 32,24,225,104,133,35,104,133
670 data 34,104,170,160,0,177,34,32
680 data 210,255,200,202,208,247,76,204
690 data 255,165,215,96,32,36,225,133
700 data 215,32,183,255,240,243,104,104
710 data 165,186,201,8,208,24,32,45
720 data 193,76,167,193,32,34,193,162
730 data 120,32,30,225,32,36,225,32
740 data 210,255,201,13,208,246,32,204
750 data 255,169,120,32,195,255,96,166
760 data 58,232,208,10,165,203,197,197
770 data 240,4,201,7,144,3,76,72
780 data 235,201,3,144,249,133,197,201
790 data 3,208,10,169,88,160,194,32
800 data 25,194,76,1,194,166,214,160
810 data 0,24,32,240,255,169,56,160
820 data 194,32,25,194,165,203,201,5
830 data 208,7,169,83,160,194,32,25
840 data 194,162,1,165,203,201,4,208
850 data 2,162,6,134,198,189,93,194
860 data 157,118,2,202,208,247,76,66
870 data 235,133,189,132,190,160,255,200
880 data 177,189,32,210,255,208,248,96
890 data 80,82,69,83,83,32,65,78
900 data 89,32,75,69,89,13,13,0
910 data 76,79,65,68,29,29,29,29
920 data 29,29,29,29,29,29,29,29
930 data 29,29,29,29,29,29,29,44
940 data 56,58,0,157,44,49,58,0
950 data 147,33,68,73,82,0,13,82
960 data 85,78,58,13,36,48,36,49,1
970 data 144,145,145,145,63,30,13
60000 rem quit?
60010 print"[147]  are you sure you want to quit (y/n)?"
60015 poke198,0:wait198,1:geta$
60020 ifa$="y"ora$="[217]"then60055
60030 ifa$="n"ora$="[206]"then181
60040 goto60015
60050 :
60055 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60060 ifer<>63thenend
60065 load "hello connect",8
60100 pn$="[201][206][211][212][193][206][212] [204][207][193][196] & [196][201][210][197][195][212][207][210][217]":an$="[194][217]:  [194][197][206][206][197][212] [195][207][207][203][211][207][206] [202][210]."
60110 bo=6:sc=1:cl=06:c1=4:c2=00:c3=4:c4=00:c5=00:c6=02:c7=09
60120 rem bo - border color
60121 rem sc - screen color
60122 rem cl - color on border
60123 rem c1 - top box outside color
60124 rem c2 - top box inside color
60125 rem c3 - bottom box outside color
60126 rem c4 - bottom box inside color
60127 rem c5 - 'copyright' color
60128 rem c6 - 'program name' color
60129 rem c7 - 'authors name' color
60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60150 poke646,c2:print" [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
60190 poke646,c7:print""tab(20-len(an$)/2);an$
60200 poke646,c5:print""tab(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 poke646,c3:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60230 poke646,c4:print" [165]                                  [167]"
60240 poke646,c3:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
60245 poke198,.:goto60360
60250 poke646,cl
60255 print" [172][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][187]"
60260 fora=1to3:gosub60470:next
60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
60280 fora=1to16:gosub60470:next
60290 print"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60300 fora=1to3:gosub60470:next
60310 print" [188][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][146][190]";
60320 poke53280,bo:poke53281,sc:goto60140
60360 print"";
60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
60380 fora=1to100
60390 geta$:ifa$=" "ora$="[160]"thenreturn
60400 next
60410 print"";
60420 print"[165]                                  [167]"
60430 fora=1to100
60440 geta$:ifa$=" "ora$="[160]"thenreturn
60450 next
60460 goto60360
60470 print" [161][146][161]":return