33 lines
1 KiB
Text
33 lines
1 KiB
Text
|
start tok64 fb.prg
|
||
|
|
10 fora=0to6:readb:poke320+a,b:next
|
||
|
|
20 sys320:a=0:b=peek(327)
|
||
|
|
30 ifb<>226then60
|
||
|
|
40 a=1:poke53311,1:b=peek(53312):poke53311,0:ifb=255thena=2
|
||
|
|
50 goto200
|
||
|
|
60 ifb<>34then100
|
||
|
|
70 a=3:b=peek(44):ifb=4thena=4
|
||
|
|
80 ifb=18thena=5
|
||
|
|
81 mc=0:sj=0:poke40320,0:b=peek(39936)
|
||
|
|
82 ifb=214thenmc=1:sj=peek(40000)=76
|
||
|
|
83 printmc:printsj
|
||
|
|
90 goto200
|
||
|
|
100 ifb=246thena=6
|
||
|
|
110 ifb=61thena=7
|
||
|
|
200 forb=0to7:readsy$(b):next
|
||
|
|
210 print"{clear}cbm filebrowser{down}"
|
||
|
|
215 print"system: "sy$(a):ifa=0thenend
|
||
|
|
230 ld=186:ifa=6thenld=174
|
||
|
|
235 ifa<3ora=6ora=7ormc=0then270
|
||
|
|
240 a=8:print"mega-cart detected"
|
||
|
|
250 ifsj=0thenprint"sjload not installed":goto270
|
||
|
|
260 print "sjload ok, used":sys40000
|
||
|
|
270 forb=1to8:readprg$(b):next
|
||
|
|
280 print "loading..."
|
||
|
|
290 dr=peek(ld):loadprg$(a),dr
|
||
|
|
300 data173,252,255,141,71,01,96
|
||
|
|
310 data "not supported","c64","c64dtv","vic unexpanded"
|
||
|
|
320 data "vic +3k","vic +8/16/24k","c16-plus4","c128"
|
||
|
|
330 data "fb64","fb64dtv","fb20","fb20-3k","fb20-8k","fb16","fb128","fb20-mc"
|
||
|
|
stop tok64
|
||
|
|
(bastext 1.04)
|