|
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: »JULEBREV«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JULEBREV«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JULEBREV«
0010 // ----------------------- julebrev ------------------------ 0020 DIM NAVN$ OF 20,AFSNAVN$ OF 20,SV$ OF 1 0030 // 0040 REPEAT 0050 CLEAR 0060 INPUT "Ønskes printerudskrift? (j/n) ":SV$ 0070 PRINT 0080 PRINT 0090 IF SV$ IN "j" THEN SELECT OUTPUT "P" 0100 INPUT "Modtagerens navn: ":NAVN$ 0110 INPUT "Afsenderens navn: ":AFSNAVN$ 0120 // 0130 PRINT "Kære ";NAVN$ 0140 PRINT 0150 PRINT " Nu nærmer julen sig atter med kæmpeskridt og jeg " 0160 PRINT "vil ønske dig en rigtig glædelig jul og et godt Nytår." 0170 PRINT "Jeg glæder mig til vores lille komsammen Nytårsaften, " 0180 PRINT "hvor vi rigtig skal gå til makronerne. " 0190 PRINT 0200 PRINT TAB(30);"Med venlig hilsen, " 0210 PRINT TAB(30);AFSNAVN$ 0220 SELECT OUTPUT "T" 0230 CURSOR 1,23 0240 INPUT "Skal der flere breve afsted? (j/n) ":SV$ 0260 CURSOR 1,23 0290 UNTIL SV$="N" OR SV$="n" A486 // j/n) ";