home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 223
/
223.d81
/
b.mazed
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
803b
|
35 lines
4 poke56,148:clr
5 d=peek(186):ifd<8thend=8
10 gosub41000
15 a$="mazed.pkd"
20 print"[144]l[207]a$,d":print"run":poke198,2:poke631,13:poke632,13
9999 end
10000 d=8:n$="b.mazed"
10001 open1,d,15,"i0":close1
10002 open1,d,15,"s0:"+n$:close1:saven$,d:end
41000 poke53280,0:poke53281,0:poke53272,22:print"[147]"
41002 poke214,13:print
41004 printtab(1)"[155] "
41005 forx=1to8
41006 printtab(1)"[152] "
41007 next
41013 printtab(1)"[151] "
41020 forx=1to6:reada$:poke214,14+x:print
41021 ifx=1theniflen(a$)<19thengosub41050
41022 printtab(19-len(a$)/2)"[152]"a$
41024 next
41030 t=ti+60
41031 ift>tithen41031
41032 print"":return
41050 b$=""
41051 fory=1tolen(a$):b$=b$+mid$(a$,y,1)+" ":next:a$=left$(b$,len(b$)-1):return
60000 rem filename (no prefix/extension)
60002 rem production name
60003 data"[205][193][218][197]-[205][197][210][201][218][197][196]
60004 [143] credit
60005 [131]"by str$ave (NULL)oorman
60006 data""
60007 data"(c)2003 [202] & [198] [208]ublishing, [201]nc.
60008 [131]""
60009 [131]"www.loadstar.com