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