home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 61 / 061.d81 / gilgamesh (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  517b  |  18 lines
  1. 10 onxgoto50,70
  2. 20 poke53280,.:poke53281,.:printchr$(147)chr$(8)chr$(142)
  3. 30 printtab(8)"[155]stand by....loading map"
  4. 40 x=x+1:load"gilgamesh.map",8,1
  5. 50 poke53265,peek(53265)and239
  6. 60 x=x+1:load"gilgamesh.col",8,1
  7. 70 poke 53272,peek(53272) or 8
  8. 80 poke 53265,peek(53265) or 48
  9. 90 poke198,.
  10. 100 get a$: if a$ = "" then100
  11. 110 poke 53265,peek(53265) and 223
  12. 120 poke 53272,peek(53272) and 247
  13. 130 print"[147]"tab(8)"[155]prepare thyself, knave!"
  14. 140 open15,8,15,"r0:melee=melee"
  15. 150 input#15,er%:close15:ifer%<>63thenend
  16. 160 print"[144]load"chr$(34)"melee"chr$(34)",8":print"run":poke631,19
  17. 170 poke632,13:poke633,13:poke198,3:clr:end
  18.