home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 28
/
028.d81
/
resistance
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
628b
|
18 lines
100 a$="louis f. sander - 1986"
110 b$="[149] [149] [158] [149] [129] [149]":c$=" "
120 d$="[205][205][205][205]":e$="[175][175][175][175][175][175][175][175][175][175]"
130 f$=chr$(206)+chr$(205):g$=e$
140 h$="[206][145][206][145][206][145][206]":i$="[144]'"
150 poke53281,13:print"[147]";chr$(142)
160 forj=1to2:f$=f$+f$:next
170 forj=1to5:printtab(12)b$;c$:next
180 print"[145][145][145] [155]";c$;spc(10);"[149]irc[155]";c$
190 print" ";d$;e$;f$;g$;h$;tab(58);"r 64";tab(181);i$
200 printtab(11)"piece de resistance"
210 printtab(59);"by";tab(90);a$;"[154]"
300 print"[144] press [return] for tips & tricks menu."
400 geta$:ifa$<>chr$(13)then400
63995 poke53281,3:print"[147] [210]eturning to [212]ips & [212]ricks menu."
63998 print"[159]l[207]";chr$(34);"tips & tricks";chr$(34);",8"
63999 poke631,13:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5:new