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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  50 lines
  1. 0 rem -- filename: "austro-converter".
  2. 10 clr:sys58792:print"[147][158]austro-converter program...[154]":print
  3. 20 print"changes standard austrospeed programs,"
  4. 30 print"giving them a line number of zero, and"
  5. 40 print"a properly decriptive title...":print
  6. 50 input" input filename";f1$:iff1$=""then330
  7. 60 input"   input device";d1:print:gosub160
  8. 70 input"output filename";f2$:iff2$=""then330
  9. 80 input"  output device";d2:print:gosub250
  10. 90 print"title to give program (fourteen letters":print"or fewer only):":print
  11. 100 input">>";n$:ifn$=""then330
  12. 110 iflen(n$)>12thennq=1:goto350
  13. 120 print:input"o.k. to quote this title (y/n)";yn$:yn$=left$(yn$,1)
  14. 130 ifyn$="n"thennq=1
  15. 140 goto350
  16. 150 stop
  17. 160 z$=chr$(0):ac$=""+z$+"[158]2076 austrospeed 1e"+z$+z$+z$
  18. 170 close15:open15,d1,15,"i0":open5,d1,5,"0:"+f1$+",p,r"
  19. 180 input#15,n1$,e1$,t1$,s1$:ifn1$="00"then200
  20. 190 print"[147]"+n1$+" "+e1$+" "+t1$+" "+s1$:print:print"[150]aborted![154]";:clr:end
  21. 200 y$="":x$="":forx=1to29:get#5,x$:ifx$=""thenx$=z$
  22. 210 y$=y$+x$:nextx:close5:print#15,"i0":close15:ifac$=y$thenreturn
  23. 220 print"[147][159]specified input file is not a standard"
  24. 230 print"austrospeed file![154]":print:print"[150]aborted![154]";:end
  25. 240 stop
  26. 250 close15:open15,d2,15,"r0:"+f2$+"=0:"+f2$:input#15,n2$,e2$,t2$,s2$:close15
  27. 260 ifn2$="62"thenprint:return
  28. 270 ifn2$="63"then290
  29. 280 print"[147]"+n2$+" "+e2$+" "+t2$+" "+s2$:print:print"[150]aborted![154]";:clr:end
  30. 290 input"file exists! overwrite it (y/n)";yn$:print:yn$=left$(yn$,1)
  31. 300 ifyn$="y"thenreturn
  32. 310 print"[150]aborted![154]";:clr:end
  33. 320 stop
  34. 330 clr:poke631,13:poke198,1:print"[147]";:sys58792:print"[147][150]all done![154]";:end
  35. 340 stop
  36. 350 poke53280,6:q$=chr$(34):print"[147]f[207]x=631to635:p[207]x,13:n[197]x:p[207]198,5:";
  37. 360 print"l[207]"+q$+"0:"+f1$+",p,r"+q$+",";d1;",1"
  38. 370 zz$="n$=q$+n$+q$:":ifnq=1thenzz$=""
  39. 380 print"q$=chr$(34):n$="+q$+n$+q$+":"+zz$;
  40. 390 print"n$=left$(n$"+"+"+q$+"              "+q$+",14)"
  41. 400 print:printtab(9);"[158]working... please wait..."
  42. 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:";
  43. 420 print"?"+q$+"[159]"+q$+";:l[201]"
  44. 430 print"f2$="+q$+f2$+q$+":cl[207]1:o[208]1,";d2;",15,"+q$+"s0:"+q$+"+f2$:";
  45. 440 print"cl[207]1:p[207]646,6:s[193]"+q$+"0:"+q$+"+f2$+"+q$+",p,w"+q$+",";d2
  46. 450 print"?"+q$+"[147]"+q$+";:s[217]58792:?"+q$+"[150]all done![154]"+q$+";:new";
  47. 460 poke631,13:poke198,1:end
  48. 470 stop
  49. 480 end
  50.