home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 154
/
154.d81
/
b.plumb
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
42 lines
0 print"[147]":poke832,0:poke53272,22:poke53270,200:poke53265,11:gosub2000
1 poke53265,27
5 poke56,75:poke55,0:clr
6 deffnl(x)=x-fnh(x)*256
7 deffnh(x)=int(x/256)
10 dv=peek(186):ifdv<8thendv=8
11 cr$=chr$(34)
20 print"";:poke646,peek(53281)
30 print"l[207]"cr$"plumb"cr$","dv
40 print"run":poke198,2:poke631,13:poke632,13
50 reada$,a:ifa=0then100
60 sys57812a$,dv,0:poke780,0:poke781,fnl(a):poke782,fnh(a):sys65493
70 goto50
100 q=37:poke44,q:pokeq*256,0
999 end
1000 data"plumb.scr",34792
1001 data"image.o",39400
1002 data"plumb.ml",4096
1003 data"plumb.fnt",6144
1004 data"plumb2.spr",8192
1005 data"plumb.lvl",49152
1006 data"unpacker.89",51456
1007 data"plumb.shp",25600
1008 data"m.4b00*",19200
1009 data"plumb.music",40960
1999 data"",0
2000 print"[147]":poke53280,0:poke53281,0:poke214,12:print
2002 printtab(30)"[151] "
2011 print" [151] ";
2012 print" [208] [204] [213] [205] [194] [195] [210] [193] [218] [217] [151] ";
2013 print"[155] by [196]ave [205]oorman [151] [155] ";
2014 print"[155] (c)1997 [202] & [198] [208]ublishing [151] [155] ";
2015 print"[152] [193]ll [210]ights [210]eserved [151] [152] ";
2016 print"[152] [212]his program is [206][207][212] in the [155] [152] ";
2017 print"[151] [208]ublic [196]omain. [155] [151] ";
2018 print"[151] ";
2019 printtab(30)"[151] "
2020 return
59999 end
60000 dv=peek(186):ifdv<8thenstop
60001 f$="b.plumb":open15,dv,15,"s0:"+f$:close15:savef$,dv