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