Ahoy 1985 September/Ahoy_Magazine_85-09_1985_Double_L.d64/fastnew

Commodore BASIC | 2022-10-26 | 5KB | 159 lines

10 rem -------------------------------
11 rem          fast new
12 rem  don lewis v010585 (rev v123184)
14 rem -------------------------------
15 goto 1000
16 :
19 rem download code into 1541
20 restore:print chr$(151)
30 for i=0 to 102:read a:poke 820+i,a
35 if (i/10)-int(i/10)=0 then print "[175]";
40 next i
50 for i=0 to 511:read a:poke i+9472,a
55 if (i/18)-int(i/18)=0 then print "[175]";
60 next i:print chr$(30);:return
99 :
100 rem prompt and wait for response
105 print:print "insert disk and hit "rt$;
110 gosub 200:if a$<>chr$(13) then goto 110
120 return
199 :
200 rem get char from kb, with prompt
205 poke 198,0:poke 204,0
210 get a$:poke 207,0:if a$="" then goto 210
215 poke 204,1:print " [157]";:return
299 :
400 rem do a disk job, thanks "inside commodore dos" by dick emmers, datamost
410 ty=0:print#15,"m-w"chr$(8)chr$(0)chr$(2)chr$(t)chr$(s)
420 print#15,"m-w"chr$(1)chr$(0)chr$(1)chr$(jb)
430 ty=ty+1
440 print#15,"m-r"chr$(1)chr$(0)
450 get#15,e$:if e$="" then e$=chr$(0)
460 e=asc(e$)
470 if ty=500 then goto 495
480 if e>127 then goto 430
485 if e<>1 then goto 495
490 return
495 print:print"fatal error try again":stop
499 :
1000 rem ***** main code here *****
1003 q$=chr$(5)+"q"+chr$(30)
1005 poke 53280,11:poke 53281,0:print "";:rt$=chr$(158)+"<return>"+chr$(30)
1006 tp$=chr$(31)+"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"+chr$(30)
1007 pn$=chr$(31)+"[194]"+chr$(30)+" fast new  v010585 "+chr$(31)+"[194]"+chr$(30)
1008 tb$=chr$(31)+"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"+chr$(30)
1010 print chr$(147)chr$(13)"          "tp$
1011 print "          "pn$
1012 print "          "tb$:print
1015 if fg=1 then goto 1035
1020 print "please wait..";
1030 gosub 20:print:fg=1
1035 sys 820:dn$="name me"
1040 poke 198,0:input "disk name";dn$
1050 poke 198,0:input "disk id";di$
1060 di$=left$(di$+"zz",2)
1070 i1=asc(left$(di$,1)):i2=asc(right$(di$,1))
1080 open 15,8,15:print#15,"m-w"chr$(18)chr$(0)chr$(2)chr$(i1)chr$(i2);:close15
1090 gosub 100
2000 open 15,8,15:print#15,"m-e"chr$(0)chr$(5);:close15:open 15,8,15
2010 t=18:s=0:jb=176:gosub 400:rem seek
2020 jb=128:gosub 400:rem read
2030 print#15,"m-w"chr$(0)chr$(4)chr$(3)chr$(18)chr$(1)chr$(65)
2040 jb=144:gosub 400:rem write
2050 s=1:jb=128:rem read
2060 print#15,"m-w"chr$(0)chr$(4)chr$(2)chr$(0)chr$(255)
2070 jb=144:gosub 400:rem write
2080 close 15
2090 open 15,8,15:print#15,"n0:"dn$
2100 close 15
3000 print:print:print"format complete, remove disk"
3010 print:print"hit "rt$" to format another disk,"
3015 print q$" to quit";:gosub 200
3020 if a$=chr$(13) then goto 1000
3030 end
4000 data 169,16,133,255,169,0,133,251
4010 data 169,37,133,252,169,0,133,253
4020 data 169,5,133,254,165,186,32,177
4030 data 255,169,111,32,147,255,165,251
4040 data 164,252,141,152,3,140,153,3
4050 data 160,0,185,149,3,32,168,255
4060 data 200,192,6,208,245,160,0,177
4070 data 251,32,168,255,200,192,32,144
4080 data 246,165,251,105,31,133,251,165
4090 data 252,105,0,133,252,165,253,105
4100 data 32,133,253,165,254,105,0,133
4110 data 254,32,174,255,198,255,208,180
4120 data 96,77,45,87,0,0,32
4999 rem code downloaded into 1541 ram
5000 data 120,173,0,28,9,12,141,0
5010 data 28,169,45,133,74,32,210,6
5020 data 198,74,208,249,162,0,32,217
5030 data 6,169,1,133,34,165,34,201
5040 data 36,240,12,32,70,5,48,7
5050 data 230,34,32,200,6,240,238,173
5060 data 0,28,41,243,141,0,28,169
5070 data 236,141,12,28,165,75,240,5
5080 data 41,127,76,200,193,96,32,75
5090 data 242,133,67,138,10,10,10,10
5100 data 10,133,68,173,0,28,41,159
5110 data 5,68,141,0,28,169,238,141
5120 data 12,28,160,0,132,77,165,57
5130 data 153,0,3,200,200,165,77,153
5140 data 0,3,200,165,34,153,0,3
5150 data 200,165,19,153,0,3,200,165
5160 data 18,153,0,3,200,169,15,153
5170 data 0,3,200,153,0,3,200,185
5180 data 250,2,89,251,2,89,252,2
5190 data 89,253,2,153,249,2,230,77
5200 data 165,77,197,67,144,192,152,72
5210 data 169,3,133,49,32,48,254,104
5220 data 168,136,32,229,253,32,245,253
5230 data 169,1,162,0,157,0,4,232
5240 data 208,250,169,4,133,49,32,233
5250 data 245,133,58,32,143,247,169,206
5260 data 141,12,28,169,255,141,1,28
5270 data 141,3,28,32,243,6,169,0
5280 data 133,50,169,255,141,1,28,162
5290 data 5,80,254,184,202,208,250,162
5300 data 10,164,50,80,254,184,185,0
5310 data 3,141,1,28,200,202,208,243
5320 data 162,9,80,254,184,169,85,141
5330 data 1,28,202,208,245,162,5,169
5340 data 255,80,254,184,141,1,28,202
5350 data 208,247,162,187,80,254,184,189
5360 data 0,1,141,1,28,232,208,244
5370 data 160,0,80,254,184,177,48,141
5380 data 1,28,200,208,245,169,85,162
5390 data 8,80,254,184,141,1,28,202
5400 data 208,247,165,50,24,105,10,133
5410 data 50,198,77,208,149,80,254,184
5420 data 80,254,184,32,0,254,169,0
5430 data 133,48,169,3,133,49,165,67
5440 data 133,77,32,176,6,162,10,80
5450 data 254,184,173,1,28,209,48,208
5460 data 14,200,202,208,242,24,165,48
5470 data 105,10,133,48,76,132,6,169
5480 data 244,133,75,96,32,176,6,160
5490 data 187,80,254,184,173,1,28,217
5500 data 0,1,208,235,200,208,242,162
5510 data 252,80,254,184,173,1,28,217
5520 data 0,4,208,219,200,202,208,241
5530 data 198,77,208,182,169,0,240,209
5540 data 169,208,141,5,24,169,161,44
5550 data 5,24,16,197,44,0,28,48
5560 data 246,173,1,28,184,160,0,96
5570 data 32,203,6,174,0,28,232,76
5580 data 217,6,32,213,6,174,0,28
5590 data 202,138,41,3,133,68,173,0
5600 data 28,41,252,5,68,141,0,28
5610 data 160,8,162,0,202,208,253,136
5620 data 208,250,96,169,85,141,1,28
5630 data 160,32,208,240,234,234,234,234
60000 close15:open 15,8,15:input#15,a$,b$,c$,d$
60001 print a$"[160]"b$"[160]"c$"[160]"d$:close15:stop
61000 close15:open 15,8,15,"i0:":save "@0:fastnew.bas",8:close 15:stop
62000 close 15:open 15,8,15:print#15,"m-r"chr$(18)chr$(0):get#15,i1$
62001 print#15,"m-r"chr$(19)chr$(0):get#15,i2$
62002 print i1$i2$
62004 close 15:stop