home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar - Compleat Programmer
/
comprog2.d81
/
b.diskmeister
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
1KB
|
29 lines
100 dv=peek(186):ifdv<8thendv=8
110 delay=116:poke53280,0:poke53281,0
120 print"[147]";
130 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
140 print"":fori=217to242:pokei,peek(i)or128:next
150 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
160 fori=1to11:printtab(2)"[159] [155][146][223]":next
170 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
180 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
190 poke214,10:print"[145][159]";
200 fori=1to8:reada$
210 printspc(20-len(a$)/2)""a$:a$="":next
220 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then220
230 a$="diskmeister"
240 data"[196] [201] [211] [203] [205] [197] [201] [211] [212][160][197] [210] 1 2 2","by [202]eff [202]ones"
250 data" ([195])1994 by [204][207][193][196][211][212][193][210]"
260 data"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
270 [131]"(NULL)his is the copyrighted work of
280 data"[204][207][193][196][211][212][193][210], [206][207][212] intended for
290 [131]"distribution as public domain ","or shareware.
330 fori=dvtodv:close2:open2,i,2:close2:ifstthen350
340 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then360
350 next:print""a$" not found!":poke186,8:end
360 q$=chr$(34):poke646,peek(53281):print"";
370 print"p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
380 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
390 poke635,145:poke636,13:poke198,6:end
10000 open15,8,15,"s0:b.diskmeister":close15:save"b.diskmeister",8:end