|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »REVERS.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REVERS.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REVERS.K«
0010 // ------------------------ Revers ---------------------- 0020 // 0030 PROC REVERS(REF PRTXT$) 0040 L:=LEN(PRTXT$);KOPI$:="" 0060 FOR J:=1 TO L DO 0070 KOPI$(J:1):=PRTXT$(L+1-J:1) 0080 NEXT J 0090 PRTXT$:=KOPI$ 0100 ENDPROC REVERS 0110 // 0120 CLEAR 0130 DIM TEKST$ OF 40,KOPI$ OF 40 0135 PRINT 0140 INPUT "Hvor mange tekster ønskes skrevet bagfra: ":ANTAL 0150 FOR I:=1 TO ANTAL DO 0160 INPUT "Indtast teksten: (max 40 tegn): ":TEKST$ 0170 PRINT "Den indtastede tekst er: ";TEKST$ 0180 EXEC REVERS(TEKST$) 0190 PRINT "Den omvendte tekst er: ";TEKST$ 0200 NEXT I
0x000…040 Line {l1=0x3e, l2=»0010 // ------------------------ Revers ----------------------«, l3=0x3e}
0x040…04a Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04a…068 Line {l1=0x1c, l2=»0030 PROC REVERS(REF PRTXT$)«, l3=0x1c}
0x068…087 Line {l1=0x1d, l2=»0040 L:=LEN(PRTXT$);KOPI$:=""«, l3=0x1d}
0x087…09f Line {l1=0x16, l2=»0060 FOR J:=1 TO L DO «, l3=0x16}
0x09f…0c1 Line {l1=0x20, l2=»0070 KOPI$(J:1):=PRTXT$(L+1-J:1)«, l3=0x20}
0x0c1…0ce Line {l1=0x0b, l2=»0080 NEXT J«, l3=0x0b}
0x0ce…0e2 Line {l1=0x12, l2=»0090 PRTXT$:=KOPI$«, l3=0x12}
0x0e2…0f7 Line {l1=0x13, l2=»0100 ENDPROC REVERS«, l3=0x13}
0x0f7…101 Line {l1=0x08, l2=»0110 // «, l3=0x08}
0x101…10e Line {l1=0x0b, l2=»0120 CLEAR «, l3=0x0b}
0x10e…131 Line {l1=0x21, l2=»0130 DIM TEKST$ OF 40,KOPI$ OF 40«, l3=0x21}
0x131…13e Line {l1=0x0b, l2=»0135 PRINT «, l3=0x0b}
0x13e…17d Line {l1=0x3d, l2=»0140 INPUT "Hvor mange tekster ønskes skrevet bagfra: ":ANTAL«, l3=0x3d}
0x17d…199 Line {l1=0x1a, l2=»0150 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x199…1d2 Line {l1=0x37, l2=»0160 INPUT "Indtast teksten: (max 40 tegn): ":TEKST$«, l3=0x37}
0x1d2…202 Line {l1=0x2e, l2=»0170 PRINT "Den indtastede tekst er: ";TEKST$«, l3=0x2e}
0x202…21c Line {l1=0x18, l2=»0180 EXEC REVERS(TEKST$)«, l3=0x18}
0x21c…24c Line {l1=0x2e, l2=»0190 PRINT "Den omvendte tekst er: ";TEKST$«, l3=0x2e}
0x24c…259 Line {l1=0x0b, l2=»0200 NEXT I«, l3=0x0b}
0x259…260 00 00 63 63 63 63 63 ┆ ccccc┆
0x260…280 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3b…]