PASCAL LIB 05
FILE INFORMATION
FILENAME(S): PASCAL LIB 05
FILE TYPE(S): SEQ
FILE SIZE: 3K
FIRST SEEN: 2025-12-02 23:47:25
APPEARS ON: 2 disk(s)
FILE HASH
d778cc7391c87b82ad69c071b41d74dc5b7d0d54f060ddfc2869175c2cf06f32
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIELE 46 | PASCAL LIB 05 | SEQ | swasti, flohmarkt | 31 | 2 |
⚠ CORRUPT DOWNLOAD FILE |
| SPIELE 49 | PASCAL LIB 05 | SEQ | swasti, flohmarkt | 31 | 2 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 06 3D EA EA EA 4C 12 06 4C D7 0D 4C 78 0D 4C BD |.=...L..L..Lx.L.|
00000010: 0D 4C 5C 0D A2 6F B5 00 9D 47 28 CA 10 F8 20 3D |.L\..o...G(... =|
00000020: 0D AD 01 2A 38 69 2A AA E8 A0 2A 20 3A 06 20 A3 |...*8i*...* :. .|
00000030: 0A A2 6F BD 47 28 95 00 CA 10 F8 60 A9 00 85 30 |..o.G(.....`...0|
00000040: 86 31 85 32 85 33 85 36 85 37 85 3C 85 3D A9 02 |.1.2.3.6.7.<.=..|
00000050: 85 28 84 29 A5 34 38 E9 0A 85 2A A5 35 E9 00 85 |.(.).48...*.5...|
00000060: 2B A5 34 85 2C 85 2E 38 E9 04 85 24 A5 35 85 2D |+.4.,..8...$.5.-|
00000070: 85 2F 85 25 B0 02 C6 25 A0 00 A9 BD 91 24 C8 A9 |./.%...%.....$..|
00000080: 28 91 24 C8 A9 B9 91 24 C8 A9 28 91 24 A2 07 BD |(.$....$..(.$...|
00000090: 63 0E 9D B7 28 CA 10 F7 A5 38 09 C0 85 38 A9 00 |c...(....8...8..|
000000A0: 85 D1 A9 01 85 D2 A9 08 85 D4 A9 0F 85 D3 20 63 |.............. c|
000000B0: F5 A2 12 A9 00 9D 51 29 CA D0 FA A5 8F 85 3E A9 |......Q)......>.|
000000C0: 00 AA 3E 00 90 18 7D 00 90 E8 D0 F6 C9 4A F0 21 |..>...}......J.!|
000000D0: 8A 3E 00 A0 18 7D 00 A0 E8 D0 F6 C9 4A F0 12 8A |.>...}......J...|
000000E0: 3E 00 E5 18 7D 00 E5 E8 D0 F6 C9 1B F0 03 6C FC |>...}.........l.|
000000F0: FF 4C 69 07 20 56 07 A9 08 85 D4 85 D2 A9 0F 85 |.Li. V..........|
00000100: D3 A9 13 85 D1 A9 14 85 DA A9 0A 85 DB 20 63 F5 |............. c.|
00000110: A5 D2 20 E2 F2 A6 3A 9A 60 A2 10 BD 53 29 D0 05 |.. ...:.`...S)..|
00000120: CA CA 10 F7 60 BD 52 29 C5 2C BD 53 29 E5 2D B0 |....`.R).,.S).-.|
00000130: EF BD 52 29 85 26 C5 30 BD 53 29 85 27 E5 31 90 |..R).&.0.S).'.1.|
00000140: DF A9 00 9D 52 29 9D 53 29 8A 48 4A 69 02 85 D2 |....R).S).HJi...|
00000150: 20 99 08 68 AA 4C 1E 07 A2 00 86 30 86 31 CA 86 | ..h.L.....0.1..|
00000160: 2C 86 2D 20 17 07 A9 01 4C E2 F2 A9 AC 85 DA A9 |,.- ....L.......|
00000170: 07 85 DB A9 02 85 D1 A9 08 85 D4 85 D3 85 D2 20 |............... |
00000180: 63 F5 A2 01 20 AF F7 20 CF FF C9 20 F0 F9 C9 30 |c... .. ... ...0|
00000190: D0 07 20 CF FF C9 30 F0 08 A9 31 8D F7 09 8D 15 |.. ...0...1.....|
000001A0: 0A 20 CF FF C9 0D 20 CC FF A9 08 4C E2 F2 24 30 |. .... ....L..$0|
000001B0: 20 00 08 A5 3B D0 0C 20 63 F5 20 B1 08 A9 A8 A0 | ...;.. c. .....|
000001C0: 00 91 26 A5 2A 18 69 04 85 2A 90 02 E6 2B 4C A6 |..&.*.i..*...+L.|
000001D0: 0A 20 00 08 A5 3B D0 EB E6 DA D0 02 E6 DB A5 D1 |. ...;..........|
000001E0: 38 E9 05 85 D1 20 63 F5 20 B1 08 A5 3B D0 D4 A9 |8.... c. ...;...|
000001F0: 00 A8 91 26 A5 2A 18 69 02 85 2A 90 02 E6 2B 4C |...&.*.i..*...+L|
00000200: 4A 09 84 3B B1 2A 85 1E C8 B1 2A C8 85 1F B1 2A |J..;.*....*....*|
00000210: 38 E9 03 91 2A 85 26 C8 B1 2A E9 00 91 2A 85 27 |8...*.&..*...*.'|
00000220: A0 02 91 26 88 A5 26 91 26 20 B6 0B A5 D2 30 06 |...&..&.& ....0.|
00000230: 20 99 08 4C 37 08 20 95 0B A5 3B D0 5D A5 1E 05 | ..L7. ...;.]...|
00000240: 1F D0 10 A9 F7 85 1E A9 09 85 1F A5 D2 18 69 2F |..............i/|
00000250: 8D 08 0A A9 08 85 DA A9 29 85 DB A0 00 A9 40 91 |........).....@.|
00000260: DA B1 1E C8 C9 61 90 06 C9 7B B0 02 49 20 C9 00 |.....a...{..I ..|
00000270: F0 0A C9 20 F0 06 91 DA C0 13 D0 E5 A9 2C 91 DA |... .........,..|
00000280: C8 A9 53 91 DA C8 A9 2C 91 DA C8 A9 57 91 DA C8 |..S....,....W...|
00000290: 84 D1 A6 D2 86 D3 A9 08 85 D4 60 A0 00 B1 26 29 |..........`...&)|
000002A0: 08 F0 0B A6 D2 20 FE F7 20 D2 FF 20 CC FF A5 D2 |..... .. .. ....|
000002B0: 4C E2 F2 A2 01 20 AF F7 A2 00 20 CF FF 9D 26 29 |L.... .... ...&)|
000002C0: E8 C9 0D D0 F5 A9 00 9D 26 29 20 CC FF AD 26 29 |........&) ...&)|
000002D0: 29 0F 0A 85 24 0A 0A 65 24 85 24 AD 27 29 29 0F |)...$..e$.$.')).|
000002E0: 65 24 85 3B F0 65 A5 38 29 80 F0 5F 20 44 0E A9 |e$.;.e.8).._ D..|
000002F0: 09 85 1E A9 0A 85 1F 20 30 0D A9 6F 85 1E A9 0E |....... 0..o....|
00000300: 85 1F 20 30 0D A9 00 85 20 85 21 A5 3C 85 1E A5 |.. 0.... .!.<...|
00000310: 3D 85 1F 20 D0 0B 20 3D 0D A0 FF A6 D1 C8 B1 DA |=.. .. =........|
00000320: 20 D2 FF CA D0 F7 A9 20 20 78 0D A9 2D 20 78 0D | ...... x..- x.|
00000330: A9 20 20 78 0D A2 00 BD 29 29 20 D2 FF E8 BD 29 |. x....)) ....)|
00000340: 29 C9 2C D0 F2 20 3D 0D 4C F2 06 60 20 BD 09 A0 |).,.. =.L..` ...|
00000350: 00 B1 26 29 10 D0 2E 20 BD 0D 20 D7 0D A0 00 91 |..&)... .. .....|
00000360: 1E E6 1E D0 02 E6 1F AA A0 00 B1 26 29 80 D0 0F |...........&)...|
00000370: 20 AF 09 D0 E5 E0 0D D0 06 B1 26 09 40 91 26 20 | .........&.@.& |
00000380: CC FF 4C 90 10 4C F4 09 20 BD 09 A0 00 B1 26 29 |..L..L.. .....&)|
00000390: 10 D0 1B 20 5C 0D A0 00 B1 1E 20 78 0D E6 1E D0 |... \..... x....|
000003A0: 02 E6 1F 20 AF 09 D0 EE 20 CC FF 4C 90 10 4C F1 |... .... ..L..L.|
000003B0: 09 A5 20 38 E9 01 85 20 B0 02 C6 21 05 21 60 B1 |.. 8... ...!.!`.|
000003C0: 2A 85 26 C8 B1 2A 85 27 06 20 26 21 38 A5 26 E5 |*.&..*.'. &!8.&.|
000003D0: 20 85 1E A5 27 E5 21 85 1F A5 20 05 21 D0 13 E6 | ...'.!... .!...|
000003E0: 20 A5 1E 38 E9 02 85 1E B0 02 C6 1F A9 00 A0 01 | ..8............|
000003F0: 91 1E 60 4C E9 16 4C E9 16 30 3A 2E 2E 2E 50 41 |..`L..L..0:...PA|
00000400: 53 43 41 4C 2E 54 45 4D 50 2E AA 44 49 53 4B 20 |SCAL.TEMP..DISK |
00000410: 45 52 52 4F 52 00 53 30 3A 2E 2E 2E 50 41 53 43 |ERROR.S0:...PASC|
00000420: 41 4C 2E 54 45 4D 50 2E 3F 48 AD 4C E8 29 02 F0 |AL.TEMP.?H.L.)..|
00000430: 14 68 C9 41 90 10 C9 5B 90 0D C9 C1 90 08 C9 DB |.h.A...[........|
00000440: B0 04 49 80 60 68 60 49 20 60 C9 41 90 F8 C9 60 |..I.`h`I `.A...`|
00000450: 90 F0 C9 7B B0 F0 90 EF 48 AD 4C E8 29 02 F0 0A |...{....H.L.)...|
00000460: 68 C9 41 90 E1 C9 5B 90 D9 24 68 C9 61 90 D7 C9 |h.A...[..$h.a...|
00000470: 7B B0 D3 90 D2 48 AD 01 06 D0 11 68 20 48 0A 48 |{....H.....h H.H|
00000480: AD 77 0E C9 0D D0 05 A9 11 20 9E F1 68 8D 77 0E |.w....... ..h.w.|
00000490: 20 9E F1 AD 77 0E C9 0D D0 0A AD 02 06 F0 05 A9 | ...w...........|
000004A0: 0A 20 9E F1 60 BA 86 3A C6 39 D0 03 20 45 0D A0 |. ..`..:.9.. E..|
000004B0: 00 B1 28 30 41 E6 28 D0 02 E6 29 0A AA 10 2A C9 |..(0A.(...)...*.|
000004C0: A0 90 12 29 02 F0 0E B1 28 85 20 E6 28 D0 02 E6 |...)....(. .(...|
000004D0: 29 84 21 D0 14 B1 28 85 20 E6 28 D0 02 E6 29 B1 |).!...(. .(...).|
000004E0: 28 85 21 E6 28 D0 02 E6 29 BD EE 16 85 24 BD EF |(.!.(...)....$..|
000004F0: 16 85 25 6C 24 00 E6 28 D0 02 E6 29 AA 29 0F C9 |..%l$..(...).)..|
00000500: 0E 85 20 84 21 30 18 08 B1 28 85 20 E6 28 D0 02 |.. .!0...(. .(..|
00000510: E6 29 28 F0 0A B1 28 85 21 E6 28 D0 02 E6 29 8A |.)(...(.!.(...).|
00000520: 4A 4A 4A 29 0E AA BD 35 0B 85 24 BD 36 0B 85 25 |JJJ)...5..$.6..%|
00000530: A5 20 A6 21 6C 24 00 66 18 04 18 8B 18 EE 17 3E |. .!l$.f.......>|
00000540: 18 C6 18 38 18 C0 18 20 CC FF A9 00 85 38 20 44 |...8... .....8 D|
00000550: 0E A9 78 85 1E A9 0E 85 1F CA F0 10 A0 00 B1 1E |..x.............|
00000560: E6 1E D0 02 E6 1F C9 00 D0 F4 F0 ED 20 30 0D A9 |............ 0..|
00000570: 6F 85 1E A9 0E 85 1F 20 30 0D A9 BD 85 26 A9 28 |o...... 0....&.(|
00000580: 85 27 A5 3C 85 1E A5 3D 85 1F A9 00 85 20 20 D0 |.'.<...=..... .|
00000590: 0B 20 3D 0D 4C F2 06 A2 00 BD 4E 29 F0 0B E8 E8 |. =.L.....N)....|
000005A0: E0 16 D0 F5 A2 10 4C 53 0E A5 26 9D 4E 29 A5 27 |......LS..&.N).'|
000005B0: 9D 4F 29 8A 4A 85 D2 60 A2 FF 86 D2 E8 BD 4E 29 |.O).J..`......N)|
000005C0: C5 26 D0 07 BD 4F 29 C5 27 F0 E8 E8 E8 E0 16 D0 |.&...O).'.......|
000005D0: EC 60 A2 00 A5 1F 08 10 0E 38 A9 00 E5 1E 85 1E |.`.......8......|
000005E0: A9 00 E5 1F 85 1F E8 A0 00 E8 38 A5 1E F9 45 0C |..........8...E.|
000005F0: C8 A5 1F F9 45 0C C8 B0 F0 20 1D 0D 28 10 05 A9 |....E.... ..(...|
00000600: 2D 20 78 0D 38 08 A0 08 A2 2F E8 38 A5 1E F9 43 |- x.8..../.8...C|
00000610: 0C 85 1E A5 1F F9 44 0C 85 1F B0 EE 8A C9 30 D0 |......D.......0.|
00000620: 04 28 B0 06 08 20 78 0D 28 18 08 18 A5 1E 79 43 |.(... x.(.....yC|
00000630: 0C 85 1E A5 1F 79 44 0C 85 1F 88 88 D0 CA 28 A5 |.....yD.......(.|
00000640: 1E 18 69 30 4C 78 0D 0A 00 64 00 E8 03 10 27 40 |..i0Lx...d....'@|
00000650: 9C A5 1F 20 22 D7 A5 1E 4C 22 D7 4C 5F 0C 20 D7 |... "...L".L_. .|
00000660: 0D C9 0D F0 F9 C9 20 F0 F5 C9 0A F0 F1 A2 00 86 |...... .........|
00000670: 1E 86 1F C9 2D 08 F0 04 C9 2B D0 03 20 D7 0D C9 |....-....+.. ...|
00000680: 3A 10 4A 38 E9 30 30 45 48 06 1E 26 1F A5 1E A4 |:.J8.00EH..&....|
00000690: 1F 06 1E 26 1F 06 1E 26 1F 18 65 1E 85 1E 98 65 |...&...&..e....e|
000006A0: 1F 85 1F 68 18 65 1E 85 1E 90 02 E6 1F 20 D7 0D |...h.e....... ..|
000006B0: AA C9 3A 10 05 38 E9 30 10 CE 28 D0 0D 38 A9 00 |..:..8.0..(..8..|
000006C0: E5 1E 85 1E A9 00 E5 1F 85 1F 8A 18 60 68 8A 38 |............`h.8|
000006D0: 60 A2 00 86 1E 86 1F C9 20 F0 08 C9 0D F0 04 C9 |`....... .......|
000006E0: 0A D0 03 20 D7 0D AA 20 03 0D B0 17 A0 04 06 1E |... ... ........|
000006F0: 26 1F 88 D0 F9 05 1E 85 1E 20 D7 0D AA 20 03 0D |&........ ... ..|
00000700: 90 EA 18 8A 60 38 E9 30 90 13 C9 0A 90 10 38 E9 |....`8.0......8.|
00000710: 07 90 0A C9 10 90 07 38 E9 20 C9 10 60 38 60 8A |.......8. ..`8`.|
00000720: 49 FF 38 65 20 AA CA 30 08 A9 20 20 78 0D 4C 24 |I.8e ..0.. x.L$|
00000730: 0D 60 A0 00 B1 1E F0 06 20 D2 FF C8 D0 F6 60 48 |.`...... .....`H|
00000740: A9 0D 20 D2 FF 68 60 A5 38 29 40 F0 0A 20 35 F3 |.. ..h`.8)@.. 5.|
00000750: D0 05 A2 13 4C 45 0B A5 3F 69 05 85 3F 60 A0 00 |....LE..?i..?`..|
00000760: B1 26 29 30 F0 0E 20 B6 0B A6 D2 30 07 C9 01 F0 |.&)0.. ....0....|
00000770: 08 4C FE F7 A2 0E 20 53 0E 60 08 48 8C C3 28 A0 |.L.... S.`.H..(.|
00000780: 00 B1 26 29 04 F0 08 68 48 20 73 0A 4C B4 0D B1 |..&)...hH s.L...|
00000790: 26 29 08 A8 68 48 C0 00 D0 19 A4 D2 C0 01 F0 10 |&)..hH..........|
000007A0: C9 0D F0 06 20 43 F1 4C B4 0D 20 9E F1 4C B4 0D |.... C.L.. ..L..|
000007B0: 20 56 0A 20 D2 FF 20 45 0D AC C3 28 68 28 60 A0 | V. .. E...(h(`.|
000007C0: 00 B1 26 29 20 D0 0C 20 B6 0B A6 D2 30 05 F0 08 |..&) .. ....0...|
000007D0: 4C AF F7 A2 0D 20 53 0E 60 84 24 A5 D2 D0 10 20 |L.... S.`.$.... |
000007E0: 45 0D A5 8F 85 3E 20 1C 0E 20 27 0A 4C 06 0E A0 |E....> .. '.L...|
000007F0: 5D 3A 3D 7A 65 69 63 68 65 6E 5B 69 5D 3B 0D 20 |]:=zeichen[i];. |
00000800: 20 20 20 20 20 6B 3A 3D 6B 2B 31 3B 0D 20 20 20 | k:=k+1;. |
00000810: 20 20 20 69 3A 3D 69 2B 31 3B 0D 20 20 20 20 20 | i:=i+1;. |
00000820: 20 65 6E 64 3B 0D 20 20 20 20 65 6E 64 3B 0D 20 | end;. end;. |
00000830: 20 20 20 20 20 20 77 68 69 6C 65 20 7A 65 69 63 | while zeic|
00000840: 68 65 6E 5B 69 5D 3C 3E 27 20 27 20 64 6F 20 62 |hen[i]<>' ' do b|
00000850: 65 67 69 6E 0D 20 20 20 20 20 20 20 20 20 6E 61 |egin. na|
00000860: 63 68 7A 61 68 6C 5B 68 5D 3A 3D 7A 65 69 63 68 |chzahl[h]:=zeich|
00000870: 65 6E 5B 69 5D 3B 0D 20 20 20 20 20 20 20 20 20 |en[i];. |
00000880: 68 3A 3D 68 2B 31 3B 0D 20 20 20 20 20 20 20 20 |h:=h+1;. |
00000890: 20 69 3A 3D 69 2B 31 3B 0D 20 20 20 20 20 20 20 | i:=i+1;. |
000008A0: 20 20 65 6E 64 3B 0D 20 20 20 63 3A 3D 6B 3B 0D | end;. c:=k;.|
000008B0: 20 20 20 77 68 69 6C 65 20 6B 3C 3E 30 20 64 6F | while k<>0 do|
000008C0: 20 62 65 67 69 6E 3B 0D 20 20 20 20 20 20 20 20 | begin;. |
000008D0: 20 6B 3A 3D 6B 2D 31 3B 0D 20 20 20 20 20 20 20 | k:=k-1;. |
000008E0: 20 20 76 6F 72 7A 3A 3D 76 6F 72 7A 2B 28 28 6F | vorz:=vorz+((o|
000008F0: 72 64 28 76 6F 72 7A 61 68 6C 5B 63 2D 6B 5D 29 |rd(vorzahl[c-k])|
00000900: 2D 34 38 29 2A 31 30 2A 6B 29 3B 0D 20 20 20 20 |-48)*10*k);. |
00000910: 20 20 20 20 20 65 6E 64 3B 0D 20 20 20 63 3A 3D | end;. c:=|
00000920: 68 3B 0D 20 20 20 77 68 69 6C 65 20 68 3C 3E 30 |h;. while h<>0|
00000930: 20 64 6F 20 62 65 67 69 6E 0D 20 20 20 20 20 20 | do begin. |
00000940: 20 20 20 68 3A 3D 68 2D 31 3B 0D 20 20 20 20 20 | h:=h-1;. |
00000950: 20 20 20 20 6E 61 63 68 7A 3A 3D 6E 61 63 68 7A | nachz:=nachz|
00000960: 2B 28 28 6F 72 64 28 6E 61 63 68 7A 61 68 6C 5B |+((ord(nachzahl[|
00000970: 63 2D 68 5D 29 2D 34 38 29 2A 28 2D 31 30 2A 68 |c-h])-48)*(-10*h|
00000980: 29 29 3B 0D 20 20 20 20 20 20 20 20 20 65 6E 64 |));. end|
00000990: 3B 0D 20 67 61 6E 7A 61 68 6C 5B 75 5D 3A 3D 28 |;. ganzahl[u]:=(|
000009A0: 76 6F 72 7A 2B 6E 61 63 68 7A 29 2A 76 6F 72 7A |vorz+nachz)*vorz|
000009B0: 65 69 63 68 65 6E 29 3B 0D 20 20 65 6E 64 3B 0D |eichen);. end;.|
000009C0: 20 20 63 61 73 65 20 63 6F 64 65 5B 31 5D 20 6F | case code[1] o|
000009D0: 66 0D 20 20 27 61 27 3A 65 72 67 65 62 3A 3D 67 |f. 'a':ergeb:=g|
000009E0: 61 6E 7A 61 68 6C 5B 31 5D 2B 67 61 6E 7A 61 68 |anzahl[1]+ganzah|
000009F0: 6C 5B 32 5D 3B 0D 20 20 27 6D 27 3A 65 72 67 65 |l[2];. 'm':erge|
00000A00: 62 3A 3D 67 61 6E 7A 61 68 6C 5B 31 5D 2A 67 61 |b:=ganzahl[1]*ga|
00000A10: 6E 7A 61 68 6C 5B 32 5D 3B 0D 20 20 27 73 27 3A |nzahl[2];. 's':|
00000A20: 65 72 67 65 62 3A 3D 67 61 6E 7A 61 68 6C 5B 31 |ergeb:=ganzahl[1|
00000A30: 5D 2D 67 61 6E 7A 61 68 6C 5B 32 5D 3B 0D 20 20 |]-ganzahl[2];. |
00000A40: 27 64 27 3A 65 72 67 65 62 3A 3D 67 61 6E 7A 61 |'d':ergeb:=ganza|
00000A50: 68 6C 5B 31 5D 2F 67 61 6E 7A 61 68 6C 5B 32 5D |hl[1]/ganzahl[2]|
00000A60: 3B 0D 20 20 65 6E 64 3B 0D 20 65 6E 64 3B 0D 20 |;. end;. end;. |
00000A70: 62 65 67 69 6E 0D 20 74 61 62 65 6C 6C 65 3B 0D |begin. tabelle;.|
00000A80: 20 20 20 20 72 65 70 65 61 74 3B 0D 20 20 73 74 | repeat;. st|
00000A90: 65 75 65 72 28 31 39 2C 31 29 3B 73 74 65 75 65 |euer(19,1);steue|
00000AA0: 72 28 31 37 2C 32 33 29 3B 0D 20 20 20 20 77 72 |r(17,23);. wr|
00000AB0: 69 74 65 28 27 63 6F 64 65 20 20 20 27 29 3B 0D |ite('code ');.|
00000AC0: 20 20 20 20 72 65 61 64 28 63 6F 64 65 29 3B 0D | read(code);.|
00000AD0: 20 20 20 20 75 6E 74 69 6C 28 63 6F 64 65 3D 27 | until(code='|
00000AE0: 61 64 64 27 29 20 6F 72 20 28 01 01 01 01 01 01 |add') or (......|
00000AF0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B00: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B10: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B20: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B30: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B40: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B50: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B60: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B70: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B80: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000B90: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000BA0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000BB0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000BC0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000BD0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000BE0: 01 01 01 01 01 01 01 01 |........ |
.=...L..LW.LX.L..L\..O...G(J.. =...*8I*.
. * :. ...O.G(..J..`...0.1.2.3.6.7.<.=..
.(.).48...*.5...+.4.,..8...$.5.-./.%..F%
....$H.(.$H...$H.(.$...C...(J...8...8..
.Q...R...T...S C......Q)JP....>...>...}.
..P.IJ.!.>. .}. .P.IJ...>...}...P.I...L.
.LI. V....T.R...S...Q...Z.... C..R ...:.
`...S)P.JJ..`.R)E,.S).-...R).&E0.S).'.1.
....R).S).HJI..R ..H.L.....0.1J.,.- ....
L.....Z.......Q...T.S.R C... .. O.I ..I0
P. O.I0...1...... O.I. L...L..$0 ...;P.
C. .... ..&.*.I..*...+L.. ...;P..ZP....Q
8...Q C. ...;PT....&.*.I..*...+LJ..;.*..
H.*H...*8...*.&H.*...*.' ..&..&.& ...R0.
..L7. ...;P]....P..........R.I/......Z.
).. ..@.Z..HIA..I{..I I...I ...Z..P..,.Z
H.S.ZH.,.ZH.W.ZH.Q.R.S...T` ..&)....R ..
R. L..RL.... .... O..&).I.P....&) L..&)
)...$..E$.$.')).E$.;.E.8).._ D.........
0..O...... 0.... .!.<...=.. P. =. ..QH.Z
R.JP.. X..- X.. X....)) R...))I,P. =.
L..` .. ..&).P. .. W. .....P.... ..&).P.
..P...P..&.@.& L.L..L.. .. ..&).P. \. .
.. X...P... ..P. L.L..L... 8... ..F!.!`.
*.&H.*.'. &!8.&. ...'.!... .!P.. ..8....
..F... ...`L..L..0:...PASCAL.TEMP..DISK
ERROR.S0:...PASCAL.TEMP.?H.L.)...HIA..I[
..IA..I...I.`H`I `IA..I`..I{....H.L.)...
HIA..I[.Y$HIA.WI{.S.RH...P.H H.H.W.I.P..
. ..H.W. ...W.I.P........ ..`..:F9P. E.
..(0A.(P..)...*I ..)....(. .(P..).!P..(.
.(P..).(.!.(P..)....$....%L$..(P..).).I
.. .!0...(. .(P..)(...(.!.(P..).JJJ)...5
..$.6..%. .!L$.F.......>.F.8... L....8 D
..X......J.. .....P...I.P... 0..O......
0....&.(.'.<...=..... P. =.L.....N)....
..P...LS..&.N).'.O).J.R`...R..N)E&P..O)E
'......P.`.......8............. ..8...E.
H...E.H.. ..(...- X.8. ../.8...C......D.
.....I0P.(... X.(.....YC.....YD.....PJ(.
..I0LX...D....'@... "W..L"WL_. W.I...I .
.I.........I-...I+P. W.I:.J8.00EH..&....
...&...&..E....E...H.E....... W..I:..8.0
.N(P.8..............`H.8`......I ..I...I
.P. W.. .... ...&..P..... W.. ......`8.0
..I...8....I...8. I.`8`.I.8E .J0.. X.L$
.` ..... R.HP.`H.. R.H`.8)@.. 5.P...LE..
?I..?` ..&)0.. ...R0.I...L.... S.`.H.C(
..&)...HH S.L...&)..HH..P..R....I... C.L
.. ..L.. V. R. E..C(H(` ..&) P. ...R0...
L.... S.`.$.RP. E....> .. '.L.. ]:=ZEICH
EN[I];. K:=K+1;. I:=I+1;.
END;. END;. WHILE ZEICHEN[I]<>
' ' DO BEGIN. NACHZAHL[H]:=ZEICH
EN[I];. H:=H+1;. I:=I+1;
. END;. C:=K;. WHILE K<>0 DO
BEGIN;. K:=K-1;. VORZ:=
VORZ+((ORD(VORZAHL[C-K])-48)*10*K);.
END;. C:=H;. WHILE H<>0 DO BEGI
N. H:=H-1;. NACHZ:=NACHZ
+((ORD(NACHZAHL[C-H])-48)*(-10*H));.
END;. GANZAHL[U]:=(VORZ+NACHZ)*VORZ
EICHEN);. END;. CASE CODE[1] OF. 'A':
ERGEB:=GANZAHL[1]+GANZAHL[2];. 'M':ERGE
B:=GANZAHL[1]*GANZAHL[2];. 'S':ERGEB:=G
ANZAHL[1]-GANZAHL[2];. 'D':ERGEB:=GANZA
HL[1]/GANZAHL[2];. END;. END;. BEGIN. T
ABELLE;. REPEAT;. STEUER(19,1);STEUE
R(17,23);. WRITE('CODE ');. READ
(CODE);. UNTIL(CODE='ADD') OR (......
........................................
........................................
........................................
........................................
........................................
........................................
........
> CLICK IMAGE PREVIEW FOR FULL MODAL