1 REM "B.KNOCK31" 2001.04.11
10 PRINT"[147]":POKE53280,0:POKE53281,0:GOSUB100:A$="KNOCK31"
12 DV=PEEK(186):IFDV<8ORDV>29THENDV=8
32 PRINT"[144]L[207]"CHR$(34)A$CHR$(34)","DV:PRINT"R[213]:":POKE214,17:PRINT
34 POKE2048,0:POKE44,8:POKE43,1:POKE631,19:POKE632,13:POKE633,13:POKE198,3:END
100 Z$=" [152]                                      ":POKE214,5:PRINT
102 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO10:PRINTZ$:NEXT
104 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
106 Z$(0)="[203][206][207][195][203] 31":Z$(2)="BY [204]ANCE [195]. [212]HOMAS"
108 Z$(4)="(C) 2001 BY [202] & [198] [208]UBLISHING, [201]NC."
110 Z$(5)="[212]HIS PROGRAM IS NOT SHAREWARE":Z$(6)="OR IN THE PUBLIC DOMAIN."
112 Z$(8)="WWW.LOADSTAR.COM"
114 POKE214,7:PRINT:FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
10000 A$="B.KNOCK31"
10010 DV=PEEK(186):OPEN15,DV,15,"S0:"+A$:CLOSE15:SAVEA$,DV:END