So tippen Sie die Programme aus dem 64'er-Magazin ab

Damit Sie die abgedruckten Programme aus dem 64'er-Magazin so schnell und so fehlerfrei wie möglich abtippen können, haben wir für Sie unsere »Eingabehilfen« MSE und Checksummer entwickelt. Der MSE (Maschinenspracheeditor) hilft bei der Eingabe von Zahlen- und Buchstabenreihen, wie sie in Bild 2 dargestellt sind. Dabei handelt es sich in der Regel um Maschinenspracheprogramme. Zum Eintippen von Basic-Programmen dient der Checksummer. Die Eingabehilfen Checksummer und MSE sind mit LOAD "CHECKSUMMER V3",8 <RETURN> beziehungsweise LOAD "MSE V1.1",8 <RETURN> zu laden. Um sie zu starten, ist RUN <RETURN> einzugeben. Diese beiden Programme für den C64 wurden zuletzt mit ausführlicher Beschreibung in Ausgabe 6/88 veröffentlicht. MSE und Checksummer befinden sich ebenfalls (ohne Beschreibung) auf jeder Programmservice-Diskette.

Checksummer

Bild 1. Basic-Programmbeispiel aus dem 64'er-Magazin. Für die erste geschweifte klammer in Zeile 20 sind folgende Tastendrucke erforderlich: linke CRSR-Taste, lange Taste, SHIFT linke CRSR-Taste, SHIFT rechte CRSR-Taste.

Basic-Programme können Sie auch ohne Hilfe des Checksummer-Programms abtippen, wobei Sie aber auf die Kontrollmöglichkeit durch die Prüfsumme verzichten müssen. Diese Prüfsumme steht am Ende jeder Basic-Zeile (siehe auch Bild 1) und darf nicht mit eingegeben werden. Die in Basic-Programmen häufig vorkommende geschweiften Klammern { } markieren besondere Tasteneingaben. Bis auf wenige Ausnahmen sind sie mit dem, was auf der Tastatur steht, identisch. Allerdings sind einige Tasten mehrfach belegt, zum Beispiel .

Dabei bedeutet das, was oben auf der Taste steht (z.B. CLR): Drücke die Taste gleichzeitig mit der SHIFT-Taste. Das, was unten steht (z.B. HOME) entspricht der eigentlichen Tastenfunktion.

Finden Sie also in einem unserer Listings »CLR«, ist die SHIFT-Taste gleichzeitig mit der CLR/HOME-Taste zu drücken.

Die Farbangaben in den Listings sind ebenfalls in Englisch (z.B. BLACK, RED). Sie erhalten die jeweilige Farbe durch Drücken der Taste <CTRL> beziehungsweise <Control> in Verbindung mit einer Zahlentaste (Beschriftung auf der Tastenvorderseite).

Richtungsangaben (up, down, left, right beziehungsweise nach oben, nach unten, links, rechts) entsprechen den Cursor-Steuertasten rechts unten auf der Tastatur neben der rechten SHIFT-Taste. Die Pfeile auf den beiden Tasten verdeutlichen, in welche Richting sich der Cursor bewegt, wenn sie gedrückt werden. Auch hier gilt wieder: Das, was oben auf der Taste steht, wird in Verbindung mit der SHIFT-Taste ausgelöst. Zum Beispiel SHIFT bewegt den Cursor (blinkender Positionenanzeiger) eine Zeile nach oben beziehungsweise nach links bei der rechten Cursor-Taste. Im Listing steht dafür {UP} beziehungsweise {DOWN}.

Entdecken Sie »SPACE« in einem unserer Basic-Listings, so müssen Sie die große lange Taste drücken. Unterstrichene Zeichen (siehe Bild 1) bedeuten: Diese Zeichen in Verbindung mit der SHIFT-Taste eingeben. Überstrichene Zeichen müssen in Verbindung mit der Commodore-Taste eingegeben werden (die Taste ganz links unten mit dem Commodore-Zeichen »C=«). In allen Fällen erscheint ein Sonderzeichen auf Ihrem Bildschirm.

Die Steurbefehle in den Listings

