|
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…000020 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 ┆mode list.yes noth=algol survey.┆ 0x000020…000040 79 65 73 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 0a 20 20 69 20 3a 3d 20 32 ┆yes begin integer i; i := 2┆ 0x000040…000060 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 ┆; case i of begin i :┆ 0x000060…000080 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 ┆= 888; if false then be┆ 0x000080…0000a0 67 69 6e 0a 0a 20 20 20 20 7a 6f 6e 65 20 7a 20 28 31 32 38 2c 20 31 2c 20 73 74 64 65 72 72 6f ┆gin zone z (128, 1, stderro┆ 0x0000a0…0000c0 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 ┆r); integer i; for i :=┆ 0x0000c0…0000e0 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 ┆ 1 step 1 until 200 do i :┆ 0x0000e0…000100 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 ┆= 777; for i := 1 step 1 unt┆ 0x000100…000120 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 ┆il 200 do i := 777; fo┆ 0x000120…000140 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 ┆r i := 1 step 1 until 200 do ┆ 0x000140…000160 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 ┆ i := 777; for i := 1 step┆ 0x000160…000180 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 ┆ 1 until 200 do i := 777; ┆ 0x000180…0001a0 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 ┆ for i := 1 step 1 until 200 ┆ 0x0001a0…0001c0 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 ┆do i := 777; for i := ┆ 0x0001c0…0001e0 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 ┆1 step 1 until 200 do i :=┆ 0x0001e0…000200 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 ┆ 777; for i := 1 step 1 unti┆ 0x000200…000220 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 ┆l 200 do i := 777; for┆ 0x000220…000240 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 ┆ i := 1 step 1 until 200 do ┆ 0x000240…000260 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 ┆ i := 777; for i := 1 step ┆ 0x000260…000280 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 ┆1 until 200 do i := 777; ┆ 0x000280…0002a0 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 ┆ for i := 1 step 1 until 200 d┆ 0x0002a0…0002c0 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 ┆o i := 777; for i := 1┆ 0x0002c0…0002e0 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 ┆ step 1 until 200 do i := ┆ 0x0002e0…000300 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 ┆777; for i := 1 step 1 until┆ 0x000300…000320 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 ┆ 200 do i := 777; for ┆ 0x000320…000340 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 ┆i := 1 step 1 until 200 do ┆ 0x000340…000360 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 ┆ i := 777; for i := 1 step 1┆ 0x000360…000380 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 ┆ until 200 do i := 777; ┆ 0x000380…0003a0 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 ┆ for i := 1 step 1 until 200 do┆ 0x0003a0…0003c0 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 ┆ i := 777; for i := 1 ┆ 0x0003c0…0003e0 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 ┆step 1 until 200 do i := 7┆ 0x0003e0…000400 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 ┆77; for i := 1 step 1 until ┆ 0x000400…000420 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 ┆200 do i := 777; for i┆ 0x000420…000440 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 ┆ := 1 step 1 until 200 do ┆ 0x000440…000460 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 ┆i := 777; for i := 1 step 1 ┆ 0x000460…000480 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 ┆until 200 do i := 777; ┆ 0x000480…0004a0 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 ┆ for i := 1 step 1 until 200 do ┆ 0x0004a0…0004c0 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 ┆ i := 777; for i := 1 s┆ 0x0004c0…0004e0 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 ┆tep 1 until 200 do i := 77┆ 0x0004e0…000500 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 ┆7; for i := 1 step 1 until 2┆ 0x000500…000520 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 ┆00 do i := 777; for i ┆ 0x000520…000540 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 ┆:= 1 step 1 until 200 do i┆ 0x000540…000560 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 ┆ := 777; for i := 1 step 1 u┆ 0x000560…000580 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 ┆ntil 200 do i := 777; ┆ 0x000580…0005a0 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 ┆for i := 1 step 1 until 200 do ┆ 0x0005a0…0005c0 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 ┆ i := 777; for i := 1 st┆ 0x0005c0…0005e0 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 ┆ep 1 until 200 do i := 777┆ 0x0005e0…000600 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 ┆; for i := 1 step 1 until 20┆ 0x000600…000620 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 ┆0 do i := 777; for i :┆ 0x000620…000640 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 ┆= 1 step 1 until 200 do i ┆ 0x000640…000660 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 ┆:= 777; for i := 1 step 1 un┆ 0x000660…000680 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 ┆til 200 do i := 777; f┆ 0x000680…0006a0 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 ┆or i := 1 step 1 until 200 do ┆ 0x0006a0…0006c0 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 ┆ i := 777; for i := 1 ste┆ 0x0006c0…0006e0 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 ┆p 1 until 200 do i := 777;┆ 0x0006e0…000700 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 ┆ for i := 1 step 1 until 200┆ 0x000700…000720 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 ┆ do i := 777; for i :=┆ 0x000720…000740 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 ┆ 1 step 1 until 200 do i :┆ 0x000740…000760 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 ┆= 777; for i := 1 step 1 un┆ 0x000760…000780 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 ┆til 200 do i := 777; f┆ 0x000780…0007a0 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 ┆or i := 1 step 1 until 200 do ┆ 0x0007a0…0007c0 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 ┆ i := 777; for i := 1 ste┆ 0x0007c0…0007e0 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 ┆p 1 until 200 do i := 777;┆ 0x0007e0…000800 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 ┆ for i := 1 step 1 until 200┆ 0x000800…000820 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 ┆ do i := 777; for i :=┆ 0x000820…000840 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 ┆ 1 step 1 until 200 do i :┆ 0x000840…000860 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 ┆= 777; for i := 1 step 1 unt┆ 0x000860…000880 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 ┆il 200 do i := 777; fo┆ 0x000880…0008a0 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 ┆r i := 1 step 1 until 200 do ┆ 0x0008a0…0008c0 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 ┆ i := 777; for i := 1 step┆ 0x0008c0…0008e0 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 ┆ 1 until 200 do i := 777; ┆ 0x0008e0…000900 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 ┆ for i := 1 step 1 until 200 ┆ 0x000900…000920 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 ┆do i := 777; for i := ┆ 0x000920…000940 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 ┆1 step 1 until 200 do i :=┆ 0x000940…000960 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 ┆ 777; for i := 1 step 1 unti┆ 0x000960…000980 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 ┆l 200 do i := 777; for┆ 0x000980…0009a0 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 ┆ i := 1 step 1 until 200 do ┆ 0x0009a0…0009c0 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 ┆ i := 777; for i := 1 step ┆ 0x0009c0…0009e0 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 ┆1 until 200 do i := 777; ┆ 0x0009e0…000a00 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 ┆ for i := 1 step 1 until 200 d┆ 0x000a00…000a20 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 ┆o i := 777; for i := 1┆ 0x000a20…000a40 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 ┆ step 1 until 200 do i := ┆ 0x000a40…000a60 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 ┆777; for i := 1 step 1 until┆ 0x000a60…000a80 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 ┆ 200 do i := 777; for ┆ 0x000a80…000aa0 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 ┆i := 1 step 1 until 200 do ┆ 0x000aa0…000ac0 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 ┆ i := 777; for i := 1 step 1┆ 0x000ac0…000ae0 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 ┆ until 200 do i := 777; ┆ 0x000ae0…000b00 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 ┆ for i := 1 step 1 until 200 do┆ 0x000b00…000b20 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 ┆ i := 777; for i := 1 ┆ 0x000b20…000b40 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 ┆step 1 until 200 do i := 7┆ 0x000b40…000b60 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 ┆77; for i := 1 step 1 until ┆ 0x000b60…000b80 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 ┆200 do i := 777; for i┆ 0x000b80…000ba0 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 ┆ := 1 step 1 until 200 do ┆ 0x000ba0…000bc0 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 ┆i := 777; for i := 1 step 1 ┆ 0x000bc0…000be0 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 ┆until 200 do i := 777; ┆ 0x000be0…000c00 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 ┆ for i := 1 step 1 until 200 do ┆ 0x000c00…000c20 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 ┆ i := 777; for i := 1 s┆ 0x000c20…000c40 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 ┆tep 1 until 200 do i := 77┆ 0x000c40…000c60 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 ┆7; for i := 1 step 1 until 2┆ 0x000c60…000c80 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 ┆00 do i := 777; for i ┆ 0x000c80…000ca0 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 ┆:= 1 step 1 until 200 do i┆ 0x000ca0…000cc0 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 ┆ := 777; for i := 1 step 1 u┆ 0x000cc0…000ce0 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 ┆ntil 200 do i := 777; ┆ 0x000ce0…000d00 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 ┆for i := 1 step 1 until 200 do ┆ 0x000d00…000d20 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 ┆ i := 777; for i := 1 st┆ 0x000d20…000d40 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 ┆ep 1 until 200 do i := 777┆ 0x000d40…000d60 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 ┆; for i := 1 step 1 until 20┆ 0x000d60…000d80 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 ┆0 do i := 777; for i :┆ 0x000d80…000da0 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 ┆= 1 step 1 until 200 do i ┆ 0x000da0…000dc0 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 ┆:= 777; for i := 1 step 1 un┆ 0x000dc0…000de0 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 ┆til 200 do i := 777; ┆ 0x000de0…000e00 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 ┆for i := 1 step 1 until 200 do ┆ 0x000e00…000e20 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 ┆ i := 777; for i := 1 st┆ 0x000e20…000e40 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 ┆ep 1 until 200 do i := 777┆ 0x000e40…000e60 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 ┆; for i := 1 step 1 until 20┆ 0x000e60…000e80 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 ┆0 do i := 777; for i :┆ 0x000e80…000ea0 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 ┆= 1 step 1 until 200 do i ┆ 0x000ea0…000ec0 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 ┆:= 777; for i := 1 step 1 un┆ 0x000ec0…000ee0 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 ┆til 200 do i := 777; f┆ 0x000ee0…000f00 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 ┆or i := 1 step 1 until 200 do ┆ 0x000f00…000f20 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 ┆ i := 777; for i := 1 ste┆ 0x000f20…000f40 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 ┆p 1 until 200 do i := 777;┆ 0x000f40…000f60 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 ┆ for i := 1 step 1 until 200┆ 0x000f60…000f80 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 ┆ do i := 777; for i :=┆ 0x000f80…000fa0 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 ┆ 1 step 1 until 200 do i :┆ 0x000fa0…000fc0 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 ┆= 777; for i := 1 step 1 unt┆ 0x000fc0…000fe0 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 ┆il 200 do i := 777; fo┆ 0x000fe0…001000 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 ┆r i := 1 step 1 until 200 do ┆ 0x001000…001020 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 ┆ i := 777; for i := 1 step┆ 0x001020…001040 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 ┆ 1 until 200 do i := 777; ┆ 0x001040…001060 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 ┆ for i := 1 step 1 until 200 ┆ 0x001060…001080 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 ┆do i := 777; for i := ┆ 0x001080…0010a0 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 ┆1 step 1 until 200 do i :=┆ 0x0010a0…0010c0 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 ┆ 777; for i := 1 step 1 unti┆ 0x0010c0…0010e0 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 ┆l 200 do i := 777; for┆ 0x0010e0…001100 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 ┆ i := 1 step 1 until 200 do ┆ 0x001100…001120 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 ┆ i := 777; for i := 1 step ┆ 0x001120…001140 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 ┆1 until 200 do i := 777; ┆ 0x001140…001160 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 ┆ for i := 1 step 1 until 200 d┆ 0x001160…001180 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 ┆o i := 777; for i := 1┆ 0x001180…0011a0 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 ┆ step 1 until 200 do i := ┆ 0x0011a0…0011c0 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 ┆777; for i := 1 step 1 until┆ 0x0011c0…0011e0 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 ┆ 200 do i := 777; for ┆ 0x0011e0…001200 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 ┆i := 1 step 1 until 200 do ┆ 0x001200…001220 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 ┆ i := 777; for i := 1 step 1┆ 0x001220…001240 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 ┆ until 200 do i := 777; ┆ 0x001240…001260 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 ┆ for i := 1 step 1 until 200 do┆ 0x001260…001280 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 ┆ i := 777; for i := 1 ┆ 0x001280…0012a0 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 ┆step 1 until 200 do i := 7┆ 0x0012a0…0012c0 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 ┆77; for i := 1 step 1 until ┆ 0x0012c0…0012e0 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 ┆200 do i := 777; for i┆ 0x0012e0…001300 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 ┆ := 1 step 1 until 200 do ┆ 0x001300…001320 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 ┆i := 777; for i := 1 step 1 ┆ 0x001320…001340 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 ┆until 200 do i := 777; ┆ 0x001340…001360 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 ┆ for i := 1 step 1 until 200 do ┆ 0x001360…001380 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 ┆ i := 777; for i := 1 s┆ 0x001380…0013a0 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 ┆tep 1 until 200 do i := 77┆ 0x0013a0…0013c0 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 ┆7; for i := 1 step 1 until 2┆ 0x0013c0…0013e0 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 ┆00 do i := 777; for i ┆ 0x0013e0…001400 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 ┆:= 1 step 1 until 200 do i┆ 0x001400…001420 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 ┆ := 777; for i := 1 step 1 u┆ 0x001420…001440 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 ┆ntil 200 do i := 777; ┆ 0x001440…001460 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 ┆for i := 1 step 1 until 200 do ┆ 0x001460…001480 20 20 20 20 20 69 20 3a 3d 20 37 37 37 3b 0a 0a 20 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 ┆ i := 777; for i := 1 s┆ 0x001480…0014a0 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 ┆tep 1 until 200 do i := 77┆ 0x0014a0…0014c0 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 ┆7; for i := 1 step 1 until 2┆ 0x0014c0…0014e0 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 ┆00 do i := 777; for i ┆ 0x0014e0…001500 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 ┆:= 1 step 1 until 200 do i┆ 0x001500…001520 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 ┆ := 777; for i := 1 step 1 u┆ 0x001520…001540 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 ┆ntil 200 do i := 777; ┆ 0x001540…001560 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 ┆for i := 1 step 1 until 200 do ┆ 0x001560…001580 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 ┆ i := 777; for i := 1 st┆ 0x001580…0015a0 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 ┆ep 1 until 200 do i := 777┆ 0x0015a0…0015c0 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 ┆; for i := 1 step 1 until 20┆ 0x0015c0…0015e0 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 ┆0 do i := 777; for i :┆ 0x0015e0…001600 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 ┆= 1 step 1 until 200 do i ┆ 0x001600…001620 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 ┆:= 777; for i := 1 step 1 un┆ 0x001620…001640 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 ┆til 200 do i := 777; f┆ 0x001640…001660 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 ┆or i := 1 step 1 until 200 do ┆ 0x001660…001680 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 ┆ i := 777; for i := 1 ste┆ 0x001680…0016a0 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 ┆p 1 until 200 do i := 777;┆ 0x0016a0…0016c0 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 ┆ for i := 1 step 1 until 200┆ 0x0016c0…0016e0 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 ┆ do i := 777; for i :=┆ 0x0016e0…001700 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 ┆ 1 step 1 until 200 do i :┆ 0x001700…001720 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 ┆= 777; for i := 1 step 1 unt┆ 0x001720…001740 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 ┆il 200 do i := 777; fo┆ 0x001740…001760 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 ┆r i := 1 step 1 until 200 do ┆ 0x001760…001780 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 ┆ i := 777; for i := 1 step┆ 0x001780…0017a0 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 ┆ 1 until 200 do i := 777; ┆ 0x0017a0…0017c0 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 ┆ for i := 1 step 1 until 200 ┆ 0x0017c0…0017e0 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 ┆do i := 777; for i := ┆ 0x0017e0…001800 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 ┆1 step 1 until 200 do i :=┆ 0x001800…001820 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 ┆ 777; for i := 1 step 1 unti┆ 0x001820…001840 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 ┆l 200 do i := 777; for┆ 0x001840…001860 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 ┆ i := 1 step 1 until 200 do ┆ 0x001860…001880 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 ┆ i := 777; for i := 1 step ┆ 0x001880…0018a0 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 ┆1 until 200 do i := 777; ┆ 0x0018a0…0018c0 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 ┆ for i := 1 step 1 until 200 d┆ 0x0018c0…0018e0 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 ┆o i := 777; for i := 1┆ 0x0018e0…001900 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 ┆ step 1 until 200 do i := ┆ 0x001900…001920 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 ┆777; for i := 1 step 1 until┆ […truncated at 200 lines…]