home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 146
/
146.d81
/
bass.wraptor
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
213 lines
10 (NULL)sqr0:(NULL) $a000,$b000
15 'write"@0:d.wraptor,p,w"
20 (NULL)rnd $c000
30 (NULL)usr 1,1
40 deffna(q)=peek(252)*256+peek(251)
41 a$="wraptor.o"
42 b$="r0:"+a$+"="+a$
50 (NULL)1
55 (NULL)ea = $2d93
60 (NULL)custom = fna(q)+$0360
62 (NULL)ramlo = fna(q)+$0100
64 (NULL)ramhi = fna(q)+$0180
100 (NULL)framload
110 (NULL)sys #5
120 (NULL)clr #$55
130 (NULL)lp1
140 (NULL)/ $df00,y
150 (NULL)verify
160 (NULL)wait #1
170 (NULL)read (NULL)lp1
180 (NULL)sys #5
190 (NULL)lp2
200 (NULL)clr $df00,y
210 (NULL)stop #$55
220 (NULL)read (NULL)nogood
230 (NULL)verify
240 (NULL)wait #1
250 (NULL)read (NULL)lp2
260 (NULL)cont (NULL)ok1
270 (NULL)nogood
280 (NULL)list (NULL)message
290 (NULL)abs 13
300 (NULL)abs "?1750 reu not detected."
310 (NULL)abs 13,0
320 (NULL)not
330 (NULL)ok1
340 (NULL)clr $df00
350 and #16
360 (NULL)input# (NULL)nogood
362 (NULL)cont (NULL)reset
364 (NULL)install
370 (NULL)clr #<(NULL)ramlo
380 (NULL)/ 251
390 (NULL)clr #>(NULL)ramlo
400 (NULL)/ 252
410 (NULL)clr #$10
420 (NULL)/ 253
430 (NULL)clr #$01
440 (NULL)/ 254
450 (NULL)sys #0
460 (NULL)lp3
470 (NULL)clr (251),y
480 (NULL)/ (253),y
490 (NULL)print
500 (NULL)wait #128
510 (NULL)read (NULL)lp3
520 (NULL)sys #10
530 (NULL)lp4
540 (NULL)clr (NULL)dump4 ,y
550 (NULL)/ $df00,y
560 (NULL)verify
570 (NULL)read (NULL)lp4
580 (NULL)list 272
590 (NULL)clr #0
600 (NULL)list $a871
610 (NULL)cont $a7ae
640 (NULL)message
650 (NULL)tab(
660 (NULL)/ 251
670 (NULL)tab(
680 (NULL)/ 252
690 (NULL)lp5
700 (NULL)poke 251
710 (NULL)read fna(q)+4
720 (NULL)poke 252
730 (NULL)sys #0
740 (NULL)clr (251),y
750 (NULL)stop #0
760 (NULL)input# (NULL)done
770 (NULL)list $ffd2
780 (NULL)cont (NULL)lp5
790 (NULL)done
800 (NULL)clr 252
810 (NULL)get
820 (NULL)clr 251
830 (NULL)get
840 (NULL)not
1000 (NULL)dump4
1010 (NULL)abs 0,$90
1015 (NULL)fre (NULL)ramhi
1020 (NULL)abs 0,$f0,3,$e0,1,0,0
1022 (NULL)reset
1023 (NULL)*
1024 (NULL)list $ff8a
1025 (NULL)return
1026 (NULL)list (NULL)message
1028 (NULL)abs 13,13,"insert disk with "
1030 (NULL)abs 34,a$,34,13
1032 (NULL)abs "press return.",13,0
1033 (NULL)lpp
1034 (NULL)list $ffe4
1036 (NULL)input# fna(q)-3
1038 (NULL)stop #3
1040 (NULL)read fna(q)+3
1042 (NULL)not
1044 (NULL)stop #13
1046 (NULL)read (NULL)lpp
1048 (NULL)cont (NULL)routine
1800 (NULL)abs "robinson96"
1900 (NULL)pos (NULL)custom -fna(q)
2000 (NULL)routine
2005 (NULL)cmd #8
2010 (NULL)^ (NULL)dv
2015 (NULL)lp6
2016 (NULL)clr #2
2017 (NULL)list $ffc3
2020 (NULL)clr #0
2025 (NULL)list $ffbd
2030 (NULL)clr #2
2035 (NULL)>
2040 (NULL)cmd (NULL)dv
2045 (NULL)list $ffba
2050 (NULL)list $ffc0
2055 (NULL)clr #2
2060 (NULL)list $ffc3
2065 (NULL)clr $90
2070 (NULL)read (NULL)sk1
2072 (NULL)clr #15
2073 (NULL)list $ffc3
2075 (NULL)cmd #<(NULL)rename
2080 (NULL)sys #>(NULL)rename
2085 (NULL)clr #len(b$)
2090 (NULL)list $ffbd
2095 (NULL)clr #15
2100 (NULL)>
2105 (NULL)cmd (NULL)dv
2110 (NULL)list $ffba
2115 (NULL)list $ffc0
2120 (NULL)list $ffcc
2125 (NULL)cmd #15
2130 (NULL)list $ffc6
2135 (NULL)sys #0
2140 (NULL)lp7
2145 (NULL)list $ffe4
2150 (NULL)stop #13
2155 (NULL)input# (NULL)sk2
2160 (NULL)/ (NULL)error ,y
2165 (NULL)print
2170 (NULL)read (NULL)lp7
2175 (NULL)sk2
2180 (NULL)list $ffcc
2185 (NULL)clr #15
2190 (NULL)list $ffc3
2195 (NULL)clr (NULL)error
2200 (NULL)stop #"6"
2205 (NULL)read (NULL)sk1
2210 (NULL)clr (NULL)error +1
2215 (NULL)stop #"3"
2220 (NULL)input# (NULL)sk3
2225 (NULL)sk1
2230 (NULL)poke (NULL)dv
2235 (NULL)cmd (NULL)dv
2240 (NULL)on #14
2245 (NULL)read (NULL)lp6
2248 (NULL)notfound
2250 (NULL)list (NULL)message
2255 (NULL)abs 13,63,32,34
2258 (NULL)name
2260 (NULL)abs a$
2265 (NULL)abs 34," not found.",13,0
2270 (NULL)cont $a474
2275 (NULL)sk3
2280 (NULL)cmd #<(NULL)name
2285 (NULL)sys #>(NULL)name
2290 (NULL)clr #len(a$)
2295 (NULL)list $ffbd
2300 (NULL)clr #1
2305 (NULL)cmd (NULL)dv
2310 (NULL)sys #0
2315 (NULL)list $ffba
2320 (NULL)cmd #1
2325 (NULL)sys #8
2330 (NULL)clr #0
2335 (NULL)list $ffd5
2336 (NULL)^ 45
2337 (NULL)and 46
2340 (NULL)clr 2088
2345 (NULL)stop #$a2
2350 (NULL)read (NULL)sk4
2355 (NULL)clr #<(NULL)ret1
2360 (NULL)/ $0328
2365 (NULL)clr #>(NULL)ret1
2370 (NULL)/ $0329
2385 (NULL)cont 2088
2390 (NULL)ret1
2395 (NULL)clr #<(NULL)ea
2400 (NULL)/ 45
2405 (NULL)clr #>(NULL)ea
2410 (NULL)/ 46
2415 (NULL)clr #$ed
2417 (NULL)/ $0328
2419 (NULL)clr #$f6
2421 (NULL)/ $0329
2437 (NULL)sk4
2500 (NULL)cont (NULL)install
10000 (NULL)dv
10005 (NULL)abs 0
10010 (NULL)rename
10015 (NULL)abs b$
10020 (NULL)error
10025 (NULL)pos 40
55555 (NULL)2