DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦d1d707fa5⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »SIDE112«

Derivation

└─⟦eca9022c5⟧ Bits:30002661 Datalære sådan - løsningsdiskette
    └─ ⟦this⟧ »SIDE112«

TextFile

0010 DIM navn$ OF 20
0020 INPUT "tast dit fornavn: ": navn$
0030 INPUT "tast din alder: ": a
0040 EXEC bagvendt
0050 PRINT " - og du var ",a," år gammel!"
0060 END  //-------------------------------
0070 //
0080 PROC bagvendt
0090   PRINT CHR$(12) // eller CLEAR
0100   a:= LEN(navn$)
0110   FOR i:= a TO 1 STEP -1 DO
0120     PRINT navn$(i:i);
0130   NEXT i
0140   PRINT 
0150   PRINT 
0160 ENDPROC bagvendt
«eof»