|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Names: »MAILLAB.CMD«
└─⟦56ce7e438⟧ Bits:30004227 Adventure - Gomuko - WordStar - MAIL
└─⟦56ce7e438⟧ Bits:30004341 Adventure - Gomuko - WordStar - MAIL
└─⟦this⟧ »MAILLAB.CMD«
0x000…020 (0,) 4e 4f 54 45 20 2d 20 54 48 49 53 20 43 4f 4d 4d 41 44 20 46 49 4c 45 20 50 52 49 4e 54 53 20 4d ┆NOTE - THIS COMMAD FILE PRINTS M┆
0x020…040 41 49 4c 49 4e 47 20 4c 41 42 45 4c 53 20 4f 4e 20 54 48 45 20 50 52 49 4e 54 45 52 0d 0a 2a 0d ┆AILING LABELS ON THE PRINTER * ┆
0x040…060 0a 52 45 4d 41 52 4b 20 57 48 45 4e 20 4c 41 42 45 4c 53 20 41 52 45 20 49 4e 20 50 4c 41 43 45 ┆ REMARK WHEN LABELS ARE IN PLACE┆
0x060…080 2c 20 48 49 54 20 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4e 0d 0a 57 41 49 54 0d 0a 2a 20 20 ┆, HIT CARRIAGE RETURN WAIT * ┆
0x080…0a0 2d 20 65 63 68 6f 20 70 72 69 6e 74 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 73 63 ┆- echo printed information to sc┆
0x0a0…0c0 72 65 65 6e 0d 0a 53 45 54 20 50 52 49 4e 54 20 4f 4e 0d 0a 2a 20 20 2d 20 70 6f 73 69 74 69 6f ┆reen SET PRINT ON * - positio┆
0x0c0…0e0 6e 20 74 6f 20 74 6f 70 20 6f 66 20 4d 41 49 4c 2e 44 42 46 0d 0a 47 4f 20 54 4f 50 0d 0a 2a 20 ┆n to top of MAIL.DBF GO TOP * ┆
0x0e0…100 20 2d 20 70 72 69 6e 74 20 6c 61 62 65 6c 73 0d 0a 44 4f 20 57 48 49 4c 45 20 2e 4e 4f 54 2e 45 ┆ - print labels DO WHILE .NOT.E┆
0x100…120 (1,) 4f 46 0d 0a 20 20 20 2a 20 20 2d 20 70 72 69 6e 74 20 6e 61 6d 65 0d 0a 20 20 20 44 49 53 50 20 ┆OF * - print name DISP ┆
0x120…140 4f 46 46 20 24 28 4e 41 4d 45 2c 31 33 2c 31 37 29 2d 28 27 20 27 2b 24 28 4e 41 4d 45 2c 31 2c ┆OFF $(NAME,13,17)-(' '+$(NAME,1,┆
0x140…160 31 32 29 29 0d 0a 20 20 20 2a 20 20 2d 20 63 68 65 63 6b 69 6e 67 20 74 6f 20 73 65 65 20 69 66 ┆12)) * - checking to see if┆
0x160…180 20 6f 66 66 69 63 65 20 61 64 64 72 65 73 73 0d 0a 20 20 20 49 46 20 4f 46 23 27 20 20 27 0d 0a ┆ office address IF OF#' ' ┆
0x180…1a0 20 20 20 20 20 2a 20 20 2d 20 70 72 69 6e 74 20 6f 66 66 69 63 65 20 6e 61 6d 65 0d 0a 20 20 20 ┆ * - print office name ┆
0x1a0…1c0 20 20 44 49 53 50 20 4f 46 46 20 4f 46 0d 0a 20 20 20 20 20 2a 20 20 2d 20 70 72 69 6e 74 20 61 ┆ DISP OFF OF * - print a┆
0x1c0…1e0 64 64 72 65 73 73 0d 0a 20 20 20 20 20 44 49 53 50 20 4f 46 46 20 41 44 44 52 0d 0a 20 20 20 20 ┆ddress DISP OFF ADDR ┆
0x1e0…200 20 2a 20 20 2d 20 70 72 69 6e 74 20 63 69 74 79 2c 20 73 74 61 74 65 2c 20 7a 69 70 0d 0a 20 20 ┆ * - print city, state, zip ┆
0x200…220 (2,) c5 cd c3 02 2a ba 37 7e e6 7f 47 3a be 37 b0 77 cd c9 02 af 32 ac 36 c1 e1 f1 c9 cd f7 20 22 ba ┆ * 7ü G: 7 w 2 6 " ┆
0x220…240 37 f5 3a 5b 35 b7 c2 3e 21 3a b0 02 b7 ca 19 21 c5 d5 e5 2a 60 35 cd 16 23 e1 d1 c1 f1 c9 e5 21 ┆7 :Æ5 >!: ! *`5 # !┆
0x240…260 ac 36 7e b7 c2 5c 21 35 cd c3 02 2a ba 37 7e ee 80 77 ee 80 e6 80 32 be 37 cd c9 02 e1 f1 c9 e3 ┆ 6ü Ø!5 * 7ü w 2 7 ┆
0x260…280 e5 2a 60 35 e3 cd 14 1b e3 cd ab 22 e1 e3 c9 3a dd 36 e5 6f 26 00 cd 7b 21 e1 c9 cd 94 21 f5 d5 ┆ *`5 " : 6 o& æ! ! ┆
0x280…2a0 eb 2a 60 35 eb cd 8e 17 c4 ab 22 cd aa 1c d1 f1 c9 2a ad 36 f5 3a af 36 85 6f f1 c9 2a 60 35 f5 ┆ *`5 " * 6 : 6 o *`5 ┆
0x2a0…2c0 7d cd a7 21 6f f1 c9 e5 21 af 36 96 e1 c9 3a af 02 f5 cd dc 21 f1 3c 3d c8 f5 3a da 02 b7 c2 ce ┆å !o ! 6 : ! <= : ┆
0x2c0…2e0 21 cd 67 1d af 00 3d c2 c6 21 f1 c3 b7 21 d5 16 00 1e 01 cd 1d 18 90 d1 f1 c3 b7 21 3a 63 35 b7 ┆! g = ! ! !:c5 ┆
0x2e0…300 c0 7e 3c 3d c8 23 f5 7e cd b3 20 f1 c3 e3 21 f5 c5 d5 e5 eb 21 d1 30 e5 3a 48 02 3d 93 21 aa 02 ┆ ü<= # ü ! ! 0 :H = ! ┆
0x300…320 (3,) b6 3a 49 02 c2 08 22 3d 92 c8 d8 4f d5 eb cd 33 23 d1 3a 63 35 b7 c2 54 22 7e fe 20 c2 26 22 23 ┆ :I "= O 3# :c5 T"ü &"#┆
0x320…340 14 0d c2 19 22 c9 e5 79 cd 65 17 0c 0d 2b 7e fe 20 ca 2c 22 e1 cd dc 20 eb cd 7e 21 21 6d 02 7e ┆ " y e +ü ," ü!!m ü┆
0x340…360 b7 f5 c4 ae 21 f1 c2 53 22 41 3e 20 cd b3 20 05 c2 4a 22 eb cd f7 20 cd c3 02 36 20 23 0d c2 5a ┆ ! S"A> J" 6 # Z┆
0x360…380 22 cd c9 02 c3 21 21 f5 e5 21 8b 02 7e b7 c2 78 22 e1 f1 f5 e5 21 84 02 cd ae 21 e1 f1 c9 f5 e5 ┆" !! ! ü x" ! ! ┆
0x380…3a0 cd a5 22 e1 f1 f5 e5 cd f7 20 2a 60 35 c3 c8 22 f5 e5 cd 7e 22 21 9b 02 cd ae 21 c5 d5 cd a7 02 ┆ " *`5 " ü"! ! ┆
0x3a0…3c0 d1 c1 e1 f1 c9 2a 48 02 2d 26 00 f5 e5 d5 e5 22 60 35 cd 33 23 cd 1b 21 eb 22 bc 37 e1 d1 3a 5b ┆ *H -& "`5 3# ! " 7 :Æ┆
0x3c0…3e0 35 b7 c2 7b 22 cd dc 20 c5 d5 cd d8 22 d1 c1 e1 3a ae 02 cd b6 21 f1 c9 3a 64 02 b7 c2 16 23 eb ┆5 æ" " : ! :d # ┆
0x3e0…400 2a 5e 02 19 5c 3a 5d 02 b7 c2 ed 22 eb e5 21 4a 02 cd 01 23 21 53 02 d1 cd 01 23 21 58 02 c3 e1 ┆*^ Ø:Å " !J #!S #!X ┆
0x400…420 (4,) 20 20 20 44 49 53 50 20 4f 46 46 20 24 28 43 49 54 59 2c 31 2c 32 30 29 2d 28 27 2c 20 27 2b 24 ┆ DISP OFF $(CITY,1,20)-(', '+$┆
0x420…440 28 53 54 41 54 45 2c 31 2c 32 29 29 2d 28 27 20 27 2b 24 28 5a 49 50 2c 31 2c 35 29 29 0d 0a 20 ┆(STATE,1,2))-(' '+$(ZIP,1,5)) ┆
0x440…460 20 20 45 4c 53 45 0d 0a 20 20 20 20 20 2a 20 20 2d 20 70 72 69 6e 74 20 68 6f 6d 65 20 61 64 64 ┆ ELSE * - print home add┆
0x460…480 72 65 73 73 0d 0a 20 20 20 20 20 44 49 53 50 20 4f 46 46 20 41 44 44 52 0d 0a 20 20 20 20 20 2a ┆ress DISP OFF ADDR *┆
0x480…4a0 20 20 2d 20 70 72 69 6e 74 20 63 69 74 79 2c 20 73 74 61 74 65 2c 20 7a 69 70 0d 0a 20 20 20 20 ┆ - print city, state, zip ┆
0x4a0…4c0 20 44 49 53 50 20 4f 46 46 20 24 28 43 49 54 59 2c 31 2c 32 30 29 2d 28 27 2c 20 27 2b 24 28 53 ┆ DISP OFF $(CITY,1,20)-(', '+$(S┆
0x4c0…4e0 54 41 54 45 2c 31 2c 32 29 29 2d 28 27 20 27 2b 24 28 5a 49 50 2c 31 2c 35 29 29 0d 0a 20 20 20 ┆TATE,1,2))-(' '+$(ZIP,1,5)) ┆
0x4e0…500 20 20 3f 0d 0a 20 20 20 45 4e 44 49 46 0d 0a 20 20 20 3f 0d 0a 20 20 53 4b 49 50 0d 0a 45 4e 44 ┆ ? ENDIF ? SKIP END┆
0x500…520 (5,) 44 4f 0d 0a 2a 20 20 2d 20 74 75 72 6e 20 6f 66 66 20 65 63 68 6f 20 6f 66 20 6c 61 62 65 6c 73 ┆DO * - turn off echo of labels┆
0x520…540 0d 0a 53 45 54 20 50 52 49 4e 54 20 4f 46 46 0d 0a 52 45 4d 41 52 4b 20 41 4c 4c 20 44 4f 4e 45 ┆ SET PRINT OFF REMARK ALL DONE┆
0x540…560 0d 0a 52 45 54 55 52 4e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ RETURN ┆
0x560…580 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 65 77 20 ┆ ew ┆
0x580…5a0 65 6e 74 72 69 65 73 27 0d 0a 20 20 20 3f 20 27 20 20 20 20 20 20 20 20 20 20 32 20 2d 20 4d 61 ┆entries' ? ' 2 - Ma┆
0x5a0…5c0 6b 65 20 4c 61 62 65 6c 73 27 0d 0a 20 20 20 3f 20 27 20 20 20 20 20 20 20 20 20 20 33 20 2d 20 ┆ke Labels' ? ' 3 - ┆
0x5c0…5e0 57 72 69 74 65 20 4c 65 74 74 65 72 73 27 0d 0a 20 20 20 3f 0d 0a 20 20 20 3f 20 27 20 65 6e 74 ┆Write Letters' ? ? ' ent┆
0x5e0…600 65 72 20 64 65 73 69 72 65 64 20 61 63 74 69 6f 6e 27 0d 0a 20 20 20 2a 20 20 2d 20 77 1a 20 77 ┆er desired action' * - w w┆