|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - 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 39 30 30 30 20 2f 2f 20 3c 68 6a 7b 6c 70 3e 20 20 20 56 65 72 73 69 6f 6e 3a 20 34 2e 33 20 20 ┆9000 // <hjælp> Version: 4.3 ┆ 0x0020…0040 20 44 61 74 6f 3a 20 30 36 2e 30 38 2e 38 33 20 20 20 62 62 70 20 28 41 55 44 41 43 29 0d 39 30 ┆ Dato: 06.08.83 bbp (AUDAC) 90┆ 0x0040…0060 30 31 20 50 52 4f 43 20 50 52 49 4e 54 45 52 28 54 45 47 4e 5f 50 52 5f 49 4e 43 48 2c 20 4c 49 ┆01 PROC PRINTER(TEGN_PR_INCH, LI┆ 0x0060…0080 4e 49 45 52 5f 50 52 5f 49 4e 43 48 29 20 43 4c 4f 53 45 44 0d 39 30 30 32 20 20 20 2f 2f 20 54 ┆NIER_PR_INCH) CLOSED 9002 // T┆ 0x0080…00a0 45 47 4e 5f 50 52 5f 49 4e 43 48 20 3d 3d 3e 20 35 2c 38 2c 31 30 20 65 6c 6c 65 72 20 31 36 0d ┆EGN_PR_INCH ==> 5,8,10 eller 16 ┆ 0x00a0…00c0 39 30 30 33 20 20 20 2f 2f 20 4c 49 4e 49 45 52 5f 50 52 5f 49 4e 43 48 20 3d 3d 3e 20 36 20 65 ┆9003 // LINIER_PR_INCH ==> 6 e┆ 0x00c0…00e0 6c 6c 65 72 20 38 0d 39 30 30 34 20 20 20 44 49 4d 20 41 24 28 33 29 20 4f 46 20 31 0d 39 30 30 ┆ller 8 9004 DIM A$(3) OF 1 900┆ 0x00e0…0100 35 20 20 20 41 24 28 31 29 3a 3d 43 48 52 24 28 32 39 29 3b 20 41 24 28 32 29 3a 3d 43 48 52 24 ┆5 A$(1):=CHR$(29); A$(2):=CHR$┆ 0x0100…0120 28 33 30 29 3b 20 41 24 28 33 29 3a 3d 43 48 52 24 28 33 31 29 0d 39 30 30 36 20 20 20 50 4f 4b ┆(30); A$(3):=CHR$(31) 9006 POK┆ 0x0120…0140 45 20 31 33 37 39 2c 20 31 33 32 0d 39 30 30 37 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 ┆E 1379, 132 9007 SELECT OUTPUT┆ 0x0140…0160 20 22 4c 50 3a 22 0d 39 30 30 38 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 30 39 20 ┆ "LP:" 9008 PRINT A$(2); 9009 ┆ 0x0160…0180 20 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 35 34 29 3b 0d 39 30 31 30 20 ┆ PRINT CHR$(27);CHR$(54); 9010 ┆ 0x0180…01a0 20 20 49 46 20 4c 49 4e 49 45 52 5f 50 52 5f 49 4e 43 48 3d 38 20 54 48 45 4e 20 50 52 49 4e 54 ┆ IF LINIER_PR_INCH=8 THEN PRINT┆ 0x01a0…01c0 20 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 35 36 29 3b 0d 39 30 31 31 20 20 20 43 41 53 45 20 ┆ CHR$(27);CHR$(56); 9011 CASE ┆ 0x01c0…01e0 54 45 47 4e 5f 50 52 5f 49 4e 43 48 20 4f 46 20 0d 39 30 31 32 20 20 20 57 48 45 4e 20 35 0d 39 ┆TEGN_PR_INCH OF 9012 WHEN 5 9┆ 0x01e0…0200 30 31 33 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 41 24 28 33 29 3b 0d 39 30 31 34 20 ┆013 PRINT A$(2);A$(3); 9014 ┆ 0x0200…0220 20 20 57 48 45 4e 20 38 0d 39 30 31 35 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 31 29 3b 41 24 ┆ WHEN 8 9015 PRINT A$(1);A$┆ 0x0220…0240 28 33 29 3b 0d 39 30 31 36 20 20 20 57 48 45 4e 20 31 30 0d 39 30 31 37 20 20 20 20 20 50 52 49 ┆(3); 9016 WHEN 10 9017 PRI┆ 0x0240…0260 4e 54 20 41 24 28 32 29 3b 0d 39 30 31 38 20 20 20 57 48 45 4e 20 31 36 0d 39 30 31 39 20 20 20 ┆NT A$(2); 9018 WHEN 16 9019 ┆ 0x0260…0280 20 20 50 52 49 4e 54 20 41 24 28 31 29 3b 0d 39 30 32 30 20 20 20 4f 54 48 45 52 57 49 53 45 20 ┆ PRINT A$(1); 9020 OTHERWISE ┆ 0x0280…02a0 0d 39 30 32 31 20 20 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 32 32 20 20 20 45 4e ┆ 9021 PRINT A$(2); 9022 EN┆ 0x02a0…02c0 44 43 41 53 45 20 0d 39 30 32 33 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 0d 39 30 32 34 ┆DCASE 9023 ENDPROC PRINTER 9024┆ 0x02c0…02e0 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 39 30 32 35 20 50 52 4f 43 20 ┆ //----------------// 9025 PROC ┆ 0x02e0…0300 50 52 49 4e 54 4f 55 54 28 43 50 49 2c 20 4c 50 49 2c 20 54 45 58 54 24 29 20 43 4c 4f 53 45 44 ┆PRINTOUT(CPI, LPI, TEXT$) CLOSED┆ 0x0300…0320 0d 39 30 32 36 20 20 20 44 49 4d 20 41 24 28 33 29 20 4f 46 20 31 0d 39 30 32 37 20 20 20 41 24 ┆ 9026 DIM A$(3) OF 1 9027 A$┆ 0x0320…0340 28 31 29 3a 3d 43 48 52 24 28 32 39 29 3b 20 41 24 28 32 29 3a 3d 43 48 52 24 28 33 30 29 3b 20 ┆(1):=CHR$(29); A$(2):=CHR$(30); ┆ 0x0340…0360 41 24 28 33 29 3a 3d 43 48 52 24 28 33 31 29 0d 39 30 32 38 20 20 20 50 4f 4b 45 20 31 33 37 39 ┆A$(3):=CHR$(31) 9028 POKE 1379┆ 0x0360…0380 2c 20 31 33 32 0d 39 30 32 39 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 4c 50 3a 22 ┆, 132 9029 SELECT OUTPUT "LP:"┆ 0x0380…03a0 0d 39 30 33 30 20 20 20 50 52 49 4e 54 20 41 24 28 32 29 3b 0d 39 30 33 31 20 20 20 50 52 49 4e ┆ 9030 PRINT A$(2); 9031 PRIN┆ 0x03a0…03c0 54 20 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 35 34 29 3b 0d 39 30 33 32 20 20 20 49 46 20 4c ┆T CHR$(27);CHR$(54); 9032 IF L┆ 0x03c0…03e0 50 49 3d 38 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 32 37 29 3b 43 48 52 24 28 35 36 ┆PI=8 THEN PRINT CHR$(27);CHR$(56┆ 0x03e0…0400 29 3b 0d 39 30 33 33 20 20 20 43 41 53 45 20 43 50 49 20 4f 46 20 0d 39 30 33 34 20 20 20 57 48 ┆); 9033 CASE CPI OF 9034 WH┆ 0x0400…0420 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 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 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 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 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 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 39 31 34 37 20 20 20 54 52 41 50 20 45 53 43 2d 0d 39 31 34 38 20 20 20 50 4f 4b 45 20 32 35 36 ┆9147 TRAP ESC- 9148 POKE 256┆ 0x1020…1040 2c 20 32 35 35 0d 39 31 34 39 20 20 20 52 45 50 45 41 54 20 0d 39 31 35 30 20 20 20 20 20 4b 45 ┆, 255 9149 REPEAT 9150 KE┆ 0x1040…1060 59 23 3a 3d 50 45 45 4b 28 32 35 36 29 0d 39 31 35 31 20 20 20 20 20 49 46 20 45 53 43 20 54 48 ┆Y#:=PEEK(256) 9151 IF ESC TH┆ 0x1060…1080 45 4e 20 4b 45 59 23 3a 3d 32 37 0d 39 31 35 32 20 20 20 55 4e 54 49 4c 20 4b 45 59 23 3c 3e 32 ┆EN KEY#:=27 9152 UNTIL KEY#<>2┆ 0x1080…10a0 35 35 0d 39 31 35 33 20 20 20 54 52 41 50 20 45 53 43 2b 0d 39 31 35 34 20 45 4e 44 50 52 4f 43 ┆55 9153 TRAP ESC+ 9154 ENDPROC┆ 0x10a0…10c0 20 4c 4b 45 59 0d 39 31 35 35 20 2f 2f 3c 65 64 69 74 3e 20 20 20 56 65 72 73 69 6f 6e 3a 20 31 ┆ LKEY 9155 //<edit> Version: 1┆ 0x10c0…10e0 2e 32 20 20 20 44 61 74 6f 3a 20 31 33 2e 30 31 2e 38 31 0d 39 31 35 36 20 50 52 4f 43 20 49 4e ┆.2 Dato: 13.01.81 9156 PROC IN┆ 0x10e0…1100 44 54 41 4c 28 58 23 2c 20 59 23 2c 20 4c 5b 4e 47 44 45 23 2c 20 54 45 47 4e 23 2c 20 52 45 46 ┆DTAL(X#, Y#, LÆNGDE#, TEGN#, REF┆ 0x1100…1120 20 54 41 4c 29 20 43 4c 4f 53 45 44 0d 39 31 35 37 20 20 20 44 49 4d 20 53 56 24 20 4f 46 20 4c ┆ TAL) CLOSED 9157 DIM SV$ OF L┆ 0x1120…1140 5b 4e 47 44 45 23 0d 39 31 35 38 20 20 20 53 56 24 3a 3d 53 50 43 24 28 4c 5b 4e 47 44 45 23 29 ┆ÆNGDE# 9158 SV$:=SPC$(LÆNGDE#)┆ 0x1140…1160 3b 20 4f 4b 23 3a 3d 46 41 4c 53 45 0d 39 31 35 39 20 20 20 52 45 50 45 41 54 20 0d 39 31 36 30 ┆; OK#:=FALSE 9159 REPEAT 9160┆ 0x1160…1180 20 20 20 20 20 53 56 24 3a 3d 53 50 43 24 28 4c 5b 4e 47 44 45 23 29 0d 39 31 36 31 20 20 20 20 ┆ SV$:=SPC$(LÆNGDE#) 9161 ┆ 0x1180…11a0 20 45 58 45 43 20 45 4c 49 4e 45 28 58 23 2c 59 23 2c 4c 5b 4e 47 44 45 23 2c 53 56 24 29 0d 39 ┆ EXEC ELINE(X#,Y#,LÆNGDE#,SV$) 9┆ 0x11a0…11c0 31 36 32 20 20 20 20 20 45 58 45 43 20 54 41 4c 28 53 56 24 2c 54 45 47 4e 23 2c 4c 45 4e 28 53 ┆162 EXEC TAL(SV$,TEGN#,LEN(S┆ 0x11c0…11e0 56 24 29 2c 4f 4b 23 29 0d 39 31 36 33 20 20 20 55 4e 54 49 4c 20 4f 4b 23 0d 39 31 36 34 20 20 ┆V$),OK#) 9163 UNTIL OK# 9164 ┆ 0x11e0…1200 20 54 41 4c 3a 3d 56 41 4c 28 53 56 24 29 0d 39 31 36 35 20 45 4e 44 50 52 4f 43 20 49 4e 44 54 ┆ TAL:=VAL(SV$) 9165 ENDPROC INDT┆ 0x1200…1220 41 4c 0d 39 31 36 36 20 50 52 4f 43 20 45 4c 49 4e 45 28 58 23 2c 20 59 23 2c 20 5a 23 2c 20 52 ┆AL 9166 PROC ELINE(X#, Y#, Z#, R┆ 0x1220…1240 45 46 20 53 56 46 24 29 20 43 4c 4f 53 45 44 0d 39 31 36 37 20 20 20 53 56 46 24 3a 3d 53 56 46 ┆EF SVF$) CLOSED 9167 SVF$:=SVF┆ 0x1240…1260 24 2b 53 50 43 24 28 5a 23 2d 4c 45 4e 28 53 56 46 24 29 29 0d 39 31 36 38 20 20 20 44 49 4d 20 ┆$+SPC$(Z#-LEN(SVF$)) 9168 DIM ┆ 0x1260…1280 54 24 20 4f 46 20 31 0d 39 31 36 39 20 20 20 58 4e 55 23 3a 3d 58 23 3b 20 53 49 23 3a 3d 46 41 ┆T$ OF 1 9169 XNU#:=X#; SI#:=FA┆ 0x1280…12a0 4c 53 45 0d 39 31 37 30 20 20 20 48 5c 4a 52 45 23 3a 3d 31 32 3b 20 56 45 4e 53 54 52 45 23 3a ┆LSE 9170 HØJRE#:=12; VENSTRE#:┆ 0x12a0…12c0 3d 38 0d 39 31 37 31 20 20 20 44 45 4c 54 41 53 54 23 3a 3d 31 32 37 3b 20 49 4e 53 23 3a 3d 33 ┆=8 9171 DELTAST#:=127; INS#:=3┆ 0x12c0…12e0 31 0d 39 31 37 32 20 20 20 43 55 52 53 4f 52 20 58 23 2c 20 59 23 0d 39 31 37 33 20 20 20 50 52 ┆1 9172 CURSOR X#, Y# 9173 PR┆ 0x12e0…1300 49 4e 54 20 53 56 46 24 3b 0d 39 31 37 34 20 20 20 52 45 50 45 41 54 20 0d 39 31 37 35 20 20 20 ┆INT SVF$; 9174 REPEAT 9175 ┆ 0x1300…1320 20 20 49 46 20 58 4e 55 23 3c 58 23 20 54 48 45 4e 20 58 4e 55 23 3a 3d 58 23 0d 39 31 37 36 20 ┆ IF XNU#<X# THEN XNU#:=X# 9176 ┆ 0x1320…1340 20 20 20 20 49 46 20 58 4e 55 23 3e 58 23 2b 5a 23 2d 31 20 54 48 45 4e 20 58 4e 55 23 3a 3d 58 ┆ IF XNU#>X#+Z#-1 THEN XNU#:=X┆ 0x1340…1360 23 2b 5a 23 2d 31 0d 39 31 37 37 20 20 20 20 20 49 4c 4c 23 3a 3d 46 41 4c 53 45 0d 39 31 37 38 ┆#+Z#-1 9177 ILL#:=FALSE 9178┆ 0x1360…1380 20 20 20 20 20 43 55 52 53 4f 52 20 58 4e 55 23 2c 20 59 23 0d 39 31 37 39 20 20 20 20 20 45 58 ┆ CURSOR XNU#, Y# 9179 EX┆ 0x1380…13a0 45 43 20 4c 4b 45 59 0d 39 31 38 30 20 20 20 20 20 54 23 3a 3d 4b 45 59 23 3b 20 54 24 3a 3d 43 ┆EC LKEY 9180 T#:=KEY#; T$:=C┆ 0x13a0…13c0 48 52 24 28 54 23 29 0d 39 31 38 31 20 20 20 20 20 49 46 20 54 23 3c 33 32 20 4f 52 20 54 23 3e ┆HR$(T#) 9181 IF T#<32 OR T#>┆ 0x13c0…13e0 31 32 36 20 54 48 45 4e 20 0d 39 31 38 32 20 20 20 20 20 20 20 49 4c 4c 23 3a 3d 54 52 55 45 0d ┆126 THEN 9182 ILL#:=TRUE ┆ 0x13e0…1400 39 31 38 33 20 20 20 20 20 20 20 43 41 53 45 20 54 23 20 4f 46 20 0d 39 31 38 34 20 20 20 20 20 ┆9183 CASE T# OF 9184 ┆ 0x1400…1420 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 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 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┆