home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 69
/
Tiger_Disk_069_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
austro-converter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
50 lines
0 rem -- filename: "austro-converter".
10 clr:sys58792:print"[147][158]austro-converter program...[154]":print
20 print"changes standard austrospeed programs,"
30 print"giving them a line number of zero, and"
40 print"a properly decriptive title...":print
50 input" input filename";f1$:iff1$=""then330
60 input" input device";d1:print:gosub160
70 input"output filename";f2$:iff2$=""then330
80 input" output device";d2:print:gosub250
90 print"title to give program (fourteen letters":print"or fewer only):":print
100 input">>";n$:ifn$=""then330
110 iflen(n$)>12thennq=1:goto350
120 print:input"o.k. to quote this title (y/n)";yn$:yn$=left$(yn$,1)
130 ifyn$="n"thennq=1
140 goto350
150 stop
160 z$=chr$(0):ac$=""+z$+"[158]2076 austrospeed 1e"+z$+z$+z$
170 close15:open15,d1,15,"i0":open5,d1,5,"0:"+f1$+",p,r"
180 input#15,n1$,e1$,t1$,s1$:ifn1$="00"then200
190 print"[147]"+n1$+" "+e1$+" "+t1$+" "+s1$:print:print"[150]aborted![154]";:clr:end
200 y$="":x$="":forx=1to29:get#5,x$:ifx$=""thenx$=z$
210 y$=y$+x$:nextx:close5:print#15,"i0":close15:ifac$=y$thenreturn
220 print"[147][159]specified input file is not a standard"
230 print"austrospeed file![154]":print:print"[150]aborted![154]";:end
240 stop
250 close15:open15,d2,15,"r0:"+f2$+"=0:"+f2$:input#15,n2$,e2$,t2$,s2$:close15
260 ifn2$="62"thenprint:return
270 ifn2$="63"then290
280 print"[147]"+n2$+" "+e2$+" "+t2$+" "+s2$:print:print"[150]aborted![154]";:clr:end
290 input"file exists! overwrite it (y/n)";yn$:print:yn$=left$(yn$,1)
300 ifyn$="y"thenreturn
310 print"[150]aborted![154]";:clr:end
320 stop
330 clr:poke631,13:poke198,1:print"[147]";:sys58792:print"[147][150]all done![154]";:end
340 stop
350 poke53280,6:q$=chr$(34):print"[147]f[207]x=631to635:p[207]x,13:n[197]x:p[207]198,5:";
360 print"l[207]"+q$+"0:"+f1$+",p,r"+q$+",";d1;",1"
370 zz$="n$=q$+n$+q$:":ifnq=1thenzz$=""
380 print"q$=chr$(34):n$="+q$+n$+q$+":"+zz$;
390 print"n$=left$(n$"+"+"+q$+" "+q$+",14)"
400 print:printtab(9);"[158]working... please wait..."
410 print"l=len(n$):p[207]2051,0:f[207]x=1tol:p[207]2058+x,asc(mid$(n$,x,1)):n[197]x:";
420 print"?"+q$+"[159]"+q$+";:l[201]"
430 print"f2$="+q$+f2$+q$+":cl[207]1:o[208]1,";d2;",15,"+q$+"s0:"+q$+"+f2$:";
440 print"cl[207]1:p[207]646,6:s[193]"+q$+"0:"+q$+"+f2$+"+q$+",p,w"+q$+",";d2
450 print"?"+q$+"[147]"+q$+";:s[217]58792:?"+q$+"[150]all done![154]"+q$+";:new";
460 poke631,13:poke198,1:end
470 stop
480 end