|
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: »JULEBREV.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JULEBREV.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »JULEBREV.K«
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) ";
0x000…043 Line {l1=0x41, l2=»0010 // ----------------------- julebrev ------------------------«, l3=0x41}
0x043…071 Line {l1=0x2c, l2=»0020 DIM NAVN$ OF 20,AFSNAVN$ OF 20,SV$ OF 1«, l3=0x2c}
0x071…07b Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x07b…089 Line {l1=0x0c, l2=»0040 REPEAT «, l3=0x0c}
0x089…096 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x096…0c9 Line {l1=0x31, l2=»0060 INPUT "Ønskes printerudskrift? (j/n) ":SV$«, l3=0x31}
0x0c9…0d6 Line {l1=0x0b, l2=»0070 PRINT «, l3=0x0b}
0x0d6…0e3 Line {l1=0x0b, l2=»0080 PRINT «, l3=0x0b}
0x0e3…10e Line {l1=0x29, l2=»0090 IF SV$ IN "j" THEN SELECT OUTPUT "P"«, l3=0x29}
0x10e…14d Line {l1=0x3d, l2=»0100 INPUT "Modtagerens navn: ":NAVN$«, l3=0x3d}
0x14d…18f Line {l1=0x40, l2=»0110 INPUT "Afsenderens navn: ":AFSNAVN$«, l3=0x40}
0x18f…199 Line {l1=0x08, l2=»0120 // «, l3=0x08}
0x199…1b3 Line {l1=0x18, l2=»0130 PRINT "Kære ";NAVN$«, l3=0x18}
0x1b3…1c0 Line {l1=0x0b, l2=»0140 PRINT «, l3=0x0b}
0x1c0…202 Line {l1=0x40, l2=»0150 PRINT " Nu nærmer julen sig atter med kæmpeskridt og jeg "«, l3=0x40}
0x202…247 Line {l1=0x43, l2=»0160 PRINT "vil ønske dig en rigtig glædelig jul og et godt Nytår."«, l3=0x43}
0x247…28c Line {l1=0x43, l2=»0170 PRINT "Jeg glæder mig til vores lille komsammen Nytårsaften, "«, l3=0x43}
0x28c…2d1 Line {l1=0x43, l2=»0180 PRINT "hvor vi rigtig skal gå til makronerne. "«, l3=0x43}
0x2d1…2de Line {l1=0x0b, l2=»0190 PRINT «, l3=0x0b}
0x2de…308 Line {l1=0x28, l2=»0200 PRINT TAB(30);"Med venlig hilsen, "«, l3=0x28}
0x308…325 Line {l1=0x1b, l2=»0210 PRINT TAB(30);AFSNAVN$«, l3=0x1b}
0x325…33d Line {l1=0x16, l2=»0220 SELECT OUTPUT "T"«, l3=0x16}
0x33d…34f Line {l1=0x10, l2=»0230 CURSOR 1,23«, l3=0x10}
0x34f…388 Line {l1=0x37, l2=»0240 INPUT "Skal der flere breve afsted? (j/n) ":SV$«, l3=0x37}
0x388…39a Line {l1=0x10, l2=»0260 CURSOR 1,23«, l3=0x10}
0x39a…3b9 Line {l1=0x1d, l2=»0290 UNTIL SV$="N" OR SV$="n"«, l3=0x1d}
0x3b9…3ca Line {l1=0x0f, l2=»A486 // j/n) ";«, l3=0x0f}
0x3ca…3e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccc┆
0x3e0…400 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┆
[…0x2f…]