|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics
Length: 6720000 (0x668a00)
Names: »ppnothbigtx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »ppnothbigtx «
0x000000…000030 6d 6f 64 65 20 6c 69 73 74 2e 79 65 73 0a 6e 6f 74 68 3d 61 6c 67 6f 6c 20 73 75 72 76 65 79 2e 79 65 73 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 ┆mode list.yes noth=algol survey.yes begin inte┆ 0x000030…000060 67 65 72 20 69 3b 0a 0a 20 20 69 20 3a 3d 20 32 3b 0a 20 20 0a 20 20 63 61 73 65 20 69 20 6f 66 0a 20 20 62 65 67 69 6e 0a 20 20 20 20 69 20 3a ┆ger i; i := 2; case i of begin i :┆ 0x000060…000090 3d 20 38 38 38 3b 0a 0a 20 20 20 20 69 66 20 66 61 6c 73 65 20 74 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 0a 20 20 20 20 7a 6f 6e 65 20 7a 20 ┆= 888; if false then begin zone z ┆ 0x000090…0000c0 28 31 32 38 2c 20 31 2c 20 73 74 64 65 72 72 6f 72 29 3b 0a 20 20 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d ┆(128, 1, stderror); integer i; for i :=┆ 0x0000c0…0000f0 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 ┆ 1 step 1 until 200 do i := 777; for i┆ 0x0000f0…000120 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f ┆ := 1 step 1 until 200 do i := 777; fo┆ 0x000120…000150 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 ┆r i := 1 step 1 until 200 do i := 777; ┆ 0x000150…000180 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a ┆ for i := 1 step 1 until 200 do i := 777; ┆ 0x000180…0001b0 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 ┆ for i := 1 step 1 until 200 do i := 77┆ 0x0001b0…0001e0 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d ┆7; for i := 1 step 1 until 200 do i :=┆ 0x0001e0…000210 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 ┆ 777; for i := 1 step 1 until 200 do i┆ 0x000210…000240 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 ┆ := 777; for i := 1 step 1 until 200 do ┆ 0x000240…000270 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x000270…0002a0 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 ┆ i := 777; for i := 1 step 1 until 200 d┆ 0x0002a0…0002d0 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 ┆o i := 777; for i := 1 step 1 until 20┆ 0x0002d0…000300 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆0 do i := 777; for i := 1 step 1 until┆ 0x000300…000330 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e ┆ 200 do i := 777; for i := 1 step 1 un┆ 0x000330…000360 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 ┆til 200 do i := 777; for i := 1 step 1┆ 0x000360…000390 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 ┆ until 200 do i := 777; for i := 1 ste┆ 0x000390…0003c0 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 ┆p 1 until 200 do i := 777; for i := 1 ┆ 0x0003c0…0003f0 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d ┆step 1 until 200 do i := 777; for i :=┆ 0x0003f0…000420 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 ┆ 1 step 1 until 200 do i := 777; for i┆ 0x000420…000450 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f ┆ := 1 step 1 until 200 do i := 777; fo┆ 0x000450…000480 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 ┆r i := 1 step 1 until 200 do i := 777; ┆ 0x000480…0004b0 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a ┆ for i := 1 step 1 until 200 do i := 777; ┆ 0x0004b0…0004e0 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 ┆ for i := 1 step 1 until 200 do i := 77┆ 0x0004e0…000510 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d ┆7; for i := 1 step 1 until 200 do i :=┆ 0x000510…000540 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 ┆ 777; for i := 1 step 1 until 200 do i┆ 0x000540…000570 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 ┆ := 777; for i := 1 step 1 until 200 do ┆ 0x000570…0005a0 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x0005a0…0005d0 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 ┆ i := 777; for i := 1 step 1 until 200 d┆ 0x0005d0…000600 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 ┆o i := 777; for i := 1 step 1 until 20┆ 0x000600…000630 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆0 do i := 777; for i := 1 step 1 until┆ 0x000630…000660 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e ┆ 200 do i := 777; for i := 1 step 1 un┆ 0x000660…000690 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 ┆til 200 do i := 777; for i := 1 step 1┆ 0x000690…0006c0 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 ┆ until 200 do i := 777; for i := 1 ste┆ 0x0006c0…0006f0 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 ┆p 1 until 200 do i := 777; for i := 1 ┆ 0x0006f0…000720 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d ┆step 1 until 200 do i := 777; for i :=┆ 0x000720…000750 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 0a 20 20 20 20 66 6f 72 20 ┆ 1 step 1 until 200 do i := 777; for ┆ 0x000750…000780 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 ┆i := 1 step 1 until 200 do i := 777; f┆ 0x000780…0007b0 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 ┆or i := 1 step 1 until 200 do i := 777; ┆ 0x0007b0…0007e0 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b ┆ for i := 1 step 1 until 200 do i := 777;┆ 0x0007e0…000810 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 ┆ for i := 1 step 1 until 200 do i := 7┆ 0x000810…000840 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a ┆77; for i := 1 step 1 until 200 do i :┆ 0x000840…000870 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 ┆= 777; for i := 1 step 1 until 200 do ┆ 0x000870…0008a0 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 ┆i := 777; for i := 1 step 1 until 200 do ┆ 0x0008a0…0008d0 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x0008d0…000900 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 ┆ i := 777; for i := 1 step 1 until 200 ┆ 0x000900…000930 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 ┆do i := 777; for i := 1 step 1 until 2┆ 0x000930…000960 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆00 do i := 777; for i := 1 step 1 unti┆ 0x000960…000990 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆l 200 do i := 777; for i := 1 step 1 u┆ 0x000990…0009c0 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 ┆ntil 200 do i := 777; for i := 1 step ┆ 0x0009c0…0009f0 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 ┆1 until 200 do i := 777; for i := 1 st┆ 0x0009f0…000a20 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 ┆ep 1 until 200 do i := 777; for i := 1┆ 0x000a20…000a50 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a ┆ step 1 until 200 do i := 777; for i :┆ 0x000a50…000a80 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 ┆= 1 step 1 until 200 do i := 777; for ┆ 0x000a80…000ab0 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 ┆i := 1 step 1 until 200 do i := 777; f┆ 0x000ab0…000ae0 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 ┆or i := 1 step 1 until 200 do i := 777; ┆ 0x000ae0…000b10 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b ┆ for i := 1 step 1 until 200 do i := 777;┆ 0x000b10…000b40 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 ┆ for i := 1 step 1 until 200 do i := 7┆ 0x000b40…000b70 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a ┆77; for i := 1 step 1 until 200 do i :┆ 0x000b70…000ba0 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 ┆= 777; for i := 1 step 1 until 200 do ┆ 0x000ba0…000bd0 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 ┆i := 777; for i := 1 step 1 until 200 do ┆ 0x000bd0…000c00 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x000c00…000c30 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 ┆ i := 777; for i := 1 step 1 until 200 ┆ 0x000c30…000c60 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 ┆do i := 777; for i := 1 step 1 until 2┆ 0x000c60…000c90 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆00 do i := 777; for i := 1 step 1 unti┆ 0x000c90…000cc0 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆l 200 do i := 777; for i := 1 step 1 u┆ 0x000cc0…000cf0 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 ┆ntil 200 do i := 777; for i := 1 step ┆ 0x000cf0…000d20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 ┆1 until 200 do i := 777; for i := 1 st┆ 0x000d20…000d50 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 ┆ep 1 until 200 do i := 777; for i := 1┆ 0x000d50…000d80 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a ┆ step 1 until 200 do i := 777; for i :┆ 0x000d80…000db0 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 ┆= 1 step 1 until 200 do i := 777; for ┆ 0x000db0…000de0 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 0a 20 20 20 20 ┆i := 1 step 1 until 200 do i := 777; ┆ 0x000de0…000e10 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 ┆for i := 1 step 1 until 200 do i := 777; ┆ 0x000e10…000e40 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 ┆ for i := 1 step 1 until 200 do i := 777┆ 0x000e40…000e70 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 ┆; for i := 1 step 1 until 200 do i := ┆ 0x000e70…000ea0 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 ┆777; for i := 1 step 1 until 200 do i ┆ 0x000ea0…000ed0 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 ┆:= 777; for i := 1 step 1 until 200 do ┆ 0x000ed0…000f00 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x000f00…000f30 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f ┆ i := 777; for i := 1 step 1 until 200 do┆ 0x000f30…000f60 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 ┆ i := 777; for i := 1 step 1 until 200┆ 0x000f60…000f90 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆ do i := 777; for i := 1 step 1 until ┆ 0x000f90…000fc0 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 ┆200 do i := 777; for i := 1 step 1 unt┆ 0x000fc0…000ff0 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 ┆il 200 do i := 777; for i := 1 step 1 ┆ 0x000ff0…001020 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 ┆until 200 do i := 777; for i := 1 step┆ 0x001020…001050 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 ┆ 1 until 200 do i := 777; for i := 1 s┆ 0x001050…001080 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 ┆tep 1 until 200 do i := 777; for i := ┆ 0x001080…0010b0 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 ┆1 step 1 until 200 do i := 777; for i ┆ 0x0010b0…0010e0 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 ┆:= 1 step 1 until 200 do i := 777; for┆ 0x0010e0…001110 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 ┆ i := 1 step 1 until 200 do i := 777; ┆ 0x001110…001140 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 ┆for i := 1 step 1 until 200 do i := 777; ┆ 0x001140…001170 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 ┆ for i := 1 step 1 until 200 do i := 777┆ 0x001170…0011a0 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 ┆; for i := 1 step 1 until 200 do i := ┆ 0x0011a0…0011d0 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 ┆777; for i := 1 step 1 until 200 do i ┆ 0x0011d0…001200 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 ┆:= 777; for i := 1 step 1 until 200 do ┆ 0x001200…001230 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x001230…001260 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f ┆ i := 777; for i := 1 step 1 until 200 do┆ 0x001260…001290 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 ┆ i := 777; for i := 1 step 1 until 200┆ 0x001290…0012c0 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆ do i := 777; for i := 1 step 1 until ┆ 0x0012c0…0012f0 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 ┆200 do i := 777; for i := 1 step 1 unt┆ 0x0012f0…001320 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 ┆il 200 do i := 777; for i := 1 step 1 ┆ 0x001320…001350 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 ┆until 200 do i := 777; for i := 1 step┆ 0x001350…001380 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 ┆ 1 until 200 do i := 777; for i := 1 s┆ 0x001380…0013b0 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 ┆tep 1 until 200 do i := 777; for i := ┆ 0x0013b0…0013e0 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 ┆1 step 1 until 200 do i := 777; for i ┆ 0x0013e0…001410 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 ┆:= 1 step 1 until 200 do i := 777; for┆ 0x001410…001440 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 ┆ i := 1 step 1 until 200 do i := 777; ┆ 0x001440…001470 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 0a ┆for i := 1 step 1 until 200 do i := 777; ┆ 0x001470…0014a0 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 ┆ for i := 1 step 1 until 200 do i := 77┆ 0x0014a0…0014d0 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d ┆7; for i := 1 step 1 until 200 do i :=┆ 0x0014d0…001500 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 ┆ 777; for i := 1 step 1 until 200 do i┆ 0x001500…001530 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 ┆ := 777; for i := 1 step 1 until 200 do ┆ 0x001530…001560 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x001560…001590 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 ┆ i := 777; for i := 1 step 1 until 200 d┆ 0x001590…0015c0 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 ┆o i := 777; for i := 1 step 1 until 20┆ 0x0015c0…0015f0 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆0 do i := 777; for i := 1 step 1 until┆ 0x0015f0…001620 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e ┆ 200 do i := 777; for i := 1 step 1 un┆ 0x001620…001650 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 ┆til 200 do i := 777; for i := 1 step 1┆ 0x001650…001680 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 ┆ until 200 do i := 777; for i := 1 ste┆ 0x001680…0016b0 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 ┆p 1 until 200 do i := 777; for i := 1 ┆ 0x0016b0…0016e0 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d ┆step 1 until 200 do i := 777; for i :=┆ 0x0016e0…001710 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 ┆ 1 step 1 until 200 do i := 777; for i┆ 0x001710…001740 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f ┆ := 1 step 1 until 200 do i := 777; fo┆ 0x001740…001770 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 ┆r i := 1 step 1 until 200 do i := 777; ┆ 0x001770…0017a0 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a ┆ for i := 1 step 1 until 200 do i := 777; ┆ 0x0017a0…0017d0 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 ┆ for i := 1 step 1 until 200 do i := 77┆ 0x0017d0…001800 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d ┆7; for i := 1 step 1 until 200 do i :=┆ 0x001800…001830 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 ┆ 777; for i := 1 step 1 until 200 do i┆ 0x001830…001860 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 ┆ := 777; for i := 1 step 1 until 200 do ┆ 0x001860…001890 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x001890…0018c0 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 ┆ i := 777; for i := 1 step 1 until 200 d┆ 0x0018c0…0018f0 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 ┆o i := 777; for i := 1 step 1 until 20┆ 0x0018f0…001920 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c ┆0 do i := 777; for i := 1 step 1 until┆ 0x001920…001950 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e ┆ 200 do i := 777; for i := 1 step 1 un┆ 0x001950…001980 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 ┆til 200 do i := 777; for i := 1 step 1┆ 0x001980…0019b0 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 ┆ until 200 do i := 777; for i := 1 ste┆ 0x0019b0…0019e0 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 ┆p 1 until 200 do i := 777; for i := 1 ┆ 0x0019e0…001a10 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d ┆step 1 until 200 do i := 777; for i :=┆ 0x001a10…001a40 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 ┆ 1 step 1 until 200 do i := 777; for i┆ 0x001a40…001a70 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f ┆ := 1 step 1 until 200 do i := 777; fo┆ 0x001a70…001aa0 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 ┆r i := 1 step 1 until 200 do i := 777; ┆ 0x001aa0…001ad0 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a ┆ for i := 1 step 1 until 200 do i := 777; ┆ 0x001ad0…001b00 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 ┆ for i := 1 step 1 until 200 do i := 77┆ 0x001b00…001b30 37 3b 0a 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a ┆7; for i := 1 step 1 until 200 do i :┆ 0x001b30…001b60 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 ┆= 777; for i := 1 step 1 until 200 do ┆ 0x001b60…001b90 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 ┆i := 777; for i := 1 step 1 until 200 do ┆ 0x001b90…001bc0 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x001bc0…001bf0 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 ┆ i := 777; for i := 1 step 1 until 200 ┆ 0x001bf0…001c20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 ┆do i := 777; for i := 1 step 1 until 2┆ 0x001c20…001c50 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆00 do i := 777; for i := 1 step 1 unti┆ 0x001c50…001c80 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆l 200 do i := 777; for i := 1 step 1 u┆ 0x001c80…001cb0 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 ┆ntil 200 do i := 777; for i := 1 step ┆ 0x001cb0…001ce0 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 ┆1 until 200 do i := 777; for i := 1 st┆ 0x001ce0…001d10 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 ┆ep 1 until 200 do i := 777; for i := 1┆ 0x001d10…001d40 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a ┆ step 1 until 200 do i := 777; for i :┆ 0x001d40…001d70 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 ┆= 1 step 1 until 200 do i := 777; for ┆ 0x001d70…001da0 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 ┆i := 1 step 1 until 200 do i := 777; f┆ 0x001da0…001dd0 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 ┆or i := 1 step 1 until 200 do i := 777; ┆ 0x001dd0…001e00 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b ┆ for i := 1 step 1 until 200 do i := 777;┆ 0x001e00…001e30 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 ┆ for i := 1 step 1 until 200 do i := 7┆ 0x001e30…001e60 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a ┆77; for i := 1 step 1 until 200 do i :┆ 0x001e60…001e90 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 ┆= 777; for i := 1 step 1 until 200 do ┆ 0x001e90…001ec0 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 ┆i := 777; for i := 1 step 1 until 200 do ┆ 0x001ec0…001ef0 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x001ef0…001f20 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 ┆ i := 777; for i := 1 step 1 until 200 ┆ 0x001f20…001f50 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 ┆do i := 777; for i := 1 step 1 until 2┆ 0x001f50…001f80 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆00 do i := 777; for i := 1 step 1 unti┆ 0x001f80…001fb0 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 ┆l 200 do i := 777; for i := 1 step 1 u┆ 0x001fb0…001fe0 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 ┆ntil 200 do i := 777; for i := 1 step ┆ 0x001fe0…002010 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 ┆1 until 200 do i := 777; for i := 1 st┆ 0x002010…002040 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 ┆ep 1 until 200 do i := 777; for i := 1┆ 0x002040…002070 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a ┆ step 1 until 200 do i := 777; for i :┆ 0x002070…0020a0 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 ┆= 1 step 1 until 200 do i := 777; for ┆ 0x0020a0…0020d0 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 ┆i := 1 step 1 until 200 do i := 777; f┆ 0x0020d0…002100 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 ┆or i := 1 step 1 until 200 do i := 777; ┆ 0x002100…002130 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b ┆ for i := 1 step 1 until 200 do i := 777;┆ 0x002130…002160 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 ┆ for i := 1 step 1 until 200 do i := 7┆ 0x002160…002190 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a ┆77; for i := 1 step 1 until 200 do i :┆ 0x002190…0021c0 3d 20 37 37 37 3b 0a 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 ┆= 777; for i := 1 step 1 until 200 do ┆ 0x0021c0…0021f0 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x0021f0…002220 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f ┆ i := 777; for i := 1 step 1 until 200 do┆ 0x002220…002250 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 ┆ i := 777; for i := 1 step 1 until 200┆ 0x002250…002280 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆ do i := 777; for i := 1 step 1 until ┆ 0x002280…0022b0 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 ┆200 do i := 777; for i := 1 step 1 unt┆ 0x0022b0…0022e0 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 ┆il 200 do i := 777; for i := 1 step 1 ┆ 0x0022e0…002310 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 ┆until 200 do i := 777; for i := 1 step┆ 0x002310…002340 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 ┆ 1 until 200 do i := 777; for i := 1 s┆ 0x002340…002370 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 ┆tep 1 until 200 do i := 777; for i := ┆ 0x002370…0023a0 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 ┆1 step 1 until 200 do i := 777; for i ┆ 0x0023a0…0023d0 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 ┆:= 1 step 1 until 200 do i := 777; for┆ 0x0023d0…002400 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 ┆ i := 1 step 1 until 200 do i := 777; ┆ 0x002400…002430 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 ┆for i := 1 step 1 until 200 do i := 777; ┆ 0x002430…002460 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 ┆ for i := 1 step 1 until 200 do i := 777┆ 0x002460…002490 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 ┆; for i := 1 step 1 until 200 do i := ┆ 0x002490…0024c0 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 20 69 20 ┆777; for i := 1 step 1 until 200 do i ┆ 0x0024c0…0024f0 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 20 20 20 ┆:= 777; for i := 1 step 1 until 200 do ┆ 0x0024f0…002520 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f 0a 20 20 ┆ i := 777; for i := 1 step 1 until 200 do ┆ 0x002520…002550 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 20 64 6f ┆ i := 777; for i := 1 step 1 until 200 do┆ 0x002550…002580 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 32 30 30 ┆ i := 777; for i := 1 step 1 until 200┆ 0x002580…0025b0 20 64 6f 0a 20 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 ┆ do i := 777; for i := 1 step 1 until ┆ […truncated at 200 lines…]