|
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 - metrics - download
Length: 7936 (0x1f00)
Names: »XPL0.CML«
└─⟦31a512eaf⟧ Bits:30009429 50004846
└─⟦a415da17f⟧
└─⟦this⟧ »XPL0.CML«
0x0000…0020 30 30 31 30 20 2f 2f 20 50 4c 2f 30 20 43 4f 4d 50 49 4c 45 52 20 20 20 46 52 4f 4d 20 4e 2e 57 ┆0010 // PL/0 COMPILER FROM N.W┆
0x0020…0040 49 52 54 48 3a 20 41 4c 47 4f 52 49 54 48 4d 53 20 2b 20 44 41 54 41 20 53 54 52 55 43 54 55 52 ┆IRTH: ALGORITHMS + DATA STRUCTUR┆
0x0040…0060 45 53 20 3d 20 50 52 4f 47 52 41 4d 53 0d 30 30 32 30 20 2f 2f 20 52 45 57 52 49 54 54 45 4e 20 ┆ES = PROGRAMS 0020 // REWRITTEN ┆
0x0060…0080 54 4f 20 43 4f 4d 41 4c 2d 38 30 2c 20 45 58 54 45 4e 44 45 44 20 57 49 54 48 20 49 2f 4f 20 41 ┆TO COMAL-80, EXTENDED WITH I/O A┆
0x0080…00a0 4e 44 20 53 50 4c 49 54 20 49 4e 54 4f 20 4d 4f 44 55 4c 45 53 0d 30 30 33 30 20 2f 2f 20 42 59 ┆ND SPLIT INTO MODULES 0030 // BY┆
0x00a0…00c0 20 41 52 4e 45 20 43 48 52 49 53 54 45 4e 53 45 4e 20 20 20 38 31 30 37 30 32 20 2d 20 38 31 30 ┆ ARNE CHRISTENSEN 810702 - 810┆
0x00c0…00e0 37 31 35 0d 30 30 34 30 20 2f 2f 0d 30 30 35 30 20 2f 2f 20 44 45 4d 4f 4e 53 54 52 41 54 49 4f ┆715 0040 // 0050 // DEMONSTRATIO┆
0x00e0…0100 4e 20 50 52 4f 47 52 41 4d 20 46 4f 52 20 54 48 45 20 43 4f 4d 41 4c 2d 38 30 20 49 4d 50 4c 45 ┆N PROGRAM FOR THE COMAL-80 IMPLE┆
0x0100…0120 4d 45 4e 54 41 54 49 4f 4e 20 44 49 53 54 52 49 42 55 54 45 44 20 42 59 0d 30 30 36 30 20 2f 2f ┆MENTATION DISTRIBUTED BY 0060 //┆
0x0120…0140 20 4d 45 54 41 4e 49 43 20 41 70 53 2c 20 4b 4f 4e 47 45 56 45 4a 45 4e 20 31 37 37 2c 20 44 4b ┆ METANIC ApS, KONGEVEJEN 177, DK┆
0x0140…0160 2d 32 38 33 30 20 56 49 52 55 4d 2c 20 44 45 4e 4d 41 52 4b 0d 30 30 37 30 20 2f 2f 0d 30 30 38 ┆-2830 VIRUM, DENMARK 0070 // 008┆
0x0160…0180 30 20 2f 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 20 20 ┆0 // ***** ┆
0x0180…01a0 4d 41 49 4e 20 4d 4f 44 55 4c 45 20 20 2a 2a 2a 2a 2a 0d 30 30 39 30 20 2f 2f 0d 30 31 30 30 20 ┆MAIN MODULE ***** 0090 // 0100 ┆
0x01a0…01c0 2f 2f 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆//******************************┆
0x01c0…01e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x01e0…0200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 30 31 31 30 20 2f 2f 0d 30 31 32 30 20 2f 2f 20 54 59 50 45 20 ┆********** 0110 // 0120 // TYPE ┆
0x0200…0220 46 43 54 20 3d 0d 30 31 33 30 20 4c 49 54 23 3a 3d 30 20 2f 2f 20 20 4c 49 54 20 30 2c 41 20 3a ┆FCT = 0130 LIT#:=0 // LIT 0,A :┆
0x0220…0240 20 4c 4f 41 44 20 43 4f 4e 53 54 41 4e 54 20 41 0d 30 31 34 30 20 4f 50 52 23 3a 3d 31 20 2f 2f ┆ LOAD CONSTANT A 0140 OPR#:=1 //┆
0x0240…0260 20 20 4f 50 52 20 30 2c 41 20 3a 20 45 58 45 43 55 54 45 20 4f 50 45 52 41 54 49 4f 4e 20 41 0d ┆ OPR 0,A : EXECUTE OPERATION A ┆
0x0260…0280 30 31 35 30 20 4c 4f 44 23 3a 3d 32 20 2f 2f 20 20 4c 4f 44 20 4c 2c 41 20 3a 20 4c 4f 41 44 20 ┆0150 LOD#:=2 // LOD L,A : LOAD ┆
0x0280…02a0 56 41 52 49 41 42 4c 45 20 4c 45 56 45 4c 20 4c 2c 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 20 41 ┆VARIABLE LEVEL L, DISPLACEMENT A┆
0x02a0…02c0 0d 30 31 36 30 20 53 54 4f 23 3a 3d 33 20 2f 2f 20 20 53 54 4f 20 4c 2c 41 20 3a 20 53 54 4f 52 ┆ 0160 STO#:=3 // STO L,A : STOR┆
0x02c0…02e0 45 20 56 41 52 49 41 42 4c 45 20 4c 45 56 45 4c 20 4c 2c 20 44 49 53 50 4c 41 43 45 4d 45 4e 54 ┆E VARIABLE LEVEL L, DISPLACEMENT┆
0x02e0…0300 20 41 0d 30 31 37 30 20 43 41 4c 23 3a 3d 34 20 2f 2f 20 20 43 41 4c 20 4c 2c 41 20 3a 20 43 41 ┆ A 0170 CAL#:=4 // CAL L,A : CA┆
0x0300…0320 4c 4c 20 50 52 4f 43 45 44 55 52 45 20 57 49 54 48 20 41 44 44 52 45 53 53 20 41 20 41 54 20 4c ┆LL PROCEDURE WITH ADDRESS A AT L┆
0x0320…0340 45 56 45 4c 20 4c 0d 30 31 38 30 20 49 4e 54 5f 23 3a 3d 35 20 2f 2f 20 49 4e 54 20 30 2c 41 20 ┆EVEL L 0180 INT_#:=5 // INT 0,A ┆
0x0340…0360 3a 20 49 4e 43 52 45 4d 45 4e 54 20 54 2d 52 45 47 49 53 54 45 52 20 42 59 20 41 0d 30 31 39 30 ┆: INCREMENT T-REGISTER BY A 0190┆
0x0360…0380 20 4a 4d 50 23 3a 3d 36 20 2f 2f 20 20 4a 4d 50 20 30 2c 41 20 3a 20 4a 55 4d 50 20 54 4f 20 41 ┆ JMP#:=6 // JMP 0,A : JUMP TO A┆
0x0380…03a0 44 44 52 45 53 53 20 41 0d 30 32 30 30 20 4a 50 43 23 3a 3d 37 20 2f 2f 20 20 4a 50 43 20 30 2c ┆DDRESS A 0200 JPC#:=7 // JPC 0,┆
0x03a0…03c0 41 20 3a 20 4a 55 4d 50 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 54 4f 20 41 44 44 52 45 53 53 20 ┆A : JUMP CONDITIONAL TO ADDRESS ┆
0x03c0…03e0 41 0d 30 32 31 30 20 2f 2f 0d 30 32 32 30 20 44 49 4d 20 4d 4e 45 4d 4f 4e 49 43 24 28 4c 49 54 ┆A 0210 // 0220 DIM MNEMONIC$(LIT┆
0x03e0…0400 23 3a 4a 50 43 23 29 20 4f 46 20 33 0d 30 32 33 30 20 44 49 4d 20 4f 50 45 52 41 54 49 4f 4e 24 ┆#:JPC#) OF 3 0230 DIM OPERATION$┆
0x0400…0420 28 30 3a 31 36 29 20 4f 46 20 37 0d 30 32 34 30 20 44 49 4d 20 41 4e 53 57 45 52 24 20 4f 46 20 ┆(0:16) OF 7 0240 DIM ANSWER$ OF ┆
0x0420…0440 31 0d 30 32 35 30 20 44 49 4d 20 46 49 4c 45 4e 41 4d 45 24 20 4f 46 20 31 35 0d 30 32 36 30 20 ┆1 0250 DIM FILENAME$ OF 15 0260 ┆
0x0440…0460 44 49 4d 20 4c 49 53 54 46 49 4c 45 24 20 4f 46 20 31 35 0d 30 32 37 30 20 44 49 4d 20 44 45 46 ┆DIM LISTFILE$ OF 15 0270 DIM DEF┆
0x0460…0480 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 24 20 4f 46 20 31 35 0d 30 32 38 30 20 44 49 4d 20 4c 49 ┆AULT_FILENAME$ OF 15 0280 DIM LI┆
0x0480…04a0 4e 45 24 20 4f 46 20 38 30 0d 30 32 39 30 20 4f 4b 23 3a 3d 30 0d 30 33 30 30 20 2f 2f 0d 30 33 ┆NE$ OF 80 0290 OK#:=0 0300 // 03┆
0x04a0…04c0 31 30 20 50 52 4f 43 20 52 45 4d 4f 56 45 5f 46 49 4c 45 28 4e 41 4d 45 24 29 20 43 4c 4f 53 45 ┆10 PROC REMOVE_FILE(NAME$) CLOSE┆
0x04c0…04e0 44 0d 30 33 32 30 20 20 54 52 41 50 20 45 52 52 2d 0d 30 33 33 30 20 20 44 45 4c 45 54 45 20 4e ┆D 0320 TRAP ERR- 0330 DELETE N┆
0x04e0…0500 41 4d 45 24 0d 30 33 34 30 20 20 54 52 41 50 20 45 52 52 2b 0d 30 33 35 30 20 45 4e 44 50 52 4f ┆AME$ 0340 TRAP ERR+ 0350 ENDPRO┆
0x0500…0520 43 20 52 45 4d 4f 56 45 5f 46 49 4c 45 0d 30 33 36 30 20 2f 2f 0d 30 33 37 30 20 50 52 4f 43 20 ┆C REMOVE_FILE 0360 // 0370 PROC ┆
0x0520…0540 43 48 45 43 4b 5f 52 45 41 44 41 42 4c 45 28 4e 41 4d 45 24 2c 20 52 45 46 20 4f 4b 23 29 20 43 ┆CHECK_READABLE(NAME$, REF OK#) C┆
0x0540…0560 4c 4f 53 45 44 0d 30 33 38 30 20 20 54 52 41 50 20 45 52 52 2d 0d 30 33 39 30 20 20 4f 50 45 4e ┆LOSED 0380 TRAP ERR- 0390 OPEN┆
0x0560…0580 20 46 49 4c 45 20 37 2c 20 4e 41 4d 45 24 2c 20 52 45 41 44 20 0d 30 34 30 30 20 20 45 52 52 4f ┆ FILE 7, NAME$, READ 0400 ERRO┆
0x0580…05a0 52 4e 4f 23 3a 3d 45 52 52 3b 20 4f 4b 23 3a 3d 45 52 52 4f 52 4e 4f 23 3d 30 0d 30 34 31 30 20 ┆RNO#:=ERR; OK#:=ERRORNO#=0 0410 ┆
0x05a0…05c0 20 43 4c 4f 53 45 20 46 49 4c 45 20 37 0d 30 34 32 30 20 20 54 52 41 50 20 45 52 52 2b 0d 30 34 ┆ CLOSE FILE 7 0420 TRAP ERR+ 04┆
0x05c0…05e0 33 30 20 20 49 46 20 4e 4f 54 20 4f 4b 23 20 54 48 45 4e 20 0d 30 34 34 30 20 20 20 50 52 49 4e ┆30 IF NOT OK# THEN 0440 PRIN┆
0x05e0…0600 54 20 0d 30 34 35 30 20 20 20 50 52 49 4e 54 20 4e 41 4d 45 24 3b 22 20 20 63 61 6e 6e 6f 74 20 ┆T 0450 PRINT NAME$;" cannot ┆
0x0600…0620 62 65 20 75 73 65 64 22 3b 0d 30 34 36 30 20 20 20 49 46 20 45 52 52 54 45 58 54 24 28 45 52 52 ┆be used"; 0460 IF ERRTEXT$(ERR┆
0x0620…0640 4f 52 4e 4f 23 29 3c 3e 22 22 20 54 48 45 4e 20 0d 30 34 37 30 20 20 20 20 50 52 49 4e 54 20 22 ┆ORNO#)<>"" THEN 0470 PRINT "┆
0x0640…0660 20 2d 20 22 3b 45 52 52 54 45 58 54 24 28 45 52 52 4f 52 4e 4f 23 29 0d 30 34 38 30 20 20 20 45 ┆ - ";ERRTEXT$(ERRORNO#) 0480 E┆
0x0660…0680 4c 53 45 20 0d 30 34 39 30 20 20 20 20 50 52 49 4e 54 20 22 3b 20 74 68 65 20 65 72 72 6f 72 20 ┆LSE 0490 PRINT "; the error ┆
0x0680…06a0 68 61 73 20 6e 6f 2e 20 22 3b 45 52 52 4f 52 4e 4f 23 0d 30 35 30 30 20 20 20 45 4e 44 49 46 20 ┆has no. ";ERRORNO# 0500 ENDIF ┆
0x06a0…06c0 0d 30 35 31 30 20 20 45 4e 44 49 46 20 0d 30 35 32 30 20 45 4e 44 50 52 4f 43 20 43 48 45 43 4b ┆ 0510 ENDIF 0520 ENDPROC CHECK┆
0x06c0…06e0 5f 52 45 41 44 41 42 4c 45 0d 30 35 33 30 20 2f 2f 0d 30 35 34 30 20 50 52 4f 43 20 47 45 54 5f ┆_READABLE 0530 // 0540 PROC GET_┆
0x06e0…0700 43 48 41 52 28 52 45 46 20 43 48 41 52 24 2c 20 50 4f 53 53 49 42 4c 45 5f 43 48 41 52 53 24 29 ┆CHAR(REF CHAR$, POSSIBLE_CHARS$)┆
0x0700…0720 20 43 4c 4f 53 45 44 0d 30 35 35 30 20 20 52 45 50 45 41 54 20 0d 30 35 36 30 20 20 20 50 4f 4b ┆ CLOSED 0550 REPEAT 0560 POK┆
0x0720…0740 45 20 32 35 36 2c 20 30 0d 30 35 37 30 20 20 20 52 45 50 45 41 54 20 0d 30 35 38 30 20 20 20 55 ┆E 256, 0 0570 REPEAT 0580 U┆
0x0740…0760 4e 54 49 4c 20 50 45 45 4b 28 32 35 36 29 3c 3e 30 0d 30 35 39 30 20 20 20 43 48 41 52 24 3a 3d ┆NTIL PEEK(256)<>0 0590 CHAR$:=┆
0x0760…0780 43 48 52 24 28 50 45 45 4b 28 32 35 36 29 29 0d 30 36 30 30 20 20 55 4e 54 49 4c 20 43 48 41 52 ┆CHR$(PEEK(256)) 0600 UNTIL CHAR┆
0x0780…07a0 24 20 49 4e 20 50 4f 53 53 49 42 4c 45 5f 43 48 41 52 53 24 0d 30 36 31 30 20 45 4e 44 50 52 4f ┆$ IN POSSIBLE_CHARS$ 0610 ENDPRO┆
0x07a0…07c0 43 20 47 45 54 5f 43 48 41 52 0d 30 36 32 30 20 2f 2f 0d 30 36 33 30 20 50 52 4f 43 20 47 45 54 ┆C GET_CHAR 0620 // 0630 PROC GET┆
0x07c0…07e0 5f 41 4e 53 57 45 52 28 52 45 46 20 41 4e 53 57 45 52 24 2c 20 50 4f 53 53 49 42 4c 45 5f 41 4e ┆_ANSWER(REF ANSWER$, POSSIBLE_AN┆
0x07e0…0800 53 57 45 52 53 24 29 20 43 4c 4f 53 45 44 0d 30 36 34 30 20 20 45 58 45 43 20 47 45 54 5f 43 48 ┆SWERS$) CLOSED 0640 EXEC GET_CH┆
0x0800…0820 41 52 28 41 4e 53 57 45 52 24 2c 50 4f 53 53 49 42 4c 45 5f 41 4e 53 57 45 52 53 24 29 0d 30 36 ┆AR(ANSWER$,POSSIBLE_ANSWERS$) 06┆
0x0820…0840 35 30 20 20 50 52 49 4e 54 20 41 4e 53 57 45 52 24 0d 30 36 36 30 20 45 4e 44 50 52 4f 43 20 47 ┆50 PRINT ANSWER$ 0660 ENDPROC G┆
0x0840…0860 45 54 5f 41 4e 53 57 45 52 0d 30 36 37 30 20 2f 2f 0d 30 36 38 30 20 50 52 4f 43 20 47 45 54 5f ┆ET_ANSWER 0670 // 0680 PROC GET_┆
0x0860…0880 50 52 4f 47 52 41 4d 5f 4e 41 4d 45 28 52 45 46 20 46 49 4c 45 4e 41 4d 45 24 29 20 43 4c 4f 53 ┆PROGRAM_NAME(REF FILENAME$) CLOS┆
0x0880…08a0 45 44 0d 30 36 39 30 20 20 47 4c 4f 42 41 4c 20 44 45 46 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 ┆ED 0690 GLOBAL DEFAULT_FILENAME┆
0x08a0…08c0 24 0d 30 37 30 30 20 20 50 52 49 4e 54 20 0d 30 37 31 30 20 20 50 52 49 4e 54 20 22 54 79 70 65 ┆$ 0700 PRINT 0710 PRINT "Type┆
0x08c0…08e0 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 6f 67 72 61 6d 20 28 69 66 20 6e 6f 74 ┆ the name of the program (if not┆
0x08e0…0900 68 69 6e 67 20 69 73 20 74 79 70 65 64 2c 20 70 72 6f 67 72 61 6d 22 0d 30 37 32 30 20 20 50 52 ┆hing is typed, program" 0720 PR┆
0x0900…0920 49 4e 54 20 44 45 46 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 24 3b 22 20 69 73 20 75 73 65 64 29 ┆INT DEFAULT_FILENAME$;" is used)┆
0x0920…0940 20 3a 20 22 3b 0d 30 37 33 30 20 20 49 4e 50 55 54 20 22 22 3a 20 46 49 4c 45 4e 41 4d 45 24 0d ┆ : "; 0730 INPUT "": FILENAME$ ┆
0x0940…0960 30 37 34 30 20 20 49 46 20 46 49 4c 45 4e 41 4d 45 24 3d 53 50 43 24 28 4c 45 4e 28 46 49 4c 45 ┆0740 IF FILENAME$=SPC$(LEN(FILE┆
0x0960…0980 4e 41 4d 45 24 29 29 20 54 48 45 4e 20 46 49 4c 45 4e 41 4d 45 24 3a 3d 44 45 46 41 55 4c 54 5f ┆NAME$)) THEN FILENAME$:=DEFAULT_┆
0x0980…09a0 46 49 4c 45 4e 41 4d 45 24 0d 30 37 35 30 20 45 4e 44 50 52 4f 43 20 47 45 54 5f 50 52 4f 47 52 ┆FILENAME$ 0750 ENDPROC GET_PROGR┆
0x09a0…09c0 41 4d 5f 4e 41 4d 45 0d 30 37 36 30 20 2f 2f 0d 30 37 37 30 20 50 52 4f 43 20 53 45 4c 45 43 54 ┆AM_NAME 0760 // 0770 PROC SELECT┆
0x09c0…09e0 5f 4f 55 54 50 55 54 28 49 54 45 4d 24 2c 20 52 45 46 20 41 4e 53 57 45 52 24 29 20 43 4c 4f 53 ┆_OUTPUT(ITEM$, REF ANSWER$) CLOS┆
0x09e0…0a00 45 44 0d 30 37 38 30 20 20 50 52 49 4e 54 20 0d 30 37 39 30 20 20 50 52 49 4e 54 20 22 57 68 65 ┆ED 0780 PRINT 0790 PRINT "Whe┆
0x0a00…0a20 72 65 20 64 6f 20 79 6f 75 20 77 61 6e 74 20 74 68 65 20 22 3b 49 54 45 4d 24 3b 22 20 2d 20 6f ┆re do you want the ";ITEM$;" - o┆
0x0a20…0a40 6e 20 74 68 65 20 70 72 69 6e 74 65 72 20 20 20 28 64 65 70 72 65 73 73 20 50 29 22 0d 30 38 30 ┆n the printer (depress P)" 080┆
0x0a40…0a60 30 20 20 50 52 49 4e 54 20 53 50 43 24 28 32 32 2b 4c 45 4e 28 49 54 45 4d 24 29 29 3b 22 20 2d ┆0 PRINT SPC$(22+LEN(ITEM$));" -┆
0x0a60…0a80 20 6f 72 20 6f 6e 20 74 68 65 20 73 63 72 65 65 6e 20 28 64 65 70 72 65 73 73 20 53 29 20 22 3b ┆ or on the screen (depress S) ";┆
0x0a80…0aa0 0d 30 38 31 30 20 20 45 58 45 43 20 47 45 54 5f 41 4e 53 57 45 52 28 41 4e 53 57 45 52 24 2c 22 ┆ 0810 EXEC GET_ANSWER(ANSWER$,"┆
0x0aa0…0ac0 50 53 70 73 22 29 0d 30 38 32 30 20 45 4e 44 50 52 4f 43 20 53 45 4c 45 43 54 5f 4f 55 54 50 55 ┆PSps") 0820 ENDPROC SELECT_OUTPU┆
0x0ac0…0ae0 54 0d 30 38 33 30 20 2f 2f 0d 30 38 34 30 20 50 52 4f 43 20 53 45 54 5f 50 41 52 41 4d 45 54 45 ┆T 0830 // 0840 PROC SET_PARAMETE┆
0x0ae0…0b00 52 53 28 46 49 4c 45 4e 41 4d 45 24 2c 20 4c 49 53 54 46 49 4c 45 24 29 20 43 4c 4f 53 45 44 0d ┆RS(FILENAME$, LISTFILE$) CLOSED ┆
0x0b00…0b20 30 38 35 30 20 20 47 4c 4f 42 41 4c 20 44 45 46 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 24 0d 30 ┆0850 GLOBAL DEFAULT_FILENAME$ 0┆
0x0b20…0b40 38 36 30 20 20 45 58 45 43 20 52 45 4d 4f 56 45 5f 46 49 4c 45 28 22 58 50 4c 30 43 4f 4d 4d 2e ┆860 EXEC REMOVE_FILE("XPL0COMM.┆
0x0b40…0b60 44 41 54 22 29 0d 30 38 37 30 20 20 4f 50 45 4e 20 46 49 4c 45 20 30 2c 20 22 58 50 4c 30 43 4f ┆DAT") 0870 OPEN FILE 0, "XPL0CO┆
0x0b60…0b80 4d 4d 22 2c 20 57 52 49 54 45 20 0d 30 38 38 30 20 20 50 52 49 4e 54 20 46 49 4c 45 20 30 3a 20 ┆MM", WRITE 0880 PRINT FILE 0: ┆
0x0b80…0ba0 46 49 4c 45 4e 41 4d 45 24 0d 30 38 39 30 20 20 50 52 49 4e 54 20 46 49 4c 45 20 30 3a 20 4c 49 ┆FILENAME$ 0890 PRINT FILE 0: LI┆
0x0ba0…0bc0 53 54 46 49 4c 45 24 0d 30 39 30 30 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 30 0d 30 39 31 30 20 ┆STFILE$ 0900 CLOSE FILE 0 0910 ┆
0x0bc0…0be0 20 44 45 46 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 24 3a 3d 46 49 4c 45 4e 41 4d 45 24 0d 30 39 ┆ DEFAULT_FILENAME$:=FILENAME$ 09┆
0x0be0…0c00 32 30 20 45 4e 44 50 52 4f 43 20 53 45 54 5f 50 41 52 41 4d 45 54 45 52 53 0d 30 39 33 30 20 2f ┆20 ENDPROC SET_PARAMETERS 0930 /┆
0x0c00…0c20 2f 0d 30 39 34 30 20 50 52 4f 43 20 4c 49 53 54 43 4f 44 45 28 46 49 4c 45 4e 41 4d 45 24 29 20 ┆/ 0940 PROC LISTCODE(FILENAME$) ┆
0x0c20…0c40 43 4c 4f 53 45 44 0d 30 39 35 30 20 20 47 4c 4f 42 41 4c 20 4d 4e 45 4d 4f 4e 49 43 24 2c 20 4f ┆CLOSED 0950 GLOBAL MNEMONIC$, O┆
0x0c40…0c60 50 45 52 41 54 49 4f 4e 24 0d 30 39 36 30 20 20 47 4c 4f 42 41 4c 20 4c 4f 44 23 2c 20 53 54 4f ┆PERATION$ 0960 GLOBAL LOD#, STO┆
0x0c60…0c80 23 2c 20 43 41 4c 23 2c 20 4f 50 52 23 0d 30 39 37 30 20 20 50 52 49 4e 54 20 22 50 72 69 6e 74 ┆#, CAL#, OPR# 0970 PRINT "Print┆
0x0c80…0ca0 6f 75 74 20 6f 66 20 74 68 65 20 63 6f 6d 70 69 6c 65 64 20 63 6f 64 65 20 6f 66 20 22 3b 46 49 ┆out of the compiled code of ";FI┆
0x0ca0…0cc0 4c 45 4e 41 4d 45 24 3b 22 20 70 72 6f 64 75 63 65 64 20 62 79 20 74 68 65 20 58 2d 50 4c 2f 30 ┆LENAME$;" produced by the X-PL/0┆
0x0cc0…0ce0 2d 63 6f 6d 70 69 6c 65 72 2e 22 0d 30 39 38 30 20 20 50 52 49 4e 54 20 0d 30 39 39 30 20 20 4f ┆-compiler." 0980 PRINT 0990 O┆
0x0ce0…0d00 50 45 4e 20 46 49 4c 45 20 30 2c 20 46 49 4c 45 4e 41 4d 45 24 2b 22 2e 43 4f 44 22 2c 20 52 45 ┆PEN FILE 0, FILENAME$+".COD", RE┆
0x0d00…0d20 41 44 20 0d 31 30 30 30 20 20 49 23 3a 3d 30 0d 31 30 31 30 20 20 57 48 49 4c 45 20 4e 4f 54 20 ┆AD 1000 I#:=0 1010 WHILE NOT ┆
0x0d20…0d40 45 4f 46 28 30 29 20 44 4f 20 0d 31 30 32 30 20 20 20 52 45 41 44 20 46 49 4c 45 20 30 3a 20 46 ┆EOF(0) DO 1020 READ FILE 0: F┆
0x0d40…0d60 23 2c 20 4c 23 2c 20 41 23 0d 31 30 33 30 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 ┆#, L#, A# 1030 PRINT USING "##┆
0x0d60…0d80 23 23 20 20 23 23 23 20 20 22 3a 20 49 23 2c 4d 4e 45 4d 4f 4e 49 43 24 28 46 23 29 2c 0d 31 30 ┆## ### ": I#,MNEMONIC$(F#), 10┆
0x0d80…0da0 34 30 20 20 20 49 46 20 46 23 3d 4c 4f 44 23 20 4f 52 20 46 23 3d 53 54 4f 23 20 4f 52 20 46 23 ┆40 IF F#=LOD# OR F#=STO# OR F#┆
0x0da0…0dc0 3d 43 41 4c 23 20 54 48 45 4e 20 0d 31 30 35 30 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 ┆=CAL# THEN 1050 PRINT USING ┆
0x0dc0…0de0 22 23 23 23 20 20 2d 23 23 23 23 23 22 3a 20 4c 23 2c 41 23 0d 31 30 36 30 20 20 20 45 4c 49 46 ┆"### -#####": L#,A# 1060 ELIF┆
0x0de0…0e00 20 46 23 3d 4f 50 52 23 20 54 48 45 4e 20 0d 31 30 37 30 20 20 20 20 50 52 49 4e 54 20 55 53 49 ┆ F#=OPR# THEN 1070 PRINT USI┆
0x0e00…0e20 4e 47 20 22 20 20 20 20 23 23 23 23 23 23 23 22 3a 20 4f 50 45 52 41 54 49 4f 4e 24 28 41 23 29 ┆NG " #######": OPERATION$(A#)┆
0x0e20…0e40 0d 31 30 38 30 20 20 20 45 4c 53 45 20 0d 31 30 39 30 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e ┆ 1080 ELSE 1090 PRINT USIN┆
0x0e40…0e60 47 20 22 20 20 20 20 20 2d 23 23 23 23 23 22 3a 20 41 23 0d 31 31 30 30 20 20 20 45 4e 44 49 46 ┆G " -#####": A# 1100 ENDIF┆
0x0e60…0e80 20 0d 31 31 31 30 20 20 20 49 23 3a 2b 31 0d 31 31 32 30 20 20 45 4e 44 57 48 49 4c 45 20 0d 31 ┆ 1110 I#:+1 1120 ENDWHILE 1┆
0x0e80…0ea0 31 33 30 20 20 43 4c 4f 53 45 20 46 49 4c 45 20 30 0d 31 31 34 30 20 20 50 52 49 4e 54 20 0d 31 ┆130 CLOSE FILE 0 1140 PRINT 1┆
0x0ea0…0ec0 31 35 30 20 20 50 52 49 4e 54 20 0d 31 31 36 30 20 45 4e 44 50 52 4f 43 20 4c 49 53 54 43 4f 44 ┆150 PRINT 1160 ENDPROC LISTCOD┆
0x0ec0…0ee0 45 0d 31 31 37 30 20 2f 2f 0d 31 31 38 30 20 4d 4e 45 4d 4f 4e 49 43 24 28 4c 49 54 23 29 3a 3d ┆E 1170 // 1180 MNEMONIC$(LIT#):=┆
0x0ee0…0f00 22 4c 49 54 22 3b 20 4d 4e 45 4d 4f 4e 49 43 24 28 4f 50 52 23 29 3a 3d 22 4f 50 52 22 0d 31 31 ┆"LIT"; MNEMONIC$(OPR#):="OPR" 11┆
0x0f00…0f20 39 30 20 4d 4e 45 4d 4f 4e 49 43 24 28 4c 4f 44 23 29 3a 3d 22 4c 4f 44 22 3b 20 4d 4e 45 4d 4f ┆90 MNEMONIC$(LOD#):="LOD"; MNEMO┆
0x0f20…0f40 4e 49 43 24 28 53 54 4f 23 29 3a 3d 22 53 54 4f 22 0d 31 32 30 30 20 4d 4e 45 4d 4f 4e 49 43 24 ┆NIC$(STO#):="STO" 1200 MNEMONIC$┆
0x0f40…0f60 28 43 41 4c 23 29 3a 3d 22 43 41 4c 22 3b 20 4d 4e 45 4d 4f 4e 49 43 24 28 49 4e 54 5f 23 29 3a ┆(CAL#):="CAL"; MNEMONIC$(INT_#):┆
0x0f60…0f80 3d 22 49 4e 54 22 0d 31 32 31 30 20 4d 4e 45 4d 4f 4e 49 43 24 28 4a 4d 50 23 29 3a 3d 22 4a 4d ┆="INT" 1210 MNEMONIC$(JMP#):="JM┆
0x0f80…0fa0 50 22 3b 20 4d 4e 45 4d 4f 4e 49 43 24 28 4a 50 43 23 29 3a 3d 22 4a 50 43 22 0d 31 32 32 30 20 ┆P"; MNEMONIC$(JPC#):="JPC" 1220 ┆
0x0fa0…0fc0 2f 2f 0d 31 32 33 30 20 46 4f 52 20 49 23 3a 3d 30 20 54 4f 20 31 36 20 44 4f 20 0d 31 32 34 30 ┆// 1230 FOR I#:=0 TO 16 DO 1240┆
0x0fc0…0fe0 20 20 52 45 41 44 20 4f 50 45 52 41 54 49 4f 4e 24 28 49 23 29 0d 31 32 35 30 20 4e 45 58 54 20 ┆ READ OPERATION$(I#) 1250 NEXT ┆
0x0fe0…1000 49 23 0d 31 32 36 30 20 44 41 54 41 20 22 20 52 45 54 55 52 4e 22 2c 20 22 20 4e 45 47 41 54 45 ┆I# 1260 DATA " RETURN", " NEGATE┆
0x1000…1020 22 2c 20 22 20 20 20 20 41 44 44 22 2c 20 22 20 20 20 20 53 55 42 22 2c 20 22 20 20 20 4d 55 4c ┆", " ADD", " SUB", " MUL┆
0x1020…1040 54 22 2c 20 22 20 20 20 20 44 49 56 22 0d 31 32 37 30 20 44 41 54 41 20 22 20 20 20 20 4f 44 44 ┆T", " DIV" 1270 DATA " ODD┆
0x1040…1060 22 2c 20 22 20 20 20 20 20 20 20 22 2c 20 22 20 20 20 20 20 20 3d 22 2c 20 22 20 20 20 20 20 3c ┆", " ", " =", " <┆
0x1060…1080 3e 22 2c 20 22 20 20 20 20 20 20 3c 22 2c 20 22 20 20 20 20 20 3e 3d 22 0d 31 32 38 30 20 44 41 ┆>", " <", " >=" 1280 DA┆
0x1080…10a0 54 41 20 22 20 20 20 20 20 20 3e 22 2c 20 22 20 20 20 20 20 3c 3d 22 2c 20 22 20 20 20 52 45 41 ┆TA " >", " <=", " REA┆
0x10a0…10c0 44 22 2c 20 22 20 20 57 52 49 54 45 22 2c 20 22 57 52 49 54 45 4c 4e 22 0d 31 32 39 30 20 2f 2f ┆D", " WRITE", "WRITELN" 1290 //┆
0x10c0…10e0 0d 31 33 30 30 20 49 4e 49 54 20 22 22 2c 20 46 49 4c 45 4e 41 4d 45 24 0d 31 33 31 30 20 54 52 ┆ 1300 INIT "", FILENAME$ 1310 TR┆
0x10e0…1100 41 50 20 45 52 52 2d 0d 31 33 32 30 20 4f 50 45 4e 20 46 49 4c 45 20 30 2c 20 22 58 50 4c 30 43 ┆AP ERR- 1320 OPEN FILE 0, "XPL0C┆
0x1100…1120 4f 4d 4d 22 2c 20 52 45 41 44 20 0d 31 33 33 30 20 54 52 41 50 20 45 52 52 2b 0d 31 33 34 30 20 ┆OMM", READ 1330 TRAP ERR+ 1340 ┆
0x1120…1140 49 46 20 4e 4f 54 20 45 52 52 20 54 48 45 4e 20 0d 31 33 35 30 20 20 49 4e 50 55 54 20 46 49 4c ┆IF NOT ERR THEN 1350 INPUT FIL┆
0x1140…1160 45 20 30 3a 20 44 45 46 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 24 0d 31 33 36 30 20 45 4c 53 45 ┆E 0: DEFAULT_FILENAME$ 1360 ELSE┆
0x1160…1180 20 0d 31 33 37 30 20 20 44 45 46 41 55 4c 54 5f 46 49 4c 45 4e 41 4d 45 24 3a 3d 22 58 50 4c 30 ┆ 1370 DEFAULT_FILENAME$:="XPL0┆
0x1180…11a0 50 52 4f 47 22 0d 31 33 38 30 20 45 4e 44 49 46 20 0d 31 33 39 30 20 43 4c 4f 53 45 20 0d 31 34 ┆PROG" 1380 ENDIF 1390 CLOSE 14┆
0x11a0…11c0 30 30 20 2f 2f 0d 31 34 31 30 20 50 52 49 4e 54 20 0d 31 34 32 30 20 50 52 49 4e 54 20 0d 31 34 ┆00 // 1410 PRINT 1420 PRINT 14┆
0x11c0…11e0 33 30 20 4c 4f 4f 50 20 0d 31 34 34 30 20 20 50 52 49 4e 54 20 22 58 2d 50 4c 2f 30 2d 63 6f 6d ┆30 LOOP 1440 PRINT "X-PL/0-com┆
0x11e0…1200 70 69 6c 65 72 2e 20 53 65 6c 65 63 74 20 66 75 6e 63 74 69 6f 6e 3a 22 0d 31 34 35 30 20 20 50 ┆piler. Select function:" 1450 P┆
0x1200…1220 52 49 4e 54 20 22 20 20 2d 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 6f 66 20 61 20 70 72 6f 67 72 ┆RINT " - compilation of a progr┆
0x1220…1240 61 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 70 72 65 73 73 20 43 29 ┆am (depress C)┆
0x1240…1260 22 0d 31 34 36 30 20 20 50 52 49 4e 54 20 22 20 20 2d 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 ┆" 1460 PRINT " - execution of ┆
0x1260…1280 61 20 70 72 6f 67 72 61 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 ┆a program (d┆
0x1280…12a0 65 70 72 65 73 73 20 45 29 22 0d 31 34 37 30 20 20 50 52 49 4e 54 20 22 20 20 2d 20 70 72 69 6e ┆epress E)" 1470 PRINT " - prin┆
0x12a0…12c0 74 6f 75 74 20 6f 66 20 74 68 65 20 63 6f 64 65 20 6f 66 20 61 20 63 6f 6d 70 69 6c 65 64 20 70 ┆tout of the code of a compiled p┆
0x12c0…12e0 72 6f 67 72 61 6d 20 28 64 65 70 72 65 73 73 20 50 29 22 0d 31 34 38 30 20 20 50 52 49 4e 54 20 ┆rogram (depress P)" 1480 PRINT ┆
0x12e0…1300 22 20 20 2d 20 74 68 72 6f 77 20 74 6f 20 74 6f 70 20 6f 66 20 70 61 67 65 20 6f 6e 20 74 68 65 ┆" - throw to top of page on the┆
0x1300…1320 20 70 72 69 6e 74 65 72 20 20 20 20 20 20 20 20 28 64 65 70 72 65 73 73 20 54 29 22 0d 31 34 39 ┆ printer (depress T)" 149┆
0x1320…1340 30 20 20 50 52 49 4e 54 20 22 20 20 2d 20 64 69 72 65 63 74 69 6f 6e 73 20 6f 66 20 75 73 65 20 ┆0 PRINT " - directions of use ┆
0x1340…1360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 70 72 65 73 ┆ (depres┆
0x1360…1380 73 20 44 29 22 0d 31 35 30 30 20 20 50 52 49 4e 54 20 22 53 65 6c 65 63 74 20 64 65 73 69 72 65 ┆s D)" 1500 PRINT "Select desire┆
0x1380…13a0 64 20 66 75 6e 63 74 69 6f 6e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆d function----------------------┆
0x13a0…13c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e 22 3b 0d 31 35 31 30 20 20 45 58 45 43 20 47 45 54 ┆-------------->"; 1510 EXEC GET┆
0x13c0…13e0 5f 41 4e 53 57 45 52 28 41 4e 53 57 45 52 24 2c 22 43 45 50 54 44 63 65 70 74 64 22 29 0d 31 35 ┆_ANSWER(ANSWER$,"CEPTDceptd") 15┆
0x13e0…1400 32 30 20 20 43 41 53 45 20 41 4e 53 57 45 52 24 20 4f 46 20 0d 31 35 33 30 20 20 57 48 45 4e 20 ┆20 CASE ANSWER$ OF 1530 WHEN ┆
0x1400…1420 22 43 22 2c 20 22 63 22 0d 31 35 34 30 20 20 20 45 58 45 43 20 47 45 54 5f 50 52 4f 47 52 41 4d ┆"C", "c" 1540 EXEC GET_PROGRAM┆
0x1420…1440 5f 4e 41 4d 45 28 46 49 4c 45 4e 41 4d 45 24 29 0d 31 35 35 30 20 20 20 45 58 45 43 20 53 45 4c ┆_NAME(FILENAME$) 1550 EXEC SEL┆
0x1440…1460 45 43 54 5f 4f 55 54 50 55 54 28 22 6c 69 73 74 69 6e 67 22 2c 41 4e 53 57 45 52 24 29 0d 31 35 ┆ECT_OUTPUT("listing",ANSWER$) 15┆
0x1460…1480 36 30 20 20 20 49 46 20 41 4e 53 57 45 52 24 20 49 4e 20 22 50 70 22 20 54 48 45 4e 20 4c 49 53 ┆60 IF ANSWER$ IN "Pp" THEN LIS┆
0x1480…14a0 54 46 49 4c 45 24 3a 3d 22 4c 50 3a 22 0d 31 35 37 30 20 20 20 49 46 20 41 4e 53 57 45 52 24 20 ┆TFILE$:="LP:" 1570 IF ANSWER$ ┆
0x14a0…14c0 49 4e 20 22 53 73 22 20 54 48 45 4e 20 4c 49 53 54 46 49 4c 45 24 3a 3d 22 44 53 3a 22 0d 31 35 ┆IN "Ss" THEN LISTFILE$:="DS:" 15┆
0x14c0…14e0 38 30 20 20 20 45 58 45 43 20 43 48 45 43 4b 5f 52 45 41 44 41 42 4c 45 28 46 49 4c 45 4e 41 4d ┆80 EXEC CHECK_READABLE(FILENAM┆
0x14e0…1500 45 24 2b 22 2e 43 4d 4c 22 2c 4f 4b 23 29 0d 31 35 39 30 20 20 20 50 52 49 4e 54 20 0d 31 36 30 ┆E$+".CML",OK#) 1590 PRINT 160┆
0x1500…1520 30 20 20 20 50 52 49 4e 54 20 0d 31 36 31 30 20 20 20 49 46 20 4f 4b 23 20 54 48 45 4e 20 0d 31 ┆0 PRINT 1610 IF OK# THEN 1┆
0x1520…1540 36 32 30 20 20 20 20 45 58 45 43 20 52 45 4d 4f 56 45 5f 46 49 4c 45 28 46 49 4c 45 4e 41 4d 45 ┆620 EXEC REMOVE_FILE(FILENAME┆
0x1540…1560 24 2b 22 2e 4c 45 58 22 29 0d 31 36 33 30 20 20 20 20 45 58 45 43 20 52 45 4d 4f 56 45 5f 46 49 ┆$+".LEX") 1630 EXEC REMOVE_FI┆
0x1560…1580 4c 45 28 46 49 4c 45 4e 41 4d 45 24 2b 22 2e 43 4f 44 22 29 0d 31 36 34 30 20 20 20 20 45 58 45 ┆LE(FILENAME$+".COD") 1640 EXE┆
0x1580…15a0 43 20 53 45 54 5f 50 41 52 41 4d 45 54 45 52 53 28 46 49 4c 45 4e 41 4d 45 24 2c 4c 49 53 54 46 ┆C SET_PARAMETERS(FILENAME$,LISTF┆
0x15a0…15c0 49 4c 45 24 29 0d 31 36 35 30 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 4c 49 53 54 ┆ILE$) 1650 SELECT OUTPUT LIST┆
0x15c0…15e0 46 49 4c 45 24 0d 31 36 36 30 20 20 20 20 50 52 49 4e 54 20 22 4c 69 73 74 69 6e 67 20 6f 66 20 ┆FILE$ 1660 PRINT "Listing of ┆
0x15e0…1600 22 3b 46 49 4c 45 4e 41 4d 45 24 3b 22 20 70 72 6f 64 75 63 65 64 20 62 79 20 74 68 65 20 58 2d ┆";FILENAME$;" produced by the X-┆
0x1600…1620 50 4c 2f 30 2d 63 6f 6d 70 69 6c 65 72 2e 22 0d 31 36 37 30 20 20 20 20 50 52 49 4e 54 20 0d 31 ┆PL/0-compiler." 1670 PRINT 1┆
0x1620…1640 36 38 30 20 20 20 20 43 48 41 49 4e 20 22 58 50 4c 30 4c 45 58 49 22 0d 31 36 39 30 20 20 20 45 ┆680 CHAIN "XPL0LEXI" 1690 E┆
0x1640…1660 4e 44 49 46 20 0d 31 37 30 30 20 20 57 48 45 4e 20 22 45 22 2c 20 22 65 22 0d 31 37 31 30 20 20 ┆NDIF 1700 WHEN "E", "e" 1710 ┆
0x1660…1680 20 45 58 45 43 20 47 45 54 5f 50 52 4f 47 52 41 4d 5f 4e 41 4d 45 28 46 49 4c 45 4e 41 4d 45 24 ┆ EXEC GET_PROGRAM_NAME(FILENAME$┆
0x1680…16a0 29 0d 31 37 32 30 20 20 20 45 58 45 43 20 43 48 45 43 4b 5f 52 45 41 44 41 42 4c 45 28 46 49 4c ┆) 1720 EXEC CHECK_READABLE(FIL┆
0x16a0…16c0 45 4e 41 4d 45 24 2b 22 2e 43 4f 44 22 2c 4f 4b 23 29 0d 31 37 33 30 20 20 20 50 52 49 4e 54 20 ┆ENAME$+".COD",OK#) 1730 PRINT ┆
0x16c0…16e0 0d 31 37 34 30 20 20 20 50 52 49 4e 54 20 0d 31 37 35 30 20 20 20 49 46 20 4f 4b 23 20 54 48 45 ┆ 1740 PRINT 1750 IF OK# THE┆
0x16e0…1700 4e 20 0d 31 37 36 30 20 20 20 20 45 58 45 43 20 53 45 54 5f 50 41 52 41 4d 45 54 45 52 53 28 46 ┆N 1760 EXEC SET_PARAMETERS(F┆
0x1700…1720 49 4c 45 4e 41 4d 45 24 2c 22 22 29 0d 31 37 37 30 20 20 20 20 43 48 41 49 4e 20 22 58 50 4c 30 ┆ILENAME$,"") 1770 CHAIN "XPL0┆
0x1720…1740 49 4e 54 50 22 0d 31 37 38 30 20 20 20 45 4e 44 49 46 20 0d 31 37 39 30 20 20 57 48 45 4e 20 22 ┆INTP" 1780 ENDIF 1790 WHEN "┆
0x1740…1760 50 22 2c 20 22 70 22 0d 31 38 30 30 20 20 20 45 58 45 43 20 47 45 54 5f 50 52 4f 47 52 41 4d 5f ┆P", "p" 1800 EXEC GET_PROGRAM_┆
0x1760…1780 4e 41 4d 45 28 46 49 4c 45 4e 41 4d 45 24 29 0d 31 38 31 30 20 20 20 45 58 45 43 20 53 45 4c 45 ┆NAME(FILENAME$) 1810 EXEC SELE┆
0x1780…17a0 43 54 5f 4f 55 54 50 55 54 28 22 70 72 69 6e 74 6f 75 74 22 2c 41 4e 53 57 45 52 24 29 0d 31 38 ┆CT_OUTPUT("printout",ANSWER$) 18┆
0x17a0…17c0 32 30 20 20 20 45 58 45 43 20 43 48 45 43 4b 5f 52 45 41 44 41 42 4c 45 28 46 49 4c 45 4e 41 4d ┆20 EXEC CHECK_READABLE(FILENAM┆
0x17c0…17e0 45 24 2b 22 2e 43 4f 44 22 2c 4f 4b 23 29 0d 31 38 33 30 20 20 20 50 52 49 4e 54 20 0d 31 38 34 ┆E$+".COD",OK#) 1830 PRINT 184┆
0x17e0…1800 30 20 20 20 50 52 49 4e 54 20 0d 31 38 35 30 20 20 20 49 46 20 4f 4b 23 20 54 48 45 4e 20 0d 31 ┆0 PRINT 1850 IF OK# THEN 1┆
0x1800…1820 38 36 30 20 20 20 20 49 46 20 46 49 4c 45 4e 41 4d 45 24 3c 3e 44 45 46 41 55 4c 54 5f 46 49 4c ┆860 IF FILENAME$<>DEFAULT_FIL┆
0x1820…1840 45 4e 41 4d 45 24 20 54 48 45 4e 20 45 58 45 43 20 53 45 54 5f 50 41 52 41 4d 45 54 45 52 53 28 ┆ENAME$ THEN EXEC SET_PARAMETERS(┆
0x1840…1860 46 49 4c 45 4e 41 4d 45 24 2c 22 22 29 0d 31 38 37 30 20 20 20 20 49 46 20 41 4e 53 57 45 52 24 ┆FILENAME$,"") 1870 IF ANSWER$┆
0x1860…1880 20 49 4e 20 22 50 70 22 20 54 48 45 4e 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 4c 50 3a ┆ IN "Pp" THEN SELECT OUTPUT "LP:┆
0x1880…18a0 22 0d 31 38 38 30 20 20 20 20 45 58 45 43 20 4c 49 53 54 43 4f 44 45 28 46 49 4c 45 4e 41 4d 45 ┆" 1880 EXEC LISTCODE(FILENAME┆
0x18a0…18c0 24 29 0d 31 38 39 30 20 20 20 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 44 53 3a 22 0d 31 ┆$) 1890 SELECT OUTPUT "DS:" 1┆
0x18c0…18e0 39 30 30 20 20 20 45 4e 44 49 46 20 0d 31 39 31 30 20 20 57 48 45 4e 20 22 54 22 2c 20 22 74 22 ┆900 ENDIF 1910 WHEN "T", "t"┆
0x18e0…1900 0d 31 39 32 30 20 20 20 50 52 49 4e 54 20 0d 31 39 33 30 20 20 20 50 52 49 4e 54 20 0d 31 39 34 ┆ 1920 PRINT 1930 PRINT 194┆
0x1900…1920 30 20 20 20 50 41 47 45 20 0d 31 39 35 30 20 20 57 48 45 4e 20 22 44 22 2c 20 22 64 22 0d 31 39 ┆0 PAGE 1950 WHEN "D", "d" 19┆
[…truncated at 200 lines…]