PRG <-> SEQ

00000000: 01 1C 1E 1C 00 00 8F 20  4C 49 53 54 49 4E 47 20  |....... LISTING |
00000010: 38 20 56 4F 4E 20 4A 41  4E 55 53 2D 4F 4B 00 63  |8 VON JANUS-OK.c|
00000020: 1C 0A 00 8F 20 50 52 4F  47 52 41 4D 4D 20 5A 55  |.... PROGRAMM ZU|
00000030: 4D 20 55 4D 57 41 4E 44  45 4C 4E 20 56 4F 4E 20  |M UMWANDELN VON |
00000040: 50 52 47 20 44 41 54 45  49 45 4E 20 49 4E 20 53  |PRG DATEIEN IN S|
00000050: 45 51 2D 44 41 54 45 49  45 4E 2C 20 44 49 45 20  |EQ-DATEIEN, DIE |
00000060: 56 4F 4E 00 A4 1C 14 00  8F 20 53 55 50 45 52 53  |VON...... SUPERS|
00000070: 43 52 49 50 54 20 55 4E  44 20 41 4E 44 45 52 45  |CRIPT UND ANDERE|
00000080: 4E 20 50 52 4F 47 52 41  4D 4D 45 4E 20 47 45 4C  |N PROGRAMMEN GEL|
00000090: 45 53 45 4E 20 57 45 52  44 45 4E 20 4B 4F 45 4E  |ESEN WERDEN KOEN|
000000A0: 4E 45 4E 2C 00 DE 1C 1E  00 8F 20 44 41 20 44 49  |NEN,...... DA DI|
000000B0: 45 53 45 20 44 49 45 20  53 54 41 52 54 41 44 52  |ESE DIE STARTADR|
000000C0: 45 53 53 45 4E 20 41 4C  53 20 44 41 54 45 4E 20  |ESSEN ALS DATEN |
000000D0: 49 4E 54 45 52 50 52 45  54 49 45 52 45 4E 00 E4  |INTERPRETIEREN..|
000000E0: 1C 28 00 8F 00 25 1D 32  00 8F 20 20 20 20 41 43  |.(...%.2..    AC|
000000F0: 48 54 55 4E 47 21 20 20  56 4F 52 48 45 52 20 4D  |HTUNG!  VORHER M|
00000100: 55 45 53 53 45 4E 20 44  49 45 20 55 4D 4C 41 55  |UESSEN DIE UMLAU|
00000110: 54 45 20 55 4D 47 45 57  41 4E 44 45 4C 54 20 57  |TE UMGEWANDELT W|
00000120: 45 52 44 45 4E 00 2B 1D  3C 00 8F 00 5C 1D 46 00  |ERDEN.+.<...\.F.|
00000130: 8F 20 44 41 53 20 50 52  4F 47 52 41 4D 4D 20 4A  |. DAS PROGRAMM J|
00000140: 41 4E 55 53 20 4D 55 53  53 20 45 49 4E 47 45 42  |ANUS MUSS EINGEB|
00000150: 55 4E 44 45 4E 20 53 45  49 4E 20 21 00 62 1D 50  |UNDEN SEIN !.b.P|
00000160: 00 8F 00 A4 1D 5A 00 8F  20 2A 2A 2A 2A 2A 2A 2A  |.....Z.. *******|
00000170: 2A 20 45 49 4E 20 50 52  4F 47 52 41 4D 4D 20 56  |* EIN PROGRAMM V|
00000180: 4F 4E 20 20 20 20 4F 4C  41 46 20 4B 55 42 49 54  |ON    OLAF KUBIT|
00000190: 5A 20 20 20 20 20 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  |Z      *********|
000001A0: 2A 2A 2A 2A 00 AA 1D 64  00 8F 00 B1 1D 6E 00 FE  |****...d.....n..|
000001B0: 25 00 DE 1D 78 00 85 22  C2 49 54 54 45 20 44 45  |%...x..".ITTE DE|
000001C0: 4E 20 CE 41 4D 45 4E 20  45 49 4E 47 45 42 45 4E  |N .AMEN EINGEBEN|
000001D0: 20 3A 22 3B 4E 41 24 3A  4E 24 B2 4E 41 24 00 45  | :";NA$:N$.NA$.E|
000001E0: 1E 82 00 EB 3A 85 22 C4  41 54 45 49 20 49 4E 20  |....:.".ATEI IN |
000001F0: 28 31 29 D0 D2 C7 2D C4  41 54 45 49 20 4F 44 45  |(1)...-.ATEI ODE|
00000200: 52 20 49 4E 20 45 49 4E  45 20 28 32 29 D3 C5 D1  |R IN EINE (2)...|
00000210: 2D C4 41 54 45 49 20 55  4D 57 41 4E 44 45 4C 4E  |-.ATEI UMWANDELN|
00000220: 20 22 3B 44 41 25 3A EC  20 FC 20 44 41 25 B1 30  | ";DA%:. . DA%.0|
00000230: 20 B0 20 44 41 25 B3 33  3A 20 44 41 25 B2 44 41  | . DA%.3: DA%.DA|
00000240: 25 AA 31 32 38 00 57 1E  8C 00 9F 20 31 2C 38 2C  |%.128.W.... 1,8,|
00000250: 31 35 2C 22 49 30 22 00  84 1E 96 00 8B 20 44 41  |15,"I0"...... DA|
00000260: 25 B2 31 32 39 20 A7 20  9F 20 32 2C 38 2C 32 2C  |%.129 . . 2,8,2,|
00000270: 22 49 30 3A 22 AA 4E 24  AA 22 2C 50 2C 53 22 3A  |"I0:".N$.",P,S":|
00000280: D5 20 FE 18 00 A3 1E A0  00 9F 20 32 2C 38 2C 32  |. ........ 2,8,2|
00000290: 2C 22 49 30 3A 22 AA 4E  24 AA 22 2C 50 2C 52 22  |,"I0:".N$.",P,R"|
000002A0: 3A FE 19 00 BB 1E AA 00  99 44 53 24 3A 8B 20 44  |:........DS$:. D|
000002B0: 53 B3 B1 30 20 A7 20 FE  0F 3A 90 00 D4 1E B4 00  |S..0 . ..:......|
000002C0: A1 23 32 2C 41 24 2C 42  24 3A 8B 20 53 54 20 A7  |.#2,A$,B$:. ST .|
000002D0: 20 31 37 30 00 DE 1E BE  00 A0 32 3A A0 31 00 F5  | 170......2:.1..|
000002E0: 1E C8 00 41 B2 20 C6 28  41 24 29 3A 20 42 B2 20  |...A. .(A$): B. |
000002F0: C6 28 42 24 29 00 2D 1F  D2 00 99 20 22 D3 54 41  |.(B$).-.... ".TA|
00000300: 52 54 3A 20 20 C4 45 5A  49 4D 41 4C 3A 20 22 3B  |RT:  .EZIMAL: ";|
00000310: 41 AA 42 AC 32 35 36 2C  22 20 20 C8 45 58 41 3A  |A.B.256,"  .EXA:|
00000320: 20 22 3B D2 28 41 AA 42  AC 32 35 36 29 00 63 1F  | ";.(A.B.256).c.|
00000330: DC 00 8B 20 44 41 25 B2  31 32 39 20 A7 20 53 31  |... DA%.129 . S1|
00000340: B2 30 3A 53 32 B2 D1 28  22 37 30 22 29 3A 8F 20  |.0:S2..("70"):. |
00000350: 53 54 41 52 54 20 4A 41  4E 55 53 53 50 45 49 43  |START JANUSSPEIC|
00000360: 48 45 52 00 7F 1F E6 00  8B 20 44 41 25 B2 31 33  |HER...... DA%.13|
00000370: 30 20 A7 20 53 31 B2 33  32 3A 53 32 B2 53 31 00  |0 . S1.32:S2.S1.|
00000380: 98 1F F0 00 4A B2 C3 28  4E 24 29 3A 8B 20 4A B2  |....J..(N$):. J.|
00000390: 31 36 20 A7 20 32 36 30  00 B8 1F FA 00 81 20 49  |16 . 260...... I|
000003A0: B2 4A AA 31 20 A4 20 31  36 3A 4E 24 B2 4E 24 AA  |.J.1 . 16:N$.N$.|
000003B0: C7 28 31 36 30 29 3A 82  00 D0 1F 04 01 9F 31 2C  |.(160):.......1,|
000003C0: 38 2C 31 35 3A 9F 20 32  2C 38 2C 32 2C 22 23 22  |8,15:. 2,8,2,"#"|
000003D0: 00 DD 1F 0E 01 54 B2 31  38 3A 53 B2 31 00 F2 1F  |.....T.18:S.1...|
000003E0: 18 01 98 31 2C 22 55 31  3A 22 3B 32 3B 30 3B 54  |...1,"U1:";2;0;T|
000003F0: 3B 53 00 11 20 22 01 98  31 2C 22 42 2D 50 3A 22  |;S.. "..1,"B-P:"|
00000400: 3B 32 3B 30 3A 20 A1 20  23 32 2C 20 41 24 2C 42  |;2;0: . #2, A$,B|
00000410: 24 00 29 20 2C 01 54 B2  C6 28 41 24 29 3A 53 B2  |$.) ,.T..(A$):S.|
00000420: C6 28 42 24 29 3A 50 B2  32 00 43 20 36 01 98 31  |.(B$):P.2.C 6..1|
00000430: 2C 22 42 2D 50 3A 22 3B  32 3B 50 3A 20 A1 23 32  |,"B-P:";2;P: .#2|
00000440: 2C 43 24 00 5D 20 40 01  43 B2 C6 28 43 24 29 3A  |,C$.] @.C..(C$):|
00000450: 8B 43 B3 B1 44 41 25 20  A7 20 33 36 30 00 7B 20  |.C..DA% . 360.{ |
00000460: 4A 01 A1 23 32 2C 41 24  2C 42 24 3A 46 24 B2 22  |J..#2,A$,B$:F$."|
00000470: 22 3A 81 49 B2 31 20 A4  20 31 36 00 91 20 54 01  |":.I.1 . 16.. T.|
00000480: A1 23 32 2C 43 24 3A 46  24 B2 46 24 AA 43 24 3A  |.#2,C$:F$.F$.C$:|
00000490: 82 00 A3 20 5E 01 8B 20  46 24 B2 4E 24 20 A7 20  |... ^.. F$.N$ . |
000004A0: 33 38 30 00 BD 20 68 01  50 B2 50 AA 33 32 3A 20  |380.. h.P.P.32: |
000004B0: 8B 20 50 B3 32 35 36 20  A7 20 33 31 30 00 EB 20  |. P.256 . 310.. |
000004C0: 72 01 8B 20 54 B1 30 20  A7 20 89 20 32 38 30 20  |r.. T.0 . . 280 |
000004D0: 3A D5 20 99 22 C6 49 4C  45 20 4E 49 43 48 54 20  |:. .".ILE NICHT |
000004E0: 47 45 46 55 4E 44 45 4E  22 3A 80 00 FF 20 7C 01  |GEFUNDEN":... |.|
000004F0: 41 B2 C6 28 41 24 29 3A  42 B2 C6 28 42 24 29 00  |A..(A$):B..(B$).|
00000500: 14 21 86 01 98 31 2C 22  55 31 3A 22 3B 32 3B 30  |.!...1,"U1:";2;0|
00000510: 3B 41 3B 42 00 5B 21 90  01 98 31 2C 22 42 2D 50  |;A;B.[!...1,"B-P|
00000520: 3A 22 3B 32 3B 32 3A 20  98 32 2C C7 28 53 31 29  |:";2;2: .2,.(S1)|
00000530: 3B C7 28 53 32 29 3B 3A  20 8F 20 43 48 41 52 41  |;.(S2);: . CHARA|
00000540: 43 54 45 52 20 46 55 45  52 20 41 44 52 45 53 53  |CTER FUER ADRESS|
00000550: 45 20 45 49 4E 53 45 54  5A 45 4E 00 70 21 9A 01  |E EINSETZEN.p!..|
00000560: 98 31 2C 22 55 32 3A 22  3B 32 3B 30 3B 41 3B 42  |.1,"U2:";2;0;A;B|
00000570: 00 77 21 A4 01 FE 0F 00  7D 21 AE 01 8F 00 AA 21  |.w!.....}!.....!|
00000580: B8 01 8F 20 48 49 45 52  20 46 41 45 4E 47 54 20  |... HIER FAENGT |
00000590: 44 49 45 20 50 52 47 20  3C 2D 3E 20 53 45 51 20  |DIE PRG <-> SEQ |
000005A0: 52 4F 55 54 49 4E 45 20  41 4E 00 B7 21 C2 01 54  |ROUTINE AN..!..T|
000005B0: B2 31 38 3A 53 B2 31 00  E9 21 CC 01 4C B2 C3 28  |.18:S.1..!..L..(|
000005C0: 4E 41 24 29 3A 8B 20 4C  B3 31 36 20 A7 20 81 20  |NA$):. L.16 . . |
000005D0: 49 B2 4C AA 31 A4 31 36  3A 4E 41 24 B2 4E 41 24  |I.L.1.16:NA$.NA$|
000005E0: AA C7 28 31 36 30 29 3A  82 00 FB 21 D6 01 9F 31  |..(160):...!...1|
000005F0: 2C 38 2C 31 35 2C 22 49  30 3A 22 00 0B 22 E0 01  |,8,15,"I0:".."..|
00000600: 9F 32 2C 38 2C 32 2C 22  23 22 3A 00 20 22 EA 01  |.2,8,2,"#":. "..|
00000610: 98 31 2C 22 55 31 3A 22  3B 32 3B 30 3B 54 3B 53  |.1,"U1:";2;0;T;S|
00000620: 00 53 22 F4 01 98 31 2C  22 42 2D 50 3A 22 3B 32  |.S"...1,"B-P:";2|
00000630: 3B 30 3A 20 A1 23 32 2C  41 24 2C 42 24 3A 54 52  |;0: .#2,A$,B$:TR|
00000640: B2 C6 28 41 24 29 3A 53  43 B2 C6 28 42 24 29 3A  |..(A$):SC..(B$):|
00000650: 50 B2 32 00 83 22 FE 01  98 31 2C 22 42 2D 50 3A  |P.2.."...1,"B-P:|
00000660: 22 3B 32 3B 50 3A A1 23  32 2C 43 24 3A 43 B2 C6  |";2;P:.#2,C$:C..|
00000670: 28 43 24 29 3A 8B 20 43  B3 B1 44 41 25 20 A7 20  |(C$):. C..DA% . |
00000680: 35 35 30 00 97 22 08 02  A1 23 32 2C 41 24 2C 42  |550.."...#2,A$,B|
00000690: 24 3A 46 24 B2 22 22 00  C1 22 12 02 81 20 49 B2  |$:F$."".."... I.|
000006A0: 31 A4 31 36 3A A1 23 32  2C 43 24 3A 46 24 B2 46  |1.16:.#2,C$:F$.F|
000006B0: 24 AA 43 24 3A 82 3A 8B  46 24 B2 22 22 A7 35 37  |$.C$:.:.F$."".57|
000006C0: 30 00 D2 22 1C 02 8B 20  4E 41 24 B2 46 24 A7 36  |0.."... NA$.F$.6|
000006D0: 30 30 00 E8 22 26 02 50  B2 50 AA 33 32 3A 8B 50  |00.."&.P.P.32:.P|
000006E0: B3 32 35 36 A7 35 31 30  00 03 23 30 02 8B 20 54  |.256.510..#0.. T|
000006F0: 52 B1 30 A7 20 54 B2 54  52 3A 53 B2 53 43 3A 89  |R.0. T.TR:S.SC:.|
00000700: 34 39 30 00 22 23 3A 02  FE 0F 3A 99 22 C6 49 4C  |490."#:...:.".IL|
00000710: 45 20 4E 49 43 48 54 20  47 45 46 55 4E 44 45 4E  |E NICHT GEFUNDEN|
00000720: 21 22 00 28 23 44 02 80  00 41 23 4E 02 8F 20 2A  |!".(#D...A#N.. *|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000740: 2A 00 55 23 58 02 41 B2  C6 28 41 24 29 3A 42 B2  |*.U#X.A..(A$):B.|
00000750: C6 28 42 24 29 00 77 23  62 02 8B 20 44 41 25 B2  |.(B$).w#b.. DA%.|
00000760: 31 32 39 20 A7 20 54 59  25 B2 31 33 30 3A D5 20  |129 . TY%.130:. |
00000770: 54 59 25 B2 31 32 39 00  94 23 6C 02 98 31 2C 22  |TY%.129..#l..1,"|
00000780: 42 2D 50 3A 22 3B 32 3B  50 3A 98 32 2C C7 28 54  |B-P:";2;P:.2,.(T|
00000790: 59 25 29 3B 00 A9 23 76  02 98 31 2C 22 55 32 3A  |Y%);..#v..1,"U2:|
000007A0: 22 3B 32 3B 30 3B 54 3B  53 00 B0 23 80 02 FE 0F  |";2;0;T;S..#....|
000007B0: 00 BE 23 8A 02 99 22 46  45 52 54 49 47 22 00 00  |..#..."FERTIG"..|
000007C0: 00                                                |.               |

....... LISTING 8 VON JANUS-OK.C.... PRO
GRAMM ZUM UMWANDELN VON PRG DATEIEN IN S
EQ-DATEIEN, DIE VON...... SUPERSCRIPT UN
D ANDEREN PROGRAMMEN GELESEN WERDEN KOEN
NEN,...... DA DIESE DIE STARTADRESSEN AL
S DATEN INTERPRETIEREN...(...%.2..    AC
HTUNG!  VORHER MUESSEN DIE UMLAUTE UMGEW
ANDELT WERDEN.+.<...\.F.. DAS PROGRAMM J
ANUS MUSS EINGEBUNDEN SEIN !.B.P.....Z..
 ******** EIN PROGRAMM VON    OLAF KUBIT
Z      *************...D.....N..%...X.."
BITTE DEN NAMEN EINGEBEN :";NA$:N$.NA$.E
....:."DATEI IN (1)PRG-DATEI ODER IN EIN
E (2)SEQ-DATEI UMWANDELN ";DA%:. . DA%.0
 . DA%.3: DA%.DA%.128.W.... 1,8,15,"I0".
..... DA%.129 . . 2,8,2,"I0:".N$.",P,S":
U ..... .. 2,8,2,"I0:".N$.",P,R":.......
.DS$:. DS..0 . ..:..T....#2,A$,B$:. ST .
 170..... 2: 1...H.A. F(A$): B. F(B$).-.
R.. "START:  DEZIMAL: ";A.B.256,"  HEXA:
 ";R(A.B.256).C.... DA%.129 . S1.0:S2.Q(
"70"):. START JANUSSPEICHER..... DA%.13
0 . S1.32:S2.S1.....J.C(N$):. J.16 . 260
...... I.J.1 . 16:N$.N$.G(160):..P....1,
8,15:. 2,8,2,"#".....T.18:S.1......1,"U1
:";2;0;T;S.. "..1,"B-P:";2;0: . #2, A$,B
$.) ,.T.F(A$):S.F(B$):P.2.C 6..1,"B-P:";
2;P: .#2,C$.] @.C.F(C$):.C..DA% . 360.{ 
J..#2,A$,B$:F$."":.I.1 . 16.. T..#2,C$:F
$.F$.C$:... ^.. F$.N$ . 380.. H.P.P.32: 
. P.256 . 310.. R.. T.0 . . 280 :U ."FIL
E NICHT GEFUNDEN":... |.A.F(A$):B.F(B$).
.!...1,"U1:";2;0;A;B.[!...1,"B-P:";2;2: 
.2,G(S1);G(S2);: . CHARACTER FUER ADRESS
E EINSETZEN.P!...1,"U2:";2;0;A;B.W!.....
}!.....!... HIER FAENGT DIE PRG <-> SEQ 
ROUTINE AN..!B.T.18:S.1..!L.L.C(NA$):. L
.16 . . I.L.1.16:NA$.NA$.G(160):...!V..1
,8,15,"I0:".."...2,8,2,"#":. "...1,"U1:"
;2;0;T;S.S"...1,"B-P:";2;0: .#2,A$,B$:TR
.F(A$):SC.F(B$):P.2.."...1,"B-P:";2;P:.#
2,C$:C.F(C$):. C..DA% . 550.."...#2,A$,B
$:F$."".A"... I.1.16:.#2,C$:F$.F$.C$:.:.
F$."".570.R"... NA$.F$.600.."&.P.P.32:.P
.256.510..#0.. TR.0. T.TR:S.SC:.490."#:.
..:."FILE NICHT GEFUNDEN!".(#D...A#N.. *
*****************.U#X.A.F(A$):B.F(B$).W#
B.. DA%.129 . TY%.130:U TY%.129..#L..1,"
B-P:";2;P:.2,G(TY%);..#V..1,"U2:";2;0;T;
S..#......#..."FERTIG"...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL