00000000: 70 72 6F 67 72 61 6D 20 61 75 7A 61 65 68 6C 72 |program auzaehlr|
00000010: 65 69 6D 3B 0D 74 79 70 65 20 75 72 70 6F 69 6E |eim;.type urpoin|
00000020: 74 3D 5E 66 65 6C 64 3B 0D 20 20 20 20 20 66 65 |t=^feld;. fe|
00000030: 6C 64 3D 72 65 63 6F 72 64 0D 20 20 20 20 20 6B |ld=record. k|
00000040: 69 6E 64 3A 69 6E 74 65 67 65 72 3B 0D 20 20 20 |ind:integer;. |
00000050: 20 20 6E 65 78 74 3A 75 72 70 6F 69 6E 74 3B 0D | next:urpoint;.|
00000060: 20 20 20 20 20 65 6E 64 3B 0D 76 61 72 20 7A 77 | end;.var zw|
00000070: 70 2C 61 6E 66 2C 65 72 73 74 3A 75 72 70 6F 69 |p,anf,erst:urpoi|
00000080: 6E 74 3B 0D 20 20 20 20 61 6E 7A 2C 77 6F 72 2C |nt;. anz,wor,|
00000090: 69 2C 63 6F 6E 74 72 3A 69 6E 74 65 67 65 72 3B |i,contr:integer;|
000000A0: 0D 62 65 67 69 6E 0D 20 20 20 70 61 67 65 3B 0D |.begin. page;.|
000000B0: 20 20 20 77 72 69 74 65 6C 6E 3B 77 72 69 74 65 | writeln;write|
000000C0: 6C 6E 28 27 20 20 20 20 20 20 20 20 20 20 20 20 |ln(' |
000000D0: 20 20 20 20 20 20 41 20 20 55 20 20 53 20 20 5A | A U S Z|
000000E0: 20 20 41 20 20 45 20 20 48 20 20 4C 20 20 52 20 | A E H L R |
000000F0: 20 45 20 20 49 20 20 4D 27 29 3B 0D 20 20 52 B1 | E I M');. R.|
00000100: 00 00 FC 00 AC 51 53 B1 AE 0E 51 54 B1 AD 51 55 |.....QS...QT..QU|
00000110: 8E 1B B0 20 2D 51 56 8E 1E B0 20 2D 51 57 B1 AE |... -QV... -QW..|
00000120: 10 51 58 B1 B2 AE 27 AB 9B 9E 27 0F 41 FF FF 51 |.QX...'...'.A..Q|
00000130: 59 9B B1 11 41 FF FF 8E 16 51 5A 80 5F 05 40 FF |Y...A....QZ._.@.|
00000140: FF 8E 16 85 5F 05 51 5B 8E 16 B1 44 1C 00 00 BE |...._.Q[...D....|
00000150: 2D 11 41 FF FF 51 5C B1 0A AA 51 5D B2 AD 51 5E |-.A..Q\...Q]..Q^|
00000160: 51 5F 40 FF FF 8E 16 B1 44 1C 00 00 BE 2B 11 41 |Q_@.....D....+.A|
00000170: FF FF 51 60 B1 AA 51 61 B2 AD 51 62 51 63 40 FF |..Q`..Qa..QbQc@.|
00000180: FF B1 AA 51 64 9E 10 B1 11 8E 16 9D 44 1C 00 00 |...Qd.......D...|
00000190: BE 20 11 0E 0B 41 FF FF 51 65 8E 16 9D 44 1C 00 |. ...A..Qe...D..|
000001A0: 00 BE 2E 11 41 FF FF 51 66 B0 AE 10 51 67 9D B1 |....A..Qf...Qg..|
000001B0: 05 AD 51 68 51 69 40 FF FF 51 6A E1 9C B7 15 E1 |..QhQi@..Qj.....|
000001C0: 9D B7 15 51 6B 8E 11 9C 44 CA 02 8E 16 9D 44 1C |...Qk...D.....D.|
000001D0: 00 00 01 51 6C 9C B1 05 AC 51 6D 9D B1 05 AD 51 |...Ql....Qm....Q|
000001E0: 6E 51 6F 40 75 03 51 70 8E 16 9D 44 1C 00 00 BE |nQo@u.Qp...D....|
000001F0: 20 11 0E 41 FF FF 51 71 8E 14 9E 0E 44 D6 02 8E | ..A..Qq....D...|
00000200: 00 00 FC 00 16 9D 44 1C 00 00 01 51 72 9E 0E B1 |......D....Qr...|
00000210: 05 AE 0E 51 73 9D B1 05 AD 51 74 40 D8 03 51 75 |...Qs....Qt@..Qu|
00000220: 9C AE 0F 51 76 9C B0 11 0E 41 FF FF 51 77 9C B1 |...Qv....A..Qw..|
00000230: 06 AC 51 78 8E 1B 8E 1B 2C 8E 11 9E 0F 9C 06 44 |..Qx....,......D|
00000240: CA 02 00 BE 30 06 BA 07 9C 07 20 22 2D 51 79 40 |....0..... "-Qy@|
00000250: 11 04 51 7A 9E 0E AE 0F 51 7B 9E 0E B0 11 0E 41 |..Qz....Q{.....A|
00000260: FF FF 51 7C 9E 0E B1 06 AE 0E 51 7D 8E 1E 8E 1E |..Q|......Q}....|
00000270: 2C 8E 14 9E 0F 9E 0E 06 44 D6 02 00 BE 30 06 BA |,.......D....0..|
00000280: 9E 0E 07 20 21 25 22 2D 51 7E 40 46 04 51 7F 8E |... !%"-Q~@F.Q..|
00000290: 21 9B 43 E6 02 8E 1B 2C 8E 1E 2C 22 9A 20 24 2D |!.C....,..,". $-|
000002A0: 51 80 7F 0B 40 18 03 51 81 59 0F B1 44 10 00 00 |Q...@..Q.Y..D...|
000002B0: 42 FF FF 51 82 59 13 8E 21 B1 43 E6 02 2C 8E 21 |B..Q.Y..!.C..,.!|
000002C0: B2 43 E6 02 2C 22 2D 40 FF FF 51 83 59 13 8E 21 |.C..,"-@..Q.Y..!|
000002D0: B1 43 E6 02 2C 8E 21 B2 43 E6 02 2C 24 2D 40 FF |.C..,.!.C..,$-@.|
000002E0: FF 51 84 59 13 8E 21 B1 43 E6 02 2C 8E 21 B2 43 |.Q.Y..!.C..,.!.C|
000002F0: E6 02 2C 23 2D 40 FF FF 51 85 59 13 8E 21 B1 43 |..,#-@..Q.Y..!.C|
00000300: 00 00 FC 00 E6 02 2C 8E 21 B2 43 E6 02 2C 25 2D |......,.!.C..,%-|
00000310: 40 FF FF 51 86 00 61 00 73 00 FF FF FF FF FF FF |@..Q..a.s.......|
00000320: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000330: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000340: CA 02 00 BE 30 06 BA 07 9C 07 20 22 2D 51 79 40 |....0..... "-Qy@|
00000350: 11 04 51 7A 9E 0E AE 0F 51 7B 9E 0E B0 11 0E 41 |..Qz....Q{.....A|
00000360: FF FF 51 7C 9E 0E B1 06 AE 0E 51 7D 8E 1E 8E 1E |..Q|......Q}....|
00000370: 2C 8E 14 9E 0F 9E 0E 06 44 D6 02 00 BE 30 06 BA |,.......D....0..|
00000380: 9E 0E 07 20 21 25 22 2D 51 7E 40 46 04 51 7F 8E |... !%"-Q~@F.Q..|
00000390: 21 9B 43 E6 02 8E 1B 2C 8E 1E 2C 22 9A 20 24 2D |!.C....,..,". $-|
000003A0: 51 80 7F 0B 40 18 03 51 81 59 0F B1 44 10 00 00 |Q...@..Q.Y..D...|
000003B0: 42 FF FF 51 82 59 13 8E 21 B1 43 E6 02 2C 8E 21 |B..Q.Y..!.C..,.!|
000003C0: B2 43 E6 02 2C 22 2D 40 FF FF 51 83 59 13 8E 21 |.C..,"-@..Q.Y..!|
000003D0: B1 43 E6 02 2C 8E 21 B2 43 E6 02 2C 24 2D 40 FF |.C..,.!.C..,$-@.|
000003E0: FF 51 84 59 13 8E 21 B1 43 E6 02 2C 8E 21 B2 43 |.Q.Y..!.C..,.!.C|
000003F0: E6 02 2C 23 2D 40 FF FF 51 85 59 13 8E 21 B1 43 |..,#-@..Q.Y..!.C|
00000400: 00 00 3C 00 45 00 49 00 54 00 94 00 9F 00 B2 00 |..<.E.I.T.......|
00000410: BF 00 00 01 0B 01 1E 01 4A 00 00 00 2D 01 33 01 |........J...-.3.|
00000420: 40 01 4D 01 34 01 02 00 53 01 5B 01 8F 01 9B 01 |@.M.4...S.[.....|
00000430: 81 01 A2 01 AD 01 B1 01 A0 01 B1 01 79 01 B8 01 |............y...|
00000440: BE 01 C2 01 04 02 08 02 1B 02 25 02 23 02 27 02 |..........%.#.'.|
00000450: 34 02 3E 02 3C 02 40 02 5C 02 61 02 4D 02 68 02 |4.>.<.@.\.a.M.h.|
00000460: 75 02 7A 02 66 02 7C 02 11 02 84 02 7F 02 A6 02 |u.z.f.|.........|
00000470: 43 02 A6 02 2A 02 A6 02 A4 02 47 02 A2 02 47 02 |C...*.....G...G.|
00000480: A0 02 47 02 9E 02 47 02 9C 02 47 02 9A 02 47 02 |..G...G...G...G.|
00000490: 98 02 47 02 96 02 47 02 94 02 47 02 92 02 47 02 |..G...G...G...G.|
000004A0: 8C 02 2E 02 88 02 2E 02 8E 02 15 02 E6 01 B1 02 |................|
000004B0: 5C 01 08 00 BD 02 EE 02 25 03 31 03 2F 03 36 03 |\.......%.1./.6.|
000004C0: 43 03 55 03 60 03 71 03 6F 03 73 03 53 03 73 03 |C.U.`.q.o.s.S.s.|
000004D0: 95 03 A9 03 A7 03 D1 03 86 03 D6 03 E4 03 0A 04 |................|
000004E0: 16 04 3E 04 4C 04 79 04 1D 03 93 04 9D 04 FE 04 |..>.L.y.........|
000004F0: F9 04 28 05 E2 04 |..(... |
PROGRAM AUZAEHLREIM;.TYPE URPOINT=^FELD;
. FELD=RECORD. KIND:INTEGER;.
NEXT:URPOINT;. END;.VAR ZWP,ANF,ER
ST:URPOINT;. ANZ,WOR,I,CONTR:INTEGER;
.BEGIN. PAGE;. WRITELN;WRITELN('
A U S Z A E H L R
E I M');. R......QS...QT..QU... -QV.
.. -QW...QX...'...'.A..QY...A....QZ._.@.
...._.Q[...D....-.A..Q\...Q]..Q^Q_@.....
D....+.A..Q`..QA..QBQC@....QD.......D...
. ...A..QE...D......A..QF...QG....QHQI@.
.QJ........QK...DJ....D....QL....QM....Q
NQO@U.QP...D.... ..A..QQ....DV........D.
...QR......QS....QT@X.QU...QV....A..QW..
..QX....,......DJ...0..... "-QY@..QZ....
Q{.....A..Q|......Q}....,.......DV...0..
... !%"-Q~@F.Q.!.C....,..,". $-Q..@..Q
.Y..D...B..Q.Y..!.C..,.!.C..,"-@..Q.Y..!
.C..,.!.C..,$-@..Q.Y..!.C..,.!.C..,#-@..
Q.Y..!.C......,.!.C..,%-@..Q..A.S.......
................................J...0...
.. "-QY@..QZ....Q{.....A..Q|......Q}....
,.......DV...0..... !%"-Q~@F.Q.!.C....,
..,". $-Q..@..Q.Y..D...B..Q.Y..!.C..,.!
.C..,"-@..Q.Y..!.C..,.!.C..,$-@..Q.Y..!.
C..,.!.C..,#-@..Q.Y..!.C..<.E.I.T.......
........J...-.3.@.M.4...S.[.............
...Y.....B.......%.#.'.4.>.<.@.\.A.M.H.
U.Z.F.|........C...*.....G...G. .G...G.
..G...G...G...G...G...G.................
\.......%.1./.6.C.U.`.Q.O.S.S.S.......Q.
..V.......>.L.Y...........(...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL