home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 16
/
Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
datei_adress-con
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
77 lines
10 printchr$(14)chr$(8)
15 dimxf$(200,4),x$(4)
20 poke53280,0:poke53281,0:poke646,7
1000 print"[147][195][207][206][214][197][210][212]"
1010 print"[195][207][206][214][197][210][212] wandelt [196]aten vom [196]atei 64 ins [193]dress 64 [198]ormat ";
1020 print"und umgekehrt."
1030 print"1.) [196]atei 64 ---> [193]dress 64"
1040 print"2.) [193]dress 64 ---> [196]atei 64"
1045 print"3.) [196]atei 64 laden"
1047 print"4.) [193]dress 64 laden"
1050 print"[215]aehlen [211]ie die [213]mwandlungsrichtung:[164][157]";
1060 gete$:ife$<"1"ore$>"4"thengoto1060
1070 printe$
1100 onval(e$)goto2000,3000,5000,6000
2000 rem datei --> adress
2010 input"[215]ie heisst das [209]uellen-[198]ile ";qf$
2020 open1,8,3,qf$+",s,r"
2030 open2,8,4,"@:[206]ame [204]ist,s,w"
2040 input#1,na$,d$,anzahl
2045 print" "na$,d$,anz
2050 print#2,d$
2060 fora=0toanzahl
2070 : forb=0to4
2075 : input#1,x$(b):ifx$(b)=" "then x$(b)="-"
2080 : nextb
2090 : forc=1tolen(x$(0))-1
2100 : ifmid$(x$(0),c,1)=";"then2120
2110 : nextc:na$=x$(0):vo$="-":goto2130
2120 : na$=left$(x$(0),c-1):vo$=mid$( x$(0),c+1)
2130 : print#2,nach$
2140 : print#2,vo$
2150 : print#2,"-"
2160 : print#2,"-"
2170 : print#2,"-"
2180 : print#2,x$(1)
2190 : print#2,x$(2)
2200 : print#2,"-"
2210 : print#2,x$(3)
2220 : print#2,"-"
2225 : print#2,"\"
2230 nexta
2300 close2:close1
2310 goto20
3000 rem adress --> datei
3006 open2,8,4,"[206]ame [204]ist,s,r"
3007 input#2,d$
3010 input"[215]ie soll das [193]blage-[198]ile heissen";af$
3015 open1,8,3,"@0:"+af$+",s,w"
3020 fors=0to200
3030 : forx=1to11
3040 : gosub4000
3050 : onxgoto3060,3070,3200,3200,3200, 3075,3080,3100,3090,3100,3200
3055 : goto3100
3060 : xf$(s,0)=x$:goto3200
3070 : ifx$<>"-"thenxf$(s,0)=xf$(s,0)+ ";"+x$
3072 : goto3200
3075 : xf$(s,1)=x$:goto3200
3080 : xf$(s,2)=x$:goto3200
3090 : xf$(s,3)=x$:goto3200
3100 : xf$(s,4)=" "
3200 : ifst=0thennextx
3210 ifst=0thennexts
3300 print#1,af$:print#1,d$:print#1,s
3310 fora=0tos
3320 : forb=0to4
3330 : print#1,xf$(a,b)
3340 : nextb
3350 nexta
3400 close1:close2:goto20
4000 x$=""
4010 get#2,xy$:ifst=0andxy$<>chr$(13) thenx$=x$+xy$:goto4010
4020 return
5000 load"datei*",8
6000 load"adress*",8
9000 open15,8,15
9010 input#15,en,em$,et,es:printen,em$,es,et:close15:return