Elektronischer Merkzettel
Wenn Sie mit zwei unabhängigen Bildschirmen arbeiten wollen, dann werden Sie von diesem Programm begeistert sein.
Das Programm »Merkzettel« ist ganz in Maschinensprache geschrieben. Es entstand aus folgendem Problem: Während man ein Programm schreibt, will man Notizen machen, die man häufig auf einem Zettel notiert. Hat man dann erst einmal einige Zettel vollgeschrieben, findet man meistens die erste Notiz nicht gleich wieder. Das kostet Zeit und beansprucht die Nerven. Dieses Programm ermöglicht nun das Führen eines Notizblattes direkt mit dem Computer. Durch Drücken der Funktionstaste F1 wird der Inhalt des Bildschirms mit dem Inhalt des Speichers vertauscht. Sie schreiben also Ihre Notizen auf den Bildschirm, drücken die Taste F1 und schon haben Sie die Information gespeichert. Wenn Sie sie wieder brauchen, drücken Sie einfach erneut die Taste F1, und auf dem Bildschirm erscheinen die vorher abgelegten Informationen, in einer bestimmten Farbe. Diese Farbe können Sie in der Zeile 88 ändern, indem Sie einen anderen Wert als Null in das Register 49366 POKEn.
Das Programm belegt den Bereich von $C000 bis $C0DB. Außerdem werden die nachfolgenden 2 KByte noch zur Zwischenspeicherung benötigt.
(Georg Kramer/ah)10 rem *****************************
20 rem ** merk-zettel **
21 rem ** ------------------- **
22 rem ** written by georg kramer **
23 rem ** 4783 anroechte **
24 rem ** (c) 16.2.1985 **
25 rem *****************************
26 :
30 printchr$(147):print
32 rem **** copyright ****
35 printspc(12)"UCCCCCCCCCCCCCI"
36 printspc(12)"B merk-zettel B"
37 printspc(12)"JCCCCCCCCCCCCCK"
38 print:printspc(8)"written by georg kramer"
39 print:printspc(13)"(c) 16.2.1985"
40 print:fori=1to40:print"-";:next
50 printspc(41)"zwischenspeichern der bildschirmseite"
55 print:printspc(10)"neue tastenfunktion:{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}----------------------"
60 print:printspc(11)"{rvon} f1 {rvof} - bild wechsel"
80 print:printspc(54)"<< taste >>"
81 poke198,0
82 geta$:ifa$=""then82
83 printchr$(147)spc(52)"etwas gedult..."
84 rem *** daten laden ***
85 fori=49152to49415
86 reada:pokei,a:x=x+a:next
87 ifx<>38638thenprint"data fehler !":end
88 poke49152+214,0:rem + schriftfarbe +
89 sys49152:rem prg.-start
90 print"{clr}":printspc(44)"{rvon} programm aktiviert "
91 printspc(4)"{rvon} $c000-$c107 "
92 printspc(4)"{rvon} ende mit run/stop-restore "
93 end
99 rem **** maschinenprogramm ****
100 data76,251,192,162,0,134,251,162,194,134,252,162,232,134,253,162,197
101 data134,254,162,0,134,182,162,199,134,183,160,0,177,251,145,182,165,252
102 data197,254,240,22,165,251,201,255,240,24,230,251,165,182,201,255,240
103 data28,230,182,169,0,201,0,240,224,165,251,197,253,208,228,240,24,169
104 data255,133,251,230,252,169,0,201,0,240,220,169,255,133,182,230,183,169
105 data0,201,0,240,216,96,165,203,201,4,240,4,76,49,234,96,169,0,141,4,192
106 data169,4,141,8,192,169,0,141,12,192,169,8,141,16,192,169,0,141,20,192
107 data169,194,141,24,192,32,3,192,169,0,141,4,192,169,199,141,8,192,169
108 data232,141,12,192,169,202,141,16,192,169,0,141,20,192,169,4,141,24,192
109 data32,3,192,169,0,141,4,192,169,194,141,8,192,169,232,141,12,192,169
110 data197,141,16,192,169,0,141,20,192,169,199,141,24,192,32,3,192,169,0
111 data133,251,169,216,133,252,160,0,169,1,145,251,230,251,208,250,166,252
112 data224,218,240,8,230,252,162,0,224,0,240,232,230,252,160,0,145,251,200
113 data192,232,208,249,76,49,234,96,234,120,169,94,141,20,3,169,192,141
114 data21,3,88,96
10 REM ***************************** 20 REM ** MERK-ZETTEL ** 21 REM ** ------------------- ** 22 REM ** WRITTEN BY GEORG KRAMER ** 23 REM ** 4783 ANROECHTE ** 24 REM ** (C) 16.2.1985 ** 25 REM ***************************** 26 : 30 PRINTCHR$ (147):PRINT 32 REM **** COPYRIGHT **** 35 PRINTSPC( 12)"UCCCCCCCCCCCCCI" 36 PRINTSPC( 12)"B MERK-ZETTEL B" 37 PRINTSPC( 12)"JCCCCCCCCCCCCCK" 38 PRINT:PRINTSPC( 8)"WRITTEN BY GEORG KRAMER" 39 PRINT:PRINTSPC( 13)"(C) 16.2.1985" 40 PRINT:FOR I=1 TO40:PRINT"-";:NEXT 50 PRINTSPC( 41)"ZWISCHENSPEICHERN DER BILDSCHIRMSEITE" 55 PRINT:PRINTSPC( 10)"NEUE TASTENFUNKTION:{DOWN,21LEFT}----------------------" 60 PRINT:PRINTSPC( 11)"{RVSON,SPACE}F1{SPACE,RVOFF,SPACE}- BILD WECHSEL" 80 PRINT:PRINTSPC( 54)"<< TASTE >>" 81 POKE 198,0 82 GET A$:IF A$="" THEN82 83 PRINTCHR$ (147)SPC( 52)"ETWAS GEDULT..." 84 REM *** DATEN LADEN *** 85 FOR I=49152 TO49415 86 READ A:POKE I,A:X=X+A:NEXT 87 IF X<>38638 THENPRINT"DATA FEHLER !":END 88 POKE 49152+214,0:REM + SCHRIFTFARBE + 89 SYS 49152:REM PRG.-START 90 PRINT"{CLR}":PRINTSPC( 44)"{RVSON,8SPACE}PROGRAMM AKTIVIERT{5SPACE}" 91 PRINTSPC( 4)"{RVSON,11SPACE}$C000-$C107{9SPACE}" 92 PRINTSPC( 4)"{RVSON,3SPACE}ENDE MIT RUN/STOP-RESTORE{3SPACE}" 93 END 99 REM **** MASCHINENPROGRAMM **** 100 DATA 76,251,192,162,0,134,251,162,194,134,252,162,232,134,253,162,197 101 DATA 134,254,162,0,134,182,162,199,134,183,160,0,177,251,145,182,165,252 102 DATA 197,254,240,22,165,251,201,255,240,24,230,251,165,182,201,255,240 103 DATA 28,230,182,169,0,201,0,240,224,165,251,197,253,208,228,240,24,169 104 DATA 255,133,251,230,252,169,0,201,0,240,220,169,255,133,182,230,183,169 105 DATA 0,201,0,240,216,96,165,203,201,4,240,4,76,49,234,96,169,0,141,4,192 106 DATA 169,4,141,8,192,169,0,141,12,192,169,8,141,16,192,169,0,141,20,192 107 DATA 169,194,141,24,192,32,3,192,169,0,141,4,192,169,199,141,8,192,169 108 DATA 232,141,12,192,169,202,141,16,192,169,0,141,20,192,169,4,141,24,192 109 DATA 32,3,192,169,0,141,4,192,169,194,141,8,192,169,232,141,12,192,169 110 DATA 197,141,16,192,169,0,141,20,192,169,199,141,24,192,32,3,192,169,0 111 DATA 133,251,169,216,133,252,160,0,169,1,145,251,230,251,208,250,166,252 112 DATA 224,218,240,8,230,252,162,0,224,0,240,232,230,252,160,0,145,251,200 113 DATA 192,232,208,249,76,49,234,96,234,120,169,94,141,20,3,169,192,141 114 DATA 21,3,88,96
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen