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.
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 |
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
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen