|
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 - metrics - download
Length: 6400 (0x1900)
Names: »HJ&LP.CML«
└─⟦b8c2906c0⟧ Bits:30004180 METANIC COMAL v. 1.6 og en del COMAL programmer (Comet)
└─⟦this⟧ »HJ&LP.CML«
0x0000…0020 (0,) 4d a5 ff 1d f8 d0 07 12 ad fa 05 47 01 00 31 e6 fa 05 47 18 00 31 f8 da 07 05 7c f8 e4 07 0a 96 ┆M G 1 G 1 ø ┆ 0x0020…0040 fa 04 41 29 31 f8 ee 07 29 7d 03 a5 fa 21 38 2b 3b 47 4a 00 69 38 2b 3b 47 6a 00 69 5c 38 2b 3b ┆ A)1 )å !8+;GJ i8+;Gj iØ8+;┆ 0x0040…0060 47 4e 00 69 5c 38 2b 3b 47 6e 00 69 5c 31 f8 f8 07 12 a8 fa 04 38 01 31 ec fa 06 38 2b 3b 15 31 ┆GN iØ8+;Gn iØ1 8 1 8+; 1┆ 0x0060…0080 f8 02 08 07 75 ff 1d f8 0c 08 09 74 8f a5 ff 21 f8 16 08 12 ad fa 05 47 01 00 31 e6 fa 05 47 18 ┆ u t ! G 1 G ┆ 0x0080…00a0 00 31 f8 20 08 05 7c f8 2a 08 0a 96 fa 04 41 29 31 f8 34 08 11 7d 6f a5 fa 09 38 2b 3b 47 0d 00 ┆ 1 ø * A)1 4 åo 8+;G ┆ 0x00a0…00c0 69 31 f8 3e 08 07 75 ff 21 f8 48 08 09 74 45 a6 ff 1c f8 52 08 05 ac f8 5c 08 1b 8f e5 a5 00 ff ┆i1 > u ! H tE R Ø ┆ 0x00c0…00e0 23 ec fa 06 47 02 00 33 31 e0 fa 06 47 18 00 33 31 de f8 66 08 13 ad fa 05 47 01 00 31 e6 fa 06 ┆# G 31 G 31 f G 1 ┆ 0x00e0…0100 38 23 3b 34 31 f8 70 08 13 aa fa 0a 38 02 38 23 3b 34 39 3b 31 f7 04 e9 f8 7a 08 0a 90 a4 a5 00 ┆8#;41 p 8 8#;49;1 z ┆ 0x0100…0120 ff 23 f8 84 08 12 ad fa 05 47 01 00 31 e6 fa 05 47 01 00 31 f8 8e 08 0f aa fa 06 47 0b 00 15 31 ┆ # G 1 G 1 G 1┆ 0x0120…0140 f7 04 e9 f8 98 08 12 ad fa 05 47 01 00 31 e6 fa 05 47 01 00 31 f8 a2 08 11 aa fa 09 38 02 47 01 ┆ G 1 G 1 8 G ┆ 0x0140…0160 00 39 3b 31 f7 04 f8 ac 08 12 ad fa 05 47 01 00 31 e6 fa 05 47 18 00 31 f8 b6 08 07 75 ff 1c f8 ┆ 9;1 G 1 G 1 u ┆ 0x0160…0180 c0 08 09 74 b3 a7 ff 24 f8 ca 08 14 9c 4c a7 fa 0b 38 0b 3b 38 35 3b 36 35 5c 31 dd f8 d4 08 20 ┆ t $ L 8 ;85;65Ø1 ┆ 0x0180…01a0 9d 0e da fa 09 38 2b 3b 47 08 00 69 31 dd a8 fa 04 37 22 31 ee fa 06 47 01 00 33 31 f8 de 08 12 ┆ 8+;G i1 7"1 G 31 ┆ 0x01a0…01c0 9c cd a6 fa 09 38 2b 3b 47 0a 00 69 31 dd f8 e8 08 20 9d 0e db fa 09 38 09 3b 38 07 3b 59 31 dd ┆ 8+;G i1 8 ;8 ;Y1 ┆ 0x01c0…01e0 a8 fa 04 37 22 31 ee fa 06 47 01 00 33 31 f8 f2 08 12 a8 fa 04 37 23 31 ed fa 06 47 01 00 33 31 ┆ 7"1 G 31 7#1 G 31┆ 0x01e0…0200 f8 fc 08 05 7b f8 06 09 20 9d 0e da fa 09 38 2b 3b 47 0c 00 69 31 dd a8 fa 04 37 22 31 ed fa 06 ┆ æ 8+;G i1 7"1 ┆ 0x0200…0220 (1,) 20 6e 6f 67 65 74 20 69 6e 64 2c 6a 02 20 20 68 75 73 6b 20 20 61 74 20 20 74 72 79 6b 6b 65 20 ┆ noget ind,j husk at trykke ┆ 0x0220…0240 20 70 7d 20 22 52 45 54 55 52 4e 22 31 f7 04 f8 f5 07 2b 95 45 1d 00 74 61 73 74 20 64 69 74 20 ┆ på "RETURN"1 + E tast dit ┆ 0x0240…0260 6e 61 76 6e 2c 20 67 65 72 6e 65 20 66 69 6b 74 69 76 74 20 ea fa 04 38 00 31 f8 f6 07 07 75 ff ┆navn, gerne fiktivt 8 1 u ┆ 0x0260…0280 2c f8 f8 07 08 71 f9 00 00 f8 02 08 08 71 f9 00 00 f8 0c 08 47 71 f9 3f 00 20 44 61 74 61 6c 69 ┆, q q Gq ? Datali┆ 0x0280…02a0 73 74 65 20 6d 65 64 20 6b 6f 6d 6d 75 6e 65 6e 61 76 6e 2c 6b 6f 6d 6d 75 6e 61 6c 20 73 6b 61 ┆ste med kommunenavn,kommunal ska┆ 0x02a0…02c0 74 74 65 70 63 74 2c 6b 69 72 6b 65 73 6b 61 74 74 65 70 63 74 2e 2f 2f f8 16 08 0a 72 f4 a8 47 ┆ttepct,kirkeskattepct.// r G┆ 0x02c0…02e0 0b 00 f8 20 08 1e 72 12 a9 45 08 00 41 61 62 65 6e 72 61 61 e6 46 0e 66 66 85 e6 46 19 99 9a 80 ┆ r E Aabenraa F ff F ┆ 0x02e0…0300 f8 21 08 46 72 58 a9 45 03 00 42 4f 56 e6 46 0d 99 9a 85 e6 46 66 66 66 80 e6 45 04 00 47 52 41 ┆ ! FrX E BOV F Ffff E GRA┆ 0x0300…0320 4d e6 46 0c cc cd 85 e6 46 4c cc cd 80 e6 45 09 00 48 41 44 45 52 53 4c 45 56 e6 46 0c 00 00 85 ┆M F FL E HADERSLEV F ┆ 0x0320…0340 e6 46 00 00 00 81 f8 22 08 4e 72 a6 a9 45 09 00 20 4c 55 4e 44 54 4f 46 54 e6 46 0c 00 00 85 e6 ┆ F " Nr E LUNDTOFT F ┆ 0x0340…0360 46 4c cc cd 80 e6 45 07 00 52 5c 44 45 4b 52 4f e6 46 0c 00 00 85 e6 46 4c cc cd 80 e6 45 08 00 ┆FL E RØDEKRO F FL E ┆ 0x0360…0380 53 55 4e 44 45 56 45 44 e6 46 08 00 00 85 e6 46 00 00 00 81 f8 23 08 4e 72 f4 a9 45 07 00 47 52 ┆SUNDEVED F F # Nr E GR┆ 0x0380…03a0 5d 53 54 45 4e e6 46 08 00 00 85 e6 46 00 00 00 81 e6 45 0a 00 53 5c 4e 44 45 52 42 4f 52 47 e6 ┆ÅSTEN F F E SØNDERBORG ┆ 0x03a0…03c0 46 08 00 00 85 e6 46 33 33 33 80 e6 45 07 00 54 49 4e 47 4c 45 56 e6 46 1a 66 66 85 e6 46 0c cc ┆F F333 E TINGLEV F ff F ┆ 0x03c0…03e0 cd 81 f8 24 08 1c 72 00 00 45 06 00 56 4f 4a 45 4e 53 e6 46 06 66 66 85 e6 46 4c cc cd 80 f8 b8 ┆ $ r E VOJENS F ff FL ┆ 0x03e0…0400 0b 0d 74 9d aa ff 2d 4a ff 2f 4b f8 c2 0b 34 7e 96 aa fa 2b 38 2f 3b 45 02 00 4a 41 70 38 2f 3b ┆ t -J /K 4ü +8/;E JAp8/;┆ 0x0400…0420 (2,) 45 4e 20 35 0d 39 30 33 35 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 41 24 28 33 29 3b ┆EN 5 9035 PRINT A$(2);A$(3);┆ 0x0420…0440 0d 39 30 33 36 20 20 20 57 48 45 4e 20 38 0d 39 30 33 37 20 20 20 20 20 50 52 49 4e 54 20 41 24 ┆ 9036 WHEN 8 9037 PRINT A$┆ 0x0440…0460 28 31 29 3b 41 24 28 33 29 3b 0d 39 30 33 38 20 20 20 57 48 45 4e 20 31 30 0d 39 30 33 39 20 20 ┆(1);A$(3); 9038 WHEN 10 9039 ┆ 0x0460…0480 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 34 30 20 20 20 57 48 45 4e 20 31 36 0d 39 ┆ PRINT A$(2); 9040 WHEN 16 9┆ 0x0480…04a0 30 34 31 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 31 29 3b 0d 39 30 34 32 20 20 20 4f 54 48 45 ┆041 PRINT A$(1); 9042 OTHE┆ 0x04a0…04c0 52 57 49 53 45 20 0d 39 30 34 33 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 34 ┆RWISE 9043 PRINT A$(2); 904┆ 0x04c0…04e0 34 20 20 20 45 4e 44 43 41 53 45 20 0d 39 30 34 35 20 20 20 50 52 49 4e 54 20 54 45 58 54 24 0d ┆4 ENDCASE 9045 PRINT TEXT$ ┆ 0x04e0…0500 39 30 34 36 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 44 53 3a 22 0d 39 30 34 37 20 ┆9046 SELECT OUTPUT "DS:" 9047 ┆ 0x0500…0520 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 4f 55 54 0d 39 30 34 38 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d ┆ENDPROC PRINTOUT 9048 //--------┆ 0x0520…0540 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 30 34 39 20 50 52 4f 43 20 53 4b 5b 52 4d 0d 39 30 35 30 20 20 20 ┆------// 9049 PROC SKÆRM 9050 ┆ 0x0540…0560 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 44 53 3a 22 0d 39 30 35 31 20 45 4e 44 50 52 4f 43 ┆SELECT OUTPUT "DS:" 9051 ENDPROC┆ 0x0560…0580 20 53 4b 5b 52 4d 0d 39 30 35 32 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 ┆ SKÆRM 9052 //--------------// 9┆ 0x0580…05a0 30 35 33 20 50 52 4f 43 20 53 4c 45 54 28 48 45 4e 23 2c 20 4e 45 44 23 2c 20 4c 5b 4e 47 44 45 ┆053 PROC SLET(HEN#, NED#, LÆNGDE┆ 0x05a0…05c0 23 2c 20 41 4e 54 41 4c 5f 4c 49 4e 49 45 52 23 29 20 43 4c 4f 53 45 44 0d 39 30 35 34 20 20 20 ┆#, ANTAL_LINIER#) CLOSED 9054 ┆ 0x05c0…05e0 46 4f 52 20 4e 52 23 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 5f 4c 49 4e 49 45 52 23 20 44 4f 20 0d ┆FOR NR#:=1 TO ANTAL_LINIER# DO ┆ 0x05e0…0600 39 30 35 35 20 20 20 20 20 43 55 52 53 4f 52 20 48 45 4e 23 2c 20 4e 45 44 23 0d 39 30 35 36 20 ┆9055 CURSOR HEN#, NED# 9056 ┆ 0x0600…0620 (3,) 20 20 20 20 50 52 49 4e 54 20 53 50 43 24 28 4c 5b 4e 47 44 45 23 29 0d 39 30 35 37 20 20 20 20 ┆ PRINT SPC$(LÆNGDE#) 9057 ┆ 0x0620…0640 20 4e 45 44 23 3a 2b 31 0d 39 30 35 38 20 20 20 4e 45 58 54 20 4e 52 23 0d 39 30 35 39 20 45 4e ┆ NED#:+1 9058 NEXT NR# 9059 EN┆ 0x0640…0660 44 50 52 4f 43 20 53 4c 45 54 0d 39 30 36 30 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆DPROC SLET 9060 //--------------┆ 0x0660…0680 2d 2d 2d 2d 2d 2f 2f 0d 39 30 36 31 20 50 52 4f 43 20 43 55 52 53 4f 52 5f 28 54 49 4c 53 54 41 ┆-----// 9061 PROC CURSOR_(TILSTA┆ 0x0680…06a0 4e 44 24 29 20 43 4c 4f 53 45 44 0d 39 30 36 32 20 20 20 4f 55 54 20 32 34 34 2c 20 31 30 0d 39 ┆ND$) CLOSED 9062 OUT 244, 10 9┆ 0x06a0…06c0 30 36 33 20 20 20 49 46 20 54 49 4c 53 54 41 4e 44 24 28 31 29 20 49 4e 20 22 4e 6e 22 20 54 48 ┆063 IF TILSTAND$(1) IN "Nn" TH┆ 0x06c0…06e0 45 4e 20 2f 2f 6e 6f 72 6d 61 6c 0d 39 30 36 34 20 20 20 20 20 4f 55 54 20 32 34 35 2c 20 39 36 ┆EN //normal 9064 OUT 245, 96┆ 0x06e0…0700 0d 39 30 36 35 20 20 20 45 4c 49 46 20 54 49 4c 53 54 41 4e 44 24 28 31 29 20 49 4e 20 22 55 75 ┆ 9065 ELIF TILSTAND$(1) IN "Uu┆ 0x0700…0720 22 20 54 48 45 4e 20 2f 2f 75 6e 64 65 72 73 74 72 65 67 0d 39 30 36 36 20 20 20 20 20 4f 55 54 ┆" THEN //understreg 9066 OUT┆ 0x0720…0740 20 32 34 35 2c 20 31 30 34 0d 39 30 36 37 20 20 20 45 4c 53 45 20 2f 2f 73 6c 65 74 0d 39 30 36 ┆ 245, 104 9067 ELSE //slet 906┆ 0x0740…0760 38 20 20 20 20 20 4f 55 54 20 32 34 35 2c 20 33 32 0d 39 30 36 39 20 20 20 45 4e 44 49 46 20 0d ┆8 OUT 245, 32 9069 ENDIF ┆ 0x0760…0780 39 30 37 30 20 45 4e 44 50 52 4f 43 20 43 55 52 53 4f 52 5f 0d 39 30 37 31 20 2f 2f 2d 2d 2d 2d ┆9070 ENDPROC CURSOR_ 9071 //----┆ 0x0780…07a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 30 37 32 20 50 52 4f 43 20 53 4b 52 49 56 28 ┆-------------// 9072 PROC SKRIV(┆ 0x07a0…07c0 48 45 4e 23 2c 20 4e 45 44 23 2c 20 54 45 4b 53 54 24 29 20 43 4c 4f 53 45 44 0d 39 30 37 33 20 ┆HEN#, NED#, TEKST$) CLOSED 9073 ┆ 0x07c0…07e0 20 20 43 55 52 53 4f 52 20 48 45 4e 23 2c 20 4e 45 44 23 0d 39 30 37 34 20 20 20 50 52 49 4e 54 ┆ CURSOR HEN#, NED# 9074 PRINT┆ 0x07e0…0800 20 53 50 43 24 28 38 30 2d 48 45 4e 23 2d 4c 45 4e 28 54 45 4b 53 54 24 29 29 0d 39 30 37 35 20 ┆ SPC$(80-HEN#-LEN(TEKST$)) 9075 ┆ 0x0800…0820 (4,) 20 20 43 55 52 53 4f 52 20 48 45 4e 23 2c 20 4e 45 44 23 0d 39 30 37 36 20 20 20 50 52 49 4e 54 ┆ CURSOR HEN#, NED# 9076 PRINT┆ 0x0820…0840 20 54 45 4b 53 54 24 0d 39 30 37 37 20 45 4e 44 50 52 4f 43 20 53 4b 52 49 56 0d 39 30 37 38 20 ┆ TEKST$ 9077 ENDPROC SKRIV 9078 ┆ 0x0840…0860 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 30 37 39 ┆//-----------------------// 9079┆ 0x0860…0880 20 50 52 4f 43 20 42 4f 58 28 5c 56 58 23 2c 20 5c 56 59 23 2c 20 4c 5b 23 2c 20 48 5c 23 29 20 ┆ PROC BOX(ØVX#, ØVY#, LÆ#, HØ#) ┆ 0x0880…08a0 43 4c 4f 53 45 44 0d 39 30 38 30 20 20 20 44 49 4d 20 4c 24 20 4f 46 20 38 34 0d 39 30 38 31 20 ┆CLOSED 9080 DIM L$ OF 84 9081 ┆ 0x08a0…08c0 20 20 4c 24 3a 3d 22 22 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 ┆ L$:=""5""5""5""5""5""5""5""5""┆ 0x08c0…08e0 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 3b 20 4c 24 3a 2b 4c 24 2b 4c 24 3b 20 4c ┆5""5""5""5""5""5""; L$:+L$+L$; L┆ 0x08e0…0900 24 3a 2b 4c 24 0d 39 30 38 32 20 20 20 43 55 52 53 4f 52 20 5c 56 58 23 2c 20 5c 56 59 23 0d 39 ┆$:+L$ 9082 CURSOR ØVX#, ØVY# 9┆ 0x0900…0920 30 38 33 20 20 20 50 52 49 4e 54 20 22 20 22 31 36 22 22 2b 4c 24 28 31 3a 4c 5b 23 2d 32 29 2b ┆083 PRINT " "16""+L$(1:LÆ#-2)+┆ 0x0920…0940 22 22 31 37 22 20 22 0d 39 30 38 34 20 20 20 46 4f 52 20 58 4c 23 3a 3d 31 20 54 4f 20 48 5c 23 ┆""17" " 9084 FOR XL#:=1 TO HØ#┆ 0x0940…0960 2d 32 20 44 4f 20 0d 39 30 38 35 20 20 20 20 20 43 55 52 53 4f 52 20 5c 56 58 23 2c 20 5c 56 59 ┆-2 DO 9085 CURSOR ØVX#, ØVY┆ 0x0960…0980 23 2b 58 4c 23 0d 39 30 38 36 20 20 20 20 20 50 52 49 4e 54 20 22 20 22 34 22 20 22 2b 53 50 43 ┆#+XL# 9086 PRINT " "4" "+SPC┆ 0x0980…09a0 24 28 4c 5b 23 2d 34 29 2b 22 20 22 34 22 20 22 0d 39 30 38 37 20 20 20 4e 45 58 54 20 58 4c 23 ┆$(LÆ#-4)+" "4" " 9087 NEXT XL#┆ 0x09a0…09c0 0d 39 30 38 38 20 20 20 43 55 52 53 4f 52 20 5c 56 58 23 2c 20 5c 56 59 23 2b 48 5c 23 2d 31 0d ┆ 9088 CURSOR ØVX#, ØVY#+HØ#-1 ┆ 0x09c0…09e0 39 30 38 39 20 20 20 50 52 49 4e 54 20 22 20 22 31 35 22 22 2b 4c 24 28 31 3a 4c 5b 23 2d 32 29 ┆9089 PRINT " "15""+L$(1:LÆ#-2)┆ 0x09e0…0a00 2b 22 22 31 38 22 20 22 0d 39 30 39 30 20 20 20 43 55 52 53 4f 52 20 5c 56 58 23 2b 33 2c 20 5c ┆+""18" " 9090 CURSOR ØVX#+3, Ø┆ 0x0a00…0a20 (5,) 56 59 23 2b 31 0d 39 30 39 31 20 45 4e 44 50 52 4f 43 20 42 4f 58 0d 39 30 39 32 20 2f 2f 0d 39 ┆VY#+1 9091 ENDPROC BOX 9092 // 9┆ 0x0a20…0a40 30 39 33 20 50 52 4f 43 20 54 49 54 4c 45 28 52 59 44 23 2c 20 5c 56 58 23 2c 20 5c 56 59 23 2c ┆093 PROC TITLE(RYD#, ØVX#, ØVY#,┆ 0x0a40…0a60 20 4f 24 29 0d 39 30 39 34 20 20 20 49 46 20 52 59 44 23 20 54 48 45 4e 20 43 4c 45 41 52 20 0d ┆ O$) 9094 IF RYD# THEN CLEAR ┆ 0x0a60…0a80 39 30 39 35 20 20 20 45 58 45 43 20 42 4f 58 28 5c 56 58 23 2c 5c 56 59 23 2c 4c 45 4e 28 4f 24 ┆9095 EXEC BOX(ØVX#,ØVY#,LEN(O$┆ 0x0a80…0aa0 29 2b 34 2c 33 29 0d 39 30 39 36 20 20 20 50 52 49 4e 54 20 4f 24 0d 39 30 39 37 20 45 4e 44 50 ┆)+4,3) 9096 PRINT O$ 9097 ENDP┆ 0x0aa0…0ac0 52 4f 43 20 54 49 54 4c 45 0d 39 30 39 38 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ROC TITLE 9098 //---------------┆ 0x0ac0…0ae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 30 39 39 20 50 52 4f 43 20 53 4b 5b ┆----------------// 9099 PROC SKÆ┆ 0x0ae0…0b00 52 4d 5f 50 5d 5f 46 49 4c 28 46 49 4c 24 29 20 43 4c 4f 53 45 44 0d 39 31 30 30 20 20 20 2f 2f ┆RM_PÅ_FIL(FIL$) CLOSED 9100 //┆ 0x0b00…0b20 20 55 64 73 6b 72 69 66 74 20 61 66 20 73 6b 7b 72 6d 62 69 6c 6c 65 64 65 74 20 70 7d 20 66 69 ┆ Udskrift af skærmbilledet på fi┆ 0x0b20…0b40 6c 20 28 64 76 73 2e 20 6f 67 73 7d 20 70 72 69 6e 74 65 72 21 29 0d 39 31 30 31 20 20 20 44 49 ┆l (dvs. også printer!) 9101 DI┆ 0x0b40…0b60 4d 20 4c 24 20 4f 46 20 38 30 0d 39 31 30 32 20 20 20 49 46 20 46 49 4c 24 20 49 4e 20 22 50 52 ┆M L$ OF 80 9102 IF FIL$ IN "PR┆ 0x0b60…0b80 49 4e 54 45 52 70 72 69 6e 74 65 72 22 20 54 48 45 4e 20 0d 39 31 30 33 20 20 20 20 20 53 45 4c ┆INTERprinter" THEN 9103 SEL┆ 0x0b80…0ba0 45 43 54 20 4f 55 54 50 55 54 20 22 4c 50 3a 22 0d 39 31 30 34 20 20 20 45 4c 53 45 20 0d 39 31 ┆ECT OUTPUT "LP:" 9104 ELSE 91┆ 0x0ba0…0bc0 30 35 20 20 20 20 20 49 4e 49 54 20 22 44 4b 30 3a 22 0d 39 31 30 36 20 20 20 20 20 4f 50 45 4e ┆05 INIT "DK0:" 9106 OPEN┆ 0x0bc0…0be0 20 46 49 4c 45 20 30 2c 20 46 49 4c 24 2c 20 57 52 49 54 45 20 0d 39 31 30 37 20 20 20 45 4e 44 ┆ FILE 0, FIL$, WRITE 9107 END┆ 0x0be0…0c00 49 46 20 0d 39 31 30 38 20 20 20 41 44 44 52 3a 3d 36 31 34 34 30 2e 30 2b 28 50 45 45 4b 28 32 ┆IF 9108 ADDR:=61440.0+(PEEK(2┆ 0x0c00…0c20 (6,) 36 33 29 2a 32 35 36 2b 50 45 45 4b 28 32 36 32 29 29 20 4d 4f 44 20 32 30 34 38 0d 39 31 30 39 ┆63)*256+PEEK(262)) MOD 2048 9109┆ 0x0c20…0c40 20 20 20 46 4f 52 20 59 23 3a 3d 30 20 54 4f 20 32 33 2a 38 30 20 53 54 45 50 20 38 30 20 44 4f ┆ FOR Y#:=0 TO 23*80 STEP 80 DO┆ 0x0c40…0c60 20 0d 39 31 31 30 20 20 20 20 20 46 4f 52 20 58 23 3a 3d 30 20 54 4f 20 37 39 20 44 4f 20 0d 39 ┆ 9110 FOR X#:=0 TO 79 DO 9┆ 0x0c60…0c80 31 31 31 20 20 20 20 20 20 20 4c 24 28 58 23 2b 31 29 3a 3d 43 48 52 24 28 50 45 45 4b 28 41 44 ┆111 L$(X#+1):=CHR$(PEEK(AD┆ 0x0c80…0ca0 44 52 29 29 0d 39 31 31 32 20 20 20 20 20 20 20 41 44 44 52 3a 2b 31 0d 39 31 31 33 20 20 20 20 ┆DR)) 9112 ADDR:+1 9113 ┆ 0x0ca0…0cc0 20 20 20 49 46 20 41 44 44 52 3d 36 33 34 38 38 2e 30 20 54 48 45 4e 20 41 44 44 52 3a 3d 36 31 ┆ IF ADDR=63488.0 THEN ADDR:=61┆ 0x0cc0…0ce0 34 34 30 2e 30 0d 39 31 31 34 20 20 20 20 20 4e 45 58 54 20 58 23 0d 39 31 31 35 20 20 20 20 20 ┆440.0 9114 NEXT X# 9115 ┆ 0x0ce0…0d00 49 46 20 4e 4f 54 20 46 49 4c 24 20 49 4e 20 22 50 52 49 4e 54 45 52 70 72 69 6e 74 65 72 22 20 ┆IF NOT FIL$ IN "PRINTERprinter" ┆ 0x0d00…0d20 54 48 45 4e 20 0d 39 31 31 36 20 20 20 20 20 20 20 50 52 49 4e 54 20 46 49 4c 45 20 30 3a 20 4c ┆THEN 9116 PRINT FILE 0: L┆ 0x0d20…0d40 24 0d 39 31 31 37 20 20 20 20 20 45 4c 53 45 20 0d 39 31 31 38 20 20 20 20 20 20 20 50 52 49 4e ┆$ 9117 ELSE 9118 PRIN┆ 0x0d40…0d60 54 20 4c 24 0d 39 31 31 39 20 20 20 20 20 45 4e 44 49 46 20 0d 39 31 32 30 20 20 20 4e 45 58 54 ┆T L$ 9119 ENDIF 9120 NEXT┆ 0x0d60…0d80 20 59 23 0d 39 31 32 31 20 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 30 0d 39 31 32 32 20 20 20 53 ┆ Y# 9121 CLOSE FILE 0 9122 S┆ 0x0d80…0da0 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 44 53 3a 22 0d 39 31 32 33 20 45 4e 44 50 52 4f 43 20 ┆ELECT OUTPUT "DS:" 9123 ENDPROC ┆ 0x0da0…0dc0 53 4b 5b 52 4d 5f 50 5d 5f 46 49 4c 0d 39 31 32 34 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SKÆRM_PÅ_FIL 9124 //------------┆ 0x0dc0…0de0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 31 32 35 20 50 52 4f 43 20 4b 41 54 41 4c 4f ┆-------------// 9125 PROC KATALO┆ 0x0de0…0e00 47 5f 50 5d 5f 46 49 4c 28 46 49 4c 24 29 20 43 4c 4f 53 45 44 20 2f 2f 20 6f 67 73 7d 20 70 72 ┆G_PÅ_FIL(FIL$) CLOSED // også pr┆ 0x0e00…0e20 (7,) 69 6e 74 65 72 2e 0d 39 31 32 36 20 20 20 44 49 4d 20 53 54 52 45 4e 47 24 20 4f 46 20 38 30 0d ┆inter. 9126 DIM STRENG$ OF 80 ┆ 0x0e20…0e40 39 31 32 37 20 20 20 49 4e 49 54 20 22 44 4b 30 3a 22 0d 39 31 32 38 20 20 20 4f 50 45 4e 20 46 ┆9127 INIT "DK0:" 9128 OPEN F┆ 0x0e40…0e60 49 4c 45 20 31 2c 20 46 49 4c 24 2c 20 57 52 49 54 45 20 0d 39 31 32 39 20 20 20 43 41 54 20 22 ┆ILE 1, FIL$, WRITE 9129 CAT "┆ 0x0e60…0e80 44 4b 30 3a 2a 2e 2a 22 2c 20 46 49 4c 45 20 31 0d 39 31 33 30 20 20 20 43 4c 4f 53 45 20 0d 39 ┆DK0:*.*", FILE 1 9130 CLOSE 9┆ 0x0e80…0ea0 31 33 31 20 20 20 49 46 20 46 49 4c 24 20 49 4e 20 22 50 52 49 4e 54 45 52 70 72 69 6e 74 65 72 ┆131 IF FIL$ IN "PRINTERprinter┆ 0x0ea0…0ec0 22 20 54 48 45 4e 20 0d 39 31 33 32 20 20 20 20 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 20 46 49 ┆" THEN 9132 OPEN FILE 1, FI┆ 0x0ec0…0ee0 4c 24 2c 20 52 45 41 44 20 0d 39 31 33 33 20 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 ┆L$, READ 9133 SELECT OUTPUT┆ 0x0ee0…0f00 20 22 4c 50 3a 22 0d 39 31 33 34 20 20 20 20 20 4c 49 4e 3a 3d 30 0d 39 31 33 35 20 20 20 20 20 ┆ "LP:" 9134 LIN:=0 9135 ┆ 0x0f00…0f20 52 45 50 45 41 54 20 0d 39 31 33 36 20 20 20 20 20 20 20 4c 49 4e 3a 2b 31 0d 39 31 33 37 20 20 ┆REPEAT 9136 LIN:+1 9137 ┆ 0x0f20…0f40 20 20 20 20 20 49 4e 50 55 54 20 46 49 4c 45 20 31 3a 20 53 54 52 45 4e 47 24 0d 39 31 33 38 20 ┆ INPUT FILE 1: STRENG$ 9138 ┆ 0x0f40…0f60 20 20 20 20 20 20 49 46 20 4c 49 4e 3e 32 20 54 48 45 4e 20 50 52 49 4e 54 20 53 54 52 45 4e 47 ┆ IF LIN>2 THEN PRINT STRENG┆ 0x0f60…0f80 24 0d 39 31 33 39 20 20 20 20 20 55 4e 54 49 4c 20 45 4f 46 28 31 29 0d 39 31 34 30 20 20 20 20 ┆$ 9139 UNTIL EOF(1) 9140 ┆ 0x0f80…0fa0 20 43 4c 4f 53 45 20 0d 39 31 34 31 20 20 20 20 20 44 45 4c 45 54 45 20 46 49 4c 24 2b 22 2e 44 ┆ CLOSE 9141 DELETE FIL$+".D┆ 0x0fa0…0fc0 41 54 22 0d 39 31 34 32 20 20 20 45 4e 44 49 46 20 0d 39 31 34 33 20 20 20 53 45 4c 45 43 54 20 ┆AT" 9142 ENDIF 9143 SELECT ┆ 0x0fc0…0fe0 4f 55 54 50 55 54 20 22 44 53 3a 22 0d 39 31 34 34 20 45 4e 44 50 52 4f 43 20 4b 41 54 41 4c 4f ┆OUTPUT "DS:" 9144 ENDPROC KATALO┆ 0x0fe0…1000 47 5f 50 5d 5f 46 49 4c 0d 39 31 34 35 20 2f 2f 0d 39 31 34 36 20 50 52 4f 43 20 4c 4b 45 59 0d ┆G_PÅ_FIL 9145 // 9146 PROC LKEY ┆ 0x1000…1020 (8,) 32 4e 32 52 34 31 f8 60 09 2b aa fa 05 38 5a 3b 31 f7 03 e9 fa 07 45 02 00 20 20 31 f7 04 e9 fa ┆2N2R41 ` + 8Z;1 E 1 ┆ 0x1020…1040 0f 38 39 38 3d 38 5a 3b 34 39 3b 34 39 3b 31 f7 04 f8 6a 09 0a 90 b6 b0 00 ff 5a f8 74 09 12 ad ┆ 898=8Z;49;49;1 j Z t ┆ 0x1040…1060 fa 05 47 23 00 31 e6 fa 05 47 14 00 31 f8 7e 09 1e 95 45 10 00 54 52 59 4b 20 50 5d 20 52 45 54 ┆ G# 1 G 1 ü E TRYK PÅ RET┆ 0x1060…1080 55 52 4e 2e 20 ea fa 04 38 01 31 f8 88 09 07 75 ff 4f f8 92 09 09 74 33 b2 ff 47 f8 9c 09 05 7c ┆URN. 8 1 u O t3 G ø┆ 0x1080…10a0 f8 a6 09 05 ac f8 b0 09 12 ad fa 05 47 19 00 31 e6 fa 05 47 0b 00 31 f8 ba 09 30 95 45 22 00 56 ┆ G 1 G 1 0 E" V┆ 0x10a0…10c0 49 4c 20 44 55 20 48 41 56 45 20 56 45 4a 4c 45 44 4e 49 4e 47 20 49 20 53 50 49 4c 4c 45 54 3f ┆IL DU HAVE VEJLEDNING I SPILLET?┆ 0x10c0…10e0 20 ea fa 04 38 01 31 f8 c4 09 11 7d 62 b1 fa 09 38 01 3b 38 1e 3b 54 31 f8 ce 09 1c 9c 2e b2 fa ┆ 8 1 åb 8 ;8 ;T1 . ┆ 0x10e0…1100 13 38 01 3b 45 01 00 4a 6f 38 01 3b 45 01 00 6a 6f 5c 31 dd f8 d8 09 18 a8 fa 04 38 04 31 ec fa ┆ 8 ;E Jo8 ;E joØ1 8 1 ┆ 0x1100…1120 0c 45 07 00 72 61 63 65 69 6e 73 31 f8 e2 09 0a 96 fa 04 41 2d 31 f8 ec 09 12 ad fa 05 47 20 00 ┆ E raceins1 A-1 G ┆ 0x1120…1140 31 e6 fa 05 47 18 00 31 f8 f6 09 1f 95 45 10 00 54 52 59 4b 20 50 5d 20 52 45 54 55 52 4e 2e 20 ┆1 G 1 E TRYK PÅ RETURN. ┆ 0x1140…1160 ea fa 04 38 01 31 e8 f8 00 0a 05 7b f8 0a 0a 07 75 ff 47 f8 10 27 00 91 10 03 03 04 04 04 04 03 ┆ 8 1 æ u G ' ┆ 0x1160…1180 02 03 03 03 03 03 03 02 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 04 03 03 03 03 03 03 03 ┆ ┆ 0x1180…11a0 03 03 03 03 03 02 03 03 04 03 03 04 03 03 03 03 04 04 04 04 04 03 03 03 03 03 03 03 03 03 03 03 ┆ ┆ 0x11a0…11c0 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 03 04 03 03 ┆ ┆ 0x11c0…11e0 4c 4e 52 04 46 4c 45 54 01 43 05 4c 49 4e 4e 52 01 42 01 51 03 42 49 4c 04 4b 41 4e 54 07 53 4c ┆LNR FLET C LINNR B Q BIL KANT SL┆ 0x11e0…1200 49 4e 47 45 52 08 50 5d 4b 5c 52 53 45 4c 01 50 07 42 52 45 4d 53 45 52 07 4b 4f 4e 54 52 4f 4c ┆INGER PÅKØRSEL P BREMSER KONTROL┆ 0x1200…1220 (9,) 04 4e 4f 52 44 03 53 59 44 03 5c 53 54 04 56 45 53 54 06 52 4f 55 4e 44 53 06 44 49 53 4b 45 54 ┆ NORD SYD ØST VEST ROUNDS DISKET┆ 0x1220…1240 06 54 41 42 45 52 45 07 56 49 4e 44 45 52 45 07 48 59 4c 44 45 53 54 0b 53 4c 55 54 4b 4f 4e 54 ┆ TABERE VINDERE HYLDEST SLUTKONT┆ 0x1240…1260 52 4f 4c 09 50 41 52 4b 45 52 49 4e 47 09 50 4c 41 43 45 52 49 4e 47 0a 42 49 4c 4c 45 44 4b 4f ┆ROL PARKERING PLACERING BILLEDKO┆ 0x1260…1280 50 49 05 41 4e 54 41 4c 07 4e 55 4c 53 54 49 4c 08 53 50 49 4c 4c 45 52 45 09 42 45 47 59 4e 44 ┆PI ANTAL NULSTIL SPILLERE BEGYND┆ 0x1280…12a0 45 52 45 07 41 46 47 4a 4f 52 54 03 4f 4d 47 05 54 5b 4c 4c 45 04 4f 4c 44 59 04 4f 4c 44 58 05 ┆ERE AFGJORT OMG TÆLLE OLDY OLDX ┆ 0x12a0…12c0 43 45 4e 54 59 05 43 45 4e 54 58 05 56 45 4b 54 59 05 56 45 4b 54 58 05 46 5c 4c 47 45 06 49 4e ┆CENTY CENTX VEKTY VEKTX FØLGE IN┆ 0x12c0…12e0 52 41 43 45 04 48 41 53 54 05 53 50 45 4a 4c 08 44 45 4c 54 41 47 45 52 03 4d 5d 4c 03 42 49 4c ┆RACE HAST SPEJL DELTAGER MÅL BIL┆ 0x12e0…1300 04 46 45 4c 54 05 48 45 4e 41 44 01 4b 04 59 52 55 4e 06 53 43 52 4f 4c 4c 01 55 04 54 49 4d 45 ┆ FELT HENAD K YRUN SCROLL U TIME┆ 0x1300…1320 07 48 45 4e 54 46 49 4c 08 46 49 4c 4e 4e 41 56 4e 07 42 49 4c 4c 45 44 45 03 54 49 44 04 54 41 ┆ HENTFIL FILNNAVN BILLEDE TID TA┆ 0x1320…1340 53 54 04 54 41 53 54 07 50 4f 4c 4c 49 4e 47 0a 53 4b 52 49 56 53 4b 5b 52 4d 0b 4b 41 52 41 4b ┆ST TAST POLLING SKRIVSKÆRM KARAK┆ 0x1340…1360 54 45 52 47 45 4d 07 54 41 53 54 4c 5b 53 10 50 4f 53 49 54 49 4f 4e 53 4b 4f 4e 54 52 4f 4c 08 ┆TERGEM TASTLÆS POSITIONSKONTROL ┆ 0x1360…1380 50 4f 53 49 54 49 4f 4e 01 59 01 58 0a 52 45 54 55 52 4e 53 56 41 52 06 4c 5b 53 46 49 4c 08 53 ┆POSITION Y X RETURNSVAR LÆSFIL S┆ 0x1380…13a0 4b 52 49 56 46 49 4c 05 53 56 41 52 31 06 41 43 43 45 50 54 06 4d 41 4c 45 52 49 04 53 4c 55 54 ┆KRIVFIL SVAR1 ACCEPT MALERI SLUT┆ 0x13a0…13c0 08 4b 55 4e 53 54 4e 45 52 0a 42 49 4c 4c 45 44 4b 4c 41 52 09 4c 49 4e 4a 45 4b 4c 41 52 05 50 ┆ KUNSTNER BILLEDKLAR LINJEKLAR P┆ 0x13c0…13e0 41 55 53 45 05 54 45 4b 53 54 09 53 4b 5b 52 4d 56 41 4c 47 06 46 49 4c 44 41 4e 08 55 44 53 4b ┆AUSE TEKST SKÆRMVALG FILDAN UDSK┆ 0x13e0…1400 52 49 46 54 07 4b 4f 50 49 45 52 45 07 45 44 49 54 45 52 45 07 42 45 55 4e 44 52 45 05 54 45 47 ┆RIFT KOPIERE EDITERE BEUNDRE TEG┆ 0x1400…1420 (10,) 20 20 57 48 45 4e 20 56 45 4e 53 54 52 45 23 2c 20 48 5c 4a 52 45 23 0d 39 31 38 35 20 20 20 20 ┆ WHEN VENSTRE#, HØJRE# 9185 ┆ 0x1420…1440 20 20 20 20 20 49 46 20 54 23 3d 48 5c 4a 52 45 23 20 54 48 45 4e 20 0d 39 31 38 36 20 20 20 20 ┆ IF T#=HØJRE# THEN 9186 ┆ 0x1440…1460 20 20 20 20 20 20 20 58 4e 55 23 3a 2b 31 0d 39 31 38 37 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆ XNU#:+1 9187 ELSE┆ 0x1460…1480 20 0d 39 31 38 38 20 20 20 20 20 20 20 20 20 20 20 58 4e 55 23 3a 2d 31 0d 39 31 38 39 20 20 20 ┆ 9188 XNU#:-1 9189 ┆ 0x1480…14a0 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 31 39 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 33 0d ┆ ENDIF 9190 WHEN 13 ┆ 0x14a0…14c0 39 31 39 31 20 20 20 20 20 20 20 20 20 53 49 23 3a 3d 54 52 55 45 0d 39 31 39 32 20 20 20 20 20 ┆9191 SI#:=TRUE 9192 ┆ 0x14c0…14e0 20 20 57 48 45 4e 20 32 37 0d 39 31 39 33 20 20 20 20 20 20 20 20 20 53 49 23 3a 3d 54 52 55 45 ┆ WHEN 27 9193 SI#:=TRUE┆ 0x14e0…1500 3b 20 41 46 53 4c 23 3a 3d 54 52 55 45 0d 39 31 39 34 20 20 20 20 20 20 20 57 48 45 4e 20 44 45 ┆; AFSL#:=TRUE 9194 WHEN DE┆ 0x1500…1520 4c 54 41 53 54 23 2c 20 49 4e 53 23 0d 39 31 39 35 20 20 20 20 20 20 20 20 20 45 50 4f 53 23 3a ┆LTAST#, INS# 9195 EPOS#:┆ 0x1520…1540 3d 58 4e 55 23 2d 58 23 2b 31 0d 39 31 39 36 20 20 20 20 20 20 20 20 20 49 46 20 45 50 4f 53 23 ┆=XNU#-X#+1 9196 IF EPOS#┆ 0x1540…1560 3c 5a 23 20 54 48 45 4e 20 0d 39 31 39 37 20 20 20 20 20 20 20 20 20 20 20 49 46 20 54 23 3d 44 ┆<Z# THEN 9197 IF T#=D┆ 0x1560…1580 45 4c 54 41 53 54 23 20 54 48 45 4e 20 0d 39 31 39 38 20 20 20 20 20 20 20 20 20 20 20 20 20 53 ┆ELTAST# THEN 9198 S┆ 0x1580…15a0 56 46 24 28 45 50 4f 53 23 3a 5a 23 29 3a 3d 53 56 46 24 28 45 50 4f 53 23 2b 31 3a 5a 23 29 2b ┆VF$(EPOS#:Z#):=SVF$(EPOS#+1:Z#)+┆ 0x15a0…15c0 22 20 22 0d 39 31 39 39 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 39 32 30 30 20 20 20 ┆" " 9199 ELSE 9200 ┆ 0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 53 56 46 24 28 45 50 4f 53 23 3a 5a 23 29 3a 3d 22 20 22 2b 53 56 ┆ SVF$(EPOS#:Z#):=" "+SV┆ 0x15e0…1600 46 24 28 45 50 4f 53 23 3a 5a 23 2d 31 29 0d 39 32 30 31 20 20 20 20 20 20 20 20 20 20 20 45 4e ┆F$(EPOS#:Z#-1) 9201 EN┆ 0x1600…1620 (11,) 44 49 46 20 0d 39 32 30 32 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 39 32 30 33 20 20 20 20 ┆DIF 9202 ELSE 9203 ┆ 0x1620…1640 20 20 20 20 20 20 20 53 56 46 24 28 45 50 4f 53 23 3a 5a 23 29 3a 3d 22 20 22 0d 39 32 30 34 20 ┆ SVF$(EPOS#:Z#):=" " 9204 ┆ 0x1640…1660 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 39 32 30 35 20 20 20 20 20 20 20 20 20 50 52 49 4e ┆ ENDIF 9205 PRIN┆ 0x1660…1680 54 20 53 56 46 24 28 45 50 4f 53 23 3a 5a 23 29 3b 0d 39 32 30 36 20 20 20 20 20 20 20 4f 54 48 ┆T SVF$(EPOS#:Z#); 9206 OTH┆ 0x1680…16a0 45 52 57 49 53 45 20 0d 39 32 30 37 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 20 0d 39 32 30 38 ┆ERWISE 9207 ENDCASE 9208┆ 0x16a0…16c0 20 20 20 20 20 45 4e 44 49 46 20 0d 39 32 30 39 20 20 20 20 20 49 46 20 4e 4f 54 20 49 4c 4c 23 ┆ ENDIF 9209 IF NOT ILL#┆ 0x16c0…16e0 20 54 48 45 4e 20 0d 39 32 31 30 20 20 20 20 20 20 20 53 56 46 24 28 58 4e 55 23 2d 58 23 2b 31 ┆ THEN 9210 SVF$(XNU#-X#+1┆ 0x16e0…1700 29 3a 3d 54 24 0d 39 32 31 31 20 20 20 20 20 20 20 50 52 49 4e 54 20 54 24 3b 0d 39 32 31 32 20 ┆):=T$ 9211 PRINT T$; 9212 ┆ 0x1700…1720 20 20 20 20 20 20 58 4e 55 23 3a 2b 31 0d 39 32 31 33 20 20 20 20 20 45 4e 44 49 46 20 0d 39 32 ┆ XNU#:+1 9213 ENDIF 92┆ 0x1720…1740 31 34 20 20 20 55 4e 54 49 4c 20 53 49 23 0d 39 32 31 35 20 20 20 51 23 3a 3d 5a 23 2b 31 0d 39 ┆14 UNTIL SI# 9215 Q#:=Z#+1 9┆ 0x1740…1760 32 31 36 20 20 20 52 45 50 45 41 54 20 0d 39 32 31 37 20 20 20 20 20 51 23 3a 2d 31 0d 39 32 31 ┆216 REPEAT 9217 Q#:-1 921┆ 0x1760…1780 38 20 20 20 55 4e 54 49 4c 20 53 56 46 24 28 51 23 29 3c 3e 22 20 22 20 4f 52 20 51 23 3d 31 20 ┆8 UNTIL SVF$(Q#)<>" " OR Q#=1 ┆ 0x1780…17a0 4f 52 20 53 56 46 24 28 5a 23 29 3c 3e 22 20 22 0d 39 32 31 39 20 20 20 53 56 46 24 3a 3d 53 56 ┆OR SVF$(Z#)<>" " 9219 SVF$:=SV┆ 0x17a0…17c0 46 24 28 31 3a 51 23 29 0d 39 32 32 30 20 45 4e 44 50 52 4f 43 20 45 4c 49 4e 45 0d 39 32 32 31 ┆F$(1:Q#) 9220 ENDPROC ELINE 9221┆ 0x17c0…17e0 20 50 52 4f 43 20 54 41 4c 28 41 24 2c 20 55 23 2c 20 4c 23 2c 20 52 45 46 20 41 23 29 20 43 4c ┆ PROC TAL(A$, U#, L#, REF A#) CL┆ 0x17e0…1800 4f 53 45 44 0d 39 32 32 32 20 20 20 44 49 4d 20 53 24 20 4f 46 20 31 30 2c 20 50 24 20 4f 46 20 ┆OSED 9222 DIM S$ OF 10, P$ OF ┆ 0x1800…1820 (12,) 31 0d 39 32 32 33 20 20 20 53 24 3a 3d 22 31 32 33 34 35 36 37 38 39 30 22 3b 20 50 24 3a 3d 22 ┆1 9223 S$:="1234567890"; P$:="┆ 0x1820…1840 2e 22 3b 20 50 23 3a 3d 30 3b 20 41 23 3a 3d 30 0d 39 32 32 34 20 20 20 46 4f 52 20 4e 23 3a 3d ┆."; P#:=0; A#:=0 9224 FOR N#:=┆ 0x1840…1860 31 20 54 4f 20 4c 23 20 44 4f 20 0d 39 32 32 35 20 20 20 20 20 41 23 3a 2b 31 2a 28 41 24 28 4e ┆1 TO L# DO 9225 A#:+1*(A$(N┆ 0x1860…1880 23 3a 4e 23 29 20 49 4e 20 53 24 29 0d 39 32 32 36 20 20 20 20 20 50 23 3a 2b 31 2a 28 41 24 28 ┆#:N#) IN S$) 9226 P#:+1*(A$(┆ 0x1880…18a0 4e 23 3a 4e 23 29 20 49 4e 20 50 24 29 0d 39 32 32 37 20 20 20 4e 45 58 54 20 4e 23 0d 39 32 32 ┆N#:N#) IN P$) 9227 NEXT N# 922┆ 0x18a0…18c0 38 20 20 20 50 23 3a 2b 31 2a 28 55 23 3d 32 20 41 4e 44 20 41 24 28 31 3a 31 29 3d 22 2d 22 29 ┆8 P#:+1*(U#=2 AND A$(1:1)="-")┆ 0x18c0…18e0 0d 39 32 32 39 20 20 20 41 23 3a 3d 28 50 23 3c 55 23 2b 31 20 41 4e 44 20 41 23 2b 50 23 3d 4c ┆ 9229 A#:=(P#<U#+1 AND A#+P#=L┆ 0x18e0…1900 23 29 0d 39 32 33 30 20 45 4e 44 50 52 4f 43 20 54 41 4c 0d 20 20 50 23 3a 2b 31 2a 28 41 24 74 ┆#) 9230 ENDPROC TAL P#:+1*(A$t┆