home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 202 / 202.d81 / b.conquest (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  226b  |  8 lines
  1. 5 dv=peek(186):ifdv<8thenstop
  2. 10 poke44,156:poke156*256,0
  3. 20 print"[147]l[207]"chr$(34)"a.conquest"chr$(34)","dv""
  4. 30 forx=1to4:poke630+x,asc(mid$(chr$(13)+"r[213]"+chr$(13),x)):next:poke198,4
  5. 59999 end
  6. 60000 dv=peek(186):ifdv<8thenstop
  7. 60001 open15,dv,15,"s0:b.conquest":close15:save"0:b.conquest",dv
  8.