{DOWN}
Taste neben rechtem Shift; Cursor unten
{UP}
Shift-Taste & Taste neben rechtem Shift; Cursor hoch
{CLR}
Shift-Taste & 2. Taste ganz rechts oben
{INST}
Shift-Taste & Taste ganz rechts oben
{HOME}
2. Taste von ganz rechts oben
{DEL}
Taste ganz rechts oben
{RIGHT}
Taste ganz rechts unten
{LEFT}
Shift-Taste & Taste unten rechts
{SPACE}
Leertaste
{SHIFT-SPACE}
Shift-Taste & Leertaste
{F1} bis {F8}
Funktionstasten
{RETURN}
Return-Taste
{BLACK}
Control-Taste & 1
{WHITE}
Control-Taste & 2
{RED}
Control-Taste & 3
{CYAN}
Control-Taste & 4
{PURPLE}
Control-Taste & 5
{GREEN}
Control-Taste & 6
{BLUE}
Control-Taste & 7
{YELLOW}
Control-Taste & 8
{RVSON}
Control-Taste & 9
{RVOFF}
Control-Taste & 0
{ORANGE}
Commodore-Taste & 1
{BROWN}
Commodore-Taste & 2
{LIG.RED}
Commodore-Taste & 3
{GREY1}
Commodore-Taste & 4
{GREY2}
Commodore-Taste & 5
{LIG.GREEN}
Commodore-Taste & 6
{LIG.BLUE}
Commodore-Taste & 7
{GREY3}
Commodore-Taste & 8

Der Listing zu Checksummer:

10 PRINT"{CLR}CHECKSUM FOR CBM 64"
11 PRINT:PRINT"PLEASE WAIT A MOMENT ..."
12 FOR I=828 TO 864:READ A:POKE I,A:PS=PS+A:NEXT I
13 IF PS<>5765 THEN PRINT"TYPING ERROR IN THE LINES 20 TO 22":END
14 SYS 828:PS=0:FORI=58464 TO 58583:READA:POKE I,A:PS=PS+A:NEXT I
15 IF PS<>16147 THEN PRINT"TYPING ERROR IN THE LINES 22 TO 30":END
16 POKE 1,53:POKE 42289,96:POKE 42290,228
17 PRINT"CHECKSUM ACTIVATED"
18 PRINT:PRINT"SWITCH OFF : POKE 1,55 OR"SPC(28)"<RUN/STOP+RESTORE>"
19 PRINT:PRINT"SWITCH ON  : POKE 1,53"
20 DATA 169,0,133,254,162,1,189,93,3,133,255,160,0,177,254
21 DATA 145,254,136,208,249,230,255,165,255,221,95,3,208,238,202
22 DATA 16,230,96,160,224,192,0,160,2,169,0,170,133,254,177
23 DATA 95,240,40,201,32,208,3,200,208,245,133,255,138,41,7
24 DATA 170,240,14,72,165,255,24,42,105,0,202,208,249,133,255
25 DATA 104,170,232,165,255,24,101,254,133,254,76,111,228,192,4
26 DATA 48,219,198,214,165,214,72,162,3,169,32,157,1,4,189
27 DATA 212,228,32,210,255,208,12,0,92,72,32,201,255,170,104
28 DATA 144,1,138,96,202,16,228,166,254,169,0,32,205,189,169
29 DATA 62,32,210,255,104,133,214,32,108,229,169,141,32,210,255
30 DATA 76,128,164,9,60,18,19
31 NEW

MSE

Bild 2. Maschinenprogramme (hier ein kleines Beispiel) müssen mit dem MSE eingegeben werden. Besonders wichtig ist, daß die Start- und Endadressen stimmen. Gestartet wird der MSE mit RUN <RETURN>.

MSE-Listings (Bild 2) müssen Sie mit der Eingabehilfe »MSE« abtippen. Die Kopfzeile jedes MSE-Listings enthält die Informationen »Programmname«, »Startadresse« und »Endadresse«, die der MSE benötigt. In Bild 2 wären dies »MSE-TEST«, »C000« und »D000«.

MSE-Listings (also Maschinenprogramme) müssen nach dem Abtippen immer mit dem Zusatz »,8,1« (von einer Diskette) beziehungsweise »,1,1« (von einer Kassette) geladen (Beispiel: LOAD "MSE-TEST",8,1) und mit dem Basic-Befehl »SYS« gestartet werden. Zum Starten von MSE-Listings benötigen Sie die MSE-Eingabehilfe nicht mehr.

Wenn Sie ein Programm von Diskette oder Kassette laden wollen, um an einer bestimmten Stelle weiterzutippen oder noch eine Korrektur vorzunehmen, geben Sie auf die Frage nach der Startadresse ein »L« ein. Danach müssen Sie <D> oder <T> drücken, je nachdem, ob Sie von Diskette oder Kassette (»tape«) laden möchten. Wenn das Programm unter diesem Namen nicht auf der Diskette vorhanden ist oder ein sonstiger Ladefehler vorlag, meldet sich der MSE mit »I/O-Error«. In so einem Fall drücken Sie <RUN/STOP RESTORE> und geben einfach noch einmal »RUN« ein.

Beim Abtippen geben Sie nach und nach die abgedruckten Buchstaben und Zahlen des jeweiligen Listings ohne die Freiräume dazwischen ein. Wenn Sie in einer Zeile einen Tippfehler gemacht haben, meldet sich der MSE sofort mit einem Brummton und der Meldung »EINGABEFEHLER«. Nach einem Druck auf die RETURN-Taste können Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie das gewünschte Programm volständig eingegeben haben, speichert es der MSE automatisch auf Diskette oder Kassette.

Bei längeren Listings ist es unwahrscheinlich, daß Sie das komplette Programm auf einmal eingeben. Sie können Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf Diskette oder Kassette speichern und Ihr Werk später fortsetzen. Sie sollten sich dann allerdings im Heft markieren, wie weit Sie beim Abtippen gekommen sind! Später geben Sie dann nach dem Laden des ersten Programmteils <CTRL N> ein und auf die dann folgende Frage nach der Startadressse die Zeilennummer (Adresse), bei der Sie aufgehört haben zu tippen.

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu lassen. Durch <SPACE> können Sie weiterlisten und durch <RUN/STOP> das Listen abbrechen.

Wenn Sie einen Drucker besitzen, können Sie das Programm auch mit <CTRL P> ausdrucken. Mit <CTRL L> wird das Programm noch einmal in Ihren C64 geladen.

(F. Lonczewski/N. Mann/D. Weineck/tr)

Wichtig: Die untenstehende Listing erzeugt die Datei »MSE V1.1«. Vor dem Eintippen des Listings, müssen Sie unbedingt ein paar Befehle eingeben (onhne Basic-Zeilennummer): POKE 44,32 : POKE 8192,0 : NEW. Wenn Sie das Programm abspeichern, und später laden, ist es ebenfalls notwendig zuerst diese drei Basic-Befehle auszuführen, und nur dann die Programm-Datei zu laden.

Der Listing zu MSE V1.1:
(einzugeben mit »CHECKSUMMER«, s.o.)

100 REM DIESES PROGRAMM ERZEUGT DEN        <210>
110 REM MSE V1.1 AUF DISKETTE.             <039>
120 REM BESITZER EINER DATASETTE           <178>
130 REM MUESSEN DIE '8' AM ENDE VON        <145>
140 REM ZEILE 343 IN EINE '1' AENDERN!     <176>
150 REM                                    <212>
230 IF PEEK(44)<>32 THEN PRINT"{CLR}SIE HA 
    BEN VERGESSEN, DIE POKES EINZUGE- BEN!
    ":END                                  <050>
240 PRINT"{CLR}";:DIM H(75):FOR I=0 TO 9   <042>
250 H(48+I)=I:H(65+I)=I+10:NEXT:Z=1000     <136>
260 FOR I=2048 TO 3755 STEP 20:PRINT"{HOME
    }ICH LESE ZEILE:"Z                     <253>
261 FOR N=0 TO 19:READ A$:IF LEN(A$)<>2 TH
    EN 900                                 <062>
