Pac-Boy — die Herausforderung
Die Herausforderung, die dieses Programm an Sie stellt, ist zweifach. Zum ersten sind dies die 128 verschiedenen Schnelligkeitsgrade. Andererseits müssen Sie, um das Programm einzugeben, 5939 — in Worten: fünftausendneunhundertneununddreißig — DATAs eintippen.
![](89-1.jpg)
![](89-2.jpg)
Das Programm lehnt sich stark an die herkömmlichen »Pacman«-Spiele an und ist mit folgenden Einzelheiten ausgestattet (Bilder dazu auf Seite 68):
- Es werden alle acht Sprites, teilweise in Multicolor, verwendet,
- Es wird ein vollständiger neuer Zeichensatz definiert,
- Das Programm läuft mit Ausnahme der Einleitung und des Endes in reiner Maschinensprache, und ist daher sehr schnell,
- High-Scorewertung,
- Einsatz des Soundchips.
Pogrammbeschreibung:
Nach bekanntem Schema muß der Spieler bei diesem Spiel versuchen, seinen »Pac-Boy« möglichst lange durch ein Labyrinth zu bewegen, ohne dabei von den umherlaufenden Geistern erwischt zu werden. Frißt man die Pillen, so erhält man jeweils fünf Punkte. Indem man aber eines der vier Nahrungsstücke frißt, kann man kurzzeitig den Spieß umdrehen und die nun flüchteten Geister jagen. Man erhält hier pro erlegtem Geist einen Bonus von 200 Punkten.
Der Zustand der Geister zeigt sich immer in deren Farbe.
Zur Bedienung des Programmes:
Zuerst sieht man eine kurze Einleitung, in der alle Mitwirkenden vorgestellt werden. Darauf folgen die Wahl der Schwierigkeitsgrade und das eigentliche Spiel. Gelenkt wird der Vielfraß übrigens mit den Tasten f 5, f 7, z und x für oben, unten links und rechts.
Zum Eingeben des Programmes:
Zuerst müssen die beiden Listings »Pac-Boy« und »Data-Pac« eingegeben und dann abgespeichert werden.
Jetzt startet man »Data-Pac« und kann sich aussuchen, ob man die DATA-Zeilen testen oder im Programm fortschreiten will.
Wenn keine Fehler aufgetreten sind, wird dann ein neues, reines Datenprogramm generiert, das dann später sehr schnell vom Hauptprogramm nachgeladen werden kann.
Gestartet wird das Programm duch das Einladen von »Pac-Boy« und nachfolgendem RUN. Zuletzt ist noch zu bemerken, daß die Floppy-Station nach Abänderung der entsprechenden Zeile durch die Datasette ersetzt werden kann.
(H. Schlangmann/rg)$ 3000 | ➙ 37FF | Zeichen-DATAs |
$ 3800 | ➙ 3BE7 | Labyrinth |
$ 3BE8 | ➙ 3C17 | VIC-Daten |
$ 3C18 | ➙ 3C1F | Spriteblöcke |
$ 3C20 | ➙ 3CBF | Zwischenspeicher |
$ 3CC0 | ➙ 3FFF | Spritedaten (Block 0 - 12) |
$ 4000 | ➙ 4143 | Tastaturabfrage + Bewegung |
$ 4144 | ➙ 4176 | Set up VIC, Set up SID |
$ 417A | ➙ 41D9 | Bildschirmaufbau 1. Teil |
$ 41DA | ➙ 4330 | Kollisionstests, Sound, Score |
$ 433C | ➙ 437E | Bildschirmaufbau 2. Teil |
$ 437F | ➙ 44FD | verschiedene Geisterbewegungsunterprogramme |
$ 4500 | ➙ 4574 | Hauptschleife (siehe Flußdiagramm) + High-Score |
$ 458C | ➙ 4731 | Geistbewegung |
![](89-3.jpg)
10 goto036:**************************** 12 * * 14 * pac-boy, ein arcade-game * 16 * * 18 * geschrieben von: * 20 * * 22 * harald schlangmann * 24 * * 26 * moosrain 54 * 28 * * 30 * 8110 murnau * 32 * * 34 ************************************ 36 : 38 : 40 ifsw=0thensw=1:load"ma-pac",8,1 42 sys16708:poke53248+21,0:restore 44 data180,131,180,155,214,155,248,155 46 data180,179,214,179,248,179,26,179 47 data128 50 fort=0to16:reada:poke53248+t,a:next 52 gosub1000 53 poke53248+21,255:poke198,0 54 geta$:ifa$=""then54 56 poke53248+21,0:print"{clr}{lred} C{rvon}**** pacNOboy ****{rvof}D 58 print 60 print"U{rvon}{orng} {rvof}I"; 62 print"{rvon} zuerst kannst du aber noch die {rvof}"; 64 print"{rvon} schwierigkeitsstufe aus dem bereich {rvof}"; 66 print"{rvon} [0..127] waehlen, wobei 0 am schnell- {rvof}"; 68 print"{rvon} sten ist... {rvof}"; 70 print"J{rvon} {rvof}K"; 72 print 74 print 76 print 78 input "{gry3}deine eingabe ";se 80 ifse<0orse>127thenprint"{up} {up}":goto78 81 poke17709,se 82 print 84 print 86 print 90 print"{lred}C{rvon}mit einem tastendruck gehts los... {rvof}D" 92 geta$:ifa$=""then92 95 fort=0to500:next 100 rem ***** hauptroutine ***** 110 sys17664 120 fort=0to1000:next:poke53248+21,0 130 gosub1100 140 geta$:ifa$<>" "then140 150 goto42 1000 print"{clr}{lred} C{rvon}**** pacN{rvof}"; 1001 print"{rvon}Oboy ****{rvof}D "; 1002 print" "; 1003 print" "; 1004 print"{orng}U{rvon} {rvof}"; 1005 print"{rvon} {rvof}I"; 1006 print"{rvon} versuche mit deinem{rvof}"; 1007 print"{rvon} 'pac-boy' in einem {rvof}"; 1008 print"{rvon} labyrint moeglichst{rvof}"; 1009 print"{rvon} lange den umher- {rvof}"; 1010 print"{rvon} laufenden geistern {rvof}"; 1011 print"{rvon}auszuweichen und {rvof}"; 1012 print"{rvon} dabei viel zu fress{rvof}"; 1013 print"{rvon}en... {rvof}"; 1014 print"J{rvon} {rvof}"; 1015 print"{rvon} {rvof}K"; 1016 print" "; 1017 print" "; 1018 print"{gry3}C{rvon}die spielfiguren: {rvof}D"; 1019 print" "; 1020 print" "; 1021 print" "; 1022 print" der held : "; 1023 print" "; 1024 print" "; 1025 print" "; 1026 print" "; 1027 print" "; 1028 print" die drei geister : "; 1029 print" "; 1030 print" "; 1031 print" "; 1032 print" "; 1033 print" "; 1034 print" die nahrung : "; 1035 print" "; 1036 print" "; 1037 print" "; 1038 print" "; 1039 print" "; 1040 print" und viele, viele pi"; 1041 print"llen :{blk} Q Q Q Q Q Q {lred} "; 1042 print" "; 1043 print" "; 1044 print" "; 1045 print" "; 1046 print" C{rvon}*** druecke zum st{rvof}"; 1047 print"{rvon}art eine taste ***{rvof}D "; 1048 print" "; 1099 return 1100 print"{clr}{lred} C{rvon}**** pacN{rvof}"; 1101 print"{rvon}Oboy ****{rvof}D "; 1102 print" "; 1103 print" "; 1104 print" "; 1105 print" "; 1106 print"{yel}U{rvon} {rvof}I U{rvon} {rvof}I E E U{rvon} {rvof}I "; 1107 print" U{rvon} {rvof}I E E U{rvon} {rvof}I U{rvon} {rvof}I"; 1108 print"{rvon} {rvof}GLF {rvon} {rvof}GL{rvon} {rvof} {rvon} {rvof}HM{rvon} {rvof} {rvon} {rvof}GLF "; 1109 print" {rvon} {rvof}GL{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}GLF {rvon} {rvof}GL{rvon} {rvof}"; 1110 print"{rvon} {rvof} {rvon} {rvof}HM{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} "; 1111 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}HM{rvon} {rvof}"; 1112 print"{rvon} {rvof} UI {rvon} {rvof} {rvon} {rvof}JK{rvon} {rvof} {rvon} {rvof}D "; 1113 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}D {rvon} {rvof}K"; 1114 print"{rvon} {rvof} J{rvon} {rvof} {rvon} {rvof}GL{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} "; 1115 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} C{rvof} "; 1116 print"{rvon} {rvof}HM{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}HME "; 1117 print" {rvon} {rvof}HM{rvon} {rvof} J{rvon}{CBM-*}{rvof}{rvon}{SHIFT-POUND}{rvof}K {rvon} {rvof}HME {rvon} {rvof}{CBM-*}IH"; 1118 print"J{rvon} {rvof}K F F F F J{rvon} {rvof}K "; 1119 print" J{rvon} {rvof}K JK J{rvon} {rvof}K F {CBM-*}D"; 1120 print" "; 1121 print" "; 1122 print" "; 1123 print" "; 1124 print" "; 1125 print" "; 1126 print" "; 1127 print" "; 1128 print"{grn} U{rvon} {rvof}"; 1129 print"{rvon} {rvof}I "; 1130 print" {rvon} der geist war wohl{rvof}"; 1131 print"{rvon} schneller... {rvof} "; 1132 print" {rvon} wenn du denn mut n{rvof}"; 1133 print"{rvon}och nicht verloren {rvof} "; 1134 print" {rvon} hast dann druecke {rvof}"; 1135 print"{rvon}fuer ein weiteres {rvof} "; 1136 print" {rvon} spiel die 'space'-{rvof}"; 1137 print"{rvon}taste... {rvof} "; 1138 print" J{rvon} {rvof}"; 1139 print"{rvon} {rvof}K "; 1140 print" "; 1141 print" "; 1142 print" "; 1143 print" "; 1144 print"{lred} C{rvon}ich warte auf eine{rvof}"; 1145 print"{rvon} eingabe...{rvof}D "; 1150 return 1151 data47
0 data60,102,110,110,96,98,60,0,60,34,34,62,98,98,98,0,120,100,100,124 1 data98,98,126,0,62,70,64,64,64,66,62,0,124,102,98,98,98,98,126,0,126 2 data64,96,120,96,96,126,0,126,96,96,56,32,32,32,0,126,102,96,108,110 3 data98,126,0,68,68,68,126,102,102,102,0,8,8,24,24,24,24,24,0,4,4,4,6 4 data102,102,24,0,68,72,112,112,120,108,102,0,64,64,96,96,96,102,126,0 5 data102,90,66,66,98,114,114,0,100,84,76,68,102,102,102,0,60,102,66,70 6 data70,110,60,0,124,70,66,124,96,96,96,0,60,102,66,90,94,110,60,0,120 7 data76,68,124,104,102,98,0,60,70,64,60,6,70,60,0,124,20,16,24,24,24,24 8 data0,66,66,66,70,70,70,62,0,70,70,78,78,76,40,16,0,102,102,98,98,90 9 data126,36,0,66,68,40,16,40,76,78,0,70,70,70,36,24,24,24,0,126,98,4,8 10 data16,54,126,0,60,48,48,48,48,48,60,0,12,18,48,124,48,98,252,0,60,12 11 data12,12,12,12,60,0,16,56,124,16,24,24,24,0,0,32,111,255,96,32,0,0,0 12 data0,0,0,0,0,0,0,56,56,24,24,0,24,24,0,102,102,34,0,0,0,0,0,36,36,126 13 data36,126,36,36,0,24,62,96,60,6,124,24,0,99,102,12,24,48,115,115,0,60 14 data66,36,56,103,98,63,0,4,8,24,0,0,0,0,0,4,8,16,16,24,12,4,0,16,8,4 15 data4,12,24,16,0,0,66,52,255,52,66,0,0,0,16,16,126,24,24,0,0,0,0,0,0 16 data0,24,24,48,0,0,0,126,14,0,0,0,0,0,0,0,0,24,24,0,0,2,4,8,24,48,96 17 data0,60,70,74,82,114,114,60,0,8,24,40,8,24,24,126,0,60,98,2,12,48,112 18 data126,0,60,98,2,28,6,102,60,0,6,10,18,34,127,6,6,0,126,64,124,2,6,102 19 data60,0,60,70,64,124,102,102,60,0,126,98,4,8,24,24,24,0,60,66,66,60 20 data98,102,60,0,60,66,66,62,6,102,60,0,0,0,24,0,0,24,0,0,0,0,24,0,0,24 21 data24,48,8,16,32,96,48,24,8,0,0,0,126,0,126,0,0,0,16,8,4,6,12,24,16 22 data0,60,98,2,12,24,0,24,0,0,0,0,255,255,0,0,0,0,0,0,0,1,7,31,255,0,0 23 data0,0,128,224,248,255,31,127,255,255,255,255,127,31,248,254,255,255 24 data255,255,254,248,60,126,126,255,255,255,255,255,255,255,255,255,255 25 data126,126,60,224,192,128,0,0,0,0,0,0,0,0,0,0,128,192,224,240,252,254 26 data254,255,255,255,255,255,255,255,255,127,127,63,15,255,255,255,255 27 data254,254,252,240,7,3,1,0,0,0,0,0,0,0,0,0,0,1,3,7,0,0,0,7,7,0,0,0,0 28 data0,0,224,224,0,0,0,255,255,3,3,3,3,3,3,0,60,126,126,126,126,60,0,0 29 data0,0,0,0,255,255,0,54,127,127,127,62,28,8,0,96,96,96,96,96,96,96,96 30 data15,63,127,127,255,255,255,255,195,231,126,60,60,126,231,195,0,60 31 data126,102,102,126,60,0,24,24,102,102,24,24,60,0,6,6,6,6,6,6,6,6,8,28 32 data62,127,62,28,8,0,24,24,24,255,255,24,24,24,192,192,48,48,192,192 33 data48,48,24,24,24,24,24,24,24,24,0,0,3,62,118,54,54,0,255,127,63,31 34 data15,7,3,1,0,0,0,0,0,0,0,0,240,240,240,240,240,240,240,240,0,0,0,0 35 data255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,192,192,192,192 36 data192,192,192,192,204,204,51,51,204,204,51,51,3,3,3,3,3,3,3,3,0,0,0 37 data0,204,204,51,51,255,254,252,248,240,224,192,128,3,3,3,3,3,3,3,3,24 38 data24,24,31,31,24,24,24,0,0,0,0,15,15,15,15,24,24,24,31,31,0,0,0,0,0 39 data0,248,248,24,24,24,0,0,0,0,0,0,255,255,0,0,0,31,31,24,24,24,24,24 40 data24,255,255,0,0,0,0,0,0,255,255,24,24,24,24,24,24,248,248,24,24,24 41 data192,192,192,192,192,192,192,192,224,224,224,224,224,224,224,224,7 42 data7,7,7,7,7,7,7,255,255,0,0,0,0,0,0,255,255,255,0,0,0,0,0,0,0,0,0,0 43 data255,255,255,3,3,3,3,3,3,255,255,0,0,0,0,240,240,240,240,15,15,15 44 data15,0,0,0,0,24,24,24,248,248,0,0,0,240,240,240,240,0,0,0,0,240,240 45 data240,240,15,15,15,15,195,153,145,145,159,157,195,255,195,221,221,193 46 data157,157,157,255,135,155,155,131,157,157,129,255,193,185,191,191,191 47 data189,193,255,131,153,157,157,157,157,129,255,129,191,159,135,159,159 48 data129,255,129,159,159,199,223,223,223,255,129,153,159,147,145,157,129 49 data255,187,187,187,129,153,153,153,255,247,247,231,231,231,231,231,255 50 data251,251,251,249,153,153,231,255,187,183,143,143,135,147,153,255,191 51 data191,159,159,159,153,129,255,153,165,189,189,157,141,141,255,155,171 52 data179,187,153,153,153,255,195,153,189,185,185,145,195,255,131,185,189 53 data131,159,159,159,255,195,153,189,165,161,145,195,255,135,179,187,131 54 data151,153,157,255,195,185,191,195,249,185,195,255,131,235,239,231,231 55 data231,231,255,189,189,189,185,185,185,193,255,185,185,177,177,179,215 56 data239,255,153,153,157,157,165,129,219,255,189,187,215,239,215,179,177 57 data255,185,185,185,219,231,231,231,255,129,157,251,247,239,201,129,255 58 data195,207,207,207,207,207,195,255,243,237,207,131,207,157,3,255,195 59 data243,243,243,243,243,195,255,239,199,131,239,231,231,231,255,255,223 60 data144,0,159,223,255,255,255,255,255,255,255,255,255,255,199,199,231 61 data231,255,231,231,255,153,153,221,255,255,255,255,255,219,219,129,219 62 data129,219,219,255,231,193,159,195,249,131,231,255,156,153,243,231,207 63 data140,140,255,195,189,219,199,152,157,192,255,251,247,231,255,255,255 64 data255,255,251,247,239,239,231,243,251,255,239,247,251,251,243,231,239 65 data255,255,189,203,0,203,189,255,255,255,239,239,129,231,231,255,255 66 data255,255,255,255,255,231,231,207,255,255,255,129,241,255,255,255,255 67 data255,255,255,255,231,231,255,255,253,251,247,231,207,159,255,195,185 68 data181,173,141,141,195,255,247,231,215,247,231,231,129,255,195,157,253 69 data243,207,143,129,255,195,157,253,227,249,153,195,255,249,245,237,221 70 data128,249,249,255,129,191,131,253,249,153,195,255,195,185,191,131,153 71 data153,195,255,129,157,251,247,231,231,231,255,195,189,189,195,157,153 72 data195,255,195,189,189,193,249,153,195,255,255,255,231,255,255,231,255 73 data255,255,255,231,255,255,231,231,207,247,239,223,159,207,231,247,255 74 data255,255,129,255,129,255,255,255,239,247,251,249,243,231,239,255,195 75 data157,253,243,231,255,231,255,255,255,255,0,0,255,255,255,255,255,255 76 data255,254,248,224,0,255,255,255,255,127,31,7,0,224,128,0,0,0,0,128 77 data224,7,1,0,0,0,0,1,7,195,129,129,0,0,0,0,0,0,0,0,0,0,129,129,195,31 78 data63,127,255,255,255,255,255,255,255,255,255,255,127,63,31,15,3,1,1 79 data0,0,0,0,0,0,0,0,128,128,192,240,0,0,0,0,1,1,3,15,248,252,254,255 80 data255,255,255,255,255,255,255,255,255,254,252,248,255,255,255,248,248 81 data255,255,255,255,255,255,31,31,255,255,255,0,0,252,252,252,252,252 82 data252,255,195,129,129,129,129,195,255,255,255,255,255,255,0,0,255,201 83 data128,128,128,193,227,247,255,159,159,159,159,159,159,159,159,240,192 84 data128,128,0,0,0,0,60,24,129,195,195,129,24,60,255,195,129,153,153,129 85 data195,255,231,231,153,153,231,231,195,255,249,249,249,249,249,249,249 86 data249,247,227,193,128,193,227,247,255,231,231,231,0,0,231,231,231,63 87 data63,207,207,63,63,207,207,231,231,231,231,231,231,231,231,255,255 88 data252,193,137,201,201,255,0,128,192,224,240,248,252,254,255,255,255 89 data255,255,255,255,255,15,15,15,15,15,15,15,15,255,255,255,255,0,0,0 90 data0,0,255,255,255,255,255,255,255,255,255,255,255,255,255,255,0,63 91 data63,63,63,63,63,63,63,51,51,204,204,51,51,204,204,252,252,252,252 92 data252,252,252,252,255,255,255,255,51,51,204,204,0,1,3,7,15,31,63,127 93 data252,252,252,252,252,252,252,252,231,231,231,224,224,231,231,231,255 94 data255,255,255,240,240,240,240,231,231,231,224,224,255,255,255,255,255 95 data255,7,7,231,231,231,255,255,255,255,255,255,0,0,255,255,255,224,224 96 data231,231,231,231,231,231,0,0,255,255,255,255,255,255,0,0,231,231,231 97 data231,231,231,7,7,231,231,231,63,63,63,63,63,63,63,63,31,31,31,31,31 98 data31,31,31,248,248,248,248,248,248,248,248,0,0,255,255,255,255,255 99 data255,0,0,0,255,255,255,255,255,255,255,255,255,255,0,0,0,252,252,252 100 data252,252,252,0,0,255,255,255,255,15,15,15,15,240,240,240,240,255,255 101 data255,255,231,231,231,7,7,255,255,255,15,15,15,15,255,255,255,255,15 102 data15,15,15,240,240,240,240,32,32,32,32,32,32,32,32,32,32,65,85,170 103 data170,170,160,144,129,131,206,207,130,143,153,160,170,170,170,73,66 104 data32,32,32,32,32,32,32,32,32,32,85,160,160,160,160,160,160,160,160 105 data160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160,160 106 data160,160,160,160,160,160,160,160,160,160,160,160,160,73,160,71,32 107 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,76,160,160,71,32,32 108 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,76,160,160,32,81,32,32 109 data81,32,32,32,32,32,32,32,81,32,32,32,81,32,160,160,32,81,32,32,32 110 data81,32,32,32,81,32,32,32,81,32,32,81,32,160,160,32,32,32,32,32,32 111 data32,32,32,32,32,32,32,32,32,32,32,32,160,160,32,32,32,32,32,32,32 112 data32,32,32,32,32,32,32,32,32,32,32,160,160,32,32,32,67,160,160,68,32 113 data32,32,67,160,160,160,68,32,32,32,74,75,32,32,32,67,160,160,160,68 114 data32,32,32,67,160,160,68,32,32,32,160,160,32,32,32,32,32,32,32,32,32 115 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 116 data32,32,32,32,32,32,32,160,160,32,81,32,32,81,32,32,32,81,32,32,32 117 data81,32,32,32,81,32,32,32,32,81,32,32,32,81,32,32,32,32,32,32,32,81 118 data32,32,81,32,160,160,72,32,32,32,32,32,32,32,32,32,32,32,32,32,32 119 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 120 data77,160,74,160,160,160,160,160,160,73,32,32,32,69,32,32,32,67,160 121 data160,160,160,160,160,160,160,68,32,32,32,69,32,32,32,85,160,160,160 122 data160,160,160,75,32,32,32,32,32,76,160,75,32,32,32,160,32,81,32,32 123 data32,32,32,32,32,32,32,32,32,32,81,32,160,32,32,32,74,160,71,32,32 124 data32,32,32,32,32,32,32,32,77,160,32,32,32,32,70,32,32,32,32,81,32,32 125 data32,32,32,32,81,32,32,32,32,70,32,32,32,76,160,72,32,32,32,32,32,160 126 data160,160,160,160,160,75,32,32,32,32,32,32,32,32,32,32,32,32,32,32 127 data32,32,32,32,32,32,32,32,32,32,32,32,74,160,160,160,160,160,160,32 128 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,85,160,68,32,32,32,32,67 129 data160,73,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 130 data32,32,32,32,32,32,32,81,32,32,160,71,32,32,32,32,32,32,76,160,32 131 data32,81,32,32,32,81,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 132 data32,77,69,32,32,32,77,160,32,32,32,32,32,32,32,32,160,32,32,32,32 133 data69,72,32,32,32,32,32,32,32,32,32,160,160,160,160,160,68,32,32,32 134 data85,75,32,32,32,67,75,32,32,32,32,32,32,32,32,74,68,32,32,32,74,73 135 data32,32,32,67,160,160,160,160,160,160,71,32,32,32,32,32,32,32,160,71 136 data32,32,32,32,32,32,32,32,85,73,32,32,32,32,32,32,32,32,76,160,32,32 137 data32,32,32,32,32,76,160,160,32,81,32,32,32,32,81,32,160,32,81,32,32 138 data32,32,32,32,32,160,160,32,32,32,32,32,32,32,81,32,160,32,81,32,32 139 data32,32,81,32,160,160,32,32,32,32,32,32,32,32,160,32,32,32,32,32,32 140 data32,32,77,160,160,72,32,32,32,32,32,32,32,32,160,32,32,32,32,32,32 141 data32,32,160,160,32,32,32,67,68,32,32,32,70,32,32,32,67,160,160,160 142 data160,160,160,160,160,160,160,160,160,68,32,32,32,70,32,32,32,67,68 143 data32,32,32,160,160,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 144 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 145 data160,160,32,81,32,32,32,32,32,32,32,32,81,32,32,32,81,32,32,81,32 146 data32,81,32,32,81,32,32,32,81,32,32,32,32,32,32,32,32,81,32,160,160 147 data72,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 148 data32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,77,160,74,160,136,137 149 data135,136,173,147,131,143,146,133,186,176,176,176,176,176,160,160,160 150 data147,131,143,146,133,186,176,176,176,176,176,160,160,160,179,160,149 151 data144,75,88,68,152,188,192,188,168,164,16,212,72,220,0,100,88,148,80 152 data27,28,209,0,255,200,0,28,113,240,0,240,0,0,0,6,6,6,6,6,2,7,8,3,10 153 data4,5,5,10,8,0,249,251,251,251,252,253,254,255,39,74,160,136,137,135 154 data136,173,147,131,143,146,133,186,176,178,176,179,176,160,160,160,147 155 data131,143,146,133,186,176,179,180,182,176,160,160,160,177,160,149,144 156 data75,81,0,1,2,40,41,42,80,81,82,0,0,0,0,0,0,240,240,240,240,15,15,15 157 data15,195,153,145,145,159,153,195,255,231,195,153,129,153,153,153,255 158 data131,153,153,131,153,153,131,255,195,153,159,159,159,153,195,255,135 159 data147,153,153,153,147,135,255,129,159,159,135,159,159,129,255,129,159 160 data159,135,159,159,159,255,195,153,159,145,153,153,195,255,153,153,153 161 data129,153,153,153,255,195,231,231,231,231,231,195,255,225,243,243,243 162 data243,147,199,255,153,147,135,143,135,147,153,0,0,0,0,255,0,3,255,192 163 data7,255,224,15,255,240,31,255,248,31,255,248,63,255,252,63,255,252 164 data63,255,252,63,231,60,63,231,60,63,231,252,63,195,252,31,195,248,31 165 data129,248,15,129,240,7,0,224,3,0,192,0,0,0,0,0,0,255,0,0,0,0,255,0,3 166 data255,192,7,255,224,15,255,240,31,255,248,31,255,248,63,255,252,63 167 data255,252,63,255,252,63,255,60,63,255,60,63,239,252,63,239,252,31,239 168 data248,31,231,248,15,231,240,7,231,224,3,231,192,0,231,0,0,0,0,0,0,0 169 data0,0,255,0,3,255,192,7,255,224,15,255,240,31,243,248,31,243,248,63 170 data255,224,63,255,0,63,248,0,63,224,0,63,248,0,63,255,0,63,255,224,31 171 data255,248,31,255,248,15,255,240,7,255,224,3,255,192,0,255,0,0,0,0,0 172 data0,0,0,0,255,0,3,255,192,7,255,224,15,255,240,31,243,248,31,243,248 173 data63,255,252,63,255,252,63,248,0,63,224,0,63,255,252,63,255,252,63 174 data255,252,31,255,248,31,255,248,15,255,240,7,255,224,3,255,192,0,255 175 data0,0,0,0,255,0,0,0,0,0,0,3,0,192,7,0,224,15,129,240,31,129,248,31 176 data195,248,63,195,252,63,231,252,60,231,252,60,231,252,63,255,252,63 177 data255,252,63,255,252,31,255,248,31,255,248,15,255,240,7,255,224,3,255 178 data192,0,255,0,0,0,0,255,0,0,0,0,199,0,3,199,192,7,199,224,15,199,240 179 data31,199,248,31,199,248,63,231,252,63,231,252,60,231,252,60,231,252 180 data63,255,252,63,255,252,63,255,252,31,255,248,31,255,248,15,255,240 181 data7,255,224,3,255,192,0,255,0,0,0,0,0,0,0,0,0,255,0,3,255,192,7,255 182 data224,15,255,240,31,207,248,31,207,248,7,255,252,0,255,252,0,31,252 183 data0,7,252,0,31,252,0,255,252,7,255,252,31,255,248,31,255,248,15,255 184 data240,7,255,224,3,255,192,0,255,0,0,0,0,0,0,0,0,0,255,0,3,255,192,7 185 data255,224,15,255,240,31,207,248,31,207,248,63,255,252,63,255,252,0 186 data127,252,0,7,252,63,255,252,63,255,252,63,255,252,31,255,248,31,255 187 data248,15,255,240,7,255,224,3,255,192,0,255,0,0,0,0,255,0,0,0,0,126,0 188 data1,255,128,7,255,224,15,255,240,31,255,248,28,24,56,59,231,220,58 189 data36,92,58,165,92,58,36,92,59,231,220,60,24,60,63,255,252,63,255,252 190 data63,255,252,63,255,252,57,231,156,49,195,140,33,129,132,0,0,0,255 191 data0,0,0,0,0,0,0,0,32,0,2,128,0,42,32,0,168,40,0,136,168,2,136,40,2 192 data10,8,2,2,128,2,2,128,2,0,128,5,0,128,31,64,80,31,65,116,23,65,244 193 data21,65,212,21,65,84,5,1,84,0,0,80,0,0,0,0,2,128,0,10,160,170,2,162 194 data160,0,10,40,0,8,42,0,40,42,0,255,10,3,255,192,15,255,240,15,255,240 195 data63,255,252,63,255,252,63,253,252,63,245,124,61,117,124,61,125,252 196 data15,127,240,15,255,240,3,251,192,0,235,0,0,40,0,0,0,0,0,16,0,4,16 197 data0,4,16,0,4,16,0,4,16,0,4,252,0,63,252,60,63,48,60,12,42,170,168,37 198 data150,88,37,150,88,37,150,88,37,150,88,37,150,88,37,150,88,37,150,88 199 data37,150,88,42,170,168,63,255,252,255,255,255,255,0,0,0,0,0,0,0,0,0 200 data0,0,0,0,12,16,0,63,84,0,63,84,0,63,84,0,45,84,0,41,95,0,170,95,0 201 data170,255,2,170,191,2,170,172,10,170,160,10,170,0,42,160,0,42,0,0,168 202 data0,0,160,0,0,128,0,0,255,216,234,234,234,234,165,203,201,3,208,3,76 203 data63,64,234,234,201,6,208,3,76,119,64,234,234,201,12,208,3,76,35,65 204 data234,234,201,23,208,3,76,6,65,234,96,234,76,152,66,232,169,0,56,42 205 data202,208,252,45,31,208,234,234,96,234,234,173,1,208,24,105,8,141,1 206 data208,32,102,64,162,0,32,44,64,240,9,173,1,208,56,233,8,141,1,208,169 207 data243,141,248,7,234,234,234,234,234,96,234,234,162,9,160,0,234,234 208 data136,208,251,202,208,246,234,96,234,234,173,1,208,56,233,8,141,1,208 209 data32,102,64,162,0,32,44,64,240,9,173,1,208,24,105,8,141,1,208,169,247 210 data141,248,7,234,234,234,234,234,234,234,96,234,234,234,134,20,169,208 211 data133,21,6,20,234,234,232,169,0,56,42,202,208,252,234,133,182,234,234 212 data160,0,177,20,24,105,8,145,20,176,1,96,173,16,208,5,182,141,16,208 213 data96,234,234,134,20,169,208,133,21,6,20,234,232,169,0,56,42,202,208 214 data252,234,133,182,56,169,255,229,182,133,182,234,160,0,177,20,56,233 215 data8,145,20,144,1,96,234,173,16,208,37,182,141,16,208,96,234,234,162 216 data0,32,161,64,32,102,64,162,0,32,44,64,240,3,32,208,64,169,245,141 217 data248,7,162,0,32,156,67,96,234,234,162,0,32,208,64,32,102,64,162,0 218 data32,44,64,240,5,162,0,32,161,64,169,249,141,248,7,169,0,32,214,67 219 data96,234,162,46,189,232,59,157,0,208,202,16,247,162,7,189,24,60,157 220 data248,7,202,16,247,234,234,96,234,166,162,189,0,160,41,3,96,162,24 221 data169,0,157,0,212,202,16,250,169,15,141,24,212,96,234,234,234,169,0 222 data133,20,133,87,169,4,133,21,169,56,133,88,162,24,160,39,177,87,145 223 data20,136,16,249,24,169,40,101,87,133,87,169,0,101,88,133,88,24,169 224 data40,101,20,133,20,169,0,101,21,133,21,202,16,218,234,234,234,234,169 225 data0,133,20,169,216,133,21,162,24,169,14,160,39,145,20,136,16,251,24 226 data165,20,105,40,133,20,165,21,105,0,133,21,202,16,231,76,60,67,162 227 data31,189,192,7,24,105,5,157,192,7,201,181,208,1,96,169,176,157,192 228 data7,202,254,192,7,169,186,221,192,7,240,240,96,234,234,134,2,138,10 229 data170,232,173,1,208,221,0,208,240,1,96,202,173,0,208,221,0,208,240 230 data1,96,169,0,166,2,232,56,42,202,208,252,24,105,1,133,2,173,16,208 231 data37,2,201,0,240,5,197,2,240,1,96,169,0,96,234,234,169,100,141,0,212 232 data169,20,141,1,212,169,129,141,4,212,169,15,141,5,212,169,242,141,6 233 data212,32,102,64,32,102,64,169,128,141,4,212,96,162,7,138,72,32,251 234 data65,208,42,238,248,7,32,54,66,104,10,170,232,169,0,157,0,208,32,40 235 data68,32,218,65,169,2,32,102,64,56,233,1,208,248,206,248,7,234,234,234 236 data169,0,76,151,66,104,170,202,201,4,208,200,96,234,234,234,173,16,208 237 data41,1,133,21,173,0,208,56,233,16,133,20,165,21,233,0,133,21,234,70 238 data21,102,20,70,21,102,20,70,21,102,20,24,169,4,101,21,133,21,173,1 239 data208,56,233,44,133,92,70,92,70,92,70,92,162,40,24,165,92,101,20,133 240 data20,169,0,101,21,133,21,202,208,240,165,20,56,233,41,133,20,165,21 241 data233,0,133,21,160,0,169,81,209,20,240,45,200,209,20,240,40,200,209 242 data20,240,35,160,40,209,20,240,29,200,209,20,240,24,200,209,20,240,19 243 data160,80,209,20,240,13,200,209,20,240,8,200,209,20,240,3,76,47,64,169 244 data32,145,20,238,248,7,32,54,66,206,32,60,208,3,32,128,67,76,120,66 245 data234,169,4,133,21,169,0,133,20,133,87,169,216,133,88,234,162,24,160 246 data39,177,20,201,81,208,4,169,0,145,87,136,16,243,24,165,20,105,40,133 247 data20,165,21,105,0,133,21,24,165,87,105,40,133,87,165,88,105,0,133,88 248 data202,16,212,169,39,76,59,68,234,234,234,234,162,39,189,192,7,157,33 249 data60,202,16,247,32,122,65,162,39,189,33,60,157,192,7,202,16,247,96 250 data234,134,2,6,2,164,2,200,185,0,208,201,156,240,1,96,136,185,0,208 251 data201,80,240,1,96,232,169,0,56,42,202,208,252,45,16,208,208,1,96,133 252 data2,169,255,56,229,2,45,16,208,141,16,208,169,16,153,0,208,96,234,234 253 data134,2,6,2,164,2,200,185,0,208,201,156,240,1,96,136,185,0,208,201 254 data8,240,1,96,232,169,0,56,42,202,208,252,133,2,45,16,208,240,1,96,165 255 data2,234,234,234,13,16,208,141,16,208,169,72,153,0,208,96,234,206,73 256 data60,240,1,96,169,3,141,40,208,169,10,141,41,208,169,4,141,42,208,96 257 data234,234,169,5,141,40,208,141,41,208,141,42,208,169,64,141,73,60,96 258 data234,141,32,60,162,7,189,240,59,157,8,208,202,16,247,234,96,234,169 259 data15,141,5,212,169,251,141,6,212,169,17,141,4,212,169,0,133,162,162 260 data20,138,72,165,162,141,1,212,32,102,64,32,102,64,32,102,64,104,170 261 data202,208,235,169,10,141,1,212,169,16,141,4,212,234,234,96,234,234 262 data162,3,134,97,32,251,65,240,8,166,97,202,208,244,169,255,96,32,76 263 data68,173,40,208,201,245,240,3,169,0,96,166,97,6,97,164,97,185,232,59 264 data153,0,208,185,233,59,153,1,208,232,56,169,0,42,202,208,252,133,97 265 data169,255,56,229,97,45,16,208,141,16,208,234,234,160,40,32,218,65,32 266 data219,68,136,208,247,76,148,68,234,234,152,72,169,15,141,5,212,169 267 data255,141,6,212,169,48,141,1,212,169,17,141,4,212,32,102,64,169,0,141 268 data4,212,104,168,96,234,234,234,234,234,32,122,65,32,68,65,32,103,65 269 data165,203,201,64,240,250,234,234,234,234,32,0,64,32,93,66,32,132,68 270 data240,25,32,160,70,32,132,68,240,17,32,17,68,162,20,160,0,234,136,208 271 data252,202,16,247,76,22,69,234,234,206,227,7,169,176,205,227,7,240,18 272 data234,169,32,133,2,32,102,64,198,2,208,249,32,128,67,76,6,69,234,234 273 data162,0,189,219,7,221,205,7,240,3,16,23,96,234,232,224,5,208,239,234 274 data234,234,234,234,234,234,234,234,234,234,234,96,234,162,0,189,219 275 data7,157,205,7,157,205,59,232,224,5,208,242,96,165,252,197,254,144,3 276 data240,3,96,24,96,165,251,197,253,144,248,56,96,234,134,2,138,10,168 277 data185,0,208,133,20,169,0,133,21,56,42,202,16,252,234,45,16,208,240 278 data4,169,1,133,21,234,56,165,20,233,24,133,20,165,21,233,0,133,21,70 279 data21,102,20,70,21,102,20,70,21,102,20,234,185,1,208,56,233,52,74,74 280 data74,170,224,0,240,16,24,165,20,105,40,133,20,165,21,105,0,133,21,202 281 data208,240,24,169,4,101,21,133,21,234,162,8,188,74,60,177,20,201,32 282 data240,22,201,81,240,18,201,71,240,14,201,72,240,10,201,76,240,6,201 283 data77,240,2,56,96,202,16,222,24,96,234,234,234,234,173,0,208,133,251 284 data173,16,208,41,1,133,252,234,234,165,94,10,170,189,0,208,133,253,166 285 data94,169,0,56,42,202,16,252,234,45,16,208,208,5,133,254,76,87,70,169 286 data1,133,254,234,32,140,69,208,1,96,234,144,12,173,40,208,201,245,240 287 data13,166,94,76,123,70,234,173,40,208,201,245,240,243,166,94,76,142 288 data70,234,166,94,32,161,64,166,94,32,159,69,144,5,166,94,32,208,64,96 289 data234,166,94,32,208,64,166,94,32,159,69,144,5,166,94,32,161,64,96,234 290 data169,3,133,94,32,38,71,240,6,32,36,70,32,212,70,198,94,208,241,96 291 data234,234,138,10,170,189,1,208,24,105,8,157,1,208,96,234,234,138,10 292 data170,56,189,1,208,233,8,157,1,208,96,96,165,94,10,170,189,1,208,133 293 data253,173,1,208,133,251,169,0,133,252,133,254,234,32,140,69,208,1,96 294 data144,26,173,40,208,201,245,240,27,234,166,94,32,181,70,166,94,32,159 295 data69,144,5,166,94,32,196,70,96,173,40,208,201,245,240,231,234,166,94 296 data32,196,70,166,94,32,159,69,144,5,166,94,32,181,70,96,234,165,162 297 data170,189,0,160,41,3,201,0,96,234,-1 300 : 310 : 320 : 330 input"{clr}{down}{rght}{rvon}d{rvof}ata=>ma. oder {rvon}t{rvof}est ";aw$ 340 ifaw$="d"then500 350 : 360 rem ******** test ********* 370 : 380 reada:ge=ge+1:pf=pf+a:ifa<>-1then380 390 : 400 ifge>5939thenprint"**** zuviele daten **** 410 ifge<5939thenprint"**** zuwenig daten **** 420 ifpf<>676734thenprint"**** pruefsumme verkehrt **** 430 ifpf<>676734thenprint"differenz:"676734-pf 440 ifpf<>676734orge<>5939thenend 450 : 460 : 470 rem ******** data-ma ******** 480 : 490 restore 500 print"wenn die richtige diskette einliegt,{down} bitte eine taste druecken... 510 poke198,0 520 geta$:ifa$=""then520 530 : 540 open1,8,2,"ma-pac,prg,write" 550 print#1,chr$(0)chr$(48); 560 fort=1to5938:reada:print#1,chr$(a);:next 570 print#1,chr$(13):close1 580 new