home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 134 / Tiger_Disk_134_20xx_Tiger-Crew-Disk_de_Side_B.d64 / geoexport-v1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  16 lines
  1. 2 goto6
  2. 4 get#3,a$:a=asc(a$+chr$(.)):return
  3. 6 dr=8:poke2,dr:print"[147][153][199]eo[215]rite [197]xporter [214]1.2 by [205]aster [194]laster"
  4. 8 input"[199]eo[215]rite file";gw$:ifgw$=""then28
  5. 10 open15,dr,15,"i0:":gosub26:open3,dr,3,"0:"+gw$+",u,r":gosub26
  6. 12 input"([193])scii or ([208])etscii";b$:ifb$<>"p"andb$<>"a"then12
  7. 14 poke4,abs(b$="p")*128:i=0
  8. 16 input"[207]utput file";o$:ifo$=""then28
  9. 18 input"([208])rg or ([211])eq file";b$:ifb$<>"p"andb$<>"s"then18
  10. 20 gosub4:poke828+i,a:gosub4:poke900+i,a:ifpeek(828+i)>.andi<59theni=i+1:goto20
  11. 22 close3:poke3,i:print:open2,dr,2,"0:"+o$+","+b$+",w":gosub26
  12. 24 open3,dr,3,"#":gosub26:sys(11*256):gosub26:goto28
  13. 26 input#15,e1$,e2$,e3$,e4$:ife1$<"20"thenreturn
  14. 28 close2:close3:close15:print:print"[196]one. [211]tatus: "e1$","e2$","e3$","e4$
  15. 30 rem ml extends from $0b00 to $0c86
  16.