262 IF PEEK(63)+PEEK(64)*256<>Z THEN 800   <011>
270 H=ASC(LEFT$(A$,1)):L=ASC(RIGHT$(A$,1)) <199>
280 D=H(H)*16+H(L):S=S+D:POKE I+N,D        <165>
290 NEXT:READ V:IF S<>V THEN 900           <139>
300 S=0:Z=Z+1:NEXT:R=PEEK(2111):H=PEEK(210
    6)                                     <126>
301 POKE 53280,R:POKE 53281,H:POKE 646,R:P
    RINT"{CLR}DIE DATA-ZEILEN SIND FEHLERF
    REI!"                                  <080>
302 PRINT"SIE KOENNEN NUN DIE FARBEN DES M
    SE"                                    <209>
303 PRINT"EINSTELLEN.":PRINT"{2DOWN,SPACE,
    RVSON}DRUECKEN SIE <1>, <2> ODER <9>   <205>
304 PRINT"{DOWN,2SPACE}<1> - RAHMEN-/SCHRI
    FTFARBE                                <013>
305 PRINT"{2SPACE}<2> - HINTERGRUNDFARBE   <233>
306 PRINT"{DOWN,2SPACE}<9> - FARBEN UEBERN
    EHMEN                                  <158>
307 PRINT"{2DOWN}FARBE <1>:"R:PRINT"FARBE
    <2>:"H                                 <066>
308 GET A:IF A=0 THEN 308                  <210>
309 IF A=1 THEN R=(R+1)AND 15              <098>
310 IF A=2 THEN H=(H+1)AND 15              <086>
311 IF A=9 THEN 340                        <217>
312 GOTO 301                               <034>
340 POKE 2106,H:POKE 2111,R                <153>
342 POKE 631,19:POKE 632,13:POKE 198,2     <135>
343 PRINT"{CLR}SAVE"CHR$(34)"MSE V1.1"CHR$
    (34)",8                                <091>
344 POKE 43,1:POKE 44,8:POKE 45,172:POKE 4
    6,14:END                               <140>
800 PRINT"{CLR,RVSON}SIE HABEN ZEILE"Z"{LE
    FT,SPACE}VERGESSEN:":A=PEEK(646)AND 15 <124>
810 POKE 646,PEEK(53281)AND 15:PRINT"LIST"
    Z-2"-"Z+2:POKE 646,A                   <224>
820 GOTO 920                               <082>
900 PRINT"{CLR,RVSON}SIE HABEN EINEN TIPPF
    EHLER GEMACHT:":A=PEEK(646)AND 15      <154>
910 POKE 646,PEEK(53281)AND 15:PRINT "LIST
    "Z:POKE 646,A                          <173>
920 POKE 631,19:POKE 632,17:POKE 633,13:PO
    KE 198,3:END                           <126>
1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00
     ,00,00,A2,08,A9,36,85,A4,A9, 1247     <119>
1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7
     ,A0,00,B1,A4,91,A6,C8,D0,F9, 2888     <054>
1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01
     ,4C,00,B0,20,D1,B1,A9,00,8D, 2781     <096>
1003 DATA 21,D0,A9,0F,8D,20,D0,8D,86,02,A0
     ,B3,A9,74,20,FF,B1,A0,B3,A9, 2679     <089>
1004 DATA B9,20,FF,B1,A0,00,20,CF,FF,99,01
     ,02,C8,C9,0D,D0,F5,88,F0,D2, 2912     <217>
1005 DATA C0,11,90,02,A0,10,8C,00,02,20,EA
     ,B1,A0,B3,A9,CF,20,FF,B1,20, 2327     <045>
1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB
     ,85,61,20,A7,B4,D0,20,A0,B3, 2864     <199>
1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20
     ,8E,B4,85,5F,20,A7,B4,D0,0A, 2624     <091>
1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20
     ,43,B3,4C,3A,B0,A9,AA,A0,00, 2379     <167>
1009 DATA EA,EA,E6,FB,D0,02,E6,FC,20,3F,B2
     ,90,EF,4C,FB,B4,A2,02,86,58, 3190     <041>
1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0
     ,FB,C9,30,90,0C,C9,47,B0,08, 2970     <231>
1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0
     ,0F,4C,0B,B1,20,D2,FF,A6,58, 2322     <121>
1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0
     ,26,C9,0C,D0,03,4C,0B,B6,C9, 2685     <057>
1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C
     ,BA,B4,C9,10,D0,03,4C,68,B5, 2282     <225>
1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C
     ,92,B0,A5,F9,20,02,B1,0A,0A, 2132     <208>
1015 DATA 0A,0A,85,F9,A5,F8,20,02,B1,05,F9
     ,60,C9,3A,90,02,69,08,29,0F, 1950     <092>
1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02
     ,B0,06,20,D2,FF,4C,8E,B0,C6, 2509     <188>
1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA
     ,84,57,68,68,4C,8B,B1,A6,D3, 2891     <197>
1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6
     ,58,E0,02,90,09,C6,59,20,D2, 2468     <049>
1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A
     ,4A,4A,20,59,B1,68,29,0F,C9, 2419     <035>
1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2
     ,FC,9A,20,D1,B1,20,48,B2,20, 2261     <073>
1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5
     ,FB,20,4E,B1,20,ED,B1,A9,3A, 2860     <148>
1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E
     ,B0,20,ED,B1,A4,59,20,EF,B0, 2530     <233>
1023 DATA 91,FB,C8,84,59,C0,08,90,EC,20,10
     ,B2,A9,12,20,D2,FF,20,8E,B0, 2657     <105>
1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9
     ,14,A0,14,20,F2,B1,4C,A2,B1, 2665     <034>
1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2
     ,20,3F,B2,90,9F,4C,8B,B5,A9, 2648     <123>
1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8
     ,9D,00,D9,9D,00,DA,9D,00,DB, 2476     <237>
1027 DATA E8,D0,EF,60,A9,0D,2C,A9,20,4C,D2
     ,FF,20,D2,FF,98,4C,D2,FF,20, 2965     <160>
1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00
     ,B1,5C,F0,06,20,D2,FF,C8,D0, 3100     <077>
1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,B1
     ,FB,18,65,5A,85,5A,90,02,E6, 2606     <156>
1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5
     ,5A,65,5B,85,FF,60,18,A5,FB, 2467     <219>
1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB
     ,C5,5F,A5,FC,E5,60,60,A0,B3, 3106     <183>
1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20
     ,D2,FF,CC,00,02,C8,90,F4,A9, 2692     <098>
1033 DATA 14,ED,00,02,AA,20,ED,B1,CA,D0,FA
     ,A5,62,20,4E,B1,A5,61,20,4E, 2457     <060>
1034 DATA B1,20,ED,B1,A5,60,20,4E,B1,A5,5F
     ,20,4E,B1,EA,EA,EA,EA,EA,EA, 3122     <190>
1035 DATA EA,EA,24,5E,10,01,60,A9,12,20,D2
     ,FF,A2,28,20,ED,B1,CA,D0,FA, 2703     <087>
1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01
     ,60,A9,A0,85,A4,A9,78,85,A6, 2945     <204>
1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1
     ,A4,91,A6,88,10,F9,CA,F0,19, 2671     <208>
1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 
     ,18,A5,A6,69,28,85,A6,90,E0, 2503     <251>
1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 
     ,0F,8D,18,D4,A9,00,8D,05,D4, 2776     <000>
1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 
     ,32,8D,01,D4,A9,00,8D,00,D4, 2413     <126>
1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 
     ,A2,FF,CA,D0,FD,88,D0,F8,60, 2914     <240>
1042 DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4,A9
     ,A5,8D,06,D4,A9,21,8D,04,D4, 2385     <119>
1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0
     ,FF,20,09,B3,A9,20,8D,04,D4, 2250     <078>
1044 DATA A9,00,8D,01,D4,8D,00,D4,60,38,20
     ,F0,FF,8A,48,98,48,18,A0,06, 2179     <175>
1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF
     ,B1,20,12,B3,20,E4,FF,F0,FB, 2931     <093>
1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68
     ,A8,68,AA,18,4C,F0,FF,0D,0D, 2704     <088>
1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53
     ,43,48,49,4E,45,4E,53,50,52, 1144     <216>
1048 DATA 41,43,48,45,20,2D,20,45,44,49,54
     ,4F,52,20,0D,0D,20,20,20,20, 1023     <038>
1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D
     ,41,4E,4E,20,26,20,44,2E,57, 1128     <206>
1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20
     ,20,20,50,52,4F,47,52,41,4D, 1102     <117>
1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D
     ,20,20,20,53,54,41,52,54,41, 1073     <095>
1052 DATA 44,52,45,53,53,45,20,3A,20,24,00
     ,0D,0D,20,20,20,45,4E,44,41, 1014     <129>
1053 DATA 44,52,45,53,53,45,20,20,20,3A,20
     ,24,00,92,01,01,50,52,4F,47, 1136     <228>
1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20
     ,2A,2A,2A,20,46,41,4C,53,43, 1024     <027>
1055 DATA 48,45,20,45,49,4E,47,41,42,45,20
     ,2A,2A,2A,20,20,92,00,0D,0D, 1058     <098>
1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A
     ,2A,00,13,01,20,20,12,44,92, 916      <153>
1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54
     ,92,41,50,45,0D,00,13,20,20, 1151     <035>
1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45
     ,52,00,20,D1,B1,20,48,B2,A0, 1606     <012>
1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC
     ,20,8E,B4,85,FB,C5,61,A5,FC, 3207     <251>
1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5
     ,60,B0,19,20,A7,B4,D0,14,60, 2860     <112>
1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0
     ,05,85,F8,4C,EF,B0,68,68,20, 2749     <088>
1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0
     ,09,20,D1,B1,20,48,B2,4C,0B, 2372     <046>
1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4
     ,20,EA,B1,20,0D,B5,24,5E,30, 2042     <120>
1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26
     ,20,9F,B2,24,5E,10,09,20,4E, 2435     <198>
1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20
     ,3F,B2,90,D7,A0,B4,A9,28,20, 2190     <207>
1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00
     ,85,5E,A5,61,85,FB,A5,62,85, 3056     <240>
1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E
     ,B1,A5,FB,85,FF,20,4E,B1,A9, 3003     <221>
1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1
     ,B1,FB,20,4E,B1,C8,C0,08,90, 2566     <070>
1069 DATA F3,20,ED,B1,24,5E,30,03,A9,12,2C
     ,A9,20,20,D2,FF,20,10,B2,A5, 2190     <059>
1070 DATA FF,20,4E,B1,A9,92,20,D2,FF,4C,EA
     ,B1,A9,FF,85,B8,85,B9,A9,04, 3073     <029>
1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20
     ,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315     <189>
1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2
     ,A2,24,A9,2D,20,D2,FF,CA,D0, 2596     <111>
1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C
     ,C1,B4,20,B8,B5,A6,5F,A4,60, 2812     <015>
1074 DATA A9,61,20,D8,FF,B0,0A,20,B7,FF,29
     ,BF,D0,03,4C,FB,B4,A9,01,20, 2577     <201>
1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF
     ,B1,20,F9,B1,4C,FB,B4,20,68, 2921     <237>
1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1
     ,A2,08,C9,44,F0,06,A2,01,C9, 2717     <213>
1077 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A0,00
     ,E0,01,F0,1A,A9,40,8D,20,02, 2403     <101>
1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02
     ,C8,CC,00,02,90,F4,C8,C8,D0, 2182     <127>
1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02
     ,D0,F4,98,A2,20,A0,02,4C,BD, 2018     <025>
1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6
     ,B9,86,57,A9,01,20,C3,FF,A9, 2800     <022>
1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20
     ,B4,FF,A5,B9,20,96,FF,20,A5, 2911     <053>
1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5
     ,FF,85,62,20,AB,FF,A5,57,85, 2663     <214>
1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5
     ,86,5F,84,60,A5,BA,C9,01,D0, 2639     <131>
1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62
     ,4C,FB,B4,A9,13,20,D2,FF,A2, 2300     <120>
1085 DATA 1C,20,ED,B1,CA,D0,FA,60,00,00,00
     ,00,00,00,00,00,00,00,00,00, 1230     <143>