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