Zu zweit geht’s besser
Dieses Programm für C 64, Floppy und Drucker beseitigt ein lästiges und papieraufwendiges Problem: Drucker, die keinen Randsteller haben, können zwei Directories nebeneinander ausgeben.
Nachdem eine Diskette eingelegt und eine Taste gedrückt wurde, lädt das Programm die Directory in den Speicher. Nun ist die zweite Directory an der Reihe. Sobald diese geladen ist, werden die Directories nebeneinander ausgedruckt. Hierbei wird nach und vor ihnen eine Leerzeile eingefügt, damit in einer Serie von Directories nicht alle aneinanderkleben. Nach dem Ausdrucken können weitere Disketteninhalte bearbeitet werden.
Vorsicht! Es werden keinerlei Druckereinstellungen vorgenommen. Also müssen alle Einstellungen vor dem Start des Programms vorgenommen werden (Zeilenabstand etc.). Die voreingestellte Sekundäradresse ist 0. Sie kann aber mit POKE 2144, neue Sekundäradresse auf einen beliebigen Wert gesetzt werden. Die Geräteadresse kann mit POKE 2142,5 zum Beispiel von 4 auf 5 gesetzt werden. (Übrigens: da das Programm am Basic-Anfang liegt und weil ihm ein SYS-Befehl vorgelagert ist, kann es mit LOAD »name«,8 (,1 bei Kassette) geladen und mit RUN gestartet werden.)
(Claus Brunzema/rg)PROGRAMM : DIR.DRUCKER 0801 09BE ----------------------------------- 0801 : 1C 08 0A 00 9E 32 30 38 51 0809 : 30 3A 8F 20 53 4F 46 54 B0 0811 : 49 45 2D 53 4F 46 54 57 DA 0819 : 41 52 45 00 00 00 24 A9 B9 0821 : 00 A9 10 A2 00 8D 3D 03 B6 0829 : 8E 3C 03 20 FD 08 8E 3E 71 0831 : 03 8C 3F 03 98 20 FD 08 3D 0839 : A9 00 85 C6 A0 10 20 37 96 0841 : A5 AD 3E 03 AC 3F 03 20 BE 0849 : 37 A5 A9 01 8D 43 03 8D F7 0851 : 41 03 20 E7 FF A9 00 20 A6 0859 : BD FF A9 01 A2 04 A0 00 6D 0861 : 20 BA FF 20 C0 FF B0 65 7C 0869 : A2 01 20 C9 FF 20 68 09 82 0871 : AD 3C 03 AE 3D 03 20 26 8C 0879 : 09 8D 40 03 AD 43 03 F0 9C 0881 : 06 CE 43 03 CE 42 03 8C 44 0889 : 3C 03 8E 3D 03 AC 42 03 37 0891 : 20 63 09 C8 C0 28 D0 F8 41 0899 : AD 41 03 D0 06 20 68 09 D7 08A1 : 4C B9 08 AD 3E 03 AE 3F B7 08A9 : 03 20 26 09 8D 41 03 8C 6F 08B1 : 3E 03 8E 3F 03 20 68 09 E1 08B9 : AD 40 03 D0 B3 AD 41 03 15 08C1 : F0 13 A2 29 20 63 09 CA DF 08C9 : D0 FA 4C 99 08 48 20 F4 8A 08D1 : 08 68 4C 04 E1 20 68 09 74 08D9 : 20 F4 08 A9 A0 A0 09 20 1E 08E1 : 1E AB 20 6D 09 C9 4A F0 75 08E9 : 07 C9 4E F0 06 4C E3 08 E9 08F1 : 4C 20 08 20 CC FF A9 01 C9 08F9 : 20 C3 FF 60 48 8A 48 A9 54 0901 : 79 A0 09 20 1E AB 20 6D AB 0909 : 09 A9 01 A2 1F A0 08 20 D3 0911 : BD FF A2 08 A0 00 20 BA 77 0919 : FF 68 AA 68 A8 A9 00 20 1C 0921 : D5 FF B0 A9 60 85 FB 86 86 0929 : FC A0 00 B1 FB 85 FD C8 21 0931 : B1 FB 85 FE C8 B1 FB AA 80 0939 : C8 B1 FB 20 CD BD 8C 42 5E 0941 : 03 20 63 09 A0 04 B1 FB 37 0949 : F0 0A EE 42 03 20 D2 FF BF 0951 : C8 4C 47 09 A9 92 20 D2 88 0959 : FF A0 00 B1 FD A4 FD A6 29 0961 : FE 60 A9 20 4C D2 FF A9 AC 0969 : 0D 4C D2 FF A5 C6 F0 FC 9F 0971 : AD 77 02 A2 00 86 C6 60 BF 0979 : 42 49 54 54 45 20 44 49 F8 0981 : 45 20 4E 41 45 43 48 53 C8 0989 : 54 45 20 44 49 53 4B 45 F7 0991 : 54 54 45 20 45 49 4E 4C D5 0999 : 45 47 45 4E 0D 0D 00 4E 73 09A1 : 4F 43 48 20 45 49 4E 45 0A 09A9 : 20 44 49 53 4B 45 54 54 81 09B1 : 45 20 28 4A 2F 4E 29 20 A4 09B9 : 3F 0D 0D 00 08 69
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen