|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 16384 (0x4000)
Names: »REPOO«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─ ⟦this⟧ »/REPOO«
0x0000…0020 0c 20 20 30 30 31 30 20 50 52 4f 43 20 54 59 53 54 0d 0a 20 20 30 30 32 30 20 20 20 45 58 45 43 ┆ 0010 PROC TYST 0020 EXEC┆ 0x0020…0040 20 48 45 58 34 0d 0a 20 20 30 30 33 30 20 20 20 4c 45 54 20 44 41 54 24 3d 52 45 4c 4f 43 24 28 ┆ HEX4 0030 LET DAT$=RELOC$(┆ 0x0040…0060 52 45 4c 4f 43 28 43 20 44 49 56 20 35 2b 31 29 2f 32 20 44 49 56 20 38 5e 28 34 2d 43 20 4d 4f ┆RELOC(C DIV 5+1)/2 DIV 8^(4-C MO┆ 0x0060…0080 44 20 35 29 20 4d 4f 44 20 38 29 0d 0a 20 20 30 30 34 30 20 20 20 50 52 49 4e 54 20 44 41 54 24 ┆D 5) MOD 8) 0040 PRINT DAT$┆ 0x0080…00a0 3b 22 20 22 3b 0d 0a 20 20 30 30 35 30 20 20 20 43 41 53 45 20 44 41 54 24 20 4f 46 20 0d 0a 20 ┆;" "; 0050 CASE DAT$ OF ┆ 0x00a0…00c0 20 30 30 36 30 20 20 20 20 20 52 45 4d 0d 0a 20 20 30 30 37 30 20 20 20 57 48 45 4e 20 22 20 22 ┆ 0060 REM 0070 WHEN " "┆ 0x00c0…00e0 0d 0a 20 20 30 30 38 30 20 20 20 20 20 4c 45 54 20 43 3d 41 20 44 49 56 20 32 35 36 3b 20 43 3d ┆ 0080 LET C=A DIV 256; C=┆ 0x00e0…0100 33 32 2b 28 28 43 2d 33 32 29 2a 28 43 3e 33 32 20 41 4e 44 20 43 3c 31 32 37 29 29 3b 20 44 3d ┆32+((C-32)*(C>32 AND C<127)); D=┆ 0x0100…0120 41 20 4d 4f 44 20 32 35 36 3b 20 44 3d 33 32 2b 28 44 2d 33 32 29 2a 28 44 3e 33 32 20 41 4e 44 ┆A MOD 256; D=32+(D-32)*(D>32 AND┆ 0x0120…0140 20 44 3c 31 32 37 29 0d 0a 20 20 30 30 39 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 43 29 ┆ D<127) 0090 PRINT CHR(C)┆ 0x0140…0160 3b 43 48 52 28 44 29 3b 22 20 20 20 22 3b 0d 0a 20 20 30 31 30 30 20 20 20 20 20 49 46 20 4c 41 ┆;CHR(D);" "; 0100 IF LA┆ 0x0160…0180 53 54 56 41 4c 3c 3e 33 32 33 36 20 54 48 45 4e 20 47 4f 54 4f 20 30 32 31 30 0d 0a 20 20 30 31 ┆STVAL<>3236 THEN GOTO 0210 01┆ 0x0180…01a0 31 30 20 20 20 20 20 52 45 53 54 4f 52 45 20 0d 0a 20 20 30 31 32 30 20 20 20 20 20 52 45 50 45 ┆10 RESTORE 0120 REPE┆ 0x01a0…01c0 41 54 0d 0a 20 20 30 31 33 30 20 20 20 20 20 20 20 52 45 41 44 20 43 2c 45 52 52 4f 52 24 0d 0a ┆AT 0130 READ C,ERROR$ ┆ 0x01c0…01e0 20 20 30 31 34 30 20 20 20 20 20 20 20 49 46 20 41 2b 33 30 30 3d 43 20 54 48 45 4e 20 0d 0a 20 ┆ 0140 IF A+300=C THEN ┆ 0x01e0…0200 20 30 31 35 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 27 22 3b 45 52 52 4f 52 24 3b 22 ┆ 0150 PRINT "'";ERROR$;"┆ 0x0200…0220 27 22 3b 0d 0a 20 20 30 31 36 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 43 3d 31 30 30 30 0d 0a ┆'"; 0160 LET C=1000 ┆ 0x0220…0240 20 20 30 31 37 30 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 31 38 30 20 20 20 20 20 55 ┆ 0170 ENDIF 0180 U┆ 0x0240…0260 4e 54 49 4c 20 43 3d 31 30 30 30 0d 0a 20 20 30 31 39 30 20 20 20 20 20 4c 45 54 20 4c 41 53 54 ┆NTIL C=1000 0190 LET LAST┆ 0x0260…0280 56 41 4c 3d 30 0d 0a 20 20 30 32 30 30 20 20 20 20 20 47 4f 54 4f 20 31 32 35 30 0d 0a 20 20 30 ┆VAL=0 0200 GOTO 1250 0┆ 0x0280…02a0 32 31 30 20 20 20 20 20 4c 45 54 20 4c 41 53 54 56 41 4c 3d 41 0d 0a 20 20 30 32 32 30 20 20 20 ┆210 LET LASTVAL=A 0220 ┆ 0x02a0…02c0 20 20 49 46 20 4e 4f 54 20 44 20 54 48 45 4e 20 47 4f 54 4f 20 31 32 35 30 0d 0a 20 20 30 32 33 ┆ IF NOT D THEN GOTO 1250 023┆ 0x02c0…02e0 30 20 20 20 20 20 43 41 53 45 20 41 20 44 49 56 20 38 31 39 32 20 4f 46 20 0d 0a 20 20 30 32 34 ┆0 CASE A DIV 8192 OF 024┆ 0x02e0…0300 30 20 20 20 20 20 20 20 49 46 20 41 3c 32 35 36 20 54 48 45 4e 20 0d 0a 20 20 30 32 35 30 20 20 ┆0 IF A<256 THEN 0250 ┆ 0x0300…0320 20 20 20 20 20 20 20 45 58 45 43 20 48 45 58 34 0d 0a 20 20 30 32 36 30 20 20 20 20 20 20 20 45 ┆ EXEC HEX4 0260 E┆ 0x0320…0340 4c 53 45 0d 0a 20 20 30 32 37 30 20 20 20 20 20 20 20 20 20 49 46 20 4e 4f 54 20 41 20 44 49 56 ┆LSE 0270 IF NOT A DIV┆ 0x0340…0360 20 32 35 36 20 4d 4f 44 20 32 20 54 48 45 4e 20 0d 0a 20 20 30 32 38 30 20 20 20 20 20 20 20 20 ┆ 256 MOD 2 THEN 0280 ┆ 0x0360…0380 20 20 20 46 4f 52 20 43 3d 31 20 54 4f 20 53 59 4d 4d 41 58 0d 0a 20 20 30 32 39 30 20 20 20 20 ┆ FOR C=1 TO SYMMAX 0290 ┆ 0x0380…03a0 20 20 20 20 20 20 20 20 20 49 46 20 41 3d 53 59 4d 42 28 43 29 20 54 48 45 4e 20 0d 0a 20 20 30 ┆ IF A=SYMB(C) THEN 0┆ 0x03a0…03c0 33 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 53 59 4d 42 24 28 43 29 ┆300 PRINT SYMB$(C)┆ 0x03c0…03e0 3b 0d 0a 20 20 30 33 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 43 3d 31 30 ┆; 0310 LET C=10┆ 0x03e0…0400 30 30 3b 20 44 3d 30 0d 0a 20 20 30 33 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 ┆00; D=0 0320 ENDI┆ 0x0400…0420 46 0d 0a 20 20 30 33 33 30 20 20 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 43 0d 0a 20 20 30 33 ┆F 0330 NEXT C 03┆ 0x0420…0440 34 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 33 35 30 20 20 20 20 20 20 20 20 ┆40 ENDIF 0350 ┆ 0x0440…0460 20 49 46 20 4e 4f 54 20 44 20 54 48 45 4e 20 47 4f 54 4f 20 30 35 31 30 0d 0a 20 20 30 33 36 30 ┆ IF NOT D THEN GOTO 0510 0360┆ 0x0460…0480 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 4a 4a 49 44 24 28 28 41 20 44 49 56 20 32 30 34 38 ┆ PRINT JJID$((A DIV 2048┆ 0x0480…04a0 29 2a 33 2b 31 2c 28 41 20 44 49 56 20 32 30 34 38 29 2a 33 2b 33 29 3b 22 20 20 20 22 3b 43 48 ┆)*3+1,(A DIV 2048)*3+3);" ";CH┆ 0x04a0…04c0 52 28 33 32 2b 33 32 2a 28 41 20 44 49 56 20 31 30 32 34 20 4d 4f 44 20 32 29 29 3b 22 20 22 3b ┆R(32+32*(A DIV 1024 MOD 2));" ";┆ 0x04c0…04e0 0d 0a 20 20 30 33 37 30 20 20 20 20 20 20 20 20 20 43 41 53 45 20 41 20 44 49 56 20 32 35 36 20 ┆ 0370 CASE A DIV 256 ┆ 0x04e0…0500 4d 4f 44 20 34 20 4f 46 20 0d 0a 20 20 30 33 38 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e ┆MOD 4 OF 0380 PRIN┆ 0x0500…0520 54 20 43 48 52 28 34 33 2b 32 2a 28 41 20 44 49 56 20 31 32 38 20 4d 4f 44 20 32 29 29 3b 0d 0a ┆T CHR(43+2*(A DIV 128 MOD 2)); ┆ 0x0520…0540 20 20 30 33 39 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 43 3d 41 3b 20 41 3d 41 42 53 28 ┆ 0390 LET C=A; A=ABS(┆ 0x0540…0560 41 20 4d 4f 44 20 32 35 36 2d 32 35 36 2a 28 41 20 44 49 56 20 31 32 38 20 4d 4f 44 20 32 29 29 ┆A MOD 256-256*(A DIV 128 MOD 2))┆ 0x0560…0580 0d 0a 20 20 30 34 30 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 48 45 58 32 0d 0a 20 20 ┆ 0400 EXEC HEX2 ┆ 0x0580…05a0 30 34 31 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 2c 23 22 2c ┆0410 PRINT USING ",#",┆ 0x05a0…05c0 43 48 52 28 43 20 44 49 56 20 32 35 36 20 4d 4f 44 20 34 2b 34 38 29 3b 0d 0a 20 20 30 34 32 30 ┆CHR(C DIV 256 MOD 4+48); 0420┆ 0x05c0…05e0 20 20 20 20 20 20 20 20 20 57 48 45 4e 20 30 0d 0a 20 20 30 34 33 30 20 20 20 20 20 20 20 20 20 ┆ WHEN 0 0430 ┆ 0x05e0…0600 20 20 4c 45 54 20 41 3d 41 20 4d 4f 44 20 32 35 36 0d 0a 20 20 30 34 34 30 20 20 20 20 20 20 20 ┆ LET A=A MOD 256 0440 ┆ 0x0600…0620 20 20 20 20 45 58 45 43 20 48 45 58 32 0d 0a 20 20 30 34 35 30 20 20 20 20 20 20 20 20 20 57 48 ┆ EXEC HEX2 0450 WH┆ 0x0620…0640 45 4e 20 31 0d 0a 20 20 30 34 36 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 41 20 4d ┆EN 1 0460 LET A=A M┆ 0x0640…0660 4f 44 20 32 35 36 2d 32 35 36 2a 28 41 20 44 49 56 20 31 32 38 20 4d 4f 44 20 32 29 3b 20 41 3d ┆OD 256-256*(A DIV 128 MOD 2); A=┆ 0x0660…0680 41 44 52 2b 41 0d 0a 20 20 30 34 37 30 20 20 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 41 42 ┆ADR+A 0470 LET A=AB┆ 0x0680…06a0 53 28 41 29 0d 0a 20 20 30 34 38 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 48 45 58 34 ┆S(A) 0480 EXEC HEX4┆ 0x06a0…06c0 0d 0a 20 20 30 34 39 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 41 44 52 24 3b 0d 0a ┆ 0490 PRINT ADR$; ┆ 0x06c0…06e0 20 20 30 35 30 30 20 20 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 30 35 31 30 20 20 ┆ 0500 ENDCASE 0510 ┆ 0x06e0…0700 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 35 32 30 20 20 20 20 20 57 48 45 4e 20 31 2c 32 0d ┆ ENDIF 0520 WHEN 1,2 ┆ 0x0700…0720 0a 20 20 30 35 33 30 20 20 20 20 20 20 20 49 46 20 41 20 44 49 56 20 38 31 39 32 3d 31 20 54 48 ┆ 0530 IF A DIV 8192=1 TH┆ 0x0720…0740 45 4e 20 0d 0a 20 20 30 35 34 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4c 44 41 20 20 ┆EN 0540 PRINT "LDA ┆ 0x0740…0760 20 22 3b 0d 0a 20 20 30 35 35 30 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 30 35 36 30 20 20 ┆ "; 0550 ELSE 0560 ┆ 0x0760…0780 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 53 54 41 20 20 20 22 3b 0d 0a 20 20 30 35 37 30 20 20 ┆ PRINT "STA "; 0570 ┆ 0x0780…07a0 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 35 38 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 ┆ ENDIF 0580 PRINT C┆ 0x07a0…07c0 48 52 28 33 32 2b 33 32 2a 28 41 20 44 49 56 20 31 30 32 34 20 4d 4f 44 20 32 29 29 3b 22 20 22 ┆HR(32+32*(A DIV 1024 MOD 2));" "┆ 0x07c0…07e0 3b 43 48 52 28 41 20 44 49 56 20 32 30 34 38 20 4d 4f 44 20 34 2b 34 38 29 3b 22 2c 22 3b 0d 0a ┆;CHR(A DIV 2048 MOD 4+48);","; ┆ 0x07e0…0800 20 20 30 35 39 30 20 20 20 20 20 20 20 43 41 53 45 20 41 20 44 49 56 20 32 35 36 20 4d 4f 44 20 ┆ 0590 CASE A DIV 256 MOD ┆ 0x0800…0820 34 20 4f 46 20 0d 0a 20 20 30 36 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 ┆4 OF 0600 PRINT CHR(┆ 0x0820…0840 34 33 2b 32 2a 28 41 20 44 49 56 20 31 32 38 20 4d 4f 44 20 32 29 29 3b 0d 0a 20 20 30 36 31 30 ┆43+2*(A DIV 128 MOD 2)); 0610┆ 0x0840…0860 20 20 20 20 20 20 20 20 20 4c 45 54 20 43 3d 41 3b 20 41 3d 41 42 53 28 41 20 4d 4f 44 20 32 35 ┆ LET C=A; A=ABS(A MOD 25┆ 0x0860…0880 36 2d 32 35 36 2a 28 41 20 44 49 56 20 31 32 38 20 4d 4f 44 20 32 29 29 0d 0a 20 20 30 36 32 30 ┆6-256*(A DIV 128 MOD 2)) 0620┆ 0x0880…08a0 20 20 20 20 20 20 20 20 20 45 58 45 43 20 48 45 58 32 0d 0a 20 20 30 36 33 30 20 20 20 20 20 20 ┆ EXEC HEX2 0630 ┆ 0x08a0…08c0 20 20 20 50 52 49 4e 54 20 22 2c 22 3b 43 48 52 28 43 20 44 49 56 20 32 35 36 20 4d 4f 44 20 34 ┆ PRINT ",";CHR(C DIV 256 MOD 4┆ 0x08c0…08e0 2b 34 38 29 3b 0d 0a 20 20 30 36 34 30 20 20 20 20 20 20 20 57 48 45 4e 20 30 0d 0a 20 20 30 36 ┆+48); 0640 WHEN 0 06┆ 0x08e0…0900 35 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 50 5a 24 28 41 20 4d 4f 44 20 32 35 36 2b 31 ┆50 PRINT PZ$(A MOD 256+1┆ 0x0900…0920 29 3b 0d 0a 20 20 30 36 36 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 0d 0a 20 20 30 36 37 30 20 ┆); 0660 WHEN 1 0670 ┆ 0x0920…0940 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 41 20 4d 4f 44 20 32 35 36 2d 32 35 36 2a 28 41 20 44 ┆ LET A=A MOD 256-256*(A D┆ 0x0940…0960 49 56 20 31 32 38 20 4d 4f 44 20 32 29 3b 20 41 3d 41 44 52 2b 41 3b 20 41 3d 41 42 53 28 41 29 ┆IV 128 MOD 2); A=ADR+A; A=ABS(A)┆ 0x0960…0980 0d 0a 20 20 30 36 38 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 48 45 58 34 0d 0a 20 20 30 36 ┆ 0680 EXEC HEX4 06┆ 0x0980…09a0 39 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 41 44 52 24 3b 0d 0a 20 20 30 37 30 30 20 20 ┆90 PRINT ADR$; 0700 ┆ 0x09a0…09c0 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 30 37 31 30 20 20 20 20 20 57 48 45 4e 20 33 0d ┆ ENDCASE 0710 WHEN 3 ┆ 0x09c0…09e0 0a 20 20 30 37 32 30 20 20 20 20 20 20 20 43 41 53 45 20 41 20 4f 46 20 0d 0a 20 20 30 37 33 30 ┆ 0720 CASE A OF 0730┆ 0x09e0…0a00 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 49 4f 24 28 31 2b 28 41 20 44 49 56 20 32 35 36 20 ┆ PRINT IO$(1+(A DIV 256 ┆ 0x0a00…0a20 4d 4f 44 20 38 29 2a 33 2c 33 2b 28 41 20 44 49 56 20 32 35 36 20 4d 4f 44 20 38 29 2a 33 29 3b ┆MOD 8)*3,3+(A DIV 256 MOD 8)*3);┆ 0x0a20…0a40 0d 0a 20 20 30 37 34 30 20 20 20 20 20 20 20 20 20 49 46 20 41 20 44 49 56 20 32 35 36 20 4d 4f ┆ 0740 IF A DIV 256 MO┆ 0x0a40…0a60 44 20 38 3d 37 20 54 48 45 4e 20 0d 0a 20 20 30 37 35 30 20 20 20 20 20 20 20 20 20 20 20 50 52 ┆D 8=7 THEN 0750 PR┆ 0x0a60…0a80 49 4e 54 20 54 24 28 31 2b 32 2a 28 41 20 44 49 56 20 36 34 20 4d 4f 44 20 34 29 2c 32 2b 32 2a ┆INT T$(1+2*(A DIV 64 MOD 4),2+2*┆ 0x0a80…0aa0 28 41 20 44 49 56 20 36 34 20 4d 4f 44 20 34 29 29 3b 22 20 20 20 22 3b 0d 0a 20 20 30 37 36 30 ┆(A DIV 64 MOD 4));" "; 0760┆ 0x0aa0…0ac0 20 20 20 20 20 20 20 20 20 45 4c 53 45 0d 0a 20 20 30 37 37 30 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE 0770 ┆ 0x0ac0…0ae0 50 52 49 4e 54 20 46 24 28 31 2b 41 20 44 49 56 20 36 34 20 4d 4f 44 20 34 29 3b 22 20 20 20 20 ┆PRINT F$(1+A DIV 64 MOD 4);" ┆ 0x0ae0…0b00 22 3b 0d 0a 20 20 30 37 38 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 0d 0a 20 20 30 37 39 30 ┆"; 0780 ENDIF 0790┆ 0x0b00…0b20 20 20 20 20 20 20 20 20 20 49 46 20 41 20 44 49 56 20 32 35 36 20 4d 4f 44 20 38 3c 3e 30 20 41 ┆ IF A DIV 256 MOD 8<>0 A┆ 0x0b20…0b40 4e 44 20 41 20 44 49 56 20 32 35 36 20 4d 4f 44 20 38 3c 3e 37 20 54 48 45 4e 20 50 52 49 4e 54 ┆ND A DIV 256 MOD 8<>7 THEN PRINT┆ 0x0b40…0b60 20 43 48 52 28 34 38 2b 41 20 44 49 56 20 32 30 34 38 20 4d 4f 44 20 34 29 3b 22 2c 22 3b 0d 0a ┆ CHR(48+A DIV 2048 MOD 4);","; ┆ 0x0b60…0b80 20 20 30 38 30 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 41 20 4d 4f 44 20 36 34 0d 0a 20 ┆ 0800 LET A=A MOD 64 ┆ 0x0b80…0ba0 20 30 38 31 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 48 45 58 32 0d 0a 20 20 30 38 32 30 20 ┆ 0810 EXEC HEX2 0820 ┆ 0x0ba0…0bc0 20 20 20 20 20 20 57 48 45 4e 20 32 34 37 30 33 0d 0a 20 20 30 38 33 30 20 20 20 20 20 20 20 20 ┆ WHEN 24703 0830 ┆ 0x0bc0…0be0 20 50 52 49 4e 54 20 22 49 4e 54 45 4e 22 3b 0d 0a 20 20 30 38 34 30 20 20 20 20 20 20 20 57 48 ┆ PRINT "INTEN"; 0840 WH┆ 0x0be0…0c00 45 4e 20 32 34 37 36 37 0d 0a 20 20 30 38 35 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 ┆EN 24767 0850 PRINT "┆ 0x0c00…0c20 49 4e 54 44 53 22 3b 0d 0a 20 20 30 38 36 30 20 20 20 20 20 20 20 57 48 45 4e 20 32 34 38 39 35 ┆INTDS"; 0860 WHEN 24895┆ 0x0c20…0c40 2c 32 36 39 34 33 2c 32 38 39 39 31 2c 33 31 30 33 39 0d 0a 20 20 30 38 37 30 20 20 20 20 20 20 ┆,26943,28991,31039 0870 ┆ 0x0c40…0c60 20 20 20 50 52 49 4e 54 20 22 52 45 41 44 53 20 20 20 22 3b 43 48 52 28 41 20 44 49 56 20 32 30 ┆ PRINT "READS ";CHR(A DIV 20┆ 0x0c60…0c80 34 38 20 4d 4f 44 20 34 2b 34 38 29 3b 0d 0a 20 20 30 38 38 30 20 20 20 20 20 20 20 57 48 45 4e ┆48 MOD 4+48); 0880 WHEN┆ 0x0c80…0ca0 20 32 35 34 30 37 2c 32 37 34 35 35 2c 32 39 35 30 33 2c 33 31 35 35 31 0d 0a 20 20 30 38 39 30 ┆ 25407,27455,29503,31551 0890┆ 0x0ca0…0cc0 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 49 4e 54 41 20 20 20 20 22 3b 43 48 52 28 41 20 ┆ PRINT "INTA ";CHR(A ┆ 0x0cc0…0ce0 44 49 56 20 32 30 34 38 20 4d 4f 44 20 34 2b 34 38 29 3b 0d 0a 20 20 30 39 30 30 20 20 20 20 20 ┆DIV 2048 MOD 4+48); 0900 ┆ 0x0ce0…0d00 20 20 57 48 45 4e 20 32 35 36 36 33 2c 32 37 37 31 31 2c 32 39 37 35 39 2c 33 31 38 30 37 0d 0a ┆ WHEN 25663,27711,29759,31807 ┆ 0x0d00…0d20 20 20 30 39 31 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4d 53 4b 4f 20 20 20 20 22 3b ┆ 0910 PRINT "MSKO ";┆ 0x0d20…0d40 43 48 52 28 41 20 44 49 56 20 32 30 34 38 20 4d 4f 44 20 34 2b 34 38 29 3b 0d 0a 20 20 30 39 32 ┆CHR(A DIV 2048 MOD 4+48); 092┆ 0x0d40…0d60 30 20 20 20 20 20 20 20 57 48 45 4e 20 32 36 30 34 37 2c 32 38 30 39 35 2c 33 30 31 34 33 2c 33 ┆0 WHEN 26047,28095,30143,3┆ 0x0d60…0d80 32 31 39 31 0d 0a 20 20 30 39 33 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 49 4f 52 53 ┆2191 0930 PRINT "IORS┆ 0x0d80…0da0 54 22 3b 0d 0a 20 20 30 39 34 30 20 20 20 20 20 20 20 57 48 45 4e 20 32 36 31 37 35 2c 32 38 32 ┆T"; 0940 WHEN 26175,282┆ 0x0da0…0dc0 32 33 2c 33 30 32 37 31 2c 33 32 33 31 39 0d 0a 20 20 30 39 35 30 20 20 20 20 20 20 20 20 20 50 ┆23,30271,32319 0950 P┆ 0x0dc0…0de0 52 49 4e 54 20 22 48 41 4c 54 22 3b 0d 0a 20 20 30 39 36 30 20 20 20 20 20 20 20 45 4e 44 43 41 ┆RINT "HALT"; 0960 ENDCA┆ 0x0de0…0e00 53 45 0d 0a 20 20 30 39 37 30 20 20 20 20 20 57 48 45 4e 20 34 2c 35 2c 36 2c 37 0d 0a 20 20 30 ┆SE 0970 WHEN 4,5,6,7 0┆ 0x0e00…0e20 39 38 30 20 20 20 20 20 20 20 43 41 53 45 20 41 20 4d 4f 44 20 32 30 34 38 20 4f 46 20 0d 0a 20 ┆980 CASE A MOD 2048 OF ┆ 0x0e20…0e40 20 30 39 39 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 41 52 49 24 28 31 2b 33 2a 28 41 20 ┆ 0990 PRINT ARI$(1+3*(A ┆ 0x0e40…0e60 44 49 56 20 32 35 36 20 4d 4f 44 20 38 29 2c 33 2b 33 2a 28 41 20 44 49 56 20 32 35 36 20 4d 4f ┆DIV 256 MOD 8),3+3*(A DIV 256 MO┆ 0x0e60…0e80 44 20 38 29 29 3b 0d 0a 20 20 31 30 30 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 24 28 ┆D 8)); 1000 PRINT C$(┆ 0x0e80…0ea0 41 20 44 49 56 20 31 36 20 4d 4f 44 20 34 2b 31 29 3b 0d 0a 20 20 31 30 31 30 20 20 20 20 20 20 ┆A DIV 16 MOD 4+1); 1010 ┆ 0x0ea0…0ec0 20 20 20 50 52 49 4e 54 20 53 48 24 28 41 20 44 49 56 20 36 34 20 4d 4f 44 20 34 2b 31 29 3b 0d ┆ PRINT SH$(A DIV 64 MOD 4+1); ┆ 0x0ec0…0ee0 0a 20 20 31 30 32 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 22 3b 43 48 52 28 33 32 ┆ 1020 PRINT " ";CHR(32┆ 0x0ee0…0f00 2b 33 2a 28 41 20 44 49 56 20 38 20 4d 4f 44 20 32 29 29 3b 22 20 22 3b 0d 0a 20 20 31 30 33 30 ┆+3*(A DIV 8 MOD 2));" "; 1030┆ 0x0f00…0f20 20 20 20 20 20 20 20 57 48 45 4e 20 31 32 39 32 0d 0a 20 20 31 30 34 30 20 20 20 20 20 20 20 20 ┆ WHEN 1292 1040 ┆ 0x0f20…0f40 20 50 52 49 4e 54 20 22 53 45 51 20 20 20 20 20 22 3b 0d 0a 20 20 31 30 35 30 20 20 20 20 20 20 ┆ PRINT "SEQ "; 1050 ┆ 0x0f40…0f60 20 20 20 4c 45 54 20 41 3d 28 41 20 44 49 56 20 32 30 34 38 29 2a 32 30 34 38 0d 0a 20 20 31 30 ┆ LET A=(A DIV 2048)*2048 10┆ 0x0f60…0f80 36 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 33 30 36 0d 0a 20 20 31 30 37 30 20 20 20 20 20 20 ┆60 WHEN 1306 1070 ┆ 0x0f80…0fa0 20 20 20 50 52 49 4e 54 20 22 53 47 52 20 20 20 20 20 22 3b 0d 0a 20 20 31 30 38 30 20 20 20 20 ┆ PRINT "SGR "; 1080 ┆ 0x0fa0…0fc0 20 20 20 20 20 4c 45 54 20 41 3d 28 41 20 44 49 56 20 32 30 34 38 29 2a 32 30 34 38 0d 0a 20 20 ┆ LET A=(A DIV 2048)*2048 ┆ 0x0fc0…0fe0 31 30 39 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 30 35 31 0d 0a 20 20 31 31 30 30 20 20 20 20 ┆1090 WHEN 1051 1100 ┆ 0x0fe0…1000 20 20 20 20 20 50 52 49 4e 54 20 22 53 4c 53 20 20 20 20 20 22 3b 0d 0a 20 20 31 31 31 30 20 20 ┆ PRINT "SLS "; 1110 ┆ 0x1000…1020 20 20 20 20 20 20 20 4c 45 54 20 41 3d 28 41 20 44 49 56 20 32 30 34 38 29 2a 32 30 34 38 0d 0a ┆ LET A=(A DIV 2048)*2048 ┆ 0x1020…1040 20 20 31 31 32 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 32 39 33 0d 0a 20 20 31 31 33 30 20 20 ┆ 1120 WHEN 1293 1130 ┆ 0x1040…1060 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 53 4e 45 20 20 20 20 20 22 3b 0d 0a 20 20 31 31 34 30 ┆ PRINT "SNE "; 1140┆ 0x1060…1080 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 28 41 20 44 49 56 20 32 30 34 38 29 2a 32 30 34 38 ┆ LET A=(A DIV 2048)*2048┆ 0x1080…10a0 0d 0a 20 20 31 31 35 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 33 30 37 0d 0a 20 20 31 31 36 30 ┆ 1150 WHEN 1307 1160┆ 0x10a0…10c0 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 53 4e 47 20 20 20 20 20 22 3b 0d 0a 20 20 31 31 ┆ PRINT "SNG "; 11┆ 0x10c0…10e0 37 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 28 41 20 44 49 56 20 32 30 34 38 29 2a 32 30 ┆70 LET A=(A DIV 2048)*20┆ 0x10e0…1100 34 38 0d 0a 20 20 31 31 38 30 20 20 20 20 20 20 20 57 48 45 4e 20 31 30 35 30 0d 0a 20 20 31 31 ┆48 1180 WHEN 1050 11┆ 0x1100…1120 39 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 53 4e 4c 20 20 20 20 20 22 3b 0d 0a 20 20 ┆90 PRINT "SNL "; ┆ 0x1120…1140 31 32 30 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 41 3d 28 41 20 44 49 56 20 32 30 34 38 29 2a ┆1200 LET A=(A DIV 2048)*┆ 0x1140…1160 32 30 34 38 0d 0a 20 20 31 32 31 30 20 20 20 20 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 31 32 ┆2048 1210 ENDCASE 12┆ 0x1160…1180 32 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 34 38 2b 41 20 44 49 56 20 38 31 39 32 ┆20 PRINT CHR(48+A DIV 8192┆ 0x1180…11a0 20 4d 4f 44 20 34 29 3b 22 2c 22 3b 43 48 52 28 41 20 44 49 56 20 32 30 34 38 20 4d 4f 44 20 34 ┆ MOD 4);",";CHR(A DIV 2048 MOD 4┆ 0x11a0…11c0 2b 34 38 29 3b 0d 0a 20 20 31 32 33 30 20 20 20 20 20 20 20 49 46 20 41 20 4d 4f 44 20 38 20 54 ┆+48); 1230 IF A MOD 8 T┆ 0x11c0…11e0 48 45 4e 20 50 52 49 4e 54 20 22 2c 22 3b 53 4b 50 24 28 31 2b 28 41 20 4d 4f 44 20 38 29 2a 33 ┆HEN PRINT ",";SKP$(1+(A MOD 8)*3┆ 0x11e0…1200 2c 33 2b 28 41 20 4d 4f 44 20 38 29 2a 33 29 3b 0d 0a 20 20 31 32 34 30 20 20 20 20 20 45 4e 44 ┆,3+(A MOD 8)*3); 1240 END┆ 0x1200…1220 43 41 53 45 0d 0a 20 20 31 32 35 30 20 20 20 57 48 45 4e 20 22 27 22 2c 22 2d 22 2c 22 3d 22 2c ┆CASE 1250 WHEN "'","-","=",┆ 0x1220…1240 22 2a 22 0d 0a 20 20 31 32 36 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 22 3b 0d 0a ┆"*" 1260 PRINT " "; ┆ 0x1240…1260 20 20 31 32 37 30 20 20 20 20 20 45 58 45 43 20 48 45 58 34 0d 0a 20 20 31 32 38 30 20 20 20 20 ┆ 1270 EXEC HEX4 1280 ┆ 0x1260…1280 20 50 52 49 4e 54 20 44 41 54 24 3b 0d 0a 20 20 31 32 39 30 20 20 20 57 48 45 4e 20 22 3c 33 34 ┆ PRINT DAT$; 1290 WHEN "<34┆ 0x1280…12a0 3e 22 0d 0a 20 20 31 33 30 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 22 3b 0d 0a 20 ┆>" 1300 PRINT " "; ┆ 0x12a0…12c0 20 31 33 31 30 20 20 20 20 20 4c 45 54 20 41 3d 41 2f 32 0d 0a 20 20 31 33 32 30 20 20 20 20 20 ┆ 1310 LET A=A/2 1320 ┆ 0x12c0…12e0 45 58 45 43 20 48 45 58 34 0d 0a 20 20 31 33 33 30 20 20 20 20 20 50 52 49 4e 54 20 22 27 2a 32 ┆EXEC HEX4 1330 PRINT "'*2┆ 0x12e0…1300 22 3b 0d 0a 20 20 31 33 34 30 20 20 20 45 4e 44 43 41 53 45 0d 0a 20 20 31 33 35 30 20 20 20 50 ┆"; 1340 ENDCASE 1350 P┆ 0x1300…1320 52 49 4e 54 20 0d 0a 20 20 31 33 36 30 20 45 4e 44 50 52 4f 43 0d 0a 20 20 31 33 37 30 20 52 45 ┆RINT 1360 ENDPROC 1370 RE┆ 0x1320…1340 4d 20 38 33 30 32 30 31 50 48 4b 20 52 45 20 42 49 4e 41 52 59 20 46 49 4c 45 20 44 49 53 41 53 ┆M 830201PHK RE BINARY FILE DISAS┆ 0x1340…1360 53 53 45 4d 42 4c 45 52 0d 0a 20 20 31 33 38 30 20 4c 45 54 20 57 4f 52 44 41 3d 31 0d 0a 20 20 ┆SSEMBLER 1380 LET WORDA=1 ┆ 0x1360…1380 31 33 39 30 20 50 52 4f 43 20 57 4f 52 44 0d 0a 20 20 31 34 30 30 20 20 20 49 46 20 57 4f 52 44 ┆1390 PROC WORD 1400 IF WORD┆ 0x1380…13a0 41 20 54 48 45 4e 20 0d 0a 20 20 31 34 31 30 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 31 29 ┆A THEN 1410 READ FILE(1)┆ 0x13a0…13c0 57 4f 52 44 42 0d 0a 20 20 31 34 32 30 20 20 20 20 20 43 41 4c 4c 20 22 46 49 58 22 2c 57 4f 52 ┆WORDB 1420 CALL "FIX",WOR┆ 0x13c0…13e0 44 42 2c 57 4f 52 44 43 2c 57 4f 52 44 44 0d 0a 20 20 31 34 33 30 20 20 20 20 20 4c 45 54 20 41 ┆DB,WORDC,WORDD 1430 LET A┆ 0x13e0…1400 3d 57 4f 52 44 43 20 44 49 56 20 32 35 36 2b 32 35 36 2a 28 57 4f 52 44 43 20 4d 4f 44 20 32 35 ┆=WORDC DIV 256+256*(WORDC MOD 25┆ 0x1400…1420 36 29 3b 20 57 4f 52 44 41 3d 30 0d 0a 20 20 31 34 34 30 20 20 20 45 4c 53 45 0d 0a 20 20 31 34 ┆6); WORDA=0 1440 ELSE 14┆ 0x1420…1440 35 30 20 20 20 20 20 4c 45 54 20 41 3d 57 4f 52 44 44 20 44 49 56 20 32 35 36 2b 32 35 36 2a 28 ┆50 LET A=WORDD DIV 256+256*(┆ 0x1440…1460 57 4f 52 44 44 20 4d 4f 44 20 32 35 36 29 3b 20 57 4f 52 44 41 3d 31 0d 0a 20 20 31 34 36 30 20 ┆WORDD MOD 256); WORDA=1 1460 ┆ 0x1460…1480 20 20 45 4e 44 49 46 0d 0a 20 20 31 34 37 30 20 45 4e 44 50 52 4f 43 0d 0a 20 20 31 34 38 30 20 ┆ ENDIF 1470 ENDPROC 1480 ┆ 0x1480…14a0 44 49 4d 20 48 45 58 34 24 28 31 36 29 0d 0a 20 20 31 34 39 30 20 4c 45 54 20 48 45 58 34 24 3d ┆DIM HEX4$(16) 1490 LET HEX4$=┆ 0x14a0…14c0 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 0d 0a 20 20 31 35 30 30 20 50 52 4f 43 20 ┆"0123456789ABCDEF" 1500 PROC ┆ 0x14c0…14e0 48 45 58 34 0d 0a 20 20 31 35 31 30 20 20 20 50 52 49 4e 54 20 48 45 58 34 24 28 41 20 44 49 56 ┆HEX4 1510 PRINT HEX4$(A DIV┆ 0x14e0…1500 20 34 30 39 36 2b 31 29 3b 48 45 58 34 24 28 41 20 44 49 56 20 32 35 36 20 4d 4f 44 20 31 36 2b ┆ 4096+1);HEX4$(A DIV 256 MOD 16+┆ 0x1500…1520 31 29 3b 48 45 58 34 24 28 41 20 44 49 56 20 31 36 20 4d 4f 44 20 31 36 2b 31 29 3b 48 45 58 34 ┆1);HEX4$(A DIV 16 MOD 16+1);HEX4┆ 0x1520…1540 24 28 41 20 4d 4f 44 20 31 36 2b 31 29 3b 0d 0a 20 20 31 35 32 30 20 45 4e 44 50 52 4f 43 0d 0a ┆$(A MOD 16+1); 1520 ENDPROC ┆ 0x1540…1560 20 20 31 35 33 30 20 50 52 4f 43 20 48 45 58 32 0d 0a 20 20 31 35 34 30 20 20 20 50 52 49 4e 54 ┆ 1530 PROC HEX2 1540 PRINT┆ 0x1560…1580 20 48 45 58 34 24 28 41 20 44 49 56 20 31 36 20 4d 4f 44 20 31 36 2b 31 29 3b 48 45 58 34 24 28 ┆ HEX4$(A DIV 16 MOD 16+1);HEX4$(┆ 0x1580…15a0 41 20 4d 4f 44 20 31 36 2b 31 29 3b 0d 0a 20 20 31 35 35 30 20 45 4e 44 50 52 4f 43 0d 0a 20 20 ┆A MOD 16+1); 1550 ENDPROC ┆ 0x15a0…15c0 31 35 36 30 20 44 49 4d 20 56 24 28 31 29 0d 0a 20 20 31 35 37 30 20 44 49 4d 20 46 49 4c 24 28 ┆1560 DIM V$(1) 1570 DIM FIL$(┆ 0x15c0…15e0 35 29 0d 0a 20 20 31 35 38 30 20 44 49 4d 20 52 45 4c 4f 43 28 33 29 0d 0a 20 20 31 35 39 30 20 ┆5) 1580 DIM RELOC(3) 1590 ┆ 0x15e0…1600 44 49 4d 20 52 45 4c 4f 43 24 28 38 29 0d 0a 20 20 31 36 30 30 20 4c 45 54 20 52 45 4c 4f 43 24 ┆DIM RELOC$(8) 1600 LET RELOC$┆ 0x1600…1620 3d 22 20 27 3c 33 34 3e 2d 3d 24 2a 3c 31 32 36 3e 22 0d 0a 20 20 31 36 31 30 20 44 49 4d 20 4a ┆=" '<34>-=$*<126>" 1610 DIM J┆ 0x1620…1640 4a 49 44 24 28 31 32 29 0d 0a 20 20 31 36 32 30 20 4c 45 54 20 4a 4a 49 44 24 3d 22 4a 4d 50 4a ┆JID$(12) 1620 LET JJID$="JMPJ┆ 0x1640…1660 53 52 49 53 5a 44 53 5a 22 0d 0a 20 20 31 36 33 30 20 44 49 4d 20 41 52 49 24 28 32 34 29 0d 0a ┆SRISZDSZ" 1630 DIM ARI$(24) ┆ 0x1660…1680 20 20 31 36 34 30 20 4c 45 54 20 41 52 49 24 3d 22 43 4f 4d 4e 45 47 4d 4f 56 49 4e 43 41 44 43 ┆ 1640 LET ARI$="COMNEGMOVINCADC┆ 0x1680…16a0 53 55 42 41 44 44 41 4e 44 22 0d 0a 20 20 31 36 35 30 20 44 49 4d 20 43 24 28 34 29 2c 53 48 24 ┆SUBADDAND" 1650 DIM C$(4),SH$┆ 0x16a0…16c0 28 34 29 2c 53 4b 50 24 28 32 34 29 0d 0a 20 20 31 36 36 30 20 4c 45 54 20 43 24 3d 22 20 5a 4f ┆(4),SKP$(24) 1660 LET C$=" ZO┆ 0x16c0…16e0 43 22 3b 20 53 48 24 3d 22 20 4c 52 53 22 3b 20 53 4b 50 24 3d 22 20 20 20 53 4b 50 53 5a 43 53 ┆C"; SH$=" LRS"; SKP$=" SKPSZCS┆ 0x16e0…1700 4e 43 53 5a 52 53 4e 52 53 45 5a 53 42 4e 22 0d 0a 20 20 31 36 37 30 20 44 49 4d 20 49 4f 24 28 ┆NCSZRSNRSEZSBN" 1670 DIM IO$(┆ 0x1700…1720 32 34 29 2c 46 24 28 34 29 2c 54 24 28 38 29 0d 0a 20 20 31 36 38 30 20 4c 45 54 20 49 4f 24 3d ┆24),F$(4),T$(8) 1680 LET IO$=┆ 0x1720…1740 22 4e 49 4f 44 49 41 44 4f 41 44 49 42 44 4f 42 44 49 43 44 4f 43 53 4b 50 22 3b 20 46 24 3d 22 ┆"NIODIADOADIBDOBDICDOCSKP"; F$="┆ 0x1740…1760 20 53 43 50 22 3b 20 54 24 3d 22 42 4e 42 5a 44 4e 44 5a 22 0d 0a 20 20 31 36 39 30 20 44 49 4d ┆ SCP"; T$="BNBZDNDZ" 1690 DIM┆ 0x1760…1780 20 41 44 52 24 28 31 29 0d 0a 20 20 31 37 30 30 20 44 49 4d 20 44 41 54 24 28 31 29 0d 0a 20 20 ┆ ADR$(1) 1700 DIM DAT$(1) ┆ 0x1780…17a0 31 37 31 30 20 44 49 4d 20 45 52 52 4f 52 24 28 34 30 29 0d 0a 20 20 31 37 32 30 20 4c 45 54 20 ┆1710 DIM ERROR$(40) 1720 LET ┆ 0x17a0…17c0 4c 41 53 54 56 41 4c 3d 30 0d 0a 20 20 31 37 33 30 20 4c 45 54 20 41 3d 30 0d 0a 20 20 31 37 34 ┆LASTVAL=0 1730 LET A=0 174┆ 0x17c0…17e0 30 20 4c 45 54 20 56 3d 30 0d 0a 20 20 31 37 35 30 20 52 45 41 44 20 42 2c 46 49 4c 24 0d 0a 20 ┆0 LET V=0 1750 READ B,FIL$ ┆ 0x17e0…1800 20 31 37 36 30 20 49 46 20 42 3d 2d 31 20 54 48 45 4e 20 47 4f 54 4f 20 31 37 39 30 0d 0a 20 20 ┆ 1760 IF B=-1 THEN GOTO 1790 ┆ 0x1800…1820 31 37 37 30 20 4c 45 54 20 41 3d 41 2b 31 0d 0a 20 20 31 37 38 30 20 47 4f 54 4f 20 31 37 35 30 ┆1770 LET A=A+1 1780 GOTO 1750┆ 0x1820…1840 0d 0a 20 20 31 37 39 30 20 4c 45 54 20 53 59 4d 4d 41 58 3d 41 0d 0a 20 20 31 38 30 30 20 44 49 ┆ 1790 LET SYMMAX=A 1800 DI┆ 0x1840…1860 4d 20 53 59 4d 42 28 53 59 4d 4d 41 58 29 2c 53 59 4d 42 24 28 53 59 4d 4d 41 58 2c 35 29 0d 0a ┆M SYMB(SYMMAX),SYMB$(SYMMAX,5) ┆ 0x1860…1880 20 20 31 38 31 30 20 52 45 53 54 4f 52 45 20 0d 0a 20 20 31 38 32 30 20 46 4f 52 20 41 3d 31 20 ┆ 1810 RESTORE 1820 FOR A=1 ┆ 0x1880…18a0 54 4f 20 53 59 4d 4d 41 58 0d 0a 20 20 31 38 33 30 20 20 20 52 45 41 44 20 53 59 4d 42 28 41 29 ┆TO SYMMAX 1830 READ SYMB(A)┆ 0x18a0…18c0 2c 53 59 4d 42 24 28 41 29 0d 0a 20 20 31 38 34 30 20 4e 45 58 54 20 41 0d 0a 20 20 31 38 35 30 ┆,SYMB$(A) 1840 NEXT A 1850┆ 0x18c0…18e0 20 44 49 4d 20 50 5a 24 28 32 35 36 2c 35 29 0d 0a 20 20 31 38 36 30 20 46 4f 52 20 41 3d 30 20 ┆ DIM PZ$(256,5) 1860 FOR A=0 ┆ 0x18e0…1900 54 4f 20 32 35 35 0d 0a 20 20 31 38 37 30 20 20 20 4c 45 54 20 50 5a 24 28 41 2b 31 29 3d 48 45 ┆TO 255 1870 LET PZ$(A+1)=HE┆ 0x1900…1920 58 34 24 28 41 20 44 49 56 20 31 36 2b 31 29 2c 48 45 58 34 24 28 41 20 4d 4f 44 20 31 36 2b 31 ┆X4$(A DIV 16+1),HEX4$(A MOD 16+1┆ […truncated at 200 lines…]