home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 August / 64er_Magazin_92-08_1992_Markt__Technik_de_Side_A.d64 / zs-convert (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 10 a=a+1:ifa=1thenload"load.tool",8,1
  2. 15 poke53280,0:poke53281,0:print"[147]"chr$(8);
  3. 16 gosub100
  4. 20 input"[218][211]-[206]ame ";n$
  5. 50 print"[147][144]sys53176"chr$(34)n$chr$(34)",14336":print:print:print:print:print"goto60";
  6. 55 poke631,13:poke632,13:poke198,2:end
  7. 60 open1,8,15,"s:fox":close1
  8. 70 sys53176 "fox",14336,16384
  9. 80 print"[147] [198]ertig ! [146]":end
  10. 100 print"[147][156][208]rintfox [218]eichensatz-[203]onverter"
  11. 110 print"von [193]ndreas [202]aeger 1991
  12. 120 [153]"sys(1) atnnleitung"
  13. 130 [153]"(2) (NULL)onverter starten
  14. 140 getx$:ifx$<>"1"andx$<>"2"then140
  15. 150 ifx$="2"thenreturn
  16. 160 print"[147][155][205]it diesem [203]onverter koennen [211]ie den"
  17. 165 print"[194]ildschrimzeichensatz des [208]rintfox ver-"
  18. 170 print"aendern. [196]azu gehen [211]ie folgendermassen"
  19. 175 print"vor :"
  20. 180 print"- [206]ehmen [211]ie einen beliebigen [218]eichen-"
  21. 182 print"  satzeditor und laden [211]ie den [218][211] '[207]ri-
  22. 184 [153]"  ginal-ascox' (das ist der (NULL)riginalbild-
  23. 186 print"  schrimzeichensatz vom [208]rintfox)."
  24. 188 print"- [214]eraendern [211]ie diesen nach [201]hren [215]uen-";
  25. 190 print"  schen.
  26. 192 [153]"- (NULL)peichern (NULL)ie den (NULL)(NULL) und laden (NULL)ie den";
  27. 194 [153]"  (NULL)(NULL)-(NULL)onverter."
  28. 196 [153]"- (NULL)aehlen (NULL)ie (NULL)enuepunkt 2 und geben (NULL)ie";
  29. 198 [153]"  den (NULL)amen right$hres veraenderten (NULL)eichen-
  30. 200 print"  satzes ein. [196]en [210]est erledigt der [203]on-";
  31. 202 print"  verter automatisch."
  32. 204 print"[201]m [208]rintfox wird der neue [218][211] dann mit"
  33. 206 print"[195]=[216] aufgerufen."
  34. 207 poke198,0:wait198,1:poke198,0
  35. 208 print"[198]alls [201]hr [218]eichensatzeditor eine [212]est-
  36. 210 [153]"funktion hat und (NULL)ie bemerken sollten,
  37. 212 print"dass nicht die [218]eichen erscheinen, die
  38. 214 [153]"erscheinen muessten, keine (NULL)anikclose! str$er
  39. 216 print"[208]rintfox hat eine andere [218][211]-[207]rdnung als
  40. 218 [153]"der normale len64."
  41. 220 [161]x$:[139]x$[178]""[167]220
  42. 221 [137]100
  43.