home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8605.d64 / druckeranpassung (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  280 lines
  1. 10 REM ********************************
  2. 11 REM *                              *
  3. 12 REM *   SUPER-PRINT-EDITOR FUER    *
  4. 13 REM *                              *
  5. 14 REM *      SUPER-PRINT V 3.0       *
  6. 15 REM *                              *
  7. 16 REM *          11.2.1986           *
  8. 17 REM *                              *
  9. 18 REM *       ECKEHARD FIEDLER       *
  10. 19 REM *     ADALBERTSTEINWEG 74      *
  11. 20 REM *         5100 AACHEN          *
  12. 21 REM *         0241/500303          *
  13. 22 REM *                              *
  14. 23 REM ********************************
  15. 24 :
  16. 25 :
  17. 90 DIM W(50):WM=49
  18. 100 PRINT CHR$(147)
  19. 110 PRINT TAB(5)"**** SUPER-PRINT EDITOR ****"
  20. 120 PRINT:PRINT:PRINT:PRINT:PRINT
  21. 130 PRINT TAB(5)"BITTE DISKETTE EINLEGEN UND"
  22. 140 PRINT:PRINT
  23. 150 PRINT TAB(7)"SCHREIBSCHUTZ ENTFERNEN"
  24. 160 PRINT:PRINT
  25. 180 PRINT TAB(9)"TASTE DRUECKEN > <" CHR$(157) CHR$(157);
  26. 190 POKE 204,0
  27. 200 GETA$:IFA$=""THEN 200
  28. 201 :
  29. 202 :
  30. 203 :  REM ZWISCHENFILE LOESCHEN
  31. 204 :
  32. 205 :
  33. 210 POKE 204,1:PRINT" "
  34. 220 PRINT:PRINT
  35. 230 OPEN 15,8,15,"I"
  36. 240 NN$ = CHR$(21)+"SUPER-PRINT"        :REM NAME FUER ZWISCHENFILE
  37. 250 PRINT#15,"S0:"NN$                   :REM EV. ALTES ZWISCHENFILE
  38. 255 :
  39. 260 GOSUB 50000                         :REM LOESCHEN
  40. 270 IF M1<>1THEN 60000 :REM ABBRUCH
  41. 290 :
  42. 291 :
  43. 292 :  REM ALTE WERTE AUSLESEN
  44. 293 :
  45. 294 :
  46. 300 OPEN 3,8,3,"SUPER-PRINT,P,R"
  47. 310 GOSUB 50000                         :REM FEHLERMELDUNG HOLEN
  48. 311 PRINT TAB(5)M2$
  49. 312 IF M1<>0THEN 60000
  50. 318 :
  51. 319 :
  52. 320 FORI=1TO23
  53. 325 GET#3,A$:IF ST<>0THEN 60000          :REM ABBRUCH
  54. 330 NEXT I
  55. 340 :
  56. 341 :
  57. 350 FOR I=1 TO WM                       :REM ALTE WERTE EINLESEN
  58. 360 GET#3,W$: IF ST<>0 THEN 60000       :REM ABBRUCH
  59. 370 W(I)=0:IF W$<>"" THENW(I)=ASC(W$)
  60. 380 NEXT I
  61. 390 CLOSE 3 
  62. 400 :
  63. 401 :
  64. 402 :  REM WERTE EDITIEREN
  65. 403 :
  66. 404 :
  67. 407 RESTORE: POKE 198,0
  68. 409 :
  69. 410 SM=10:FOR EA=0TOSM                  :REM SCHLEIFE DRUCKER-CODES <---
  70. 411 :
  71. 412 :
  72. 420 PRINT CHR$(147):PRINT
  73. 430 PRINT TAB(6)"BITTE STEUERSEQUENZEN FUER":PRINT
  74. 440 PRINT TAB(10)"DRUCKER EINGEBEN :":PRINT
  75. 441 PRINT TAB(2)"(FUER 2-BYTE-BEFEHLE 3. WERT 255!)"
  76. 442 PRINT:PRINT:PRINT
  77. 445 PRINT TAB(2)"STEUERBEFEHL :":PRINT
  78. 449 :
  79. 450 READ O$
  80. 451 DATA 480 PUNKTE/ZEILE (STANDARD)
  81. 452 DATA 960 PUNKTE/ZEILE (DOUBLE)
  82. 453 DATA 960 PUNKTE/ZEILE DOUBLE SPEED
  83. 454 DATA 1920 PUNKTE/ZEILE (QUADRUPLE)
  84. 455 DATA 640 PUNKTE/ZEILE
  85. 456 DATA 512 PUNKTE/ZEILE (PLOTTER)
  86. 457 DATA 720 PUNKTE/ZEILE
  87. 458 DATA HOECHSTE MOEGLICHE DICHTE
  88. 459 DATA DRUCKER INITIALISIEREN
  89. 460 DATA LINKEN RAND EINSTELLEN
  90. 461 DATA ZEILENVORSCHUB N/216
  91. 462 :
  92. 463 PRINT TAB(2)CHR$(18)"*** "O$" ***"
  93. 464 PRINT:PRINT:PRINT
  94. 465 :
  95. 466 :
  96. 470 A=4*EA+1
  97. 480 B=4*EA+2
  98. 490 C=4*EA+3
  99. 500 :
  100. 510 :
  101. 520 PRINT TAB(26)W(A);CHR$(145)
  102. 530 INPUT "  1) ESCAPE-CODE       : ";W(A)
  103. 535 :
  104. 540 PRINT TAB(26)W(B);CHR$(145)
  105. 550 INPUT "  2) ERSTER STEUERCODE : ";W(B)
  106. 555 :
  107. 560 PRINT TAB(26)W(C);CHR$(145)
  108. 570 INPUT "  3) ZWEITER STEUERCODE: ";W(C)
  109. 575 :
  110. 576 :
  111. 580 NEXT EA                             :REM SCHLEIFE DRUCKER-CODES --->
  112. 581 :
  113. 582 :
  114. 583 :  REM DRUCKER-TABELLE OK ?
  115. 584 :
  116. 585 :
  117. 590 PRINTCHR$(147):RESTORE              :REM WERTE DARSTELLEN
  118. 591 PRINT
  119. 592 :
  120. 593 FOR I=0TOSM
  121. 594 READ A$
  122. 595 PRINT A$" :"
  123. 596 PRINT TAB(24);CHR$(18);W(4*I+1);W(4*I+2);W(4*I+3)
  124. 597 NEXTI
  125. 598 :
  126. 599 PRINTCHR$(19);
  127. 600 PRINT TAB(4)"STEUERCODES OK ? [J/N] > <"CHR$(157)CHR$(157);
  128. 610 POKE 204,0
  129. 620 GET A$:IFA$=""THEN 620
  130. 625 POKE 204,1
  131. 630 IFA$="N"THEN 400
  132. 640 IFA$<>"J"AND A$<>"Y"THEN 610
  133. 690 :
  134. 691 :
  135. 692 :  REM REST EINSTELLEN
  136. 693 :
  137. 694 :
  138. 700 PRINT CHR$(147)
  139. 705 PRINT:PRINT
  140. 710 PRINT TAB(5)"**** SONSTIGE PARAMETER ****"
  141. 715 PRINT:PRINT:PRINT
  142. 716 P0=45
  143. 718 :
  144. 719 :
  145. 720 PRINT TAB(25);W(P0);CHR$(145)
  146. 730 INPUT "  CARRIAGE RETURN      :";W(P0)
  147. 735 PRINT
  148. 740 PRINT TAB(25);W(P0+1);CHR$(145)
  149. 750 INPUT "  LINEFEED CHARACTER   :";W(P0+1)
  150. 755 PRINT
  151. 760 PRINT TAB(25);W(P0+2);CHR$(145)
  152. 770 INPUT "  PRINTER-GERAETENUMMER:";W(P0+2)
  153. 775 PRINT
  154. 780 PRINT TAB(25);W(P0+3);CHR$(145)
  155. 790 INPUT "  HINTERGRUND-FARBE    :";W(P0+3)
  156. 795 PRINT
  157. 800 PRINT TAB(25);W(P0+4);CHR$(145)
  158. 810 INPUT "  TEXT-FARBE           :";W(P0+4)
  159. 812 PRINT:PRINT
  160. 815 :
  161. 816 :
  162. 817 :  REM PARAMETER OK?
  163. 818 :
  164. 819 :
  165. 820 PRINT "  PARAMETER OK ? [J/N/^] > <"CHR$(157)CHR$(157);
  166. 825 :
  167. 830 POKE 204,0
  168. 840 GET A$:IFA$=""THEN 840
  169. 850 POKE 204,1
  170. 855 :
  171. 860 IF A$="N"THEN 700
  172. 865 IF A$="^"THEN 400
  173. 870 IF A$<>"J"AND A$<>"Y"THEN 830
  174. 875 :
  175. 876 :
  176. 877 :  REM ABSPEICHERN ?
  177. 878 :
  178. 879 :
  179. 880 PRINT CHR$(147)
  180. 885 PRINT:PRINT:PRINT:PRINT
  181. 890 PRINT TAB(5)"ABSPEICHERN ? [J/N] > <"CHR$(157)CHR$(157);
  182. 895 :
  183. 900 POKE 204,0
  184. 910 GET A$:IFA$=""THEN 910
  185. 920 POKE 204,1
  186. 925 :
  187. 930 IFA$="N"THEN END
  188. 940 IFA$<>"J"AND A$<>"Y"THEN 900
  189. 951 :
  190. 952 :
  191. 953 :  REM SUPER-PRINT-FILE AENDERN
  192. 954 :
  193. 955 :
  194. 1000 PRINTCHR$(147)
  195. 1005 PRINT:PRINT:PRINT:PRINT
  196. 1010 PRINTTAB(10)"WORKING..."CHR$(191)CHR$(157);
  197. 1020 POKE204,0
  198. 1031 :
  199. 1032 : REM FILES OEFFNEN
  200. 1033 :
  201. 1100 PRINT#15,"I"
  202. 1110 OPEN 3,8,3,"SUPER-PRINT,P,R"       :REM LESEFILE
  203. 1115 NM$ = NN$+",P,W"
  204. 1120 OPEN 4,8,4,NM$                     :REM SCHREIBFILE
  205. 1130 FOR I=1TO23                        :REM ERSTEN 23 BYTES UEBERNEHMEN
  206. 1135 GET#3,A$:IF A$=""THEN A$=CHR$(0)
  207. 1140 IF ST<>0 THEN 60000 :REM ABBRUCH
  208. 1150 PRINT#4,A$;
  209. 1160 NEXT I
  210. 1161 :
  211. 1162 : REM WERTE EINFUEGEN
  212. 1163 :
  213. 1170 FOR I=1TOWM                        :REM ALTE WERTE IGNORIEREN
  214. 1175 GET#3,A$:IFST<>0 THEN 60000        :REM ABBRUCH
  215. 1180 NEXT I
  216. 1181 :
  217. 1182 : REM NEUE WERTE EINFUEGEN
  218. 1183 :
  219. 1190 FOR I=1TOWM
  220. 1195 PRINT#4,CHR$(W(I));
  221. 1196 IFST<>0THEN 60000                  :REM ABBRUCH
  222. 1200 NEXT I
  223. 1201 :
  224. 1202 : REM REST UEBERNEHMEN
  225. 1203 :
  226. 1210 J=0:FOR I=0TO1                     :REM ENDLOSSCHLEIFE
  227. 1215 :
  228. 1220 GET#3,A$
  229. 1221 :
  230. 1225 IFA$=""THEN A$=CHR$(0)
  231. 1230 IF ST<>0 THEN J=1                  :REM FILE-ENDE ??
  232. 1235 :
  233. 1240 PRINT#4,A$;                        :REM WERT SCHREIBEN
  234. 1245 I=J: NEXT I
  235. 1246 :
  236. 1247 GOSUB 50000:IF M1<>0 THEN 60000
  237. 1250 CLOSE 4: CLOSE 3
  238. 1255 :
  239. 1256 :
  240. 1257 :  REM ALTES FILE ERSETZEN
  241. 1258 :
  242. 1259 :
  243. 1260 PRINT#15,"I"
  244. 1270 PRINT#15,"S0:SUPER-PRINT"          :REM ALTES LOESCHEN
  245. 1275 PRINT#15,"I"
  246. 1280 PRINT#15,"C0:SUPER-PRINT="NN$      :REM NEUES AUF ALTEN PLATZ
  247. 1290 GOSUB 50000
  248. 1295 PRINT#15,"I"
  249. 1297 :
  250. 1298 :
  251. 1300 POKE204,1:PRINT" "
  252. 1310 PRINT:PRINT
  253. 1315 PRINT TAB(5)M2$,M3                 :REM FEHLERMELDUNG ?
  254. 1317 :
  255. 1318 :
  256. 1320 PRINT#15,"S0:"NN$                  :REM ZWISCHENFILE LOESCHEN
  257. 1330 GOSUB 50000
  258. 1335 PRINT#15,"I"                       :REM FLOPPY INITIALISIEREN
  259. 1337 :
  260. 1340 IF M1=1THEN PRINT TAB(5)"OK":GOTO1400
  261. 1350 PRINT TAB(5) M2$
  262. 1400 CLOSE 15                           :REM ENDE
  263. 1500 END
  264. 49000 :REM ------------------------------------------------
  265. 49001 :
  266. 49002 :
  267. 49003 :  REM FEHLERMELDUNG VON FLOPPY LESEN
  268. 49004 :
  269. 49005 :
  270. 50000 INPUT#15,M1,M2$,M3,M4 : RETURN
  271. 59000 :REM ------------------------------------------------
  272. 59001 :
  273. 59002 :
  274. 59003 :  REM ABBRUCH BEI DISKETTENFEHLER
  275. 59004 :
  276. 59005 :
  277. 60000 PRINT:PRINT"DISKETTENFEHLER !!":PRINT
  278. 60010 GOSUB 50000: PRINT M2$
  279. 60020 CLOSE 3:CLOSE 4: CLOSE 15:END
  280.