|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15488 (0x3c80)
Names: »COMGRAPH.CML«
└─⟦6f7ebe666⟧ Bits:30004200 COMET GRAFIK for MPS-24 tilpasset COMAL-80 Ver. 2.02
└─ ⟦this⟧ »COMGRAPH.CML«
0x0000…0020 39 30 30 30 20 2f 2f 20 50 72 6f 63 65 64 75 72 65 67 72 75 70 70 65 20 43 4f 4d 47 52 41 50 48 ┆9000 // Proceduregruppe COMGRAPH┆
0x0020…0040 20 20 20 20 20 20 20 20 20 20 20 53 45 50 2e 38 34 20 2f 20 55 4c 4a 20 20 20 20 20 20 20 20 20 ┆ SEP.84 / ULJ ┆
0x0040…0060 20 20 20 56 65 72 73 69 6f 6e 20 32 2e 31 0d 39 30 30 31 20 2f 2f 0d 39 30 30 32 20 2f 2f 20 23 ┆ Version 2.1 9001 // 9002 // #┆
0x0060…0080 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆
[…0x1…]
0x00a0…00c0 23 23 23 23 23 0d 39 30 30 33 20 2f 2f 20 23 23 20 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 ┆##### 9003 // ## Copyright (C) ┆
0x00c0…00e0 49 43 4c 20 41 2f 53 20 6e 6f 76 65 6d 62 65 72 20 6c 39 38 32 2c 20 73 65 70 74 65 6d 62 65 72 ┆ICL A/S november l982, september┆
0x00e0…0100 20 31 39 38 34 2e 20 20 20 20 20 20 20 20 20 20 20 20 23 23 0d 39 30 30 34 20 2f 2f 20 23 23 20 ┆ 1984. ## 9004 // ## ┆
0x0100…0120 20 44 65 74 74 65 20 70 72 6f 67 72 61 6d 6d 65 6c 20 73 74 69 6c 6c 65 73 20 61 66 20 49 43 4c ┆ Dette programmel stilles af ICL┆
0x0120…0140 20 41 2f 53 20 74 69 6c 20 62 72 75 67 65 72 6e 65 73 20 20 72 7d 64 69 67 68 65 64 20 20 69 20 ┆ A/S til brugernes rådighed i ┆
0x0140…0160 20 23 23 0d 39 30 30 35 20 2f 2f 20 23 23 20 20 66 6f 72 62 69 6e 64 65 6c 73 65 20 6d 65 64 20 ┆ ## 9005 // ## forbindelse med ┆
0x0160…0180 6c 65 76 65 72 69 6e 67 20 61 66 20 67 72 61 66 69 6b 70 72 6f 63 65 73 73 6f 72 20 4d 50 53 2d ┆levering af grafikprocessor MPS-┆
0x0180…01a0 32 34 20 74 69 6c 20 43 4f 4d 45 54 2e 20 20 20 23 23 0d 39 30 30 36 20 2f 2f 20 23 23 20 20 50 ┆24 til COMET. ## 9006 // ## P┆
0x01a0…01c0 72 6f 67 72 61 6d 6d 65 6c 6c 65 74 20 6d 7d 20 61 6e 76 65 6e 64 65 73 20 69 20 66 6f 72 62 69 ┆rogrammellet må anvendes i forbi┆
0x01c0…01e0 6e 64 65 6c 73 65 20 6d 65 64 20 64 65 6e 20 6c 65 76 65 72 65 64 65 20 20 67 72 61 2d 20 20 23 ┆ndelse med den leverede gra- #┆
0x01e0…0200 23 0d 39 30 30 37 20 2f 2f 20 23 23 20 20 66 69 6b 70 72 6f 63 65 73 73 6f 72 2e 20 44 65 74 20 ┆# 9007 // ## fikprocessor. Det ┆
0x0200…0220 65 72 20 74 69 6c 6c 61 64 74 20 61 74 20 66 6f 72 65 74 61 67 65 20 73 69 6b 6b 65 72 68 65 64 ┆er tilladt at foretage sikkerhed┆
0x0220…0240 73 6b 6f 70 69 65 72 69 6e 67 20 69 20 20 23 23 0d 39 30 30 38 20 2f 2f 20 23 23 20 20 66 6f 72 ┆skopiering i ## 9008 // ## for┆
0x0240…0260 6e 7c 64 65 6e 74 20 6f 6d 66 61 6e 67 20 73 61 6d 74 20 61 74 20 61 6e 76 65 6e 64 65 20 20 70 ┆nødent omfang samt at anvende p┆
0x0260…0280 72 6f 67 72 61 6d 6d 65 6c 6c 65 74 20 20 69 20 20 70 72 6f 67 72 61 6d 6d 65 72 20 20 23 23 0d ┆rogrammellet i programmer ## ┆
0x0280…02a0 39 30 30 39 20 2f 2f 20 23 23 20 20 74 69 6c 20 65 67 65 74 20 62 72 75 67 2e 20 20 20 20 20 20 ┆9009 // ## til eget brug. ┆
0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x02c0…02e0 20 20 20 20 20 20 20 20 20 20 20 20 23 23 0d 39 30 31 30 20 2f 2f 20 23 23 20 20 45 6e 68 76 65 ┆ ## 9010 // ## Enhve┆
0x02e0…0300 72 20 61 6e 64 65 6e 20 66 6f 72 6d 20 66 6f 72 20 61 6e 76 65 6e 64 65 6c 73 65 20 61 66 20 20 ┆r anden form for anvendelse af ┆
0x0300…0320 70 72 6f 67 72 61 6d 65 6c 6c 65 74 20 20 2d 20 20 68 65 72 75 6e 64 65 72 20 20 23 23 0d 39 30 ┆programellet - herunder ## 90┆
0x0320…0340 31 31 20 2f 2f 20 23 23 20 20 6b 6f 6d 6d 65 72 63 69 65 6c 20 75 64 6e 79 74 74 65 6c 73 65 20 ┆11 // ## kommerciel udnyttelse ┆
0x0340…0360 61 66 20 64 65 74 74 65 20 73 61 6d 74 20 64 69 73 74 72 69 62 75 74 69 6f 6e 20 20 74 69 6c 20 ┆af dette samt distribution til ┆
0x0360…0380 20 74 72 65 64 69 65 2d 20 20 23 23 0d 39 30 31 32 20 2f 2f 20 23 23 20 20 70 61 72 74 20 2d 20 ┆ tredie- ## 9012 // ## part - ┆
0x0380…03a0 65 72 20 69 6b 6b 65 20 74 69 6c 6c 61 64 74 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆er ikke tilladt. ┆
0x03a0…03c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 0d 39 30 31 33 ┆ ## 9013┆
0x03c0…03e0 20 2f 2f 20 23 23 20 20 49 43 4c 20 41 2f 53 20 70 7d 74 61 67 65 72 20 73 69 67 20 69 6e 67 65 ┆ // ## ICL A/S påtager sig inge┆
0x03e0…0400 6e 20 66 6f 72 70 6c 69 67 74 69 67 65 6c 73 65 72 20 6d 65 64 20 68 65 6e 73 79 6e 20 74 69 6c ┆n forpligtigelser med hensyn til┆
0x0400…0420 20 66 65 6a 6c 2d 20 20 23 23 0d 39 30 31 34 20 2f 2f 20 23 23 20 20 72 65 74 74 65 6c 73 65 72 ┆ fejl- ## 9014 // ## rettelser┆
0x0420…0440 20 6f 67 2f 65 6c 6c 65 72 20 76 69 64 65 72 65 75 64 76 69 6b 6c 69 6e 67 2f 6f 70 64 61 74 65 ┆ og/eller videreudvikling/opdate┆
0x0440…0460 72 69 6e 67 20 61 66 20 64 65 74 20 20 6c 65 76 65 72 65 64 65 20 20 23 23 0d 39 30 31 35 20 2f ┆ring af det leverede ## 9015 /┆
0x0460…0480 2f 20 23 23 20 20 70 72 6f 67 72 61 6d 6d 65 6c 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/ ## programmel. ┆
0x0480…04a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04a0…04c0 20 20 20 20 20 20 23 23 0d 39 30 31 36 20 2f 2f 20 23 23 20 20 4f 70 68 61 76 73 72 65 74 74 65 ┆ ## 9016 // ## Ophavsrette┆
0x04c0…04e0 6e 20 74 69 6c 20 70 72 6f 67 72 61 6d 6d 65 6c 20 73 61 6d 74 20 74 69 6c 68 7c 72 65 6e 64 65 ┆n til programmel samt tilhørende┆
0x04e0…0500 20 64 6f 6b 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 2d 20 20 23 23 0d 39 30 31 37 20 2f 2f 20 ┆ dokumentation for- ## 9017 // ┆
0x0500…0520 23 23 20 20 62 6c 69 76 65 72 20 68 6f 73 20 49 43 4c 20 41 2f 53 2e 20 20 20 20 20 20 20 20 20 ┆## bliver hos ICL A/S. ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0540…0560 20 20 20 20 23 23 0d 39 30 31 38 20 2f 2f 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆ ## 9018 // #################┆
0x0560…0580 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ┆################################┆
0x0580…05a0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 0d 39 30 31 39 20 2f 2f 0d 39 30 ┆##################### 9019 // 90┆
0x05a0…05c0 32 30 20 2f 2f 20 2a 2a 2a 2a 2a 20 47 52 55 50 50 45 20 31 20 2a 2a 2a 2a 2a 20 44 69 76 65 72 ┆20 // ***** GRUPPE 1 ***** Diver┆
0x05c0…05e0 73 65 20 69 6e 69 74 69 65 72 69 6e 67 65 72 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆se initieringer ****************┆
0x05e0…0600 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 39 30 32 31 20 2f 2f 0d 39 30 32 32 20 50 52 4f 43 20 49 4e 49 ┆********** 9021 // 9022 PROC INI┆
0x0600…0620 54 47 52 41 46 49 4b 28 53 4b 52 4d 4e 52 29 20 2f 2f 0d 39 30 32 33 20 20 20 4f 55 54 20 31 37 ┆TGRAFIK(SKRMNR) // 9023 OUT 17┆
0x0620…0640 36 2c 20 32 35 35 0d 39 30 32 34 20 20 20 4f 55 54 20 31 37 39 2c 20 32 35 35 2a 28 53 4b 52 4d ┆6, 255 9024 OUT 179, 255*(SKRM┆
0x0640…0660 4e 52 2d 31 29 0d 39 30 32 35 20 20 20 4f 55 54 20 31 36 30 2c 20 37 0d 39 30 32 36 20 20 20 4f ┆NR-1) 9025 OUT 160, 7 9026 O┆
0x0660…0680 55 54 20 31 36 31 2c 20 31 31 0d 39 30 32 37 20 45 4e 44 50 52 4f 43 20 49 4e 49 54 47 52 41 46 ┆UT 161, 11 9027 ENDPROC INITGRAF┆
0x0680…06a0 49 4b 0d 39 30 32 38 20 2f 2f 0d 39 30 32 39 20 50 52 4f 43 20 47 52 41 46 49 4b 28 53 4b 52 4d ┆IK 9028 // 9029 PROC GRAFIK(SKRM┆
0x06a0…06c0 4e 52 29 20 2f 2f 0d 39 30 33 30 20 20 20 4f 55 54 20 31 37 36 2c 20 32 35 35 0d 39 30 33 31 20 ┆NR) // 9030 OUT 176, 255 9031 ┆
0x06c0…06e0 20 20 4f 55 54 20 31 37 39 2c 20 32 35 35 2a 28 53 4b 52 4d 4e 52 2d 31 29 0d 39 30 33 32 20 45 ┆ OUT 179, 255*(SKRMNR-1) 9032 E┆
0x06e0…0700 4e 44 50 52 4f 43 20 47 52 41 46 49 4b 0d 39 30 33 33 20 2f 2f 0d 39 30 33 34 20 50 52 4f 43 20 ┆NDPROC GRAFIK 9033 // 9034 PROC ┆
0x0700…0720 56 49 44 45 4f 20 2f 2f 0d 39 30 33 35 20 20 20 4f 55 54 20 31 37 36 2c 20 30 0d 39 30 33 36 20 ┆VIDEO // 9035 OUT 176, 0 9036 ┆
0x0720…0740 45 4e 44 50 52 4f 43 20 56 49 44 45 4f 0d 39 30 33 37 20 2f 2f 0d 39 30 33 38 20 50 52 4f 43 20 ┆ENDPROC VIDEO 9037 // 9038 PROC ┆
0x0740…0760 54 49 4d 45 28 53 45 43 29 20 2f 2f 0d 39 30 33 39 20 20 20 46 4f 52 20 54 49 44 3a 3d 31 20 54 ┆TIME(SEC) // 9039 FOR TID:=1 T┆
0x0760…0780 4f 20 38 30 30 2a 53 45 43 20 44 4f 20 0d 39 30 34 30 20 20 20 4e 45 58 54 20 54 49 44 0d 39 30 ┆O 800*SEC DO 9040 NEXT TID 90┆
0x0780…07a0 34 31 20 45 4e 44 50 52 4f 43 20 54 49 4d 45 0d 39 30 34 32 20 2f 2f 0d 39 30 34 33 20 50 52 4f ┆41 ENDPROC TIME 9042 // 9043 PRO┆
0x07a0…07c0 43 20 57 41 49 54 28 52 45 46 20 4b 41 52 29 20 2f 2f 0d 39 30 34 34 20 20 20 50 4f 4b 45 20 32 ┆C WAIT(REF KAR) // 9044 POKE 2┆
0x07c0…07e0 35 36 2c 20 31 39 35 0d 39 30 34 35 20 20 20 54 52 41 50 20 45 53 43 2d 0d 39 30 34 36 20 20 20 ┆56, 195 9045 TRAP ESC- 9046 ┆
0x07e0…0800 52 45 50 45 41 54 20 0d 39 30 34 37 20 20 20 20 20 49 46 20 45 53 43 28 29 20 54 48 45 4e 20 0d ┆REPEAT 9047 IF ESC() THEN ┆
0x0800…0820 39 30 34 38 20 20 20 20 20 20 20 4b 41 52 3a 3d 32 37 0d 39 30 34 39 20 20 20 20 20 45 4c 53 45 ┆9048 KAR:=27 9049 ELSE┆
0x0820…0840 20 0d 39 30 35 30 20 20 20 20 20 20 20 4b 41 52 3a 3d 50 45 45 4b 28 32 35 36 29 0d 39 30 35 31 ┆ 9050 KAR:=PEEK(256) 9051┆
0x0840…0860 20 20 20 20 20 45 4e 44 49 46 20 0d 39 30 35 32 20 20 20 55 4e 54 49 4c 20 4b 41 52 3c 3e 31 39 ┆ ENDIF 9052 UNTIL KAR<>19┆
0x0860…0880 35 0d 39 30 35 33 20 20 20 54 52 41 50 20 45 53 43 2b 0d 39 30 35 34 20 45 4e 44 50 52 4f 43 20 ┆5 9053 TRAP ESC+ 9054 ENDPROC ┆
0x0880…08a0 57 41 49 54 0d 39 30 35 35 20 2f 2f 0d 39 30 35 36 20 50 52 4f 43 20 49 4e 49 54 53 54 41 54 55 ┆WAIT 9055 // 9056 PROC INITSTATU┆
0x08a0…08c0 53 20 2f 2f 0d 39 30 35 37 20 20 20 53 54 41 54 55 53 3a 3d 30 0d 39 30 35 38 20 20 20 45 58 45 ┆S // 9057 STATUS:=0 9058 EXE┆
0x08c0…08e0 43 20 53 54 41 54 55 53 49 4e 49 54 0d 39 30 35 39 20 45 4e 44 50 52 4f 43 20 49 4e 49 54 53 54 ┆C STATUSINIT 9059 ENDPROC INITST┆
0x08e0…0900 41 54 55 53 0d 39 30 36 30 20 2f 2f 0d 39 30 36 31 20 50 52 4f 43 20 53 54 41 54 55 53 49 4e 49 ┆ATUS 9060 // 9061 PROC STATUSINI┆
0x0900…0920 54 20 2f 2f 0d 39 30 36 32 20 20 20 49 4d 50 4f 52 54 20 53 54 41 54 55 53 0d 39 30 36 33 20 20 ┆T // 9062 IMPORT STATUS 9063 ┆
0x0920…0940 20 44 49 4d 20 53 54 41 54 55 53 24 20 4f 46 20 31 30 0d 39 30 36 34 20 20 20 53 54 41 54 55 53 ┆ DIM STATUS$ OF 10 9064 STATUS┆
0x0940…0960 3a 3d 56 41 52 50 54 52 28 53 54 41 54 55 53 24 29 2b 32 0d 39 30 36 35 20 20 20 50 4f 4b 45 20 ┆:=VARPTR(STATUS$)+2 9065 POKE ┆
0x0960…0980 53 54 41 54 55 53 2c 20 32 31 39 20 2f 2f 20 49 4e 20 20 31 36 30 0d 39 30 36 36 20 20 20 50 4f ┆STATUS, 219 // IN 160 9066 PO┆
0x0980…09a0 4b 45 20 53 54 41 54 55 53 2b 31 2c 20 31 36 30 20 2f 2f 20 43 4f 4d 4d 41 4e 44 4f 52 45 47 49 ┆KE STATUS+1, 160 // COMMANDOREGI┆
0x09a0…09c0 53 54 45 52 0d 39 30 36 37 20 20 20 50 4f 4b 45 20 53 54 41 54 55 53 2b 32 2c 20 32 33 30 20 2f ┆STER 9067 POKE STATUS+2, 230 /┆
0x09c0…09e0 2f 20 41 4e 49 20 30 30 30 30 30 31 30 30 42 0d 39 30 36 38 20 20 20 50 4f 4b 45 20 53 54 41 54 ┆/ ANI 00000100B 9068 POKE STAT┆
0x09e0…0a00 55 53 2b 33 2c 20 34 0d 39 30 36 39 20 20 20 50 4f 4b 45 20 53 54 41 54 55 53 2b 34 2c 20 32 35 ┆US+3, 4 9069 POKE STATUS+4, 25┆
0x0a00…0a20 34 20 2f 2f 20 43 50 49 20 30 0d 39 30 37 30 20 20 20 50 4f 4b 45 20 53 54 41 54 55 53 2b 35 2c ┆4 // CPI 0 9070 POKE STATUS+5,┆
0x0a20…0a40 20 30 0d 39 30 37 31 20 20 20 50 4f 4b 45 20 53 54 41 54 55 53 2b 36 2c 20 32 30 32 20 2f 2f 20 ┆ 0 9071 POKE STATUS+6, 202 // ┆
0x0a40…0a60 4a 5a 20 20 53 54 41 54 55 53 0d 39 30 37 32 20 20 20 50 4f 4b 45 20 53 54 41 54 55 53 2b 37 2c ┆JZ STATUS 9072 POKE STATUS+7,┆
0x0a60…0a80 20 53 54 41 54 55 53 20 4d 4f 44 20 32 35 36 0d 39 30 37 33 20 20 20 50 4f 4b 45 20 53 54 41 54 ┆ STATUS MOD 256 9073 POKE STAT┆
0x0a80…0aa0 55 53 2b 38 2c 20 53 54 41 54 55 53 20 44 49 56 20 32 35 36 0d 39 30 37 34 20 20 20 50 4f 4b 45 ┆US+8, STATUS DIV 256 9074 POKE┆
0x0aa0…0ac0 20 53 54 41 54 55 53 2b 39 2c 20 32 30 31 20 2f 2f 20 52 45 54 55 52 4e 0d 39 30 37 35 20 45 4e ┆ STATUS+9, 201 // RETURN 9075 EN┆
0x0ac0…0ae0 44 50 52 4f 43 20 53 54 41 54 55 53 49 4e 49 54 0d 39 30 37 36 20 2f 2f 0d 39 31 30 30 20 2f 2f ┆DPROC STATUSINIT 9076 // 9100 //┆
0x0ae0…0b00 20 2a 2a 2a 2a 2a 20 47 52 55 50 50 45 20 32 20 2a 2a 2a 2a 2a 20 54 65 67 6e 69 6e 67 20 61 66 ┆ ***** GRUPPE 2 ***** Tegning af┆
0x0b00…0b20 20 66 69 67 75 72 65 72 20 6f 67 20 74 65 6b 73 74 2e 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ figurer og tekst. *************┆
0x0b20…0b40 2a 2a 2a 2a 2a 2a 2a 0d 39 31 30 31 20 2f 2f 0d 39 31 30 32 20 50 52 4f 43 20 44 49 53 50 4c 49 ┆******* 9101 // 9102 PROC DISPLI┆
0x0b40…0b60 4e 45 41 4c 4c 28 54 59 2c 20 42 52 2c 20 58 31 2c 20 59 31 2c 20 58 32 2c 20 59 32 29 0d 39 31 ┆NEALL(TY, BR, X1, Y1, X2, Y2) 91┆
0x0b60…0b80 30 33 20 20 20 4f 55 54 20 31 36 32 2c 20 54 59 2b 28 49 4e 50 28 31 36 32 29 20 44 49 56 20 34 ┆03 OUT 162, TY+(INP(162) DIV 4┆
0x0b80…0ba0 29 2a 34 0d 39 31 30 34 20 20 20 49 46 20 58 31 3d 58 32 20 54 48 45 4e 20 0d 39 31 30 35 20 20 ┆)*4 9104 IF X1=X2 THEN 9105 ┆
0x0ba0…0bc0 20 20 20 46 4f 52 20 53 54 52 42 52 3a 3d 58 31 2d 49 4e 54 28 42 52 2f 32 29 20 54 4f 20 58 31 ┆ FOR STRBR:=X1-INT(BR/2) TO X1┆
0x0bc0…0be0 2b 49 4e 54 28 42 52 2f 32 29 20 44 4f 20 0d 39 31 30 36 20 20 20 20 20 20 20 45 58 45 43 20 44 ┆+INT(BR/2) DO 9106 EXEC D┆
0x0be0…0c00 49 53 50 4c 49 4e 45 28 53 54 52 42 52 2c 59 31 2c 53 54 52 42 52 2c 59 32 29 0d 39 31 30 37 20 ┆ISPLINE(STRBR,Y1,STRBR,Y2) 9107 ┆
0x0c00…0c20 20 20 20 20 4e 45 58 54 20 53 54 52 42 52 0d 39 31 30 38 20 20 20 45 4c 49 46 20 59 31 3d 59 32 ┆ NEXT STRBR 9108 ELIF Y1=Y2┆
0x0c20…0c40 20 54 48 45 4e 20 0d 39 31 30 39 20 20 20 20 20 46 4f 52 20 53 54 52 42 52 3a 3d 59 31 2d 49 4e ┆ THEN 9109 FOR STRBR:=Y1-IN┆
0x0c40…0c60 54 28 42 52 2f 32 29 20 54 4f 20 59 31 2b 49 4e 54 28 42 52 2f 32 29 20 44 4f 20 0d 39 31 31 30 ┆T(BR/2) TO Y1+INT(BR/2) DO 9110┆
0x0c60…0c80 20 20 20 20 20 20 20 45 58 45 43 20 44 49 53 50 4c 49 4e 45 28 58 31 2c 53 54 52 42 52 2c 58 32 ┆ EXEC DISPLINE(X1,STRBR,X2┆
0x0c80…0ca0 2c 53 54 52 42 52 29 0d 39 31 31 31 20 20 20 20 20 4e 45 58 54 20 53 54 52 42 52 0d 39 31 31 32 ┆,STRBR) 9111 NEXT STRBR 9112┆
0x0ca0…0cc0 20 20 20 45 4c 53 45 20 0d 39 31 31 33 20 20 20 20 20 46 4f 52 20 53 54 52 42 52 3a 3d 2d 49 4e ┆ ELSE 9113 FOR STRBR:=-IN┆
0x0cc0…0ce0 54 28 42 52 2f 32 29 20 54 4f 20 49 4e 54 28 42 52 2f 32 29 20 44 4f 20 0d 39 31 31 34 20 20 20 ┆T(BR/2) TO INT(BR/2) DO 9114 ┆
0x0ce0…0d00 20 20 20 20 45 58 45 43 20 44 49 53 50 4c 49 4e 45 28 58 31 2c 59 31 2b 53 54 52 42 52 2c 58 32 ┆ EXEC DISPLINE(X1,Y1+STRBR,X2┆
0x0d00…0d20 2c 59 32 2b 53 54 52 42 52 29 0d 39 31 31 35 20 20 20 20 20 4e 45 58 54 20 53 54 52 42 52 0d 39 ┆,Y2+STRBR) 9115 NEXT STRBR 9┆
0x0d20…0d40 31 31 36 20 20 20 45 4e 44 49 46 20 0d 39 31 31 37 20 45 4e 44 50 52 4f 43 20 44 49 53 50 4c 49 ┆116 ENDIF 9117 ENDPROC DISPLI┆
0x0d40…0d60 4e 45 41 4c 4c 0d 39 31 31 38 20 2f 2f 0d 39 31 31 39 20 50 52 4f 43 20 44 49 53 50 52 45 4b 54 ┆NEALL 9118 // 9119 PROC DISPREKT┆
0x0d60…0d80 41 4c 4c 28 54 59 2c 20 42 52 2c 20 58 31 2c 20 59 31 2c 20 58 32 2c 20 59 32 29 0d 39 31 32 30 ┆ALL(TY, BR, X1, Y1, X2, Y2) 9120┆
0x0d80…0da0 20 20 20 4f 55 54 20 31 36 32 2c 20 54 59 2b 28 49 4e 50 28 31 36 32 29 20 44 49 56 20 34 29 2a ┆ OUT 162, TY+(INP(162) DIV 4)*┆
0x0da0…0dc0 34 0d 39 31 32 31 20 20 20 46 4f 52 20 52 42 52 3a 3d 2d 49 4e 54 28 42 52 2f 32 29 20 54 4f 20 ┆4 9121 FOR RBR:=-INT(BR/2) TO ┆
0x0dc0…0de0 49 4e 54 28 42 52 2f 32 29 20 44 4f 20 0d 39 31 32 32 20 20 20 20 20 45 58 45 43 20 44 49 53 50 ┆INT(BR/2) DO 9122 EXEC DISP┆
0x0de0…0e00 52 45 4b 54 28 58 31 2d 52 42 52 2c 59 31 2d 52 42 52 2c 58 32 2b 52 42 52 2c 59 32 2b 52 42 52 ┆REKT(X1-RBR,Y1-RBR,X2+RBR,Y2+RBR┆
0x0e00…0e20 29 0d 39 31 32 33 20 20 20 4e 45 58 54 20 52 42 52 0d 39 31 32 34 20 45 4e 44 50 52 4f 43 20 44 ┆) 9123 NEXT RBR 9124 ENDPROC D┆
0x0e20…0e40 49 53 50 52 45 4b 54 41 4c 4c 0d 39 31 32 35 20 2f 2f 0d 39 31 32 36 20 50 52 4f 43 20 44 49 53 ┆ISPREKTALL 9125 // 9126 PROC DIS┆
0x0e40…0e60 50 43 49 52 4b 45 4c 41 4c 4c 28 54 59 2c 20 42 52 2c 20 58 31 2c 20 59 31 2c 20 58 32 2c 20 59 ┆PCIRKELALL(TY, BR, X1, Y1, X2, Y┆
0x0e60…0e80 32 29 0d 39 31 32 37 20 20 20 4f 55 54 20 31 36 32 2c 20 54 59 2b 28 49 4e 50 28 31 36 32 29 20 ┆2) 9127 OUT 162, TY+(INP(162) ┆
0x0e80…0ea0 44 49 56 20 34 29 2a 34 0d 39 31 32 38 20 20 20 58 58 32 3a 3d 53 51 52 28 28 58 31 2d 58 32 29 ┆DIV 4)*4 9128 XX2:=SQR((X1-X2)┆
0x0ea0…0ec0 5e 32 2b 28 59 31 2d 59 32 29 5e 32 29 2b 58 31 0d 39 31 32 39 20 20 20 46 4f 52 20 43 49 3a 3d ┆^2+(Y1-Y2)^2)+X1 9129 FOR CI:=┆
0x0ec0…0ee0 2d 49 4e 54 28 42 52 2f 32 29 20 54 4f 20 49 4e 54 28 42 52 2f 32 29 20 44 4f 20 0d 39 31 33 30 ┆-INT(BR/2) TO INT(BR/2) DO 9130┆
0x0ee0…0f00 20 20 20 20 20 45 58 45 43 20 44 49 53 50 43 49 52 4b 45 4c 28 58 31 2c 59 31 2c 58 58 32 2b 43 ┆ EXEC DISPCIRKEL(X1,Y1,XX2+C┆
0x0f00…0f20 49 2c 59 31 29 0d 39 31 33 31 20 20 20 4e 45 58 54 20 43 49 0d 39 31 33 32 20 45 4e 44 50 52 4f ┆I,Y1) 9131 NEXT CI 9132 ENDPRO┆
0x0f20…0f40 43 20 44 49 53 50 43 49 52 4b 45 4c 41 4c 4c 0d 39 31 33 33 20 2f 2f 0d 39 31 33 34 20 50 52 4f ┆C DISPCIRKELALL 9133 // 9134 PRO┆
0x0f40…0f60 43 20 44 49 53 50 43 48 52 41 4c 4c 28 54 59 2c 20 4d 58 2c 20 4d 59 2c 20 58 31 2c 20 59 31 2c ┆C DISPCHRALL(TY, MX, MY, X1, Y1,┆
0x0f60…0f80 20 53 24 29 0d 39 31 33 35 20 20 20 4f 55 54 20 31 36 32 2c 20 54 59 2a 34 2b 28 49 4e 50 28 31 ┆ S$) 9135 OUT 162, TY*4+(INP(1┆
0x0f80…0fa0 36 32 29 20 4d 4f 44 20 34 29 0d 39 31 33 36 20 20 20 49 46 20 4d 58 3d 31 36 20 54 48 45 4e 20 ┆62) MOD 4) 9136 IF MX=16 THEN ┆
0x0fa0…0fc0 4d 58 3a 3d 30 0d 39 31 33 37 20 20 20 49 46 20 4d 59 3d 31 36 20 54 48 45 4e 20 4d 59 3a 3d 30 ┆MX:=0 9137 IF MY=16 THEN MY:=0┆
0x0fc0…0fe0 0d 39 31 33 38 20 20 20 4f 55 54 20 31 36 33 2c 20 4d 58 2a 31 36 2b 4d 59 0d 39 31 33 39 20 20 ┆ 9138 OUT 163, MX*16+MY 9139 ┆
0x0fe0…1000 20 45 58 45 43 20 44 49 53 50 43 48 52 28 58 31 2c 59 31 2c 53 24 29 0d 39 31 34 30 20 45 4e 44 ┆ EXEC DISPCHR(X1,Y1,S$) 9140 END┆
0x1000…1020 50 52 4f 43 20 44 49 53 50 43 48 52 41 4c 4c 0d 39 31 34 31 20 2f 2f 0d 39 31 34 32 20 50 52 4f ┆PROC DISPCHRALL 9141 // 9142 PRO┆
0x1020…1040 43 20 44 49 53 50 43 48 52 41 4c 4c 44 4b 28 54 59 2c 20 4d 58 2c 20 4d 59 2c 20 58 31 2c 20 59 ┆C DISPCHRALLDK(TY, MX, MY, X1, Y┆
0x1040…1060 31 2c 20 53 24 29 0d 39 31 34 33 20 20 20 4f 55 54 20 31 36 32 2c 20 54 59 2a 34 2b 28 49 4e 50 ┆1, S$) 9143 OUT 162, TY*4+(INP┆
0x1060…1080 28 31 36 32 29 20 4d 4f 44 20 34 29 0d 39 31 34 34 20 20 20 49 46 20 4d 58 3d 31 36 20 54 48 45 ┆(162) MOD 4) 9144 IF MX=16 THE┆
0x1080…10a0 4e 20 4d 58 3a 3d 30 0d 39 31 34 35 20 20 20 49 46 20 4d 59 3d 31 36 20 54 48 45 4e 20 4d 59 3a ┆N MX:=0 9145 IF MY=16 THEN MY:┆
0x10a0…10c0 3d 30 0d 39 31 34 36 20 20 20 4f 55 54 20 31 36 33 2c 20 4d 58 2a 31 36 2b 4d 59 0d 39 31 34 37 ┆=0 9146 OUT 163, MX*16+MY 9147┆
0x10c0…10e0 20 20 20 45 58 45 43 20 44 49 53 50 43 48 52 44 4b 28 58 31 2c 59 31 2c 53 24 29 0d 39 31 34 38 ┆ EXEC DISPCHRDK(X1,Y1,S$) 9148┆
0x10e0…1100 20 45 4e 44 50 52 4f 43 20 44 49 53 50 43 48 52 41 4c 4c 44 4b 0d 39 31 34 39 20 2f 2f 0d 39 31 ┆ ENDPROC DISPCHRALLDK 9149 // 91┆
0x1100…1120 35 30 20 50 52 4f 43 20 46 49 4c 4c 28 58 31 2c 20 59 31 2c 20 58 32 2c 20 59 32 2c 20 50 45 4e ┆50 PROC FILL(X1, Y1, X2, Y2, PEN┆
0x1120…1140 45 52 41 53 45 29 0d 39 31 35 31 20 20 20 49 46 20 58 31 3e 58 32 20 54 48 45 4e 20 0d 39 31 35 ┆ERASE) 9151 IF X1>X2 THEN 915┆
0x1140…1160 32 20 20 20 20 20 50 5a 3a 3d 58 31 3b 20 58 31 3a 3d 58 32 3b 20 58 32 3a 3d 50 5a 0d 39 31 35 ┆2 PZ:=X1; X1:=X2; X2:=PZ 915┆
0x1160…1180 33 20 20 20 45 4e 44 49 46 20 0d 39 31 35 34 20 20 20 49 46 20 59 31 3e 59 32 20 54 48 45 4e 20 ┆3 ENDIF 9154 IF Y1>Y2 THEN ┆
0x1180…11a0 0d 39 31 35 35 20 20 20 20 20 50 5a 3a 3d 59 31 3b 20 59 31 3a 3d 59 32 3b 20 59 32 3a 3d 50 5a ┆ 9155 PZ:=Y1; Y1:=Y2; Y2:=PZ┆
0x11a0…11c0 0d 39 31 35 36 20 20 20 45 4e 44 49 46 20 0d 39 31 35 37 20 20 20 49 46 20 58 32 2d 58 31 3e 32 ┆ 9156 ENDIF 9157 IF X2-X1>2┆
0x11c0…11e0 35 35 20 54 48 45 4e 20 0d 39 31 35 38 20 20 20 20 20 45 58 45 43 20 46 49 4c 4c 28 58 31 2c 59 ┆55 THEN 9158 EXEC FILL(X1,Y┆
0x11e0…1200 31 2c 58 32 20 44 49 56 20 32 2c 59 32 2c 50 45 4e 45 52 41 53 45 29 0d 39 31 35 39 20 20 20 20 ┆1,X2 DIV 2,Y2,PENERASE) 9159 ┆
0x1200…1220 20 58 31 3a 3d 28 58 32 20 44 49 56 20 32 29 2b 31 0d 39 31 36 30 20 20 20 45 4e 44 49 46 20 0d ┆ X1:=(X2 DIV 2)+1 9160 ENDIF ┆
0x1220…1240 39 31 36 31 20 20 20 4f 55 54 20 31 36 35 2c 20 58 32 2d 58 31 0d 39 31 36 32 20 20 20 4f 55 54 ┆9161 OUT 165, X2-X1 9162 OUT┆
0x1240…1260 20 31 36 30 2c 20 50 45 4e 45 52 41 53 45 0d 39 31 36 33 20 20 20 46 4f 52 20 46 49 49 3a 3d 59 ┆ 160, PENERASE 9163 FOR FII:=Y┆
0x1260…1280 31 20 54 4f 20 59 32 20 44 4f 20 0d 39 31 36 34 20 20 20 20 20 4f 55 54 20 31 36 38 2c 20 58 31 ┆1 TO Y2 DO 9164 OUT 168, X1┆
0x1280…12a0 20 44 49 56 20 32 35 36 0d 39 31 36 35 20 20 20 20 20 4f 55 54 20 31 36 39 2c 20 58 31 20 4d 4f ┆ DIV 256 9165 OUT 169, X1 MO┆
0x12a0…12c0 44 20 32 35 36 0d 39 31 36 36 20 20 20 20 20 4f 55 54 20 31 37 30 2c 20 46 49 49 20 44 49 56 20 ┆D 256 9166 OUT 170, FII DIV ┆
0x12c0…12e0 32 35 36 0d 39 31 36 37 20 20 20 20 20 4f 55 54 20 31 37 31 2c 20 46 49 49 20 4d 4f 44 20 32 35 ┆256 9167 OUT 171, FII MOD 25┆
0x12e0…1300 36 0d 39 31 36 38 20 20 20 20 20 4f 55 54 20 31 36 30 2c 20 31 36 0d 39 31 36 39 20 20 20 4e 45 ┆6 9168 OUT 160, 16 9169 NE┆
0x1300…1320 58 54 20 46 49 49 0d 39 31 37 30 20 20 20 4f 55 54 20 31 36 30 2c 20 30 0d 39 31 37 31 20 45 4e ┆XT FII 9170 OUT 160, 0 9171 EN┆
0x1320…1340 44 50 52 4f 43 20 46 49 4c 4c 0d 39 31 37 32 20 2f 2f 0d 39 32 30 30 20 2f 2f 20 2a 2a 2a 2a 2a ┆DPROC FILL 9172 // 9200 // *****┆
0x1340…1360 20 47 52 55 50 50 45 20 33 20 2a 2a 2a 2a 2a 20 74 65 67 6e 69 6e 67 20 61 66 20 66 69 67 75 72 ┆ GRUPPE 3 ***** tegning af figur┆
0x1360…1380 65 72 20 6f 67 20 74 65 6b 73 74 20 2d 20 65 6e 6b 65 6c 74 20 73 74 72 65 67 20 2a 2a 2a 2a 2a ┆er og tekst - enkelt streg *****┆
0x1380…13a0 2a 0d 39 32 30 31 20 2f 2f 0d 39 32 30 32 20 50 52 4f 43 20 44 49 53 50 4c 49 4e 45 28 58 31 2c ┆* 9201 // 9202 PROC DISPLINE(X1,┆
0x13a0…13c0 20 59 31 2c 20 58 32 2c 20 59 32 29 0d 39 32 30 33 20 20 20 57 48 49 4c 45 20 41 42 53 28 58 32 ┆ Y1, X2, Y2) 9203 WHILE ABS(X2┆
0x13c0…13e0 2d 58 31 29 3e 32 35 35 20 4f 52 20 41 42 53 28 59 32 2d 59 31 29 3e 32 35 35 20 44 4f 20 0d 39 ┆-X1)>255 OR ABS(Y2-Y1)>255 DO 9┆
0x13e0…1400 32 30 34 20 20 20 20 20 58 58 32 3a 3d 49 4e 54 28 28 58 32 2d 58 31 29 2f 32 29 2b 58 31 3b 20 ┆204 XX2:=INT((X2-X1)/2)+X1; ┆
0x1400…1420 59 59 32 3a 3d 49 4e 54 28 28 59 32 2d 59 31 29 2f 32 29 2b 59 31 0d 39 32 30 35 20 20 20 20 20 ┆YY2:=INT((Y2-Y1)/2)+Y1 9205 ┆
0x1420…1440 45 58 45 43 20 44 49 53 50 4c 49 4e 45 28 58 31 2c 59 31 2c 58 58 32 2c 59 59 32 29 0d 39 32 30 ┆EXEC DISPLINE(X1,Y1,XX2,YY2) 920┆
0x1440…1460 36 20 20 20 20 20 58 31 3a 3d 58 58 32 3b 20 59 31 3a 3d 59 59 32 0d 39 32 30 37 20 20 20 45 4e ┆6 X1:=XX2; Y1:=YY2 9207 EN┆
0x1460…1480 44 57 48 49 4c 45 20 0d 39 32 30 38 20 20 20 4f 55 54 20 31 36 38 2c 20 58 31 20 44 49 56 20 32 ┆DWHILE 9208 OUT 168, X1 DIV 2┆
0x1480…14a0 35 36 0d 39 32 30 39 20 20 20 4f 55 54 20 31 36 39 2c 20 58 31 20 4d 4f 44 20 32 35 36 0d 39 32 ┆56 9209 OUT 169, X1 MOD 256 92┆
0x14a0…14c0 31 30 20 20 20 4f 55 54 20 31 37 30 2c 20 59 31 20 44 49 56 20 32 35 36 0d 39 32 31 31 20 20 20 ┆10 OUT 170, Y1 DIV 256 9211 ┆
0x14c0…14e0 4f 55 54 20 31 37 31 2c 20 59 31 20 4d 4f 44 20 32 35 36 0d 39 32 31 32 20 20 20 4f 55 54 20 31 ┆OUT 171, Y1 MOD 256 9212 OUT 1┆
0x14e0…1500 36 35 2c 20 41 42 53 28 58 32 2d 58 31 29 0d 39 32 31 33 20 20 20 4f 55 54 20 31 36 37 2c 20 41 ┆65, ABS(X2-X1) 9213 OUT 167, A┆
0x1500…1520 42 53 28 59 32 2d 59 31 29 0d 39 32 31 34 20 20 20 4f 55 54 20 31 36 30 2c 20 31 37 2b 32 2a 28 ┆BS(Y2-Y1) 9214 OUT 160, 17+2*(┆
0x1520…1540 28 58 32 2d 58 31 29 3c 30 29 2b 34 2a 28 28 59 32 2d 59 31 29 3c 30 29 0d 39 32 31 35 20 45 4e ┆(X2-X1)<0)+4*((Y2-Y1)<0) 9215 EN┆
0x1540…1560 44 50 52 4f 43 20 44 49 53 50 4c 49 4e 45 0d 39 32 31 36 20 2f 2f 0d 39 32 31 37 20 50 52 4f 43 ┆DPROC DISPLINE 9216 // 9217 PROC┆
0x1560…1580 20 44 49 53 50 56 45 4b 54 4f 52 28 50 58 2c 20 50 59 29 0d 39 32 31 38 20 20 20 50 58 31 3a 3d ┆ DISPVEKTOR(PX, PY) 9218 PX1:=┆
0x1580…15a0 49 4e 50 28 31 36 38 29 2a 32 35 36 2b 49 4e 50 28 31 36 39 29 3b 20 50 59 31 3a 3d 49 4e 50 28 ┆INP(168)*256+INP(169); PY1:=INP(┆
0x15a0…15c0 31 37 30 29 2a 32 35 36 2b 49 4e 50 28 31 37 31 29 0d 39 32 31 39 20 20 20 57 48 49 4c 45 20 41 ┆170)*256+INP(171) 9219 WHILE A┆
0x15c0…15e0 42 53 28 50 58 31 2d 50 58 29 3e 32 35 35 20 4f 52 20 41 42 53 28 50 59 31 2d 50 59 29 3e 32 35 ┆BS(PX1-PX)>255 OR ABS(PY1-PY)>25┆
0x15e0…1600 35 20 44 4f 20 0d 39 32 32 30 20 20 20 20 20 50 58 58 31 3a 3d 49 4e 54 28 28 50 58 2d 50 58 31 ┆5 DO 9220 PXX1:=INT((PX-PX1┆
0x1600…1620 29 2f 32 29 2b 50 58 31 3b 20 50 59 59 31 3a 3d 49 4e 54 28 28 50 59 2d 50 59 31 29 2f 32 29 2b ┆)/2)+PX1; PYY1:=INT((PY-PY1)/2)+┆
0x1620…1640 50 59 31 0d 39 32 32 31 20 20 20 20 20 45 58 45 43 20 44 49 53 50 56 45 4b 54 4f 52 28 50 58 58 ┆PY1 9221 EXEC DISPVEKTOR(PXX┆
0x1640…1660 31 2c 50 59 59 31 29 0d 39 32 32 32 20 20 20 20 20 50 58 31 3a 3d 50 58 58 31 3b 20 50 59 31 3a ┆1,PYY1) 9222 PX1:=PXX1; PY1:┆
0x1660…1680 3d 50 59 59 31 0d 39 32 32 33 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 39 32 32 34 20 20 20 4f 55 ┆=PYY1 9223 ENDWHILE 9224 OU┆
0x1680…16a0 54 20 31 36 35 2c 20 41 42 53 28 50 58 31 2d 50 58 29 0d 39 32 32 35 20 20 20 4f 55 54 20 31 36 ┆T 165, ABS(PX1-PX) 9225 OUT 16┆
0x16a0…16c0 37 2c 20 41 42 53 28 50 59 31 2d 50 59 29 0d 39 32 32 36 20 20 20 4f 55 54 20 31 36 30 2c 20 31 ┆7, ABS(PY1-PY) 9226 OUT 160, 1┆
0x16c0…16e0 37 2b 32 2a 28 28 50 58 2d 50 58 31 29 3c 30 29 2b 34 2a 28 28 50 59 2d 50 59 31 29 3c 30 29 0d ┆7+2*((PX-PX1)<0)+4*((PY-PY1)<0) ┆
0x16e0…1700 39 32 32 37 20 45 4e 44 50 52 4f 43 20 44 49 53 50 56 45 4b 54 4f 52 0d 39 32 32 38 20 2f 2f 0d ┆9227 ENDPROC DISPVEKTOR 9228 // ┆
0x1700…1720 39 32 32 39 20 50 52 4f 43 20 44 49 53 50 52 45 4b 54 28 58 31 2c 20 59 31 2c 20 58 32 2c 20 59 ┆9229 PROC DISPREKT(X1, Y1, X2, Y┆
0x1720…1740 32 29 0d 39 32 33 30 20 20 20 4f 55 54 20 31 36 38 2c 20 49 4e 54 28 58 31 29 20 44 49 56 20 32 ┆2) 9230 OUT 168, INT(X1) DIV 2┆
0x1740…1760 35 36 0d 39 32 33 31 20 20 20 4f 55 54 20 31 36 39 2c 20 49 4e 54 28 58 31 29 20 4d 4f 44 20 32 ┆56 9231 OUT 169, INT(X1) MOD 2┆
0x1760…1780 35 36 0d 39 32 33 32 20 20 20 4f 55 54 20 31 37 30 2c 20 49 4e 54 28 59 31 29 20 44 49 56 20 32 ┆56 9232 OUT 170, INT(Y1) DIV 2┆
0x1780…17a0 35 36 0d 39 32 33 33 20 20 20 4f 55 54 20 31 37 31 2c 20 49 4e 54 28 59 31 29 20 4d 4f 44 20 32 ┆56 9233 OUT 171, INT(Y1) MOD 2┆
0x17a0…17c0 35 36 0d 39 32 33 34 20 20 20 45 58 45 43 20 44 49 53 50 56 45 4b 54 4f 52 28 58 32 2c 59 31 29 ┆56 9234 EXEC DISPVEKTOR(X2,Y1)┆
0x17c0…17e0 0d 39 32 33 35 20 20 20 45 58 45 43 20 44 49 53 50 56 45 4b 54 4f 52 28 58 32 2c 59 32 29 0d 39 ┆ 9235 EXEC DISPVEKTOR(X2,Y2) 9┆
0x17e0…1800 32 33 36 20 20 20 45 58 45 43 20 44 49 53 50 56 45 4b 54 4f 52 28 58 31 2c 59 32 29 0d 39 32 33 ┆236 EXEC DISPVEKTOR(X1,Y2) 923┆
0x1800…1820 37 20 20 20 45 58 45 43 20 44 49 53 50 56 45 4b 54 4f 52 28 58 31 2c 59 31 29 0d 39 32 33 38 20 ┆7 EXEC DISPVEKTOR(X1,Y1) 9238 ┆
0x1820…1840 45 4e 44 50 52 4f 43 20 44 49 53 50 52 45 4b 54 0d 39 32 33 39 20 2f 2f 0d 39 32 34 30 20 50 52 ┆ENDPROC DISPREKT 9239 // 9240 PR┆
0x1840…1860 4f 43 20 44 49 53 50 43 49 52 4b 45 4c 28 58 31 2c 20 59 31 2c 20 58 32 2c 20 59 32 29 0d 39 32 ┆OC DISPCIRKEL(X1, Y1, X2, Y2) 92┆
0x1860…1880 34 31 20 20 20 54 4f 50 49 3a 3d 38 2a 41 54 4e 28 31 29 0d 39 32 34 32 20 20 20 52 41 44 49 55 ┆41 TOPI:=8*ATN(1) 9242 RADIU┆
0x1880…18a0 53 3a 3d 53 51 52 28 28 58 31 2d 58 32 29 5e 32 2b 28 59 31 2d 59 32 29 5e 32 29 0d 39 32 34 33 ┆S:=SQR((X1-X2)^2+(Y1-Y2)^2) 9243┆
0x18a0…18c0 20 20 20 58 58 31 3a 3d 58 31 2b 52 41 44 49 55 53 3b 20 59 59 31 3a 3d 59 31 0d 39 32 34 34 20 ┆ XX1:=X1+RADIUS; YY1:=Y1 9244 ┆
0x18c0…18e0 20 20 4f 55 54 20 31 36 38 2c 20 49 4e 54 28 58 58 31 29 20 44 49 56 20 32 35 36 0d 39 32 34 35 ┆ OUT 168, INT(XX1) DIV 256 9245┆
0x18e0…1900 20 20 20 4f 55 54 20 31 36 39 2c 20 49 4e 54 28 58 58 31 29 20 4d 4f 44 20 32 35 36 0d 39 32 34 ┆ OUT 169, INT(XX1) MOD 256 924┆
0x1900…1920 36 20 20 20 4f 55 54 20 31 37 30 2c 20 49 4e 54 28 59 59 31 29 20 44 49 56 20 32 35 36 0d 39 32 ┆6 OUT 170, INT(YY1) DIV 256 92┆
[…truncated at 200 lines…]