|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4608 (0x1200)
Names: »CONVERT.CML«
└─⟦832e7e234⟧ Bits:30003263 Butler systemdiskette
└─⟦832e7e234⟧ Bits:30004286 Butler systemdiskette
└─ ⟦this⟧ »CONVERT.CML«
└─⟦ccbc2d84d⟧ Bits:30004597 Boot 60k CP/M (Butler)
└─ ⟦this⟧ »CONVERT.CML«
└─⟦d823d3189⟧ Bits:30004365 Butler CP/M 2.2 systemdiskette fra LFU
└─ ⟦this⟧ »CONVERT.CML«
0x0000…0020 30 30 31 30 20 2f 2f 20 54 68 69 73 20 69 73 20 74 68 65 20 43 4f 4e 56 45 52 54 20 70 72 6f 67 ┆0010 // This is the CONVERT prog┆
0x0020…0040 72 61 6d 20 75 73 65 64 20 69 6e 20 63 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 0d 30 30 32 ┆ram used in conjunction with 002┆
0x0040…0060 30 20 2f 2f 20 22 45 58 54 45 4e 53 49 4f 4e 53 22 20 74 6f 20 74 68 65 20 4d 45 54 41 4e 49 43 ┆0 // "EXTENSIONS" to the METANIC┆
0x0060…0080 20 43 4f 4d 41 4c 2d 38 30 20 69 6e 74 65 72 70 72 65 74 65 72 2e 0d 30 30 33 30 20 2f 2f 20 54 ┆ COMAL-80 interpreter. 0030 // T┆
0x0080…00a0 68 65 20 70 72 6f 67 72 61 6d 20 69 73 20 69 6e 74 65 6e 74 69 6f 6e 65 64 20 66 6f 72 20 75 73 ┆he program is intentioned for us┆
0x00a0…00c0 65 20 77 69 74 68 20 74 68 65 20 4d 41 43 52 4f 2d 38 30 20 6d 61 63 72 6f 0d 30 30 34 30 20 2f ┆e with the MACRO-80 macro 0040 /┆
0x00c0…00e0 2f 20 61 73 73 65 6d 62 6c 65 72 20 66 72 6f 6d 20 4d 69 63 72 6f 73 6f 66 74 2e 0d 30 30 35 30 ┆/ assembler from Microsoft. 0050┆
0x00e0…0100 20 2f 2f 0d 30 30 36 30 20 2f 2f 20 54 68 65 20 70 72 6f 67 72 61 6d 20 72 65 61 64 73 20 61 6e ┆ // 0060 // The program reads an┆
0x0100…0120 20 6f 62 6a 65 63 74 20 66 69 6c 65 20 70 72 6f 64 75 63 65 64 20 62 79 20 74 68 65 20 4d 41 43 ┆ object file produced by the MAC┆
0x0120…0140 52 4f 2d 38 30 0d 30 30 37 30 20 2f 2f 20 61 73 73 65 6d 62 6c 65 72 20 61 6e 64 20 70 72 6f 64 ┆RO-80 0070 // assembler and prod┆
0x0140…0160 75 63 65 73 20 61 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 72 65 6c 6f 63 61 74 61 62 6c 65 ┆uces a corresponding relocatable┆
0x0160…0180 20 66 69 6c 65 0d 30 30 38 30 20 2f 2f 20 77 68 69 63 68 20 63 6f 6e 66 6f 72 6d 73 20 74 6f 20 ┆ file 0080 // which conforms to ┆
0x0180…01a0 74 68 65 20 66 6f 72 6d 61 74 20 65 78 70 65 63 74 65 64 20 62 79 20 43 4f 4d 41 4c 2d 38 30 2e ┆the format expected by COMAL-80.┆
0x01a0…01c0 0d 30 30 39 30 20 2f 2f 0d 30 31 30 30 20 2f 2f 20 56 65 72 73 69 6f 6e 20 31 20 77 72 69 74 74 ┆ 0090 // 0100 // Version 1 writt┆
0x01c0…01e0 65 6e 20 38 33 30 33 32 34 0d 30 31 31 30 20 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en 830324 0110 // ┆
0x01e0…0200 20 62 79 20 41 72 6e 65 20 43 68 72 69 73 74 65 6e 73 65 6e 0d 30 31 32 30 20 2f 2f 20 20 20 20 ┆ by Arne Christensen 0120 // ┆
0x0200…0220 20 20 20 20 20 77 68 6f 20 69 73 20 6f 66 20 4d 65 74 61 6e 69 63 20 41 70 53 0d 30 31 33 30 20 ┆ who is of Metanic ApS 0130 ┆
0x0220…0240 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 6f 6e 67 65 76 65 6a 65 6e 20 ┆// Kongevejen ┆
0x0240…0260 31 37 37 0d 30 31 34 30 20 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 4b ┆177 0140 // DK┆
0x0260…0280 2d 32 38 33 30 20 56 69 72 75 6d 0d 30 31 35 30 20 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-2830 Virum 0150 // ┆
0x0280…02a0 20 20 20 20 20 20 44 65 6e 6d 61 72 6b 0d 30 31 36 30 20 2f 2f 0d 30 31 37 30 20 46 55 4e 43 20 ┆ Denmark 0160 // 0170 FUNC ┆
0x02a0…02c0 53 54 52 45 41 4d 23 28 4e 23 29 20 43 4c 4f 53 45 44 20 2f 2f 20 4e 23 20 3c 3d 20 38 0d 30 31 ┆STREAM#(N#) CLOSED // N# <= 8 01┆
0x02c0…02e0 38 30 20 20 20 2f 2f 20 52 65 61 64 73 20 4e 23 20 62 69 74 73 20 66 72 6f 6d 20 74 68 65 20 69 ┆80 // Reads N# bits from the i┆
0x02e0…0300 6e 70 75 74 20 66 69 6c 65 20 61 6e 64 20 72 65 74 75 72 6e 73 20 74 68 65 6d 0d 30 31 39 30 20 ┆nput file and returns them 0190 ┆
0x0300…0320 20 20 2f 2f 20 61 73 20 66 75 6e 63 74 69 6f 6e 20 76 61 6c 75 65 0d 30 32 30 30 20 20 20 49 4d ┆ // as function value 0200 IM┆
0x0320…0340 50 4f 52 54 20 42 55 46 46 45 52 24 0d 30 32 31 30 20 20 20 44 49 4d 20 52 45 53 55 4c 54 24 20 ┆PORT BUFFER$ 0210 DIM RESULT$ ┆
0x0340…0360 4f 46 20 38 0d 30 32 32 30 20 20 20 57 48 49 4c 45 20 4c 45 4e 28 42 55 46 46 45 52 24 29 3c 3d ┆OF 8 0220 WHILE LEN(BUFFER$)<=┆
0x0360…0380 4e 23 20 44 4f 20 0d 30 32 33 30 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 20 30 3a 20 42 23 0d ┆N# DO 0230 READ FILE 0: B# ┆
0x0380…03a0 30 32 34 30 20 20 20 20 20 42 55 46 46 45 52 24 3a 2b 42 53 54 52 24 28 50 45 45 4b 28 56 41 52 ┆0240 BUFFER$:+BSTR$(PEEK(VAR┆
0x03a0…03c0 50 54 52 28 42 23 29 29 29 2b 42 53 54 52 24 28 50 45 45 4b 28 56 41 52 50 54 52 28 42 23 29 2b ┆PTR(B#)))+BSTR$(PEEK(VARPTR(B#)+┆
0x03c0…03e0 31 29 29 0d 30 32 35 30 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 30 32 36 30 20 20 20 52 45 53 55 ┆1)) 0250 ENDWHILE 0260 RESU┆
0x03e0…0400 4c 54 24 3a 3d 22 30 30 30 30 30 30 30 30 22 3b 20 52 45 53 55 4c 54 24 28 38 2d 4e 23 2b 31 3a ┆LT$:="00000000"; RESULT$(8-N#+1:┆
0x0400…0420 38 29 3a 3d 42 55 46 46 45 52 24 28 31 3a 4e 23 29 0d 30 32 37 30 20 20 20 42 55 46 46 45 52 24 ┆8):=BUFFER$(1:N#) 0270 BUFFER$┆
0x0420…0440 3a 3d 42 55 46 46 45 52 24 28 4e 23 2b 31 3a 4c 45 4e 28 42 55 46 46 45 52 24 29 29 0d 30 32 38 ┆:=BUFFER$(N#+1:LEN(BUFFER$)) 028┆
0x0440…0460 30 20 20 20 52 45 54 55 52 4e 20 42 56 41 4c 28 52 45 53 55 4c 54 24 29 0d 30 32 39 30 20 45 4e ┆0 RETURN BVAL(RESULT$) 0290 EN┆
0x0460…0480 44 46 55 4e 43 20 53 54 52 45 41 4d 23 0d 30 33 30 30 20 2f 2f 0d 30 33 31 30 20 50 52 4f 43 20 ┆DFUNC STREAM# 0300 // 0310 PROC ┆
0x0480…04a0 50 55 54 28 42 59 54 45 23 2c 20 46 4c 41 47 23 29 20 43 4c 4f 53 45 44 0d 30 33 32 30 20 20 20 ┆PUT(BYTE#, FLAG#) CLOSED 0320 ┆
0x04a0…04c0 2f 2f 20 57 72 69 74 65 73 20 6f 75 74 20 42 59 54 45 23 20 77 69 74 68 20 72 65 6c 6f 63 61 74 ┆// Writes out BYTE# with relocat┆
0x04c0…04e0 69 6f 6e 20 73 74 61 74 75 73 20 46 4c 41 47 23 0d 30 33 33 30 20 20 20 2f 2f 20 74 6f 20 74 68 ┆ion status FLAG# 0330 // to th┆
0x04e0…0500 65 20 6f 75 74 70 75 74 20 66 69 6c 65 0d 30 33 34 30 20 20 20 49 4d 50 4f 52 54 20 42 59 54 45 ┆e output file 0340 IMPORT BYTE┆
0x0500…0520 53 24 2c 20 46 4c 41 47 53 23 2c 20 4c 4f 43 5f 4d 4f 44 5f 38 23 2c 20 4c 4f 43 41 54 49 4f 4e ┆S$, FLAGS#, LOC_MOD_8#, LOCATION┆
0x0520…0540 23 0d 30 33 35 30 20 20 20 42 59 54 45 53 24 28 4c 4f 43 5f 4d 4f 44 5f 38 23 2b 31 29 3a 3d 43 ┆# 0350 BYTES$(LOC_MOD_8#+1):=C┆
0x0540…0560 48 52 24 28 42 59 54 45 23 29 3b 20 46 4c 41 47 53 23 3a 2b 46 4c 41 47 53 23 2b 46 4c 41 47 23 ┆HR$(BYTE#); FLAGS#:+FLAGS#+FLAG#┆
0x0560…0580 0d 30 33 36 30 20 20 20 4c 4f 43 41 54 49 4f 4e 23 3a 2b 31 3b 20 4c 4f 43 5f 4d 4f 44 5f 38 23 ┆ 0360 LOCATION#:+1; LOC_MOD_8#┆
0x0580…05a0 3a 2b 31 0d 30 33 37 30 20 20 20 49 46 20 4c 4f 43 5f 4d 4f 44 5f 38 23 3d 38 20 54 48 45 4e 20 ┆:+1 0370 IF LOC_MOD_8#=8 THEN ┆
0x05a0…05c0 0d 30 33 38 30 20 20 20 20 20 4c 4f 43 5f 4d 4f 44 5f 38 23 3a 3d 30 0d 30 33 39 30 20 20 20 20 ┆ 0380 LOC_MOD_8#:=0 0390 ┆
0x05c0…05e0 20 50 52 49 4e 54 20 46 49 4c 45 20 31 3a 20 42 59 54 45 53 24 3b 43 48 52 24 28 46 4c 41 47 53 ┆ PRINT FILE 1: BYTES$;CHR$(FLAGS┆
0x05e0…0600 23 29 3b 0d 30 34 30 30 20 20 20 20 20 46 4c 41 47 53 23 3a 3d 30 0d 30 34 31 30 20 20 20 45 4e ┆#); 0400 FLAGS#:=0 0410 EN┆
0x0600…0620 44 49 46 20 0d 30 34 32 30 20 20 20 50 52 49 4e 54 20 22 2e 22 3b 0d 30 34 33 30 20 45 4e 44 50 ┆DIF 0420 PRINT "."; 0430 ENDP┆
0x0620…0640 52 4f 43 20 50 55 54 0d 30 34 34 30 20 2f 2f 0d 30 34 35 30 20 50 52 4f 43 20 4d 45 53 53 41 47 ┆ROC PUT 0440 // 0450 PROC MESSAG┆
0x0640…0660 45 28 4e 23 29 20 43 4c 4f 53 45 44 0d 30 34 36 30 20 20 20 2f 2f 20 50 72 69 6e 74 73 20 61 6e ┆E(N#) CLOSED 0460 // Prints an┆
0x0660…0680 20 65 72 72 6f 72 20 6d 65 73 73 61 67 65 0d 30 34 37 30 20 20 20 50 52 49 4e 54 20 0d 30 34 38 ┆ error message 0470 PRINT 048┆
0x0680…06a0 30 20 20 20 50 52 49 4e 54 20 0d 30 34 39 30 20 20 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 20 45 ┆0 PRINT 0490 PRINT "***** E┆
0x06a0…06c0 52 52 4f 52 20 3a 20 22 3b 0d 30 35 30 30 20 20 20 43 41 53 45 20 4e 23 20 4f 46 20 0d 30 35 31 ┆RROR : "; 0500 CASE N# OF 051┆
0x06c0…06e0 30 20 20 20 57 48 45 4e 20 31 0d 30 35 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 54 48 45 20 44 ┆0 WHEN 1 0520 PRINT "THE D┆
0x06e0…0700 41 54 41 20 41 52 45 41 20 48 41 53 20 42 45 45 4e 20 55 53 45 44 22 0d 30 35 33 30 20 20 20 57 ┆ATA AREA HAS BEEN USED" 0530 W┆
0x0700…0720 48 45 4e 20 32 0d 30 35 34 30 20 20 20 20 20 50 52 49 4e 54 20 22 49 4d 50 52 4f 50 45 52 20 46 ┆HEN 2 0540 PRINT "IMPROPER F┆
0x0720…0740 49 4c 45 20 46 4f 52 4d 41 54 22 0d 30 35 35 30 20 20 20 45 4e 44 43 41 53 45 20 0d 30 35 36 30 ┆ILE FORMAT" 0550 ENDCASE 0560┆
0x0740…0760 20 45 4e 44 50 52 4f 43 20 4d 45 53 53 41 47 45 0d 30 35 37 30 20 2f 2f 0d 30 35 38 30 20 44 49 ┆ ENDPROC MESSAGE 0570 // 0580 DI┆
0x0760…0780 4d 20 42 55 46 46 45 52 24 20 4f 46 20 34 30 0d 30 35 39 30 20 44 49 4d 20 46 49 4c 45 4e 41 4d ┆M BUFFER$ OF 40 0590 DIM FILENAM┆
0x0780…07a0 45 24 20 4f 46 20 32 30 0d 30 36 30 30 20 49 4e 50 55 54 20 22 46 49 4c 45 3a 20 22 3a 20 46 49 ┆E$ OF 20 0600 INPUT "FILE: ": FI┆
0x07a0…07c0 4c 45 4e 41 4d 45 24 0d 30 36 31 30 20 50 52 49 4e 54 20 0d 30 36 32 30 20 49 46 20 4e 4f 54 20 ┆LENAME$ 0610 PRINT 0620 IF NOT ┆
0x07c0…07e0 22 2e 22 20 49 4e 20 46 49 4c 45 4e 41 4d 45 24 20 54 48 45 4e 20 46 49 4c 45 4e 41 4d 45 24 3a ┆"." IN FILENAME$ THEN FILENAME$:┆
0x07e0…0800 2b 22 2e 52 45 4c 22 0d 30 36 33 30 20 4f 50 45 4e 20 46 49 4c 45 20 30 2c 20 46 49 4c 45 4e 41 ┆+".REL" 0630 OPEN FILE 0, FILENA┆
0x0800…0820 4d 45 24 2b 22 2f 43 2f 42 22 2c 20 52 45 41 44 20 0d 30 36 34 30 20 46 49 4c 45 4e 41 4d 45 24 ┆ME$+"/C/B", READ 0640 FILENAME$┆
0x0820…0840 3a 3d 46 49 4c 45 4e 41 4d 45 24 28 31 3a 50 4f 53 28 22 2e 22 2c 46 49 4c 45 4e 41 4d 45 24 29 ┆:=FILENAME$(1:POS(".",FILENAME$)┆
0x0840…0860 2d 31 29 2b 22 2e 45 58 54 22 0d 30 36 35 30 20 44 45 4c 45 54 45 20 46 49 4c 45 4e 41 4d 45 24 ┆-1)+".EXT" 0650 DELETE FILENAME$┆
0x0860…0880 0d 30 36 36 30 20 4f 50 45 4e 20 46 49 4c 45 20 31 2c 20 46 49 4c 45 4e 41 4d 45 24 2c 20 57 52 ┆ 0660 OPEN FILE 1, FILENAME$, WR┆
0x0880…08a0 49 54 45 20 0d 30 36 37 30 20 2f 2f 0d 30 36 38 30 20 4c 4f 43 41 54 49 4f 4e 23 3a 3d 30 3b 20 ┆ITE 0670 // 0680 LOCATION#:=0; ┆
0x08a0…08c0 4c 4f 43 5f 4d 4f 44 5f 38 23 3a 3d 30 0d 30 36 39 30 20 44 49 4d 20 42 59 54 45 53 24 20 4f 46 ┆LOC_MOD_8#:=0 0690 DIM BYTES$ OF┆
0x08c0…08e0 20 38 0d 30 37 30 30 20 46 4c 41 47 53 23 3a 3d 30 0d 30 37 31 30 20 2f 2f 0d 30 37 32 30 20 50 ┆ 8 0700 FLAGS#:=0 0710 // 0720 P┆
0x08e0…0900 52 4f 47 5f 53 49 5a 45 23 3a 3d 2d 31 20 2f 2f 20 4e 4f 54 20 59 45 54 20 44 45 46 49 4e 45 44 ┆ROG_SIZE#:=-1 // NOT YET DEFINED┆
0x0900…0920 0d 30 37 33 30 20 44 49 4d 20 50 52 4f 47 52 41 4d 5f 4e 41 4d 45 24 20 4f 46 20 31 30 0d 30 37 ┆ 0730 DIM PROGRAM_NAME$ OF 10 07┆
0x0920…0940 34 30 20 2f 2f 0d 30 37 35 30 20 4c 4f 4f 50 20 0d 30 37 36 30 20 20 20 43 41 53 45 20 53 54 52 ┆40 // 0750 LOOP 0760 CASE STR┆
0x0940…0960 45 41 4d 23 28 31 29 20 4f 46 20 0d 30 37 37 30 20 20 20 57 48 45 4e 20 30 20 2f 2f 20 4f 4e 45 ┆EAM#(1) OF 0770 WHEN 0 // ONE┆
0x0960…0980 20 41 42 53 4f 4c 55 54 45 20 42 59 54 45 0d 30 37 38 30 20 20 20 20 20 45 58 45 43 20 50 55 54 ┆ ABSOLUTE BYTE 0780 EXEC PUT┆
0x0980…09a0 28 53 54 52 45 41 4d 23 28 38 29 2c 46 41 4c 53 45 29 0d 30 37 39 30 20 20 20 57 48 45 4e 20 31 ┆(STREAM#(8),FALSE) 0790 WHEN 1┆
0x09a0…09c0 20 2f 2f 20 4d 55 53 54 20 42 45 20 46 55 52 54 48 45 52 20 44 49 53 54 49 4e 47 55 49 53 48 45 ┆ // MUST BE FURTHER DISTINGUISHE┆
0x09c0…09e0 44 0d 30 38 30 30 20 20 20 20 20 43 41 53 45 20 53 54 52 45 41 4d 23 28 32 29 20 4f 46 20 0d 30 ┆D 0800 CASE STREAM#(2) OF 0┆
0x09e0…0a00 38 31 30 20 20 20 20 20 57 48 45 4e 20 30 20 2f 2f 20 53 50 45 43 49 41 4c 20 4c 49 4e 4b 20 49 ┆810 WHEN 0 // SPECIAL LINK I┆
0x0a00…0a20 54 45 4d 2e 20 46 55 52 48 54 45 52 20 43 48 45 43 4b 0d 30 38 32 30 20 20 20 20 20 20 20 43 41 ┆TEM. FURHTER CHECK 0820 CA┆
0x0a20…0a40 53 45 20 53 54 52 45 41 4d 23 28 34 29 20 4f 46 20 0d 30 38 33 30 20 20 20 20 20 20 20 57 48 45 ┆SE STREAM#(4) OF 0830 WHE┆
0x0a40…0a60 4e 20 32 20 2f 2f 20 50 52 4f 47 52 41 4d 20 4e 41 4d 45 0d 30 38 34 30 20 20 20 20 20 20 20 20 ┆N 2 // PROGRAM NAME 0840 ┆
0x0a60…0a80 20 50 52 4f 47 52 41 4d 5f 4e 41 4d 45 24 3a 3d 22 22 0d 30 38 35 30 20 20 20 20 20 20 20 20 20 ┆ PROGRAM_NAME$:="" 0850 ┆
0x0a80…0aa0 46 4f 52 20 49 23 3a 3d 31 20 54 4f 20 53 54 52 45 41 4d 23 28 33 29 20 44 4f 20 2f 2f 20 46 45 ┆FOR I#:=1 TO STREAM#(3) DO // FE┆
0x0aa0…0ac0 54 43 48 20 4e 41 4d 45 0d 30 38 36 30 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 47 52 41 4d 5f ┆TCH NAME 0860 PROGRAM_┆
0x0ac0…0ae0 4e 41 4d 45 24 3a 2b 43 48 52 24 28 53 54 52 45 41 4d 23 28 38 29 29 0d 30 38 37 30 20 20 20 20 ┆NAME$:+CHR$(STREAM#(8)) 0870 ┆
0x0ae0…0b00 20 20 20 20 20 4e 45 58 54 20 49 23 0d 30 38 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆ NEXT I# 0880 PRINT ┆
0x0b00…0b20 22 50 52 4f 47 52 41 4d 20 4e 41 4d 45 20 2d 20 22 2c 50 52 4f 47 52 41 4d 5f 4e 41 4d 45 24 0d ┆"PROGRAM NAME - ",PROGRAM_NAME$ ┆
0x0b20…0b40 30 38 39 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 0d 30 39 30 30 20 20 20 20 20 20 20 57 ┆0890 PRINT 0900 W┆
0x0b40…0b60 48 45 4e 20 31 30 20 2f 2f 20 44 45 46 49 4e 45 20 53 49 5a 45 20 4f 46 20 44 41 54 41 20 41 52 ┆HEN 10 // DEFINE SIZE OF DATA AR┆
0x0b60…0b80 45 41 0d 30 39 31 30 20 20 20 20 20 20 20 20 20 49 46 20 53 54 52 45 41 4d 23 28 32 29 2b 53 54 ┆EA 0910 IF STREAM#(2)+ST┆
0x0b80…0ba0 52 45 41 4d 23 28 38 29 2b 53 54 52 45 41 4d 23 28 38 29 3c 3e 30 20 54 48 45 4e 20 0d 30 39 32 ┆REAM#(8)+STREAM#(8)<>0 THEN 092┆
0x0ba0…0bc0 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4d 45 53 53 41 47 45 28 31 29 0d 30 39 33 30 ┆0 EXEC MESSAGE(1) 0930┆
0x0bc0…0be0 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 20 45 52 52 4f 52 0d 30 39 34 30 20 20 20 20 20 20 ┆ GOTO ERROR 0940 ┆
0x0be0…0c00 20 20 20 45 4e 44 49 46 20 0d 30 39 35 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 33 20 2f 2f 20 ┆ ENDIF 0950 WHEN 13 // ┆
0x0c00…0c20 44 45 46 49 4e 45 20 53 49 5a 45 20 4f 46 20 50 52 4f 47 52 41 4d 0d 30 39 36 30 20 20 20 20 20 ┆DEFINE SIZE OF PROGRAM 0960 ┆
0x0c20…0c40 20 20 20 20 49 46 20 53 54 52 45 41 4d 23 28 32 29 3c 3e 31 20 4f 52 20 50 52 4f 47 5f 53 49 5a ┆ IF STREAM#(2)<>1 OR PROG_SIZ┆
0x0c40…0c60 45 23 3c 3e 2d 31 20 54 48 45 4e 20 0d 30 39 37 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 ┆E#<>-1 THEN 0970 EXEC┆
0x0c60…0c80 20 4d 45 53 53 41 47 45 28 32 29 0d 30 39 38 30 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 20 ┆ MESSAGE(2) 0980 GOTO ┆
0x0c80…0ca0 45 52 52 4f 52 0d 30 39 39 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 31 30 30 30 20 20 ┆ERROR 0990 ENDIF 1000 ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 50 31 23 3a 3d 53 54 52 45 41 4d 23 28 38 29 3b 20 50 32 23 3a 3d 53 54 52 ┆ P1#:=STREAM#(8); P2#:=STR┆
0x0cc0…0ce0 45 41 4d 23 28 38 29 0d 31 30 31 30 20 20 20 20 20 20 20 20 20 50 52 4f 47 5f 53 49 5a 45 23 3a ┆EAM#(8) 1010 PROG_SIZE#:┆
0x0ce0…0d00 3d 50 31 23 2b 50 32 23 2a 32 35 36 0d 31 30 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆=P1#+P2#*256 1020 PRINT ┆
0x0d00…0d20 46 49 4c 45 20 31 3a 20 43 48 52 24 28 50 31 23 29 3b 43 48 52 24 28 50 32 23 29 3b 0d 31 30 33 ┆FILE 1: CHR$(P1#);CHR$(P2#); 103┆
0x0d20…0d40 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 31 20 2f 2f 20 53 45 54 20 4c 4f 43 41 54 49 4f 4e 20 ┆0 WHEN 11 // SET LOCATION ┆
0x0d40…0d60 43 4f 55 4e 54 45 52 0d 31 30 34 30 20 20 20 20 20 20 20 20 20 49 46 20 53 54 52 45 41 4d 23 28 ┆COUNTER 1040 IF STREAM#(┆
0x0d60…0d80 32 29 3c 3e 31 20 54 48 45 4e 20 0d 31 30 35 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 ┆2)<>1 THEN 1050 EXEC ┆
0x0d80…0da0 4d 45 53 53 41 47 45 28 32 29 0d 31 30 36 30 20 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 20 45 ┆MESSAGE(2) 1060 GOTO E┆
0x0da0…0dc0 52 52 4f 52 0d 31 30 37 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 31 30 38 30 20 20 20 ┆RROR 1070 ENDIF 1080 ┆
0x0dc0…0de0 20 20 20 20 20 20 46 4f 52 20 49 3a 3d 4c 4f 43 41 54 49 4f 4e 23 20 54 4f 20 53 54 52 45 41 4d ┆ FOR I:=LOCATION# TO STREAM┆
0x0de0…0e00 23 28 38 29 2b 53 54 52 45 41 4d 23 28 38 29 2a 32 35 36 2d 31 20 44 4f 20 0d 31 30 39 30 20 20 ┆#(8)+STREAM#(8)*256-1 DO 1090 ┆
0x0e00…0e20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 50 55 54 28 30 2c 46 41 4c 53 45 29 0d 31 31 30 30 20 ┆ EXEC PUT(0,FALSE) 1100 ┆
0x0e20…0e40 20 20 20 20 20 20 20 20 4e 45 58 54 20 49 0d 31 31 31 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 ┆ NEXT I 1110 WHEN 1┆
0x0e40…0e60 34 20 2f 2f 20 45 4e 44 20 50 52 4f 47 52 41 4d 0d 31 31 32 30 20 20 20 20 20 20 20 20 20 45 58 ┆4 // END PROGRAM 1120 EX┆
0x0e60…0e80 49 54 20 0d 31 31 33 30 20 20 20 20 20 20 20 4f 54 48 45 52 57 49 53 45 20 0d 31 31 34 30 20 20 ┆IT 1130 OTHERWISE 1140 ┆
0x0e80…0ea0 20 20 20 20 20 20 20 45 58 45 43 20 4d 45 53 53 41 47 45 28 32 29 0d 31 31 35 30 20 20 20 20 20 ┆ EXEC MESSAGE(2) 1150 ┆
0x0ea0…0ec0 20 20 20 20 47 4f 54 4f 20 45 52 52 4f 52 0d 31 31 36 30 20 20 20 20 20 20 20 45 4e 44 43 41 53 ┆ GOTO ERROR 1160 ENDCAS┆
0x0ec0…0ee0 45 20 0d 31 31 37 30 20 20 20 20 20 57 48 45 4e 20 31 20 2f 2f 20 50 52 4f 47 52 41 4d 20 52 45 ┆E 1170 WHEN 1 // PROGRAM RE┆
0x0ee0…0f00 4c 41 54 49 56 45 20 44 41 54 41 0d 31 31 38 30 20 20 20 20 20 20 20 45 58 45 43 20 50 55 54 28 ┆LATIVE DATA 1180 EXEC PUT(┆
0x0f00…0f20 53 54 52 45 41 4d 23 28 38 29 2c 46 41 4c 53 45 29 0d 31 31 39 30 20 20 20 20 20 20 20 45 58 45 ┆STREAM#(8),FALSE) 1190 EXE┆
0x0f20…0f40 43 20 50 55 54 28 53 54 52 45 41 4d 23 28 38 29 2c 54 52 55 45 29 0d 31 32 30 30 20 20 20 20 20 ┆C PUT(STREAM#(8),TRUE) 1200 ┆
0x0f40…0f60 4f 54 48 45 52 57 49 53 45 20 0d 31 32 31 30 20 20 20 20 20 20 20 45 58 45 43 20 4d 45 53 53 41 ┆OTHERWISE 1210 EXEC MESSA┆
0x0f60…0f80 47 45 28 32 29 0d 31 32 32 30 20 20 20 20 20 20 20 47 4f 54 4f 20 45 52 52 4f 52 0d 31 32 33 30 ┆GE(2) 1220 GOTO ERROR 1230┆
0x0f80…0fa0 20 20 20 20 20 45 4e 44 43 41 53 45 20 0d 31 32 34 30 20 20 20 45 4e 44 43 41 53 45 20 0d 31 32 ┆ ENDCASE 1240 ENDCASE 12┆
0x0fa0…0fc0 35 30 20 45 4e 44 4c 4f 4f 50 20 0d 31 32 36 30 20 49 46 20 4c 4f 43 41 54 49 4f 4e 23 3c 3e 50 ┆50 ENDLOOP 1260 IF LOCATION#<>P┆
0x0fc0…0fe0 52 4f 47 5f 53 49 5a 45 23 20 54 48 45 4e 20 0d 31 32 37 30 20 20 20 45 58 45 43 20 4d 45 53 53 ┆ROG_SIZE# THEN 1270 EXEC MESS┆
0x0fe0…1000 41 47 45 28 32 29 0d 31 32 38 30 20 20 20 47 4f 54 4f 20 45 52 52 4f 52 0d 31 32 39 30 20 45 4e ┆AGE(2) 1280 GOTO ERROR 1290 EN┆
0x1000…1020 44 49 46 20 0d 31 33 30 30 20 57 48 49 4c 45 20 4c 4f 43 5f 4d 4f 44 5f 38 23 3c 3e 30 20 44 4f ┆DIF 1300 WHILE LOC_MOD_8#<>0 DO┆
0x1020…1040 20 2f 2f 20 45 4d 50 54 59 20 42 55 46 46 45 52 0d 31 33 31 30 20 20 20 45 58 45 43 20 50 55 54 ┆ // EMPTY BUFFER 1310 EXEC PUT┆
0x1040…1060 28 30 2c 46 41 4c 53 45 29 0d 31 33 32 30 20 45 4e 44 57 48 49 4c 45 20 0d 31 33 33 30 20 43 4c ┆(0,FALSE) 1320 ENDWHILE 1330 CL┆
0x1060…1080 4f 53 45 20 0d 31 33 34 30 20 50 52 49 4e 54 20 0d 31 33 35 30 20 50 52 49 4e 54 20 0d 31 33 36 ┆OSE 1340 PRINT 1350 PRINT 136┆
0x1080…10a0 30 20 50 52 49 4e 54 20 22 43 6f 6e 76 65 72 73 69 6f 6e 20 63 6f 6d 70 6c 65 74 65 2e 20 4e 6f ┆0 PRINT "Conversion complete. No┆
0x10a0…10c0 20 65 72 72 6f 72 73 20 64 65 74 65 63 74 65 64 2e 22 0d 31 33 37 30 20 50 52 49 4e 54 20 22 50 ┆ errors detected." 1370 PRINT "P┆
0x10c0…10e0 72 6f 67 72 61 6d 20 73 69 7a 65 20 22 3b 50 52 4f 47 5f 53 49 5a 45 23 3b 22 62 79 74 65 73 2e ┆rogram size ";PROG_SIZE#;"bytes.┆
0x10e0…1100 22 0d 31 33 38 30 20 50 52 49 4e 54 20 0d 31 33 39 30 20 45 4e 44 20 0d 31 34 30 30 20 2f 2f 0d ┆" 1380 PRINT 1390 END 1400 // ┆
0x1100…1120 31 34 31 30 20 4c 41 42 45 4c 20 45 52 52 4f 52 0d 31 34 32 30 20 43 4c 4f 53 45 20 0d 31 34 33 ┆1410 LABEL ERROR 1420 CLOSE 143┆
0x1120…1140 30 20 44 45 4c 45 54 45 20 46 49 4c 45 4e 41 4d 45 24 0d 31 34 34 30 20 50 52 49 4e 54 20 0d 31 ┆0 DELETE FILENAME$ 1440 PRINT 1┆
0x1140…1160 34 35 30 20 50 52 49 4e 54 20 0d 31 34 36 30 20 50 52 49 4e 54 20 22 43 6f 6e 76 65 72 73 69 6f ┆450 PRINT 1460 PRINT "Conversio┆
0x1160…1180 6e 20 69 6e 63 6f 6d 70 6c 65 74 65 2e 20 45 72 72 6f 72 28 73 29 20 69 6e 20 74 68 65 20 66 69 ┆n incomplete. Error(s) in the fi┆
0x1180…11a0 6c 65 2e 22 0d 31 34 37 30 20 50 52 49 4e 54 20 0d 31 34 38 30 20 45 4e 44 20 0d 20 0d 31 34 33 ┆le." 1470 PRINT 1480 END 143┆
0x11a0…11c0 30 20 44 45 4c 45 54 45 20 46 49 4c 45 4e 41 4d 45 24 0d 31 34 34 30 20 50 52 49 4e 54 20 0d 31 ┆0 DELETE FILENAME$ 1440 PRINT 1┆
0x11c0…11e0 34 35 30 20 50 52 49 4e 54 20 0d 31 34 36 30 20 50 52 49 4e 54 20 22 43 6f 6e 76 65 72 73 69 6f ┆450 PRINT 1460 PRINT "Conversio┆
0x11e0…1200 6e 20 69 6e 63 6f 6d 70 6c 65 74 65 2e 20 45 72 72 6f 72 28 73 29 20 69 6e 20 74 68 65 20 66 1b ┆n incomplete. Error(s) in the f ┆