|
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 - metrics - download
Length: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »REVERS«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REVERS«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »REVERS«
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