home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 41 / Tiger_Disk_041_1997-08_Tiger-Crew-Disk_de_Side_B.d64 / file-expander (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  77 lines
  1. 10 rem*****************************
  2. 20 rem*                           *
  3. 30 rem*    file print expander    *
  4. 40 rem*            by             *
  5. 50 rem*      john crookshank      *
  6. 60 rem*         7/17/85           *
  7. 70 rem*                           *
  8. 80 rem* fox valley 64 users group *
  9. 85 rem*                           *
  10. 90 rem*****************************
  11. 100 close2:close15:close4
  12. 110 poke53280,0:poke53281,0:poke679,0
  13. 120 print"[147]           [198][201][204][197][160][208][210][201][206][212][160][197][216][208][193][206][196][197][210]          ";
  14. 130 print"           by [202]ohn [195]rookshank           "
  15. 131 print"      [215]ait, [204]oading [205][204] subroutine"
  16. 132 ifpeek(49152)<>162orpeek(49153)<>2orpeek(49154)<>32orpeek(49155)<>198then134
  17. 133 goto140
  18. 134 jc=1:load"xpandml",8,1
  19. 140 print"[145][154]   [205]it diesem [208]rogramm kannst [196]u    "
  20. 150 print"40-[218]eichen-[196][207][195]-[198]iles ausdrucken.       "
  21. 160 print"[196]iese werden in ein 80-[218]eichen-[198]ormat"
  22. 170 print"transferiert, also ganzzeilig gedruckt."
  23. 180 print"[196]u kannst aus dem [198]ile aber auch ein   "
  24. 190 print"80-[218]eichen-[196]iskfile erstellen, das [196]u"
  25. 200 print"weiterbearbeiten kannst. - [196]ie [193]usgabe"
  26. 210 print"kann auch auf dem [194]ildschirm erfolgen."
  27. 220 print"             [194]itte waehlen: "
  28. 230 print"    1: [198]ile auf [211]creen"
  29. 240 print"    2: [198]ile expandiert drucken"
  30. 245 print"    3: [196]isk-[198]ile (expandiert)"
  31. 250 print"      [154]     ([196]ruecke 1 - 3)":poke198,0
  32. 255 sys49264
  33. 260 geti$:ifi$<"1"ori$>"3"then255
  34. 270 i=val(i$):onigoto300,400,600
  35. 280 goto255
  36. 300 f$="":print"[198]ile-[206]ame eingeben                 [157][157][157][157][157][157][157][157][157][157][157][157]";:inputf$
  37. 310 iff$=""then10
  38. 320 open15,8,15:open2,8,2,"0:"+f$:gosub2000
  39. 330 print"[147][154]";:sys49152:close2:close15
  40. 340 ifpeek(679)=88then10
  41. 350 print"[198]ile-[197]nde  -  [212]aste druecken..":poke198,0:close2:close15
  42. 360 geti$:ifi$=""then360
  43. 370 goto10
  44. 400 f$="":print"[198]ile-[206]ame eingeben                  [157][157][157][157][157][157][157][157][157][157][157][157]";:inputf$
  45. 410 iff$=""then10
  46. 420 open15,8,15:open2,8,2,"0:"+f$:gosub2000
  47. 430 print"[211]ekundaer-[193]dresse des [196]ruckers     :"
  48. 440 print"([206]ormal:  7)  7[157][157][157]";:inputsa
  49. 450 print"[147][196]rucker einschalten und :  [210][197][212][213][210][206] "
  50. 460 print"([208]ress any key to exit)":poke198,0
  51. 470 geti$:ifi$=""then470
  52. 480 ifi$<>chr$(13)then10
  53. 490 close2:close15:open15,8,15:open2,8,2,"0:"+f$:gosub2000
  54. 500 print"               [208]rinting...              "
  55. 510 open4,4,sa:poke49578,0:poke49579,4:sys49326:close2:close15:print#4:close4:goto10
  56. 600 f$="":print"[198]ile-[206]ame eingeben                   [157][157][157][157][157][157][157][157][157][157][157][157]";:inputf$
  57. 610 iff$=""then10
  58. 620 n$="":print"[206]euer [198]ile-[206]ame               [157][157][157][157][157][157][157][157][157][157][157][157]";:inputn$
  59. 630 ifn$=""then10
  60. 640 close15:close2:close3:close4
  61. 650 open15,8,15,"i0"
  62. 660 open2,8,2,"0:"+f$:gosub2000
  63. 670 open3,8,3,"0:"+n$+",s,w":gosub2000
  64. 680 print"           [195]onverting file...           "
  65. 690 poke49578,0:poke49579,3:sys49326
  66. 700 close3:close4:close15:print"[198]inished!":fort=1to1000:next:goto10
  67. 2000 input#15,e1,e$,e2,e3
  68. 2010 ife1=0thenreturn
  69. 2020 close2:close15
  70. 2030 print"[147] [196]isk [197]rror! "
  71. 2040 ife1=62thenprint""chr$(34)f$chr$(34)" [206]ot found on this disk!"
  72. 2050 print""e1;"[157] ";e$;e2;"[157]";e3"[157] "
  73. 2060 print"[208]lease check your disk and drive"
  74. 2070 print"before trying again."
  75. 2080 fort=1to10000:gets$:ifs$=" "then10
  76. 2090 next:goto10
  77.