home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 74
/
074.d81
/
me
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
34 lines
1 poke53280,0:poke53281,0:poke53265,11:poke198,0:s$=""
2 a$(1)=""+s$+"[193][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][211]"
3 a$(1)=a$(1)+""+s$+"[180]\\\ dungeon \\\[170]"
4 a$(1)=a$(1)+""+s$+"[218][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][216]":co$="[158][129][159][156][149][156][159][129][158]"
5 print"[147][151]";a$(1):print""+s$+"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
6 a$=s$+"[194]"+s$+s$+"[194]"
7 prints$;"[194]by dave caruso ii[194]":prints$;"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
8 print"";s$;"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]":printa$
9 prints$;"[194] [154][1[154]] guild [194]":printa$
50 prints$;"[194] [154][2[154]] dungeon maker [194]":printa$
55 prints$;"[194] [154][3[154]] treasure maker [194]":printa$
60 prints$;"[194] [154][4[154]] monster maker [194]":printa$
61 prints$;"[194] [154][5[154]] lost world [194]":printa$
62 prints$;"[194] [154][m[154]] more [194]":printa$
65 prints$;"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";:poke53265,27:c=1
67 c=c+1:ifc<>2then75
70 c=0:b=b+1:printmid$(co$,b,1);a$(1):ifb=16thenb=0
75 geta$:ifa$=""then67
76 ifx=1then135
77 ifa$="m"then100:poke53265,11:open15,8,15:print#15,"i":close15:sys64738
80 ifval(a$)<1orval(a$)>5then67
85 forg=1toval(a$):readd$:nextg:data"gu","dm","tm","mm","rd"
90 print"[147][144]load";chr$(34);d$;chr$(34);",8r[213][145][145][145][145][154]d u n g e o n[144]"
95 poke631,13:poke632,13:poke633,13:poke198,3:end
100 print"":forg=1to6:prints$;" ":next
110 print"[145][145][145][145][145][145][145][145][145][145][145]":prints$;"[194] [154][1[154]] utilities"
120 prints$;"[154][2[154]] print data disk":prints$;"[154][3[154]] leave game"
130 prints$;"[154][m[154]] more":x=1:goto67
135 ifa$="m"thenrun
137 ifa$="1"thend$="ut":goto90
138 ifa$="2"thend$="pd":goto90
139 ifa$<>"3"then67
140 poke53265,11:open15,8,15:print#15,"i":close15:sys64738