


  ARNOR Z80 ASSEMBLER version 1.15                              Page 001

00002  0000  (0000)                ORG   &0000        ;Source 'CBM.MAX' V. 2.1.6
00003                     ;NOLIST        ;360 lines - 2023.09.27
00004  0000                        WRITE "-C.COM"     ;Write this Application to disc
00006                     ;Therefore the next 128 Bytes contain an enhanced FutureOS header
00007                     
00008  0000  (0009)        DEU     EQU   &09
00009  0000  (0000)        ENG     EQU   &00
00010  0000  (0000)        FRA     EQU   &00
00011  0000  (0000)        SPA     EQU   &00
00012  0000  (0000)        NED     EQU   &00
00013                     
00014                     
00015                     ;---== 128 Bytes FutureOS Typ 3 Graphic Icon - 24(x) * 16(y) MODE 1 pixel ==---
00016                     
00017  0000  00 2D 43 6F           DB    &00,"-ComBarMenu"
       0004  6D 42 61 72 
       0008  4D 65 6E 75 
00018  000C  F0 F0 F0 F0           DB    &F0,&F0,&F0,&F0,&F0,&F0 
                          ;1st scan line icon
       0010  F0 F0 
00019                     
00020  0012  82 00 00              DB    &82,&00,&00  ;FileType FutureOS binary
00021                     
00022  0015  00 00                 DW    &0000        ;Address to load this file
00023  0017  C0                    DB    &C0          ;RAM configuration to load file
00024  0018  00 81                 DW    &8100        ;Length of file
00025  001A  00 00                 DW    &0000        ;Autostart of this file
00026                     
00027  001C  00                    DB    &00          ;Over-Byte file-length
00028  001D  C0                    DB    &C0          ;Autostart RAM config
00029                     
00030  001E  B4 B4 D2 D2           DB    &B4,&B4,&D2,&D2,&E1,&D2 
                          ;Icon scan lines 2-6
       0022  E1 D2 
00031  0024  F0 F0 F0 F0           DB    &F0,&F0,&F0,&F0,&F0,&F0
       0028  F0 F0 
00032  002A  0F 0F 0F 0F           DB    &0F,&0F,&0F,&0F,&0F,&0F
       002E  0F 0F 
00033  0030  78 C3 0F 0F           DB    &78,&C3,&0F,&0F,&0F,&0F
       0034  0F 0F 
00034  0036  4B 4B 6F 7F           DB    &4B,&4B,&6F,&7F,&2F,&2F
       003A  2F 2F 
00035  003C  78 C3 9F 4F           DB    &78,&C3,&9F,&4F
00036                     
00037  0040  00 81                 DW    &8100        ;irrelevant (repeat of file-length)
00038  0042  03                    DB    &03          ;IconTyp &03
00039  0043  D8 1C                 DW    &1CD8        ;Check sum of header bytes &0000-&0042(incl.)
00040                     
00041  0045  BF 6F                 DB    &BF,&6F
00042  0047  4B 5B 0F 4F           DB    &4B,&5B,&0F,&4F,&AF,&AF 
                          ;icon scan lines 8-16
       004B  AF AF 
00043  004D  78 D3 0F 7F           DB    &78,&D3,&0F,&7F,&2F,&AF
       0051  2F AF 
00044  0053  4B 5B 0F 4F           DB    &4B,&5B,&0F,&4F,&AF,&AF
       0057  AF AF 
00045  0059  78 C3 9F 4F           DB    &78,&C3,&9F,&4F,&AF,&AF
       005D  AF AF 
00046  005F  78 C3 6F 7F           DB    &78,&C3,&6F,&7F,&2F,&AF
       0063  2F AF 
00047  0065  4B 4B 0F 0F           DB    &4B,&4B,&0F,&0F,&0F,&0F
       0069  0F 0F 
00048  006B  78 C3 0F 0F           DB    &78,&C3,&0F,&0F,&0F,&0F
       006F  0F 0F 
00049  0071  0F 0F 0F 0F           DB    &0F,&0F,&0F,&0F,&0F,&0F
       0075  0F 0F 
00050  0077  0F 0F 0F 0F           DB    &0F,&0F,&0F,&0F,&0F,&0F
       007B  0F 0F 
00051  007D  43 42 4D              DB    "CBM"
00052                     
00053                     
00054  0000  (0000)                ORG   &0000        ;---------== Here the application itself starts at &0000 ==---------
00055                     
00056                     
00057                     ;The REsTarts 2-7 are free for the application
00058                     
00059  0000  C3 39 00      RES0    JP    START_CB 
00059  0003  (0005)                DS    &05,&C9      ;Restart 0 serves as 'Cold Boot'
00060  0008  C3 E8 0A      RES1    JP    M_DISP2  
00060  000B  (0005)                DS    &05,&C9      ;Restart 1 calls Menu
00061                     
00062  0010  C9            RES2    RET   
00062  0011  (0007)                DS    &07,&C9      ;RSTs 2-7 are free for the application!
00063  0018  C9            RES3    RET   
00063  0019  (0007)                DS    &07,&C9
00064  0020  C9            RES4    RET   
00064  0021  (0007)                DS    &07,&C9
00065  0028  C9            RES5    RET   
00065  0029  (0007)                DS    &07,&C9
00066  0030  C9            RES6    RET   
00066  0031  (0007)                DS    &07,&C9
00067                     
00068  0038  C9            RES7    RET                ;here you can implement YOUR Inerrupt routine(s), free for application
00069                     
00070                     
00071                     ;Start CBM
00072                     
00073  0039  21 AD C9      START_CB
                                   LD    HL,INRZ
00073  003C  CD 0C FF              CALL  ROM_C        ;Activate RAM charset. ROM C stays active!
00074                     
00075  003F  3A FD FE              LD    A,(&FEFD)
00075  0042  FE 23                 CP    A,&23
00075  0044  30 32                 JR    NC,CBM       ;Year of OS release 2022? (read from ROM C)
00076                     
00077  0046  CD 22 FF              CALL  OSRON_A
00077  0049  21 58 00              LD    HL,OSUER
00077  004C  CD 8C D4              CALL  TERM_2       ;Display error message
00078                     
00079  004F  CD 15 0C              CALL  WAIT
00079  0052  21 9D FE              LD    HL,TUR_E
00079  0055  C3 12 FF              JP    ROM_D        ;Back to Turbo Desk
00080                     
00081  0058  1E 16 11 50   OSUER   DB    &1E,&16,&11,"Please update your FutureOS!",&00
       005C  6C 65 61 73 
       0060  65 20 75 70 
       0064  64 61 74 65 
       0068  20 79 6F 75 
       006C  72 20 46 75 
       0070  74 75 72 65 
       0074  4F 53 21 00 
00082                     
00083                     
00084                     ;/====================\
00085                     ; Command Bar Menu ... |
00086                     ;\====================/
00087                     ;
00088                     ;This part of the FutureOS provides Command Bar Menus
00089                     ;and PULL DOWN Menus
00090                     
00091  0078  31 FE BF      CBM     LD    SP,&BFFE     ;Set Stack Pointer (SP) to valid address!
00092                     
00093  007B  01 C0 7F              LD    BC,&7FC0
00093  007E  ED 49                 OUT   (C),C
00093  0080  ED 43 4C B8           LD    (AKT_RAM),BC 
                          ;main RAM on!
00094                     
00095  0084  01 7E FA              LD    BC,&FA7E
00095  0087  3A 7F B9              LD    A,(MO_ST)
00095  008A  ED 79                 OUT   (C),A        ;Drive Motor OFF (/ let it on)
00096                     
00097  008C  21 0E D6              LD    HL,S80X25
00097  008F  CD 00 FF              CALL  ROM_A        ;80 x 25 characters
00098                     
00099  0092  21 BD 0F              LD    HL,CM_BAR
00099  0095  CF                    RST   1            ;Main Menu
00100                     
00101  0096  3C                    INC   A
00101  0097  28 DF                 JR    Z,CBM        ;ESC was pressed
00102  0099  3D                    DEC   A
00102  009A  87                    ADD   A,A
00103                     
00104  009B  5F                    LD    E,A
00104  009C  16 00                 LD    D,&00
00104  009E  ED 53 59 0A           LD    (CBM_BAR),DE 
                          ;Selection Main-Bar * 2
00105  00A2  21 EC 0D              LD    HL,CBM_M
00105  00A5  19                    ADD   HL,DE
00106                     
00107  00A6  E5                    PUSH  HL
00107  00A7  CD 35 0C              CALL  YWART
00107  00AA  E1                    POP   HL
00108                     
00109  00AB  5E                    LD    E,(HL)
00109  00AC  23                    INC   HL
00109  00AD  56                    LD    D,(HL)       ;Adr. of Sub-Menu-Level_2
00110  00AE  EB                    EX    DE,HL
00110  00AF  CF                    RST   1
00111                     
00112  00B0  3C                    INC   A
00112  00B1  28 C5                 JR    Z,CBM        ;ESC from Sub-Menu-Level_2, goto CBM
00113  00B3  3D                    DEC   A
00113  00B4  87                    ADD   A,A
00114                     
00115  00B5  26 00                 LD    H,&00
00115  00B7  6F                    LD    L,A
00116  00B8  22 5B 0A              LD    (CBM_S_1),HL 
                          ;Selection Sub-Menu-Level_2 * 2
00117  00BB  2A 59 0A              LD    HL,(CBM_BAR)
00118  00BE  11 52 0C              LD    DE,SMB2
00118  00C1  19                    ADD   HL,DE        ;(Selection Main-Bar * 2) + Routine_Table_1
00119                     
00120  00C2  5E                    LD    E,(HL)
00120  00C3  23                    INC   HL
00120  00C4  56                    LD    D,(HL)       ;Target_address Routine_Table_2 (Subroutines)
00121  00C5  2A 5B 0A              LD    HL,(CBM_S_1)
00121  00C8  19                    ADD   HL,DE        ; + Selection Sub-Menu-Level_2 * 2
00122  00C9  5E                    LD    E,(HL)
00122  00CA  23                    INC   HL
00122  00CB  56                    LD    D,(HL)       ;Target_address of selected subroutine!
00123  00CC  EB                    EX    DE,HL
00123  00CD  E9                    JP    (HL)
00124                     
00125                     
00126  00CE                        READ  "CBM-SUB1.MAX" 
                          ;Read CBM's sub functions and menu options to lower RAM ---;
00127                     ;Source 'CBM-SUB1.MAX' - Einzelsprache - Ver. 2.1.6
00128                     ;1038 lines - 2023.09.27
00129                     
00130                     
00131                     ;Function LOAD
00132                     
00133  00CE  3E FF         R_LAD   LD    A,&FF
00133  00D0  DD 21 98 FD           LD    IX,FMD32
00133  00D4  CD 2A FF              CALL  ROM_A2C      ;any file tagged?
00134                     
00135  00D7  01 C0 7F              LD    BC,&7FC0
00135  00DA  ED 49                 OUT   (C),C        ;switch first 64 KB active
00136                     
00137  00DC  01 7E FA              LD    BC,&FA7E
00137  00DF  3A 7F B9              LD    A,(MO_ST)
00137  00E2  ED 79                 OUT   (C),A        ;Drive motor (on/)OFF
00138                     
00139  00E4  7D                    LD    A,L
00139  00E5  B4                    OR    A,H
00139  00E6  28 2F                 JR    Z,R_LAE      ;No file is tagged!
00140                     
00141  00E8  21 F0 B8              LD    HL,REG16_6
00141  00EB  11 18 05              LD    DE,LSFNB
00141  00EE  01 10 00              LD    BC,&0010
00141  00F1  ED B0                 LDIR               ;save 16er-FileName to buffer
00142                     
00143  00F3  21 0F 05              LD    HL,RLADW
00143  00F6  CD 5F 0A              CALL  DR_WIN       ;make window
00144                     
00145  00F9  21 18 05              LD    HL,LSFNB
00145  00FC  01 10 00              LD    BC,&0010
00145  00FF  CD C2 D1              CALL  STR_2I       ;print D00;FileNameExt invers
00146                     
00147  0102  21 33 15              LD    HL,M_LOAD
00147  0105  CF                    RST   1            ;Menu LOAD No / Yes
00148                     
00149  0106  3C                    INC   A
00149  0107  CA 78 00              JP    Z,CBM        ;ESC!
00150  010A  3D                    DEC   A
00150  010B  CA 27 01              JP    Z,RL_Y       ;YES!
00151                     
00152  010E  DD 21 98 FD           LD    IX,FMD32
00152  0112  CD 2A FF              CALL  ROM_A2C      ;NO, UNtag file!
00153                     
00154  0115  18 B7                 JR    R_LAD        ;Start LOAD again
00155                     
00156                     ;NO File is tagged!
00157                     
00158  0117  CD 4A 03      R_LAE   CALL  G_UNE        ;Select file in pull down menu
00159                     
00160  011A  3E FF                 LD    A,&FF
00160  011C  DD 21 98 FD           LD    IX,FMD32
00160  0120  CD 2A FF              CALL  ROM_A2C      ;Is now a file selected?
00161                     
00162  0123  7D                    LD    A,L
00162  0124  B4                    OR    A,H
00162  0125  28 F0                 JR    Z,R_LAE      ;Still NO file tagged! Ask again!
00163                     
00164                     ;File found, should be loaded!
00165                     
00166  0127  C3 78 00      RL_Y    jp    cbm          ;### go back, but you can load a file here, use C-ROM routine LADEN
00167                     
00168  012A  3E 03                 LD    A,&03
00168  012C  32 DF B8              LD    (REG08_3),A  ; 3 --> LOAD in Expansion-RAM
00169                     
00170  012F  21 00 40              LD    HL,&4000
00170  0132  22 E6 B8              LD    (REG16_1),HL 
                          ;Target-Address of file (to load)
00171  0135  21 C4 7F              LD    HL,&7FC4
00171  0138  22 4C B8              LD    (AKT_RAM),HL 
                          ;Target-RAM (where file should be loaded)
00172  013B  DD 21 8F FD           LD    IX,LADEN
00172  013F  CD 09 40              CALL  U_LOAD       ;call LADEN through Hi-RAM-routine U_LOAD
00173  0142  C3 78 00              JP    CBM
00174                     
00175                     
00176                     ;Function select files from 16er DIR
00177                     ;
00178                     ;entry at G_UNE
00179                     
00180  0145  (0009)        RL_TT   IF    DEU
00180  0145  46 6F 6C 67           DB    "Folgende Seite ","Vorherige Seite"
       0149  65 6E 64 65 
       014D  20 53 65 69 
       0151  74 65 20 56 
       0155  6F 72 68 65 
       0159  72 69 67 65 
       015D  20 53 65 69 
       0161  74 65 
00180  0163                        ENDIF 
00181                     
00182  0163  (0000)                IF    ENG
00182  0163                        DB    "Following side ","Previous side  "
00182  0163                        ENDIF 
00183  0163  (0000)                IF    FRA
00183  0163                        DB    "Lendemain page ","Anterieure page"
00183  0163                        ENDIF 
00184  0163  (0000)                IF    SPA
00184  0163                        DB    "Pagina proxima ","Pagina anterior"
00184  0163                        ENDIF 
00185  0163  (0000)                IF    NED
00185  0163                        DB    "Volgende kant  ","Vorige kant    "
00185  0163                        ENDIF 
00186                     
00187                     
00188                     ;File select window
00189                     
00190  0163  04 1E 12 11   DAM_TXT DB    &04,&1E,&12,&11
00191                     
00192  0167  00 00 00 00           DB    0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,0
       016B  00 00 00 00 
       016F  00 00 00 00 
       0173  00 00 00 00 
       0177  00 00 
00193                     
00194  0179  12            M_DAM   DB    &12
00195                     
00196  017A  A1 01 A2 01           DW    DAM_US,DAM_00,DAM_01,DAM_02,DAM_03,DAM_04,DAM_05,DAM_06,DAM_07,DAM_08
       017E  B7 01 CC 01 
       0182  E1 01 F6 01 
       0186  0B 02 20 02 
       018A  35 02 4A 02 
00197  018E  5F 02 74 02           DW    DAM_09,DAM_0A,DAM_0B,DAM_0C,DAM_0D,DAM_0E,DAM_0F,DAM_10,DAM_11
       0192  89 02 9E 02 
       0196  B3 02 C8 02 
       019A  DD 02 F2 02 
       019E  07 03 
00198  01A0  00                    DB    &00
00199                     
00200  01A1  00            DAM_US  DB    &00
00201  01A2  1F 05 1F 20   DAM_00  DB    &1F,&05,&1F," Folgende Seite  ",&00
       01A6  46 6F 6C 67 
       01AA  65 6E 64 65 
       01AE  20 53 65 69 
       01B2  74 65 20 20 
       01B6  00 
00202  01B7  1F 06 1F 20   DAM_01  DB    &1F,&06,&1F," Vorherige Seite ",&00
       01BB  56 6F 72 68 
       01BF  65 72 69 67 
       01C3  65 20 53 65 
       01C7  69 74 65 20 
       01CB  00 
00203  01CC  1F 07 1F 20   DAM_02  DB    &1F,&07,&1F," DUU:FileNameExt ",&00
       01D0  44 55 55 3A 
       01D4  46 69 6C 65 
       01D8  4E 61 6D 65 
       01DC  45 78 74 20 
       01E0  00 
00204  01E1  1F 08 1F 20   DAM_03  DB    &1F,&08,&1F,"                 ",&00
       01E5  20 20 20 20 
       01E9  20 20 20 20 
       01ED  20 20 20 20 
       01F1  20 20 20 20 
       01F5  00 
00205  01F6  1F 09 1F 20   DAM_04  DB    &1F,&09,&1F,"                 ",&00
       01FA  20 20 20 20 
       01FE  20 20 20 20 
       0202  20 20 20 20 
       0206  20 20 20 20 
       020A  00 
00206  020B  1F 0A 1F 20   DAM_05  DB    &1F,&0A,&1F,"                 ",&00
       020F  20 20 20 20 
       0213  20 20 20 20 
       0217  20 20 20 20 
       021B  20 20 20 20 
       021F  00 
00207  0220  1F 0B 1F 20   DAM_06  DB    &1F,&0B,&1F,"                 ",&00
       0224  20 20 20 20 
       0228  20 20 20 20 
       022C  20 20 20 20 
       0230  20 20 20 20 
       0234  00 
00208  0235  1F 0C 1F 20   DAM_07  DB    &1F,&0C,&1F,"                 ",&00
       0239  20 20 20 20 
       023D  20 20 20 20 
       0241  20 20 20 20 
       0245  20 20 20 20 
       0249  00 
00209  024A  1F 0D 1F 20   DAM_08  DB    &1F,&0D,&1F,"                 ",&00
       024E  20 20 20 20 
       0252  20 20 20 20 
       0256  20 20 20 20 
       025A  20 20 20 20 
       025E  00 
00210  025F  1F 0E 1F 20   DAM_09  DB    &1F,&0E,&1F,"                 ",&00
       0263  20 20 20 20 
       0267  20 20 20 20 
       026B  20 20 20 20 
       026F  20 20 20 20 
       0273  00 
00211  0274  1F 0F 1F 20   DAM_0A  DB    &1F,&0F,&1F,"                 ",&00
       0278  20 20 20 20 
       027C  20 20 20 20 
       0280  20 20 20 20 
       0284  20 20 20 20 
       0288  00 
00212  0289  1F 10 1F 20   DAM_0B  DB    &1F,&10,&1F,"                 ",&00
       028D  20 20 20 20 
       0291  20 20 20 20 
       0295  20 20 20 20 
       0299  20 20 20 20 
       029D  00 
00213  029E  1F 11 1F 20   DAM_0C  DB    &1F,&11,&1F,"                 ",&00
       02A2  20 20 20 20 
       02A6  20 20 20 20 
       02AA  20 20 20 20 
       02AE  20 20 20 20 
       02B2  00 
00214  02B3  1F 12 1F 20   DAM_0D  DB    &1F,&12,&1F,"                 ",&00
       02B7  20 20 20 20 
       02BB  20 20 20 20 
       02BF  20 20 20 20 
       02C3  20 20 20 20 
       02C7  00 
00215  02C8  1F 13 1F 20   DAM_0E  DB    &1F,&13,&1F,"                 ",&00
       02CC  20 20 20 20 
       02D0  20 20 20 20 
       02D4  20 20 20 20 
       02D8  20 20 20 20 
       02DC  00 
00216  02DD  1F 14 1F 20   DAM_0F  DB    &1F,&14,&1F,"                 ",&00
       02E1  20 20 20 20 
       02E5  20 20 20 20 
       02E9  20 20 20 20 
       02ED  20 20 20 20 
       02F1  00 
00217  02F2  1F 15 1F 20   DAM_10  DB    &1F,&15,&1F,"                 ",&00
       02F6  20 20 20 20 
       02FA  20 20 20 20 
       02FE  20 20 20 20 
       0302  20 20 20 20 
       0306  00 
00218  0307  1F 16 1F 20   DAM_11  DB    &1F,&16,&1F,"                 ",&00
       030B  20 20 20 20 
       030F  20 20 20 20 
       0313  20 20 20 20 
       0317  20 20 20 20 
       031B  00 
00219                     
00220                     
00221                     ;No file or media tagged, go get some DIRectories!
00222                     ;
00223  031C  3A C3 BB      RNFM    LD    A,(IDE_XR)
00223  031F  B7                    OR    A,A
00223  0320  28 24                 JR    Z,RNFN       ;No M4 ROM found!
00224                     ;
00225  0322  3A FF B9              LD    A,(M4_ERAM)
00225  0325  FE C4                 CP    A,&C4
00225  0327  38 1D                 JR    C,RNFN       ;No M4 ERAM found!
00226  0329  06 7F                 LD    B,&7F
00226  032B  ED 79                 OUT   (C),A
00227  032D  2A 00 48              LD    HL,(&4800)
00227  0330  7D                    LD    A,L
00227  0331  B4                    OR    A,H
00227  0332  3E 0D                 LD    A,&0D
00227  0334  C2 C0 0C              JP    NZ,Z_M4D     ;M4 'N' DIR present
00228  0337  2A 00 68              LD    HL,(&6800)
00228  033A  7D                    LD    A,L
00228  033B  B4                    OR    A,H
00228  033C  3E 0E                 LD    A,&0E
00228  033E  C2 C0 0C              JP    NZ,Z_M4D     ;M4 'O' DIR present
00229                     ;
00230  0341  01 C0 7F              LD    BC,&7FC0
00230  0344  ED 49                 OUT   (C),C        ;No DIR read from M4 'N' or 'O' --> Main RAM on
00231                     ;
00232                     ;
00233                     ;No DIR read till now --> Device selector
00234                     ;
00235  0346  E1            RNFN    POP   HL           ;equal stack pointer, NEEDED?
00236  0347  C3 D1 07              JP    R_DIR        ;read DIRs
00237                     
00238                     
00239                     ;NO file tagged => Select file from 16er DIR or call the Desktop
00240                     ;
00241                     ;File name up to now not put to LSFNB (Mask DUU;FileNameExt)
00242                     
00243  034A  3A 6D B9      G_UNE   LD    A,(DIRIN)
00243  034D  3C                    INC   A
00243  034E  28 CC                 JR    Z,RNFM       ;No DIR read and buffered!
00244                     
00245  0350  21 45 01              LD    HL,RL_TT     ;pointer to table
00246                     
00247  0353  11 A6 01              LD    DE,DAM_00+&04
00247  0356  01 0F 00              LD    BC,&0F
00247  0359  ED B0                 LDIR               ;transfer actual language text
00248  035B  11 BB 01              LD    DE,DAM_01+&04
00248  035E  01 0F 00              LD    BC,&0F
00248  0361  ED B0                 LDIR               ;into window text
00249                     
00250  0363  21 58 B8      RLE     LD    HL,TURBO_A
00250  0366  01 00 08              LD    BC,&0800
00250  0369  59                    LD    E,C          ;HL = Zei.a.TURBO_A / B=&08 / E=0 = C=dr A
00251                     
00252  036A  7E            DAM_L1  LD    A,(HL)
00252  036B  0F                    RRCA  
00252  036C  38 09                 JR    C,DAM_LA     ;Active Drive/Partition found
00253                     
00254  036E  7D                    LD    A,L
00254  036F  BC                    CP    A,H
00254  0370  28 AA                 JR    Z,RNFM       ;HL = TURBO_M -> All medias tested, no one tagged!
00255                     
00256  0372  80                    ADD   A,B
00256  0373  6F                    LD    L,A
00256  0374  0C                    INC   C
00256  0375  18 F3                 JR    DAM_L1       ;Sel. & Test n. drive/part.
00257                     
00258                     ;Drive (C = 0..12, HL = TURBO_?) is activ!
00259                     
00260  0377  79            DAM_LA  LD    A,C
00260  0378  32 0D 05              LD    (DAM_LOP),A  ;save actual drive/partition
00261                     
00262  037B  AF                    XOR   A,A
00262  037C  32 0E 05              LD    (DAM_PAG),A  ;Page-Nr. = &00
00263                     
00264  037F  7D                    LD    A,L
00264  0380  C6 04                 ADD   A,&04
00264  0382  6F                    LD    L,A          ;HL = TURBO_? + &04 = 16er DIR RAM
00265                     
00266  0383  7E            DAM_LB  LD    A,(HL)
00266  0384  06 7F                 LD    B,&7F
00266  0386  ED 79                 OUT   (C),A        ;bank in 16er DIR E-RAM
00267                     
00268  0388  2C                    INC   L
00268  0389  56                    LD    D,(HL)       ;DE = pointer to Start of 16er DIR
00269                     
00270  038A  3A 0E 05              LD    A,(DAM_PAG)
00270  038D  82                    ADD   A,D
00270  038E  57                    LD    D,A          ;+ Page-Nr. * 256
00271                     
00272  038F  EB                    EX    DE,HL        ;HL = Act.Page * 256 + pointer to Start 16er DIR
00273                     
00274  0390  11 D0 01              LD    DE,DAM_02 + &04
00274  0393  01 0F 00              LD    BC,&000F
00274  0396  79                    LD    A,C          ;DE=target in window, BC = Len.16erName
00275                     
00276  0397  08                    EX    AF,AF'
00276  0398  3E 04                 LD    A,&04        ;copy 4 x 4 DUNE(Drive,User,Name,Extent) to window
00277                     
00278  039A  08            DAM_L2  EX    AF,AF'
00279                     
00280  039B  ED B0                 LDIR               ;copy 1. DUNE
00281                     
00282  039D  2C                    INC   L
00282  039E  EB                    EX    DE,HL
00282  039F  0E 06                 LD    C,&06
00282  03A1  09                    ADD   HL,BC
00282  03A2  EB                    EX    DE,HL 
00282  03A3  4F                    LD    C,A
00282  03A4  ED B0                 LDIR               ;2.DUNE
00283  03A6  2C                    INC   L
00283  03A7  2C                    INC   L
00283  03A8  EB                    EX    DE,HL
00283  03A9  0E 06                 LD    C,&06
00283  03AB  09                    ADD   HL,BC
00283  03AC  EB                    EX    DE,HL 
00283  03AD  4F                    LD    C,A
00283  03AE  ED B0                 LDIR               ;3.DUNE
00284  03B0  2C                    INC   L
00284  03B1  EB                    EX    DE,HL
00284  03B2  0E 06                 LD    C,&06
00284  03B4  09                    ADD   HL,BC
00284  03B5  EB                    EX    DE,HL 
00284  03B6  4F                    LD    C,A
00284  03B7  ED B0                 LDIR               ;4.DUNE
00285  03B9  EB                    EX    DE,HL
00285  03BA  0E 06                 LD    C,&06
00285  03BC  09                    ADD   HL,BC
00285  03BD  EB                    EX    DE,HL 
00285  03BE  4F                    LD    C,A
00286                     
00287  03BF  08                    EX    AF,AF'
00287  03C0  3D                    DEC   A
00287  03C1  20 D7                 JR    NZ,DAM_L2    ;n. 4x Pack!
00288                     
00289  03C3  01 C0 7F              LD    BC,&7FC0
00289  03C6  ED 49                 OUT   (C),C        ;1.64KB = bank in CBM texts
00290                     
00291                     ;16 filenames (16er) have been copied from 16er DIR to window text.
00292                     
00293  03C8  21 63 01              LD    HL,DAM_TXT
00293  03CB  CD 5F 0A              CALL  DR_WIN
00293  03CE  21 79 01              LD    HL,M_DAM
00293  03D1  CF                    RST   1            ;sel. 16er DIR file
00294                     
00295  03D2  3C                    INC   A
00295  03D3  CA 78 00              JP    Z,CBM        ;ESC!
00296  03D6  3D                    DEC   A
00296  03D7  28 2F                 JR    Z,SE_AB      ;page down
00297  03D9  3D                    DEC   A
00297  03DA  CA 7C 04              JP    Z,SE_OB      ;page up
00298  03DD  3D                    DEC   A
00298  03DE  6F                    LD    L,A          ;Select -> L = Number of selected Text-DIR filename 0..15
00299                     ;
00300                     ;
00301  03DF  3A 0E 05              LD    A,(DAM_PAG)
00301  03E2  07                    RLCA  
00301  03E3  07                    RLCA  
00301  03E4  07                    RLCA  
00301  03E5  17                    RLA                ;A = Page-Nr_Bits_3-0 * 16
00302                     ;
00303  03E6  06 00                 LD    B,&00
00303  03E8  CB 10                 RL    B            ;B = &00 oder &01 = Page_Bit_4
00304                     
00305  03EA  85                    ADD   A,L
00305  03EB  6F                    LD    L,A          ;L = L + (Page-Nr. * 16)
00306                     
00307  03EC  3A 0D 05              LD    A,(DAM_LOP)
00307  03EF  FE 08                 CP    A,&08
00307  03F1  30 06                 JR    NC,DAM_HDM   ;Hard disc or RAM-Disc
00308                     
00309  03F3  C6 A0                 ADD   A,TMS_A/256
00309  03F5  67                    LD    H,A          ;HL = pointer to TMS_A..H + file number
00310                     
00311  03F6  36 01                 LD    (HL),&01
00311  03F8  C9                    RET                ;tag file name & Finish!!!
00312                     
00313                     ;Hard disc partition I..L, M..
00314                     
00315  03F9  FE 0C         DAM_HDM CP    A,&0C
00315  03FB  30 0A                 JR    NC,DAM_M     ;RAM-Disc M or above
00316                     
00317  03FD  D6 08                 SUB   A,&08
00317  03FF  87                    ADD   A,A
00317  0400  80                    ADD   A,B          ;A = Partition * 2 (0,2,4,6) + &01 at Page 16..31
00318                     
00319  0401  C6 A8                 ADD   A,TMS_I/256
00319  0403  67                    LD    H,A          ;HL = pointer to TMS_I..L + file number (0..511)
00320                     
00321  0404  36 01                 LD    (HL),&01
00321  0406  C9                    RET                ;tag file name & Finish!!!
00322                     
00323                     ;RAM-Disc-M or above...
00324                     
00325  0407  C9            DAM_M   ret                ;not yet implemented ###
00326                     
00327                     
00328                     ;Seite (16 Dateien, 256 Bytes) nach unten rollen
00329                     
00330  0408  3A 0D 05      SE_AB   LD    A,(DAM_LOP)
00330  040B  4F                    LD    C,A
00330  040C  07                    RLCA               ;A = (C=LW/Part.) * 2
00331                     
00332  040D  21 40 B9              LD    HL,TMD_A
00332  0410  85                    ADD   A,L
00332  0411  6F                    LD    L,A          ;HL = TMD_A + Akt.LW/Part. * 2
00333                     
00334  0412  5E                    LD    E,(HL)
00334  0413  2C                    INC   L
00334  0414  56                    LD    D,(HL)       ;DE = Anzahl Dateien auf akt.LW/Part.
00335                     
00336  0415  3A 0E 05              LD    A,(DAM_PAG)
00336  0418  3C                    INC   A
00336  0419  32 0E 05              LD    (DAM_PAG),A  ;A = Page-Nr. + 1
00337                     
00338  041C  07                    RLCA  
00338  041D  07                    RLCA  
00338  041E  07                    RLCA               ;A = Page-Nr. * 8
00339                     
00340  041F  6F                    LD    L,A
00340  0420  26 00                 LD    H,&00
00340  0422  29                    ADD   HL,HL        ;HL = Page-Nr. * 16 (&10, &20 .. &01F0)
00341                     
00342  0423  ED 52                 SBC   HL,DE        ;Neue max. Dateienanzahl - Anzahl vorhandener Dateien auf LW/Part
00343                     
00344  0425  30 0E                 JR    NC,DAM_SNL   ;Selektiere naechste(s) LW/Partition
00345                     
00346  0427  79                    LD    A,C
00346  0428  07                    RLCA  
00346  0429  07                    RLCA  
00346  042A  07                    RLCA               ;A = LW/Part. * 8
00347                     
00348  042B  21 5C B8              LD    HL,TURBO_A+&04
00348  042E  85                    ADD   A,L
00348  042F  6F                    LD    L,A          ;HL = TURBO_A,B,..M + &04
00349                     
00350  0430  1E 00                 LD    E,&00
00350  0432  C3 83 03              JP    DAM_LB       ;E = &00 // oben weiter...
00351                     
00352                     ;Select next Medium
00353                     
00354  0435  79            DAM_SNL LD    A,C
00354  0436  FE 0C                 CP    A,&0C
00354  0438  38 28                 JR    C,DSSM       ;Medium < 'M'
00355                     
00356  043A  3A FF B9      DANM    LD    A,(M4_ERAM)
00356  043D  FE C4                 CP    A,&C4
00356  043F  DA 63 03              JP    C,RLE        ;No M4 ERAM found!
00357                     
00358  0442  06 7F                 LD    B,&7F
00358  0444  ED 79                 OUT   (C),A
00359  0446  2A 00 48              LD    HL,(&4800)
00359  0449  7D                    LD    A,L
00359  044A  B4                    OR    A,H
00359  044B  3E 0D                 LD    A,&0D
00359  044D  C2 C0 0C              JP    NZ,Z_M4D     ;M4 'N' DIR present
00360  0450  2A 00 68              LD    HL,(&6800)
00360  0453  7D                    LD    A,L
00360  0454  B4                    OR    A,H
00360  0455  3E 0E                 LD    A,&0E
00360  0457  C2 C0 0C              JP    NZ,Z_M4D     ;M4 'O' DIR present
00361                     ;
00362  045A  01 C0 7F              LD    BC,&7FC0
00362  045D  ED 49                 OUT   (C),C
00362  045F  C3 63 03              JP    RLE          ;No DIR read from M4 'N' or 'O' --> Main RAM on
00363                     
00364                     ;Active Medium is A-L
00365                     
00366  0462  07            DSSM    RLCA  
00366  0463  07                    RLCA  
00366  0464  07                    RLCA               ;A = LW/Part. * 8
00367                     
00368  0465  21 60 B8              LD    HL,TURBO_A+8
00368  0468  85                    ADD   A,L
00368  0469  6F                    LD    L,A          ;HL = TURBO_B,C,..,M + 8 (->n.LW/P.)
00369                     
00370  046A  0C                    INC   C
00370  046B  11 00 08              LD    DE,&0800     ;C = n.LW/Part. // D = &08 // E = &00
00371                     
00372  046E  7E            DAM_L3  LD    A,(HL)
00372  046F  0F                    RRCA  
00372  0470  DA 77 03              JP    C,DAM_LA     ;Active medium found!
00373                     
00374  0473  7D                    LD    A,L
00374  0474  BC                    CP    A,H
00374  0475  28 C3                 JR    Z,DANM       ;Medium 'M' reached -> Check 'N'
00375                     
00376  0477  82                    ADD   A,D
00376  0478  6F                    LD    L,A
00376  0479  0C                    INC   C
00376  047A  18 F2                 JR    DAM_L3       ;Sel. & Teste n. LW/Part.
00377                     
00378                     
00379                     ;Seite (16 Dateien, 256 Bytes) nach oben rollen
00380                     
00381  047C  3A 0E 05      SE_OB   LD    A,(DAM_PAG)
00381  047F  B7                    OR    A,A
00381  0480  28 14                 JR    Z,SEB_VL     ;Sel. vorige(s) LW/Part.
00382                     
00383  0482  3D                    DEC   A
00383  0483  32 0E 05              LD    (DAM_PAG),A  ;Akt.Page_Nr. - 1
00384                     
00385  0486  3A 0D 05              LD    A,(DAM_LOP)
00385  0489  07                    RLCA  
00385  048A  07                    RLCA  
00385  048B  07                    RLCA               ;A = LW/Part. * 8
00386                     
00387  048C  21 5C B8              LD    HL,TURBO_A+&04
00387  048F  85                    ADD   A,L
00387  0490  6F                    LD    L,A          ;HL = TURBO_? + &04
00388  0491  1E 00                 LD    E,&00
00389  0493  C3 83 03              JP    DAM_LB
00390                     
00391                     ;Select previous medium
00392                     
00393  0496  3A 0D 05      SEB_VL  LD    A,(DAM_LOP)
00393  0499  B7                    OR    A,A
00393  049A  28 1E                 JR    Z,TANO       ;Medium A -> O
00394                     
00395  049C  18 02                 JR    SEB_VO       ;Medium <> A
00396                     
00397  049E  3E 0D         SEB_VM  LD    A,&0D        ;RAM Disc "M+1"
00398                     
00399  04A0  06 50         SEB_VO  LD    B,&50
00399  04A2  11 00 08              LD    DE,&0800
00400                     
00401  04A5  3D            SEB_VN  DEC   A
00401  04A6  4F                    LD    C,A
00401  04A7  07                    RLCA  
00401  04A8  07                    RLCA  
00401  04A9  07                    RLCA               ;A = Medium(-1) * 8
00402                     
00403  04AA  21 58 B8              LD    HL,TURBO_A
00403  04AD  85                    ADD   A,L
00403  04AE  6F                    LD    L,A          ;HL = TURBO_?
00404                     
00405  04AF  7E            SEVLP   LD    A,(HL)
00405  04B0  0F                    RRCA  
00405  04B1  38 3C                 JR    C,SEB_TG     ;LW/Part. tagged!
00406                     
00407  04B3  0D                    DEC   C
00407  04B4  7D                    LD    A,L
00407  04B5  92                    SUB   A,D
00407  04B6  6F                    LD    L,A          ;Medium(M->A) - 1
00408                     
00409  04B7  B8                    CP    A,B
00409  04B8  20 F5                 JR    NZ,SEVLP     ;Check previous medium (M -> A)
00410                     
00411                     ;Is the Previous medium a M4 DIR?
00412                     ;
00413  04BA  3A FF B9      TANO    LD    A,(M4_ERAM)
00413  04BD  FE C4                 CP    A,&C4
00413  04BF  38 DD                 JR    C,SEB_VM     ;No M4 ERAM found!
00414                     ;
00415  04C1  06 7F                 LD    B,&7F
00415  04C3  ED 79                 OUT   (C),A
00416  04C5  2A 00 68              LD    HL,(&6800)
00416  04C8  7D                    LD    A,L
00416  04C9  B4                    OR    A,H
00416  04CA  28 10                 JR    Z,SPNO       ;No DIR in 'O'
00417                     ;
00418  04CC  3E 0E                 LD    A,&0E
00418  04CE  32 0D 05              LD    (DAM_LOP),A
00418  04D1  3E 20                 LD    A,&20
00418  04D3  32 11 BE              LD    (FN_LR),A    ;DIR in 'O'
00419  04D6  21 00 68              LD    HL,&6800
00419  04D9  C3 BF 0D              JP    CENO
00420                     
00421  04DC  2A 00 48      SPNO    LD    HL,(&4800)
00421  04DF  7D                    LD    A,L
00421  04E0  B4                    OR    A,H
00421  04E1  28 BB                 JR    Z,SEB_VM     ;No DIR in 'N'
00422                     ;
00423  04E3  3E 0D                 LD    A,&0D
00423  04E5  32 0D 05              LD    (DAM_LOP),A
00423  04E8  AF                    XOR   A,A
00423  04E9  32 11 BE              LD    (FN_LR),A
00423  04EC  C3 BC 0D              JP    CENN         ;DIR in 'N'
00424                     
00425                     ;Medium tagged
00426                     
00427  04EF  79            SEB_TG  LD    A,C
00427  04F0  32 0D 05              LD    (DAM_LOP),A
00427  04F3  07                    RLCA  
00427  04F4  01 41 B9              LD    BC,TMD_A+&01 
                          ;A = LW/P. * 2
00428                     
00429  04F7  81                    ADD   A,C
00429  04F8  4F                    LD    C,A          ;BC = TMD_? + &01
00430                     
00431  04F9  0A                    LD    A,(BC)
00431  04FA  1F                    RRA   
00431  04FB  0D                    DEC   C
00431  04FC  0A                    LD    A,(BC)       ;Carry = 9. Bit // A = Bits 7..0
00432                     
00433  04FD  1F                    RRA   
00433  04FE  0F                    RRCA  
00433  04FF  0F                    RRCA  
00433  0500  0F                    RRCA  
00433  0501  E6 1F                 AND   A,&1F        ;A = akt. Page
00434                     
00435  0503  32 0E 05              LD    (DAM_PAG),A  ;Sel.Page_Nr.
00436                     
00437  0506  7D                    LD    A,L
00437  0507  C6 04                 ADD   A,&04
00437  0509  6F                    LD    L,A          ;HL = Zeiger auf TURBO_? + &04 = 16er E-RAM
00438  050A  C3 83 03              JP    DAM_LB
00439                     
00440                     
00441  050D  00            DAM_LOP DB    &00          ;Akt.LW/Part.Datei-Selektion
00442  050E  00            DAM_PAG DB    &00          ;16-Dateinamen Page 0..15
00443                     
00444                     
00445                     ;Window LOAD
00446                     
00447  050F  04 13         RLADW   DB    &04,&13      ;Y, X upper left
00448                     
00449  0511  02                    DB    &02          ;number of lines
00450  0512  11                    DB    &11          ;width window
00451  0513  00                    DB    &00
00452  0514  1F 05 15 00           DB    &1F,&05,&15,&00 
                          ;locate &05(y), &15(x)
00453                     
00454                     
00455                     ;Buffer for FileName (16er DIR) LOAD(BLOCK), IMPORT
00456                     
00457  0518  (0010)        LSFNB   DS    &10,&09
00458                     
00459                     
00460                     ;Function SAVE
00461                     
00462  0528  01 7E FA      R_SAV   LD    BC,&FA7E
00462  052B  3E FF                 LD    A,&FF
00462  052D  ED 79                 OUT   (C),A        ;Drive Motor on
00463                     
00464  052F  21 DB 05              LD    HL,SAV_W
00464  0532  CD 5F 0A              CALL  DR_WIN
00464  0535  CD DB C4              CALL  WART_TS
00465                     
00466  0538  01 20 FF              LD    BC,&FF20
00466  053B  11 E7 05              LD    DE,SA_NM
00466  053E  21 F6 05              LD    HL,SA_NM+&0F
00466  0541  CD 00 40              CALL  U_STED
00466  0544  0F                    RRCA  
00466  0545  DA 78 00              JP    C,CBM        ;ESC!
00467                     
00468  0548  3E 34                 LD    A,"3"+1
00468  054A  32 DF B8              LD    (REG08_3),A  ;Save mode is main RAM / Hauptspeicher sichern! ###
00469                     
00470  054D  3A E7 05              LD    A,(SA_NM)
00470  0550  CB AF                 RES   5,A
00470  0552  32 F1 B8              LD    (REG16_6+1),A 
                          ;Convert 'a'->'A' // Save Medium 'A'-'O'
00471                     ;
00472  0555  FE 50                 CP    A,"P"
00472  0557  30 76                 JR    NC,S_DERR    ;Device > 'O'
00473  0559  D6 41                 SUB   A,"A"
00473  055B  38 72                 JR    C,S_DERR     ;Device < "A"
00474                     ;
00475  055D  FE 0D                 CP    A,&0D
00475  055F  38 2A                 JR    C,SF_AM      ;Device is 'A' to 'M'
00476  0561  08                    EX    AF,AF'
00477  0562  3A C3 BB              LD    A,(IDE_XR)
00477  0565  B7                    OR    A,A
00477  0566  28 67                 JR    Z,S_DERR     ;No ROM M
00478                     ;
00479  0568  3A FF B9              LD    A,(M4_ERAM)
00479  056B  FE C4                 CP    A,&C4
00479  056D  38 60                 JR    C,S_DERR     ;No ERAM
00480  056F  06 7F                 LD    B,&7F
00480  0571  ED 79                 OUT   (C),A
00481  0573  08                    EX    AF,AF'
00481  0574  D6 0D                 SUB   A,&0D
00481  0576  0F                    RRCA  
00481  0577  0F                    RRCA  
00481  0578  0F                    RRCA  
00481  0579  32 11 BE              LD    (FN_LR),A    ;N or O
00482  057C  21 00 48              LD    HL,&4800
00482  057F  B4                    OR    A,H
00482  0580  67                    LD    H,A
00482  0581  7E                    LD    A,(HL)
00483  0582  0E C0                 LD    C,&C0
00483  0584  ED 49                 OUT   (C),C
00484  0586  B7                    OR    A,A
00484  0587  28 46                 JR    Z,S_DERR     ;No DIR in 'N' or 'O'
00485  0589  18 0F                 JR    SF_NO
00486                     ;
00487                     ;Device is 'A' to 'M'
00488                     ;
00489  058B  21 58 B8      SF_AM   LD    HL,TURBO_A
00489  058E  87                    ADD   A,A
00489  058F  87                    ADD   A,A
00489  0590  87                    ADD   A,A
00489  0591  85                    ADD   A,L
00489  0592  6F                    LD    L,A          ;HL = Medium(0-12)*8
00490                     ;
00491  0593  7E                    LD    A,(HL)       ;HL = TURBO_A...M // A = Tagging Byte of Medium
00492                     ;
00493  0594  0F                    RRCA  
00493  0595  30 38                 JR    NC,S_DERR    ;Device not tagged    / LW nicht markiert!
00494  0597  0F                    RRCA  
00494  0598  38 35                 JR    C,S_DERR     ;Device not connected / LW nicht vorhanden!
00495                     
00496  059A  21 E8 05      SF_NO   LD    HL,SA_NM+&01
00496  059D  DD 21 3B FD           LD    IX,CC2N
00496  05A1  CD 2A FF              CALL  ROM_A2C      ;Convert User number
00497                     ;
00498  05A4  32 F4 B8              LD    (REG16_8),A  ;Save User # for OS function 'SICHRE'
00499                     ;
00500  05A7  21 EB 05              LD    HL,SA_NM+&04
00500  05AA  11 F5 B8              LD    DE,REG16_8+&01
00500  05AD  01 0B 00              LD    BC,&000B
00500  05B0  ED B0                 LDIR               ;Name --> for SICHRE
00501                     ;
00502                     ;Save file beginning at (REG_IX) with length (REG_IY)
00503                     ;
00504  05B2  21 00 38              LD    HL,&3800
00504  05B5  22 D2 B8              LD    (REG_IX),HL  
                          ;Source address ###############   / Adapt these
00505  05B8  21 02 00              LD    HL,&0002
00505  05BB  22 D4 B8              LD    (REG_IY),HL  
                          ;Filen length in KB ###########  /  values for
00506  05BE  01 C0 7F              LD    BC,&7FC0
00506  05C1  ED 43 4C B8           LD    (AKT_RAM),BC 
                          ;RAM status ################### /   your program!
00507  05C5  DD 21 8C FD           LD    IX,SICHRE
00507  05C9  CD 2A FF              CALL  ROM_A2C      ;Save the file
00508  05CC  C3 78 00              JP    CBM
00509                     
00510                     ;Device for 'Save file' not found! / Save Laufwerk nicht gefunden!
00511                     ;In this case jump to 'read DIRectory' / Dann DIRectory lesen
00512                     
00513  05CF  21 5E 13      S_DERR  LD    HL,SZD_ERR
00513  05D2  CD 5F 0A              CALL  DR_WIN
00513  05D5  CD 15 0C              CALL  WAIT
00513  05D8  C3 D1 07              JP    R_DIR        ;Fehler -> DIR
00514                     
00515                     ;SAVE window
00516                     
00517  05DB  05 13 01 11   SAV_W   DB    &05,&13,&01,&11
00518                     
00519  05DF  20 08 0F 20           DB    " ",&08,&0F," " 
                          ;2 spaces
00520  05E3  1F 06 15 00           DB    &1F,&06,&15,&00 
                          ;locate 21,6
00521                     
00522                     ;Name of file to save!
00523                     
00524  05E7  41 30 30 3A   SA_NM   DB    "A00:FileNameExt"
       05EB  46 69 6C 65 
       05EF  4E 61 6D 65 
       05F3  45 78 74 
00525                     
00526                     
00527                     ;Function LOAD BLOCK
00528                     
00529  05F6  3E FF         R_LBK   LD    A,&FF
00529  05F8  DD 21 98 FD           LD    IX,FMD32
00529  05FC  CD 2A FF              CALL  ROM_A2C      ;file tagged?
00530                     
00531  05FF  01 C0 7F              LD    BC,&7FC0
00531  0602  ED 49                 OUT   (C),C
00532  0604  01 7E FA              LD    BC,&FA7E
00532  0607  3A 7F B9              LD    A,(MO_ST)
00532  060A  ED 79                 OUT   (C),A
00533  060C  7D                    LD    A,L
00533  060D  B4                    OR    A,H
00533  060E  28 2E                 JR    Z,R_LBL
00534  0610  21 F0 B8              LD    HL,REG16_6
00534  0613  11 18 05              LD    DE,LSFNB
00534  0616  01 10 00              LD    BC,&0010
00534  0619  ED B0                 LDIR  
00535  061B  21 0F 05              LD    HL,RLADW
00535  061E  CD 5F 0A              CALL  DR_WIN
00536  0621  21 18 05              LD    HL,LSFNB
00536  0624  01 10 00              LD    BC,&0010
00536  0627  CD C2 D1              CALL  STR_2I
00537  062A  21 33 15              LD    HL,M_LOAD
00537  062D  CF                    RST   1
00538  062E  3C                    INC   A
00538  062F  CA 78 00              JP    Z,CBM
00539  0632  3D                    DEC   A
00539  0633  28 19                 JR    Z,RLB_Y
00540  0635  DD 21 98 FD           LD    IX,FMD32
00540  0639  CD 2A FF              CALL  ROM_A2C
00540  063C  18 B8                 JR    R_LBK
00541                     
00542  063E  CD 4A 03      R_LBL   CALL  G_UNE
00542  0641  3E FF                 LD    A,&FF
00542  0643  DD 21 98 FD           LD    IX,FMD32
00542  0647  CD 2A FF              CALL  ROM_A2C
00542  064A  7D                    LD    A,L
00542  064B  B4                    OR    A,H
00542  064C  28 F0                 JR    Z,R_LBL
00543                     
00544                     ;File BLOCK found, should be loaded!
00545                     
00546  064E  C3 78 00      RLB_Y   jp    cbm          ;goes back, but you can load a file-block, use C-ROM routine LADEN
00547                     
00548                     
00549                     ;Function SAVE BLOCK
00550                     
00551  0651  21 DB 05      R_SBK   LD    HL,SAV_W
00551  0654  CD 5F 0A              CALL  DR_WIN
00551  0657  CD DB C4              CALL  WART_TS
00552                     
00553  065A  01 20 FF              LD    BC,&FF20
00553  065D  11 E7 05              LD    DE,SA_NM
00553  0660  21 F6 05              LD    HL,SA_NM+&0F
00553  0663  CD 00 40              CALL  U_STED
00553  0666  0F                    RRCA  
00553  0667  DA 78 00              JP    C,CBM        ;ESC!
00554                     
00555  066A  C3 78 00              jp    cbm          ;go back; drive, user, name of BLOCK to save begin at SA_NM, save NOW!
00556                     
00557                     
00558                     ;Function IMPORT
00559                     
00560  066D  3E FF         R_IMP   LD    A,&FF
00560  066F  DD 21 98 FD           LD    IX,FMD32
00560  0673  CD 2A FF              CALL  ROM_A2C      ;file tagged?
00561                     
00562  0676  01 C0 7F              LD    BC,&7FC0
00562  0679  ED 49                 OUT   (C),C
00563  067B  01 7E FA              LD    BC,&FA7E
00563  067E  3A 7F B9              LD    A,(MO_ST)
00563  0681  ED 79                 OUT   (C),A
00564  0683  7D                    LD    A,L
00564  0684  B4                    OR    A,H
00564  0685  28 2E                 JR    Z,R_IMQ
00565  0687  21 F0 B8              LD    HL,REG16_6
00565  068A  11 18 05              LD    DE,LSFNB
00565  068D  01 10 00              LD    BC,&0010
00565  0690  ED B0                 LDIR  
00566  0692  21 0F 05              LD    HL,RLADW
00566  0695  CD 5F 0A              CALL  DR_WIN
00567  0698  21 18 05              LD    HL,LSFNB
00567  069B  01 10 00              LD    BC,&0010
00567  069E  CD C2 D1              CALL  STR_2I
00568  06A1  21 33 15              LD    HL,M_LOAD
00568  06A4  CF                    RST   1
00569  06A5  3C                    INC   A
00569  06A6  CA 78 00              JP    Z,CBM
00570  06A9  3D                    DEC   A
00570  06AA  28 19                 JR    Z,RIM_Y
00571  06AC  DD 21 98 FD           LD    IX,FMD32
00571  06B0  CD 2A FF              CALL  ROM_A2C
00571  06B3  18 B8                 JR    R_IMP
00572                     
00573  06B5  CD 4A 03      R_IMQ   CALL  G_UNE
00573  06B8  3E FF                 LD    A,&FF
00573  06BA  DD 21 98 FD           LD    IX,FMD32
00573  06BE  CD 2A FF              CALL  ROM_A2C
00573  06C1  7D                    LD    A,L
00573  06C2  B4                    OR    A,H
00573  06C3  28 F0                 JR    Z,R_IMQ
00574                     
00575                     ;IMPORT file found, should be imported!
00576                     
00577  06C5  C3 78 00      RIM_Y   jp    cbm          ;goes back, but you can import a file, use C-ROM routine LADEN
00578                     
00579                     
00580                     ;Function EXPORT
00581                     
00582  06C8  21 DB 05      R_EXP   LD    HL,SAV_W
00582  06CB  CD 5F 0A              CALL  DR_WIN
00582  06CE  CD DB C4              CALL  WART_TS
00583                     
00584  06D1  01 20 FF              LD    BC,&FF20
00584  06D4  11 E7 05              LD    DE,SA_NM
00584  06D7  21 F6 05              LD    HL,SA_NM+&0F
00584  06DA  CD 00 40              CALL  U_STED
00584  06DD  0F                    RRCA  
00584  06DE  DA 78 00              JP    C,CBM        ;ESC!
00585                     
00586  06E1  C3 78 00              jp    cbm          ;go back here; You can EXPORT a File here using OS routines!
00587                     
00588                     
00589                     ;Function Call OS
00590                     
00591  06E4  21 78 00      R_COS   LD    HL,CBM
00591  06E7  22 58 BA              LD    (OK_ADR),HL
00591  06EA  21 87 FF              LD    HL,&FFFF-CBM
00591  06ED  22 5A BA              LD    (OK_ATE),HL
00592                     
00593  06F0  21 C0 7F              LD    HL,&7FC0
00593  06F3  22 5C BA              LD    (OK_BLK),HL
00593  06F6  21 3F 80              LD    HL,&FFFF-&7FC0
00593  06F9  22 5E BA              LD    (OK_BTE),HL
00594  06FC  21 9D FE              LD    HL,TUR_E
00594  06FF  C3 12 FF              JP    ROM_D
00595                     
00596                     
00597                     ;Function select MODE
00598                     
00599  0702  21 5F 15      R_MOD   LD    HL,MOD_TXT   ;pointer to table (text for different languages).
00600                     
00601  0705  CD 5F 0A              CALL  DR_WIN
00601  0708  21 7A 15              LD    HL,M_MOD
00601  070B  CF                    RST   1            ;Menu MODE
00602                     
00603  070C  3C                    INC   A
00603  070D  CA 78 00              JP    Z,CBM        ;ESC!
00604  0710  3D                    DEC   A
00605                     
00606  0711  32 5D 0A              LD    (AKT_MODE),A 
                          ;save selected SCREEN MODE
00607  0714  C3 78 00              JP    CBM
00608                     
00609                     
00610                     ;Function COLOUR
00611                     
00612  0717  21 DF 15      R_COL   LD    HL,COL_TXT
00612  071A  CD 5F 0A              CALL  DR_WIN       ;Text diff.languages
00613                     
00614  071D  21 F7 15              LD    HL,M_COL
00614  0720  CF                    RST   1            ;Menu Colour
00615                     
00616  0721  3C                    INC   A
00616  0722  CA 78 00              JP    Z,CBM        ;ESC!
00617  0725  3D                    DEC   A
00617  0726  28 4F                 JR    Z,BOR        ;Border
00618  0728  3D                    DEC   A
00618  0729  28 13                 JR    Z,PEI        ;Paper
00619                     
00620  072B  21 F8 0D              LD    HL,PEN_TXT
00620  072E  CD 5F 0A              CALL  DR_WIN       ;display WINDOW (select PEN!)
00621                     
00622  0731  21 01 0E              LD    HL,M_PEN
00622  0734  CF                    RST   1            ;select PEN
00623                     
00624  0735  3C                    INC   A
00624  0736  CA 78 00              JP    Z,CBM        ;ESC!
00625                     
00626  0739  3D                    DEC   A
00626  073A  32 22 0E              LD    (PEN_N),A
00626  073D  3C                    INC   A            ;save number of PEN for menu
00627                     
00628  073E  F5            PEI     PUSH  AF           ;PEN 1..15 (or 0, 16)
00629                     
00630  073F  21 9C 0E              LD    HL,INK_TXT
00630  0742  CD 5F 0A              CALL  DR_WIN       ;display WINDOW (for INK selection)
00631                     
00632  0745  21 AA 0E              LD    HL,M_INK
00632  0748  01 0E 01              LD    BC,&010E
00632  074B  CF                    RST   1            ;select INK
00633                     
00634  074C  3C                    INC   A
00634  074D  CA 78 00              JP    Z,CBM        ;ESC!
00635  0750  3D                    DEC   A
00636  0751  6F                    LD    L,A
00636  0752  32 E3 0E              LD    (INK_N),A    ;save number of INK for menu
00637  0755  26 00                 LD    H,&00
00637  0757  11 82 07              LD    DE,HWFW      ;HL = INK 0..26
00638  075A  19                    ADD   HL,DE
00638  075B  4E                    LD    C,(HL)       ;convert INK to hardware-value
00639                     
00640  075C  06 7F                 LD    B,&7F
00640  075E  F1                    POP   AF
00640  075F  ED 79                 OUT   (C),A
00640  0761  ED 49                 OUT   (C),C        ;activate colour!
00641  0763  FE 10                 CP    A,&10
00641  0765  28 14                 JR    Z,BO2
00642  0767  FE 04                 CP    A,&04
00642  0769  D2 78 00              JP    NC,CBM
00643  076C  26 00                 LD    H,&00
00643  076E  6F                    LD    L,A
00643  076F  11 92 BB              LD    DE,INK_0
00643  0772  19                    ADD   HL,DE
00643  0773  71                    LD    (HL),C       ;save NEW ink to RAM
00644  0774  C3 78 00              JP    CBM
00645                     
00646  0777  3E 10         BOR     LD    A,&10
00646  0779  18 C3                 JR    PEI
00647  077B  21 91 BB      BO2     LD    HL,BORDER
00647  077E  71                    LD    (HL),C
00647  077F  C3 78 00              JP    CBM          ;save INK of BORDER to RAM
00648                     
00649                     
00650                     ;Hardware color values equivalent to BASIC colors
00651                     ;arranged from 0 to 26
00652                     
00653  0782  54 44 55 5C   HWFW    DB    &54,&44,&55,&5C,&58,&5D,&4C,&45, &4D,&56,&46,&57,&5E,&40,&5F,&4E
       0786  58 5D 4C 45 
       078A  4D 56 46 57 
       078E  5E 40 5F 4E 
00654                     
00655  0792  47 4F 52 42           DB    &47,&4F,&52,&42,&53,&5A,&59,&5B, &4A,&43,&4B
       0796  53 5A 59 5B 
       079A  4A 43 4B 
00656                     
00657                     
00658                     ;Function select SCREEN FORMAT
00659                     
00660  079D  21 3E 16      R_FOR   LD    HL,SFO_TXT
00660  07A0  CD 5F 0A              CALL  DR_WIN
00661                     
00662  07A3  21 5A 16              LD    HL,M_SFO
00662  07A6  CF                    RST   1            ;Menue Format
00663                     
00664  07A7  3C                    INC   A
00664  07A8  CA 78 00              JP    Z,CBM        ;ESC!
00665  07AB  3D                    DEC   A
00666                     
00667  07AC  32 5E 0A              LD    (AKT_FOR),A  ;save selected SCREEN FORMAT
00668  07AF  C3 78 00              JP    CBM
00669                     
00670                     
00671                     ;Function select LANGUAGE
00672                     
00673  07B2  21 C4 16      R_LNG   LD    HL,LNG_TXT
00673  07B5  CD 5F 0A              CALL  DR_WIN
00674                     
00675  07B8  21 E1 16              LD    HL,M_LNG
00675  07BB  CF                    RST   1
00676                     
00677  07BC  3C                    INC   A
00677  07BD  CA 78 00              JP    Z,CBM        ;ESC!
00678  07C0  3D                    DEC   A
00679  07C1  87                    ADD   A,A
00679  07C2  87                    ADD   A,A
00679  07C3  87                    ADD   A,A
00679  07C4  47                    LD    B,A          ;Lng. 00LL L000
00680                     
00681  07C5  3A 76 B9              LD    A,(KF_CPC)
00681  07C8  E6 C7                 AND   A,&C7        ;1100 0111
00682  07CA  B0                    OR    A,B
00682  07CB  32 76 B9              LD    (KF_CPC),A
00683  07CE  C3 78 00              JP    CBM
00684                     
00685                     
00686                     ;Read DIRectories of tagged drives / partitions / devices
00687                     
00688  07D1  ED 4B 13 FF   R_DIR   LD    BC,(&FF13)
00688  07D5  ED 49                 OUT   (C),C        ;Switch ROM D active
00689                     
00690  07D7  21 11 C1              LD    HL,A_2
00690  07DA  3A 58 B8              LD    A,(TURBO_A)
00690  07DD  0F                    RRCA  
00690  07DE  38 0C                 JR    C,A_NM       ;Tagged!
00691                     
00692  07E0  21 95 C1              LD    HL,A_3
00692  07E3  3A 70 B9              LD    A,(KF_AB)
00692  07E6  0F                    RRCA  
00692  07E7  30 03                 JR    NC,A_NM      ;Drive A not connected!
00693                     
00694  07E9  21 8D C0              LD    HL,A_1       ;Not tagged!
00695                     
00696  07EC  11 BE C1      A_NM    LD    DE,&C1BE
00696  07EF  CD 17 C0              CALL  ICON6ON      ;Show Drive A Icon (not conn, tagged or untagged)
00697                     
00698  07F2  21 9D C2              LD    HL,B_2
00698  07F5  3A 60 B8              LD    A,(TURBO_B)
00698  07F8  0F                    RRCA  
00698  07F9  38 0D                 JR    C,B_NM
00699  07FB  21 21 C3              LD    HL,B_3
00699  07FE  3A 70 B9              LD    A,(KF_AB)
00699  0801  CB 67                 BIT   4,A
00699  0803  28 03                 JR    Z,B_NM
00700  0805  21 19 C2              LD    HL,B_1
00701                     
00702  0808  11 C6 C1      B_NM    LD    DE,&C1C6
00702  080B  CD 17 C0              CALL  ICON6ON      ;B
00703                     
00704  080E  21 29 C4              LD    HL,C_2
00704  0811  3A 68 B8              LD    A,(TURBO_C)
00704  0814  0F                    RRCA  
00704  0815  38 0C                 JR    C,C_NM
00705  0817  21 AD C4              LD    HL,C_3
00705  081A  3A 71 B9              LD    A,(KF_CD)
00705  081D  0F                    RRCA  
00705  081E  30 03                 JR    NC,C_NM
00706  0820  21 A5 C3              LD    HL,C_1
00707                     
00708  0823  11 CE C1      C_NM    LD    DE,&C1CE
00708  0826  CD 17 C0              CALL  ICON6ON      ;C
00709                     
00710  0829  21 B5 C5              LD    HL,D_2
00710  082C  3A 70 B8              LD    A,(TURBO_D)
00710  082F  0F                    RRCA  
00710  0830  38 0D                 JR    C,D_NM
00711  0832  21 39 C6              LD    HL,D_3
00711  0835  3A 71 B9              LD    A,(KF_CD)
00711  0838  CB 67                 BIT   4,A
00711  083A  28 03                 JR    Z,D_NM
00712  083C  21 31 C5              LD    HL,D_1
00713                     
00714  083F  11 D6 C1      D_NM    LD    DE,&C1D6
00714  0842  CD 17 C0              CALL  ICON6ON      ;D
00715                     
00716                     
00717  0845  21 41 C7              LD    HL,E_2
00717  0848  3A 78 B8              LD    A,(TURBO_E)
00717  084B  0F                    RRCA  
00717  084C  38 0C                 JR    C,E_NM
00718  084E  21 C5 C7              LD    HL,E_3
00718  0851  3A 72 B9              LD    A,(KF_EF)
00718  0854  0F                    RRCA  
00718  0855  30 03                 JR    NC,E_NM
00719  0857  21 BD C6              LD    HL,E_1
00720                     
00721  085A  11 4E C3      E_NM    LD    DE,&C34E
00721  085D  CD 17 C0              CALL  ICON6ON      ;E
00722                     
00723  0860  21 CD C8              LD    HL,F_2
00723  0863  3A 80 B8              LD    A,(TURBO_F)
00723  0866  0F                    RRCA  
00723  0867  38 0D                 JR    C,F_NM
00724  0869  21 51 C9              LD    HL,F_3
00724  086C  3A 72 B9              LD    A,(KF_EF)
00724  086F  CB 67                 BIT   4,A
00724  0871  28 03                 JR    Z,F_NM
00725  0873  21 49 C8              LD    HL,F_1
00726                     
00727  0876  11 56 C3      F_NM    LD    DE,&C356
00727  0879  CD 17 C0              CALL  ICON6ON      ;F
00728                     
00729  087C  21 59 CA              LD    HL,G_2
00729  087F  3A 88 B8              LD    A,(TURBO_G)
00729  0882  0F                    RRCA  
00729  0883  38 0C                 JR    C,G_NM
00730  0885  21 DD CA              LD    HL,G_3
00730  0888  3A 73 B9              LD    A,(KF_GH)
00730  088B  0F                    RRCA  
00730  088C  30 03                 JR    NC,G_NM
00731  088E  21 D5 C9              LD    HL,G_1
00732                     
00733  0891  11 5E C3      G_NM    LD    DE,&C35E
00733  0894  CD 17 C0              CALL  ICON6ON      ;G
00734                     
00735  0897  21 E5 CB              LD    HL,H_2
00735  089A  3A 90 B8              LD    A,(TURBO_H)
00735  089D  0F                    RRCA  
00735  089E  38 0D                 JR    C,H_NM
00736  08A0  21 69 CC              LD    HL,H_3
00736  08A3  3A 73 B9              LD    A,(KF_GH)
00736  08A6  CB 67                 BIT   4,A
00736  08A8  28 03                 JR    Z,H_NM
00737  08AA  21 61 CB              LD    HL,H_1
00738                     
00739  08AD  11 66 C3      H_NM    LD    DE,&C366
00739  08B0  CD 17 C0              CALL  ICON6ON      ;H
00740                     
00741  08B3  21 ED CC              LD    HL,I_1
00741  08B6  3A 98 B8              LD    A,(TURBO_I)
00741  08B9  0F                    RRCA  
00741  08BA  30 03                 JR    NC,I_NM
00742  08BC  21 71 CD              LD    HL,I_2
00743                     
00744                     
00745  08BF  11 DE C4      I_NM    LD    DE,&C4DE
00745  08C2  CD 17 C0              CALL  ICON6ON      ;I
00746                     
00747  08C5  21 79 CE              LD    HL,J_1
00747  08C8  3A A0 B8              LD    A,(TURBO_J)
00747  08CB  0F                    RRCA  
00747  08CC  30 03                 JR    NC,J_NM
00748  08CE  21 FD CE              LD    HL,J_2
00749                     
00750  08D1  11 E6 C4      J_NM    LD    DE,&C4E6
00750  08D4  CD 17 C0              CALL  ICON6ON      ;J
00751                     
00752  08D7  21 05 D0              LD    HL,K_1
00752  08DA  3A A8 B8              LD    A,(TURBO_K)
00752  08DD  0F                    RRCA  
00752  08DE  30 03                 JR    NC,K_NM
00753  08E0  21 89 D0              LD    HL,K_2
00754                     
00755  08E3  11 EE C4      K_NM    LD    DE,&C4EE
00755  08E6  CD 17 C0              CALL  ICON6ON      ;K
00756                     
00757  08E9  21 91 D1              LD    HL,L_1
00757  08EC  3A B0 B8              LD    A,(TURBO_L)
00757  08EF  0F                    RRCA  
00757  08F0  30 03                 JR    NC,L_NM
00758  08F2  21 15 D2              LD    HL,L_2
00759                     
00760  08F5  11 F6 C4      L_NM    LD    DE,&C4F6
00760  08F8  CD 17 C0              CALL  ICON6ON      ;L
00761                     
00762                     
00763  08FB  21 1D D3              LD    HL,M_1
00763  08FE  3A B8 B8              LD    A,(TURBO_M)
00763  0901  0F                    RRCA  
00763  0902  30 03                 JR    NC,M_NM
00764  0904  21 A1 D3              LD    HL,M_2
00765                     
00766  0907  11 6E C6      M_NM    LD    DE,&C66E
00766  090A  CD 17 C0              CALL  ICON6ON      ;M
00767                     
00768                     
00769  090D  ED 4B 01 FF           LD    BC,(&FF01)
00769  0911  ED 49                 OUT   (C),C        ;Switch ROM A in
00770  0913  21 54 09              LD    HL,DRI_W
00770  0916  CD 5F 0A              CALL  DR_WIN       ;Draw Window for Device Icons
00771                     
00772  0919  CD 15 0C      RE_AM   CALL  WAIT
00772  091C  FE 03                 CP    A,&03
00772  091E  CA 78 00              JP    Z,CBM
00773                     
00774  0921  FE 0E                 CP    A,&0E
00774  0923  28 23                 JR    Z,EXRD       ;RETURN
00775  0925  FE A4                 CP    A,&A4
00775  0927  28 1F                 JR    Z,EXRD       ;COPY
00776                     
00777  0929  D6 41                 SUB   A,"A"
00777  092B  38 EC                 JR    C,RE_AM      ;Key < "A"
00778                     
00779  092D  FE 0D                 CP    A,"N"-"A"
00779  092F  38 08                 JR    C,TDAM       ;Key A-M
00780                     
00781  0931  D6 20                 SUB   A,"a"-"A"
00781  0933  38 E4                 JR    C,RE_AM      ;Key < "a"
00782                     
00783  0935  FE 2D                 CP    A,"n"-"A"
00783  0937  30 E0                 JR    NC,RE_AM     ;Key > "m"
00784                     
00785  0939  21 58 B8      TDAM    LD    HL,TURBO_A
00785  093C  87                    ADD   A,A
00785  093D  87                    ADD   A,A
00785  093E  87                    ADD   A,A
00785  093F  85                    ADD   A,L
00785  0940  6F                    LD    L,A          ;HL = TURBO_A + D * 8
00786                     
00787  0941  7E                    LD    A,(HL)
00787  0942  EE 01                 XOR   A,&01
00787  0944  77                    LD    (HL),A       ;Device Tagged <---> Untagged
00788                     
00789  0945  C3 D1 07              JP    R_DIR        ;Check keys again...
00790                     
00791                     ;Devices selected, now read DIRs
00792                     
00793  0948  ED 4B 13 FF   EXRD    LD    BC,(&FF13)
00793  094C  ED 49                 OUT   (C),C        ;Switch ROM D active
00794                     
00795  094E  CD 7C FE              CALL  GET_DIR
00795  0951  C3 78 00              JP    CBM          ;Read all tagged DIRs
00796                     
00797                     ;Window DIR Text
00798                     
00799  0954  04 2C 12 20   DRI_W   DB    &04,&2C,&12,&20
00800                     
00801  0958  04 12 20      DT86    DB    &04,&12," "
00802                     
00803  095B  08 06 04 12           DB    &08,&06,&04,&12," ",&04,&12," "
       095F  20 04 12 20 
00804  0963  08 06 04 12           DB    &08,&06,&04,&12," ",&04,&12," "
       0967  20 04 12 20 
00805  096B  08 06 04 12           DB    &08,&06,&04,&12," ",&04,&12," "
       096F  20 04 12 20 
00806  0973  08 06 04 12           DB    &08,&06,&04,&12," ",&00,&00,&00
       0977  20 00 00 00 
00807  097B  20 20 20 41           DB    "   A:      B:      C:      D:  ",&00
       097F  3A 20 20 20 
       0983  20 20 20 42 
       0987  3A 20 20 20 
       098B  20 20 20 43 
       098F  3A 20 20 20 
       0993  20 20 20 44 
       0997  3A 20 20 00 
00808  099B  07 20 00 20           DB    &07,&20,&00," ",&00
       099F  00 
00809  09A0  00 00 00              DB    &00,&00,&00
00810  09A3  20 20 20 45           DB    "   E:      F:      G:      H:  ",&00
       09A7  3A 20 20 20 
       09AB  20 20 20 46 
       09AF  3A 20 20 20 
       09B3  20 20 20 47 
       09B7  3A 20 20 20 
       09BB  20 20 20 48 
       09BF  3A 20 20 00 
00811  09C3  07 20 00 20           DB    &07,&20,&00," ",&00
       09C7  00 
00812  09C8  00 00 00              DB    &00,&00,&00
00813  09CB  20 20 20 49           DB    "   I:      J:      K:      L:  ",&00
       09CF  3A 20 20 20 
       09D3  20 20 20 4A 
       09D7  3A 20 20 20 
       09DB  20 20 20 4B 
       09DF  3A 20 20 20 
       09E3  20 20 20 4C 
       09E7  3A 20 20 00 
00814  09EB  07 20 00 20           DB    &07,&20,&00," ",&00
       09EF  00 
00815  09F0  08 07 07 18           DB    &08,&07,&07,&18,&00," ",&00
       09F4  00 20 00 
00816  09F7  08 07 20 3E           DB    &08,&07," >>A - M, RETURN, ESC<< ",&00
       09FB  3E 41 20 2D 
       09FF  20 4D 2C 20 
       0A03  52 45 54 55 
       0A07  52 4E 2C 20 
       0A0B  45 53 43 3C 
       0A0F  3C 20 00 
00817  0A12  08 07 07 18           DB    &08,&07,&07,&18,&00," ",&00
       0A16  00 20 00 
00818                     
00819                     
00820                     ;EXIT CBM (but ask before ;-)
00821                     
00822  0A19  21 76 17      R_END   LD    HL,END_TXT
00822  0A1C  CD 5F 0A              CALL  DR_WIN
00823                     
00824  0A1F  21 A6 17              LD    HL,M_END
00824  0A22  CF                    RST   1
00825                     
00826  0A23  3C                    INC   A
00826  0A24  CA 78 00              JP    Z,CBM        ;ESC!
00827  0A27  3D                    DEC   A
00827  0A28  CA 78 00              JP    Z,CBM        ;NO! return to Main-Menu
00828                     
00829  0A2B  21 9D FE              LD    HL,TUR_E
00829  0A2E  22 58 BA              LD    (OK_ADR),HL
00829  0A31  C3 12 FF              JP    ROM_D        ;YES! Exit to OS Desktop!
00830                     
00831                     
00832                     ;Fn HELP
00833                     ;
00834  0A34  21 BD 17      R_HLP   LD    HL,HLP_TXT
00834  0A37  18 0D                 JR    WAAAW
00835                     
00836                     ;Fn MENU
00837                     ;
00838  0A39  21 61 18      R_MEN   LD    HL,MEN_TXT
00838  0A3C  18 08                 JR    WAAAW
00839                     
00840                     ;Fn SPEND
00841                     ;
00842  0A3E  21 FB 19      R_SPD   LD    HL,SPD_TXT
00842  0A41  18 03                 JR    WAAAW
00843                     
00844                     ;Fn WWW
00845                     ;
00846  0A43  21 89 1A      R_WWW   LD    HL,WWW_TXT
00847  0A46  CD 5F 0A      WAAAW   CALL  DR_WIN
00847  0A49  CD 15 0C              CALL  WAIT
00847  0A4C  C3 78 00              JP    CBM
00848                     
00849                     ;Show Version of Application
00850                     ;
00851  0A4F  21 FB 1A      R_VER   LD    HL,T_VER
00851  0A52  18 F2                 JR    WAAAW
00852                     
00853                     ;If a Menu function is not implemented in this application already
00854                     ;
00855  0A54  21 4D 1B      INAKT   LD    HL,INA_T
00855  0A57  18 ED                 JR    WAAAW
00856                     
00857                     
00858                     ;Variables CBM - Main program
00859                     
00860  0A59  09 00         CBM_BAR DW    &0009        ;Selection of Main-Menu-Bar * 2
00861  0A5B  09 00         CBM_S_1 DW    &0009        ;Selection of Sub-Menu Level_2 * 2
00862                     
00863  0A5D  01            AKT_MODE
                                   DB    &01          ;Screen Mode!
00864  0A5E  00            AKT_FOR DB    &00          ;Screen Format!
00865                     
00866                     
00867                     ;Subroutines
00868                     
00869                     ;--------------------;
00870                     ; Draw window around ;
00871                     ; a given Text-Block ;
00872                     ;--------------------;
00873                     ;
00874                     ;In;
00875                     ;HL = pointer to start of Text-Block
00876                     ;
00877                     ;ROM A must be switched in!
00878                     
00879  0A5F  56            DR_WIN  LD    D,(HL)
00879  0A60  23                    INC   HL           ;D = Y coordinate
00880                     
00881  0A61  7A                    LD    A,D
00881  0A62  32 E3 0A              LD    (DRW_Y1),A   ;Y
00882                     
00883  0A65  5E                    LD    E,(HL)
00883  0A66  23                    INC   HL           ;E = X coordinate
00884  0A67  46                    LD    B,(HL)
00884  0A68  23                    INC   HL           ;B = number of text lines
00885  0A69  4E                    LD    C,(HL)
00885  0A6A  23                    INC   HL           ;C = width of lines
00886                     
00887  0A6B  C5                    PUSH  BC
00888                     
00889  0A6C  22 E6 0A              LD    (DRW_TL),HL  ;pointer to first char of first line!
00890                     
00891  0A6F  DD 21 C2 0A           LD    IX,T_FRAM
00892  0A73  DD 72 01              LD    (IX+&01),D   ;Y-coordinate
00893  0A76  DD 73 02              LD    (IX+&02),E   ;X-coordinate
00894                     
00895  0A79  78                    LD    A,B
00895  0A7A  3C                    INC   A
00896  0A7B  DD 77 0F              LD    (IX+&0F),A   ;number of lines + 1
00897  0A7E  3C                    INC   A
00898  0A7F  DD 77 04              LD    (IX+&04),A   ;number of lines + 2
00899  0A82  DD 77 0B              LD    (IX+&0B),A   ;""
00900                     
00901  0A85  82                    ADD   A,D
00902  0A86  DD 77 19              LD    (IX+&19),A   ;number of lines + 2 + Y
00903  0A89  3D                    DEC   A
00904  0A8A  DD 77 12              LD    (IX+&12),A   ;number of lines + 1 + Y
00905                     
00906  0A8D  7B                    LD    A,E
00906  0A8E  3C                    INC   A
00907  0A8F  DD 77 13              LD    (IX+&13),A   ;X-coordinate + 1
00908  0A92  DD 77 1A              LD    (IX+&1A),A   ;""
00909  0A95  32 E4 0A              LD    (DRW_X1),A   ;""
00910                     
00911  0A98  DD 71 07              LD    (IX+&07),C   ;width of longest line
00912  0A9B  DD 71 15              LD    (IX+&15),C   ;""
00913  0A9E  0C                    INC   C
00913  0A9F  0C                    INC   C
00914  0AA0  DD 71 1C              LD    (IX+&1C),C   ;width of longest line + 2
00915                     
00916  0AA3  21 C2 0A              LD    HL,T_FRAM
00916  0AA6  CD 8C D4              CALL  TERM_2       ;print Window-FRAME on screen
00917  0AA9  18 01                 JR    DRW_M
00918                     
00919  0AAB  C5            DRW_L   PUSH  BC           ;B = number of text lines, C = width of lines
00920                     
00921  0AAC  21 E3 0A      DRW_M   LD    HL,DRW_Y1
00921  0AAF  34                    INC   (HL)         ;Y-coordinate + 1
00922                     
00923  0AB0  2B                    DEC   HL
00923  0AB1  CD 8C D4              CALL  TERM_2       ;LOCATE Y,X
00924                     
00925  0AB4  2A E6 0A              LD    HL,(DRW_TL)  ;pointer to first char of first line!
00926  0AB7  CD 8C D4              CALL  TERM_2       ;print one line on screen
00927  0ABA  ED 53 E6 0A           LD    (DRW_TL),DE  ;Byte after end of printed string = first Byte of next line
00928                     
00929  0ABE  C1                    POP   BC
00930  0ABF  10 EA                 DJNZ  DRW_L        ;next Text-Line
00931  0AC1  C9                    RET   
00932                     
00933                     ;Frame for Window (see DR_WIN)
00934                     
00935  0AC2  1F 04 01      T_FRAM  DB    &1F,&04,&01  ;Locate 4(Y), 1(X) - upper, left corner
00936                     
00937  0AC5  04 12 8F              DB    &04,&12,&8F     
                          ;Print down &12(number of lines + 2) characters of &8F
00938  0AC8  07 0D 00 83           DB    &07,&0D,&00,&83 
                          ;Print left to right &0D(width) charactes of &83
00939  0ACC  04 12 8F              DB    &04,&12,&8F     
                          ;Print down &12(number of lines + 2) characters of &8F
00940  0ACF  0A                    DB    &0A             
                          ;go one line down
00941  0AD0  04 11 20              DB    &04,&11," "     
                          ;Print down &11(number of lines + 1) spaces (shadow)
00942  0AD3  1F 15 02              DB    &1F,&15,&02     
                          ;Locate &15(Y ; under last Text_line), 2(X + 1)
00943  0AD6  07 0D 00 8C           DB    &07,&0D,&00,&8C 
                          ;Print left to right &0D(width) charactes of &8C
00944  0ADA  1F 16 02              DB    &1F,&16,&02     
                          ;Locate &16(Y + num.of lines + 2), 2(X + 1)
00945  0ADD  07 0F 00 DA           DB    &07,&0F,&00,&DA 
                          ;Print left to right &0F(width + 2) charactes of &DA
00946  0AE1  00                    DB    &00             
                          ;terminate String!
00947                     
00948                     
00949                     ;DR_WIN Variables
00950                     
00951  0AE2  1F                    DB    &1F          ;Control Code Locate
00952  0AE3  09            DRW_Y1  DB    &09          ;Y coordinate
00953  0AE4  09            DRW_X1  DB    &09          ;X coordinate + 1
00954  0AE5  00                    DB    &00          ;terminate String!
00955                     
00956  0AE6  09 00         DRW_TL  DW    &0009        ;Pointer to first/next Text-Line
00957                     
00958                     
00959                     ;---------------------------;
00960                     ; Menu in Mode 2, 80*25 Z*Z ;
00961                     ;---------------------------;
00962                     ;
00963                     ;In; HL = Start Address of Text/Dataset
00964                     ;
00965                     ;Out; A = YL = selected Menu point / choice
00966                     ;     A = &FF --> ESC was pressed!
00967                     ;
00968                     ;Manip; AF, BC, DE, HL, AF', BC', DE', HL', YL
00969                     
00970  0AE8  01 01 01      M_DISP2 LD    BC,&0101     ;Delta-X(B=1), Delta-Y(C=1). Cursor moves one cell in X & Y
00971                     
00972                     ;-----------------------------;
00973                     ; X-Menu in Mode 2, 80*25 Z*Z ;
00974                     ;-----------------------------;
00975                     ;
00976                     ;In; HL = Start Address of Text/Dataset
00977                     ;    BC = Delta-X(B), Delta-Y(C) of Cursor Movement
00978                     ;
00979                     ;Out; A = YL = selected Menu point / choice
00980                     ;     A = &FF --> ESC was pressed!
00981                     ;
00982                     ;Manip; AF, BC, DE, HL, AF', BC', DE', HL', IY
00983                     
00984  0AEB  ED 43 13 0C   X_DISP2 LD    (M_DXDY2),BC
00984  0AEF  22 0F 0C              LD    (M_DATA2),HL
00984  0AF2  23                    INC   HL
00985                     
00986  0AF3  01 86 7F              LD    BC,&7F86
00986  0AF6  ED 49                 OUT   (C),C        ;MODE 2 // lower RAM ON! Use RAM charset!
00987  0AF8  ED 4B 01 FF           LD    BC,(&FF01)
00987  0AFC  ED 49                 OUT   (C),C        ;Select FutureOS ROM A
00988  0AFE  5E                    LD    E,(HL)
00988  0AFF  23                    INC   HL
00989  0B00  56                    LD    D,(HL)
00989  0B01  EB                    EX    DE,HL
00989  0B02  CD 2C D4              CALL  TERM_2U      ;Display MENUE Init-String (f.e. a frame) once
00990                     
00991  0B05  2A 0F 0C              LD    HL,(M_DATA2)
00992  0B08  7E                    LD    A,(HL)
00992  0B09  FD                    DB    &FD
00992  0B0A  67                    LD    H,A          ;If 8. BIT = 1 then keys are ENABLED!
00993  0B0B  E6 7F                 AND   A,&7F 
00993  0B0D  FD                    DB    &FD
00993  0B0E  6F                    LD    L,A          ;YL = # of choices 2-127
00994                     
00995  0B0F  23                    INC   HL
00995  0B10  23                    INC   HL
00995  0B11  23                    INC   HL           ;HL points to first option
00996                     
00997                     ;Display all options on screen
00998                     
00999  0B12  5E            MD2_L0  LD    E,(HL)
00999  0B13  23                    INC   HL
00999  0B14  E5                    PUSH  HL
01000                     
01001  0B15  56                    LD    D,(HL)
01001  0B16  EB                    EX    DE,HL
01001  0B17  CD 8C D4              CALL  TERM_2       ;Display first / next Option
01002                     
01003  0B1A  E1                    POP   HL
01003  0B1B  23                    INC   HL           ;HL points to next option-pointer (low)
01004                     
01005  0B1C  FD                    DB    &FD
01005  0B1D  2D                    DEC   L
01005  0B1E  20 F2                 JR    NZ,MD2_L0    ;# of options -1. Go display next option
01006                     
01007  0B20  7E                    LD    A,(HL)
01007  0B21  FD                    DB    &FD
01007  0B22  6F                    LD    L,A
01007  0B23  08                    EX    AF,AF'       ;YL = A' = # of option to start with
01008                     
01009  0B24  CD DB C4      MD2W1   CALL  WART_TS
01010                     
01011  0B27  FD E5                 PUSH  IY
01011  0B29  CD 32 FC              CALL  M_CON
01011  0B2C  FD E1                 POP   IY
01011  0B2E  3C                    INC   A
01011  0B2F  20 F3                 JR    NZ,MD2W1     ;Wait until keyb. + mouse are free
01012                     
01013  0B31  08                    EX    AF,AF'       ;A = # of first Option to be used
01014                     
01015                     ;Display present selected option inverted
01016                     ;A = # of option
01017                     
01018  0B32  11 03 00      MD2_L1  LD    DE,&0003
01019                     
01020  0B35  87                    ADD   A,A
01020  0B36  83                    ADD   A,E
01020  0B37  5F                    LD    E,A          ;DE = # of Option * 2 + 3
01021                     
01022  0B38  2A 0F 0C              LD    HL,(M_DATA2)
01022  0B3B  19                    ADD   HL,DE        ;HL points to text of actual option
01023  0B3C  5E                    LD    E,(HL)
01023  0B3D  23                    INC   HL
01024  0B3E  56                    LD    D,(HL)
01024  0B3F  EB                    EX    DE,HL
01025  0B40  22 11 0C              LD    (M_MPAA2),HL
01025  0B43  CD 58 D3              CALL  TERM_2I
01026                     
01027  0B46  FD E5         MD2_LT  PUSH  IY
01027  0B48  CD 35 0C              CALL  YWART
01027  0B4B  FD E1                 POP   IY           ;Wait for everything (+mice) to be unused
01028                     
01029  0B4D  21 04 08      MD2_LH  LD    HL,&0804
01029  0B50  CD 61 C5              CALL  HOLE1TS      ;ESC?
01030                     
01031  0B53  3E FF                 LD    A,&FF
01031  0B55  C8                    RET   Z            ;ESC pressed!
01032                     
01033  0B56  21 04 02              LD    HL,&0204
01033  0B59  CD 61 C5              CALL  HOLE1TS
01033  0B5C  28 45                 JR    Z,MD2_F0     ;RETurn
01034                     
01035  0B5E  FD E5                 PUSH  IY
01035  0B60  CD 77 FD              CALL  H_JCM
01035  0B63  FD E1                 POP   IY           ;Read Joysticks, Mice and Cursor keys
01036                     
01037  0B65  0F                    RRCA  
01037  0B66  30 41                 JR    NC,MD2_UP
01038  0B68  0F                    RRCA  
01038  0B69  30 57                 JR    NC,MD2_DN
01039  0B6B  0F                    RRCA  
01039  0B6C  30 6E                 JR    NC,MD2_LE
01040  0B6E  0F                    RRCA  
01040  0B6F  D2 F5 0B              JP    NC,MD2_RI
01041  0B72  0F                    RRCA  
01041  0B73  30 2E                 JR    NC,MD2_F0
01042  0B75  0F                    RRCA  
01042  0B76  30 2E                 JR    NC,MD2_F1
01043                     
01044  0B78  FD                    DB    &FD
01044  0B79  7C                    LD    A,H          ;A = # of choices (2-127). If 8. BIT = 1 then keys are ENABLED!
01045                     
01046  0B7A  87                    ADD   A,A
01046  0B7B  30 D0                 JR    NC,MD2_LH    ;Additional keys are DISABLED
01047                     
01048  0B7D  08                    EX    AF,AF'       ;A' = # of options * 2
01049                     
01050  0B7E  DD E5                 PUSH  IX
01051  0B80  CD 15 C1              CALL  H_XALLET     ;A = pressed key. A = &FF when no key is pressed
01052  0B83  DD E1                 POP   IX
01053                     
01054  0B85  3C                    INC   A
01054  0B86  28 C5                 JR    Z,MD2_LH     ;NO key pressed!
01055  0B88  3D                    DEC   A
01056                     
01057  0B89  08                    EX    AF,AF'       ;A = # of options * 2. A' = pressed key
01058  0B8A  47                    LD    B,A          ;B = number of characters to be tested
01059                     
01060  0B8B  11 04 00              LD    DE,&0004
01060  0B8E  83                    ADD   A,E
01060  0B8F  5F                    LD    E,A          ;DE = A + 4, pointer to key table
01061  0B90  2A 0F 0C              LD    HL,(M_DATA2)
01061  0B93  19                    ADD   HL,DE        ;HL = Pointer to first Character to test
01062                     
01063  0B94  08                    EX    AF,AF'       ;A = key to test equal with characters beginning at (HL)
01064                     
01065  0B95  BE            TCK_L0  CP    A,(HL)
01065  0B96  28 06                 JR    Z,TCK_OK     ;Pressed key equals character in table
01066                     
01067  0B98  23                    INC   HL
01067  0B99  14                    INC   D
01067  0B9A  10 F9                 DJNZ  TCK_L0       ;sel. next chr, # of option +1(=0.5), check next chr
01068                     
01069  0B9C  18 AF                 JR    MD2_LH       ;NO key match
01070                     
01071                     
01072                     ;Pressed Key equals Character in Table!
01073                     
01074  0B9E  7A            TCK_OK  LD    A,D
01074  0B9F  0F                    RRCA  
01074  0BA0  FD                    DB    &FD
01074  0BA1  6F                    LD    L,A
01074  0BA2  C9                    RET   
01075                     
01076                     
01077                     ;Fire 0
01078                     
01079  0BA3  FD            MD2_F0  DB    &FD
01079  0BA4  7D                    LD    A,L
01079  0BA5  C9                    RET   
01080                     
01081                     ;Fire 1
01082                     
01083  0BA6  3E FF         MD2_F1  LD    A,&FF
01083  0BA8  C9                    RET                ;Fire 1 (=ESC) pressed!
01084                     
01085                     ;Up
01086                     
01087  0BA9  2A 11 0C      MD2_UP  LD    HL,(M_MPAA2)
01087  0BAC  CD 8C D4              CALL  TERM_2
01088                     
01089  0BAF  FD                    DB    &FD
01089  0BB0  7D                    LD    A,L
01089  0BB1  21 13 0C              LD    HL,M_DXDY2
01089  0BB4  96                    SUB   A,(HL)       ;Actual option - Delta Y
01090                     
01091  0BB5  30 06                 JR    NC,MD2UP     ;Option still > 0
01092                     
01093  0BB7  2A 0F 0C              LD    HL,(M_DATA2)
01093  0BBA  86                    ADD   A,(HL)
01093  0BBB  E6 7F                 AND   A,&7F        ;Else + # of options
01094                     
01095  0BBD  FD            MD2UP   DB    &FD
01095  0BBE  6F                    LD    L,A
01095  0BBF  C3 32 0B              JP    MD2_L1
01096                     
01097                     ;Down
01098                     
01099  0BC2  2A 11 0C      MD2_DN  LD    HL,(M_MPAA2)
01099  0BC5  CD 8C D4              CALL  TERM_2
01100                     
01101  0BC8  3A 13 0C              LD    A,(M_DXDY2)
01101  0BCB  FD                    DB    &FD
01101  0BCC  85                    ADD   A,L          ;Delta Y + actual option
01102                     
01103  0BCD  2A 0F 0C              LD    HL,(M_DATA2)
01103  0BD0  46                    LD    B,(HL)
01103  0BD1  CB B8                 RES   7,B
01103  0BD3  B8                    CP    A,B
01103  0BD4  38 01                 JR    C,MD2DN
01104                     
01105  0BD6  90                    SUB   A,B          ;- # of options
01106                     
01107  0BD7  FD            MD2DN   DB    &FD
01107  0BD8  6F                    LD    L,A
01107  0BD9  C3 32 0B              JP    MD2_L1
01108                     
01109                     ;Left
01110                     
01111  0BDC  2A 11 0C      MD2_LE  LD    HL,(M_MPAA2)
01111  0BDF  CD 8C D4              CALL  TERM_2
01112                     
01113  0BE2  FD                    DB    &FD
01113  0BE3  7D                    LD    A,L
01113  0BE4  21 14 0C              LD    HL,M_DXDY2+&01
01113  0BE7  96                    SUB   A,(HL)       ;Actual option - Delta X
01114                     
01115  0BE8  30 06                 JR    NC,MD2LE     ;Option still > 0
01116                     
01117  0BEA  2A 0F 0C              LD    HL,(M_DATA2)
01117  0BED  86                    ADD   A,(HL)
01117  0BEE  E6 7F                 AND   A,&7F        ;Else + # of options
01118                     
01119  0BF0  FD            MD2LE   DB    &FD
01119  0BF1  6F                    LD    L,A
01119  0BF2  C3 32 0B              JP    MD2_L1
01120                     
01121                     ;Right
01122                     
01123  0BF5  2A 11 0C      MD2_RI  LD    HL,(M_MPAA2)
01123  0BF8  CD 8C D4              CALL  TERM_2
01124                     
01125  0BFB  3A 14 0C              LD    A,(M_DXDY2+&01)
01125  0BFE  FD                    DB    &FD
01125  0BFF  85                    ADD   A,L          ;Delta X + actual option
01126                     
01127  0C00  2A 0F 0C              LD    HL,(M_DATA2)
01127  0C03  46                    LD    B,(HL)
01127  0C04  CB B8                 RES   7,B
01127  0C06  B8                    CP    A,B
01127  0C07  38 01                 JR    C,MD2RI
01128                     
01129  0C09  90                    SUB   A,B          ;- # of options
01130                     
01131  0C0A  FD            MD2RI   DB    &FD
01131  0C0B  6F                    LD    L,A
01131  0C0C  C3 32 0B              JP    MD2_L1
01132                     
01133                     ;Menu-internal Variables
01134                     
01135  0C0F  00 00         M_DATA2 DW    &0000        ;vector to dataset
01136  0C11  00 00         M_MPAA2 DW    &0000        ;old/last choice/line
01137  0C13  00 00         M_DXDY2 DW    &0000        ;Delta-X(B), Delta-Y(C)
01138                     
01139                     
01140                     ;Wait for pressed key
01141                     ;
01142                     ;A = Pressed key
01143                     
01144  0C15  CD DB C4      WAIT    CALL  WART_TS
01144  0C18  FD E5                 PUSH  IY
01144  0C1A  CD 32 FC              CALL  M_CON
01144  0C1D  FD E1                 POP   IY
01144  0C1F  3C                    INC   A
01144  0C20  20 F3                 JR    NZ,WAIT
01145  0C22  CD 2F C0      WATL    CALL  H_ALLET
01145  0C25  FE FF                 CP    A,&FF
01145  0C27  C0                    RET   NZ
01146                     
01147  0C28  FD E5                 PUSH  IY
01147  0C2A  CD 32 FC              CALL  M_CON
01147  0C2D  FD E1                 POP   IY
01147  0C2F  F6 CF                 OR    A,&CF
01147  0C31  3C                    INC   A
01147  0C32  28 EE                 JR    Z,WATL
01148  0C34  C9                    RET   
01149                     
01150                     
01151                     ;Zuerst XWART aufrufen --> dann Wartezeit der Maus abwarten
01152                     ;
01153  0C35  CD 71 C6      YWART   CALL  XWART
01153  0C38  3A F3 B9              LD    A,(VZ_MOD)
01153  0C3B  B7                    OR    A,A
01153  0C3C  28 05                 JR    Z,YW_TU      ;Tastatur frei
01154                     
01155  0C3E  21 30 00              LD    HL,&0030
01155  0C41  18 04                 JR    YW_L1        ;Taste(n) genutzt -> Maus nur &30 mal abfragen!
01156                     
01157  0C43  2A FA B9      YW_TU   LD    HL,(VZ_FA)
01157  0C46  29                    ADD   HL,HL        ;Folge Verzoegerung
01158                     
01159  0C47  E5            YW_L1   PUSH  HL
01159  0C48  CD 6E FC              CALL  R_ALM
01159  0C4B  E1                    POP   HL
01159  0C4C  2B                    DEC   HL
01160                     
01161  0C4D  7D                    LD    A,L
01161  0C4E  B4                    OR    A,H
01161  0C4F  20 F6                 JR    NZ,YW_L1
01162  0C51  C9                    RET   
01163                     
01165                     
01166                     
01167                     ;--- Place your own app. code here at about &0C00. More free space at &8000 --;
01168                     
01169                     
01170                     ;-- Function_Table_1 (Main Bar), points to Level_2 tables for all languages --;
01171                     
01172  0C52  5E 0C 78 0C   SMB2    DW    T1_FIL,T1_PRC,T1_OPT,T1_PF1,T1_PF2,T1_HLP
       0C56  8A 0C 96 0C 
       0C5A  A2 0C AE 0C 
01173                     
01174                     
01175                     ;Target_address Function_Table_2 (contains addresses of selected functions)
01176                     
01177                     ;File
01178                     
01179  0C5E  CE 00         T1_FIL  DW    R_LAD        ;Load a file
01180                     
01181  0C60  28 05                 DW    R_SAV        ;Save a file
01182  0C62  F6 05                 DW    R_LBK        ;Load Block
01183  0C64  51 06                 DW    R_SBK        ;Save Block
01184  0C66  D1 07                 DW    R_DIR        ;Read DIRectories of tagged drives
01185  0C68  19 0A                 DW    R_END        ;Close file
01186  0C6A  6D 06                 DW    R_IMP        ;Import
01187  0C6C  C8 06                 DW    R_EXP        ;Export
01188  0C6E  4F 0A                 DW    R_VER        ;Version
01189  0C70  54 0A                 DW    INAKT        ;Encrypt
01190  0C72  54 0A                 DW    INAKT        ;Print
01191  0C74  54 0A                 DW    INAKT        ;Send
01192  0C76  19 0A                 DW    R_END        ;End
01193                     
01194                     
01195                     ;Process
01196                     
01197  0C78  54 0A         T1_PRC  DW    INAKT        ;Undo
01198                     
01199  0C7A  54 0A                 DW    INAKT        ;Edit
01200  0C7C  54 0A                 DW    INAKT        ;Clear
01201  0C7E  54 0A                 DW    INAKT        ;Copy
01202  0C80  54 0A                 DW    INAKT        ;Paste
01203  0C82  54 0A                 DW    INAKT        ;Go To
01204  0C84  54 0A                 DW    INAKT        ;Search
01205  0C86  54 0A                 DW    INAKT        ;Replace
01206  0C88  E4 06                 DW    R_COS        ;Call OS
01207                     
01208                     
01209                     ;Options
01210                     
01211  0C8A  02 07         T1_OPT  DW    R_MOD        ;Mode
01212                     
01213  0C8C  17 07                 DW    R_COL        ;Colour
01214  0C8E  9D 07                 DW    R_FOR        ;Format
01215  0C90  54 0A                 DW    INAKT        ;Printer
01216  0C92  54 0A                 DW    INAKT        ;Network
01217  0C94  B2 07                 DW    R_LNG        ;Language
01218                     
01219                     
01220                     ;Prog.Functions 1
01221                     
01222  0C96  54 0A         T1_PF1  DW    INAKT        ;Pr.Fn. 1/1
01223                     
01224  0C98  54 0A                 DW    INAKT        ;Pr.Fn. 1/2
01225  0C9A  54 0A                 DW    INAKT        ;Pr.Fn. 1/3
01226  0C9C  54 0A                 DW    INAKT        ;Pr.Fn. 1/4
01227  0C9E  54 0A                 DW    INAKT        ;Pr.Fn. 1/5
01228  0CA0  54 0A                 DW    INAKT        ;Pr.Fn. 1/6
01229                     
01230                     
01231                     ;Prog.Functions 2
01232                     
01233  0CA2  54 0A         T1_PF2  DW    INAKT        ;Pr.Fn. 2/1
01234                     
01235  0CA4  54 0A                 DW    INAKT        ;Pr.Fn. 2/2
01236  0CA6  54 0A                 DW    INAKT        ;Pr.Fn. 2/3
01237  0CA8  54 0A                 DW    INAKT        ;Pr.Fn. 2/4
01238  0CAA  54 0A                 DW    INAKT        ;Pr.Fn. 2/5
01239  0CAC  54 0A                 DW    INAKT        ;Pr.Fn. 2/6
01240                     
01241                     
01242                     ;Help
01243                     
01244  0CAE  34 0A         T1_HLP  DW    R_HLP        ;Help
01245                     
01246  0CB0  54 0A                 DW    INAKT        ;Info
01247  0CB2  54 0A                 DW    INAKT        ;News
01248  0CB4  54 0A                 DW    INAKT        ;Book
01249  0CB6  39 0A                 DW    R_MEN        ;Menu
01250  0CB8  3E 0A                 DW    R_SPD        ;$$$
01251  0CBA  43 0A                 DW    R_WWW        ;WWW
01252                     
01253                     
01254                     ;--- M4 functions and Text for this application ---;
01255                     
01256  0CBC                        READ  "CBM-SUM4.MAX" 
                          ;--> Read M4 functions
01257                     ;Source 'CBM-SUM4.MAX' - Ver. 2.1.6
01258                     ;156 lines - 2023.09.27
01259                     
01260                     
01261                     ;---===*** Functions for the Pull Down Menu (PDM) and the M4 SD card ***===---
01262                     
01263                     
01264                     ;PDM M4 Variables
01265                     ;
01266  0CBC  00 48         ST_M4D  DW    &4800        ;Start of M4 DIR N/O
01267  0CBE  00 00         FD_M4D  DW    &0000        ;# of 1st file in actual Page (0, 16, 32...)
01268                     
01269                     
01270                     ;---***[[[### Show M4 DIR in PULL-DOWN-MENU(PDM) ###]]]***---<
01271                     ;
01272                     ;Entry
01273                     ;A = M4 medium # &0D or &0E
01274                     ;M4 E-RAM is banked in
01275                     
01276  0CC0  32 0D 05      Z_M4D   LD    (DAM_LOP),A  ;Save actual medium &0D(N) / &0E(O)
01277                     
01278  0CC3  D6 0D                 SUB   A,&0D
01278  0CC5  0F                    RRCA  
01278  0CC6  0F                    RRCA  
01278  0CC7  0F                    RRCA  
01278  0CC8  32 11 BE              LD    (FN_LR),A    ;= &00 / &20 (=N/O)
01279  0CCB  F6 48                 OR    A,&48
01279  0CCD  67                    LD    H,A
01280  0CCE  AF                    XOR   A,A
01280  0CCF  32 0E 05              LD    (DAM_PAG),A  ;Page# = &00
01281  0CD2  6F                    LD    L,A
01281  0CD3  22 BC 0C              LD    (ST_M4D),HL  ;SAVE HL(&4800/&6800) = START M4 DIR N/O
01282                     
01283  0CD6  EB            ZM4E    EX    DE,HL
01284                     
01285                     ;Calculate Ponter to 1st File-Name 2 be shown // DE = Start of M4 DIR N/O
01286                     ;
01287  0CD7  3A 0E 05              LD    A,(DAM_PAG)
01287  0CDA  87                    ADD   A,A
01287  0CDB  87                    ADD   A,A
01287  0CDC  26 00                 LD    H,&00
01287  0CDE  6F                    LD    L,A          ;HL = Page * 2
01288                     ;
01289  0CDF  29                    ADD   HL,HL
01289  0CE0  29                    ADD   HL,HL
01289  0CE1  22 BE 0C              LD    (FD_M4D),HL  ;= Page(0-63) * 16 = # of 1st file to show
01290                     ;
01291  0CE4  EB                    EX    DE,HL
01291  0CE5  13                    INC   DE           ;DE = # File-Name 1, 17, 33, ...
01292                     
01293  0CE6  06 DF                 LD    B,&DF
01293  0CE8  3A C3 BB              LD    A,(IDE_XR)
01293  0CEB  ED 79                 OUT   (C),A        ;M4 ROM on
01294                     
01295  0CED  CD DE FC              CALL  FNOFN        ;HL points to 1st file-name to be shown
01296                     
01297  0CF0  11 D0 01              LD    DE,DAM_02+&04
01297  0CF3  3E 10                 LD    A,&10        ;DE points to 1st file-name in PDM text
01298                     
01299                     ;Convert 16 file-names into PDM text
01300                     ;
01301  0CF5  08            ZM4L    EX    AF,AF'       ;# of entries
01302                     
01303  0CF6  3A 0D 05              LD    A,(DAM_LOP)
01303  0CF9  C6 41                 ADD   A,"N"-&0D
01303  0CFB  12                    LD    (DE),A       ;&0D -> 'N' // &0E -> 'O'
01304  0CFC  13                    INC   DE
01304  0CFD  3E 3A                 LD    A,":"
01304  0CFF  12                    LD    (DE),A
01304  0D00  13                    INC   DE
01305                     
01306  0D01  CD F0 FC              CALL  KM4OS        ;Convert M4 name(HL) to PDM name(DE)
01307                     
01308  0D04  3E 06                 LD    A,&06
01308  0D06  83                    ADD   A,E
01308  0D07  5F                    LD    E,A          ;E = E + 6
01309  0D08  8A                    ADC   A,D
01309  0D09  93                    SUB   A,E
01309  0D0A  57                    LD    D,A          ;D = D + CARRY
01310                     
01311  0D0B  08                    EX    AF,AF'
01311  0D0C  3D                    DEC   A
01311  0D0D  20 E6                 JR    NZ,ZM4L      ;Convert next entry_^
01312                     
01313  0D0F  CD 22 FF              CALL  OSRON_A
01313  0D12  01 C0 7F              LD    BC,&7FC0
01313  0D15  ED 49                 OUT   (C),C        ;ROM A, MAIN RAM
01314                     
01315                     ;16 M4 file-names have been converted into PDM window text
01316                     ;Now select file name in PDM
01317                     
01318  0D17  21 63 01              LD    HL,DAM_TXT
01318  0D1A  CD 5F 0A              CALL  DR_WIN       ;Draw Frame
01319  0D1D  21 79 01              LD    HL,M_DAM  
01319  0D20  CD E8 0A              CALL  M_DISP2      ;Select file #
01320                     
01321  0D23  3C                    INC   A
01321  0D24  CA 78 00              JP    Z,CBM        ;ESC!
01322  0D27  3D                    DEC   A
01322  0D28  28 1F                 JR    Z,SE_AB4     ;Page DOWN
01323  0D2A  3D                    DEC   A
01323  0D2B  28 62                 JR    Z,SE_OB4     ;Page UP
01324                     ;
01325  0D2D  3D                    DEC   A            ;A = # of selected file in M4 DIR (N/O) = 0-15
01326                     ;
01327                     ;
01328                     ;--- Calculate pointer to File-Tag-Byte from # of selected file-name ---
01329                     ;
01330  0D2E  2A BE 0C              LD    HL,(FD_M4D)  ;# of 1st file in actual Page (0,16,32,48...)
01331                     ;
01332  0D31  85                    ADD   A,L
01332  0D32  6F                    LD    L,A          ;L = L + A
01333                     ;
01334  0D33  3A 11 BE              LD    A,(FN_LR)
01334  0D36  CE 44                 ADC   A,&44
01334  0D38  84                    ADD   A,H
01334  0D39  67                    LD    H,A          ;H = H + CARRY + (&44/&64)
01335                     
01336                     ;Set File-Tag-Byte
01337                     ;
01338  0D3A  06 7F                 LD    B,&7F
01338  0D3C  3A FF B9              LD    A,(M4_ERAM)
01338  0D3F  ED 79                 OUT   (C),A        ;M4 E-RAM on
01339                     ;
01340  0D41  36 01                 LD    (HL),&01     ;Set File-Tag-Byte in M4 E-RAM
01341                     ;
01342  0D43  01 C0 7F              LD    BC,&7FC0
01342  0D46  ED 49                 OUT   (C),C
01342  0D48  C9                    RET                ;Main RAM on -> Done!
01343                     
01344                     
01345                     ;--- PDM Page down ---
01346                     ;
01347  0D49  06 7F         SE_AB4  LD    B,&7F
01347  0D4B  3A FF B9              LD    A,(M4_ERAM)
01347  0D4E  ED 79                 OUT   (C),A        ;M4 E-RAM on
01348                     
01349  0D50  21 00 48              LD    HL,&4800
01349  0D53  3A 11 BE              LD    A,(FN_LR)
01349  0D56  B4                    OR    A,H
01349  0D57  67                    LD    H,A          ;HL = &4800/&6800
01350                     
01351  0D58  06 DF                 LD    B,&DF
01351  0D5A  3A C3 BB              LD    A,(IDE_XR)
01351  0D5D  ED 79                 OUT   (C),A        ;M4 ROM on
01352                     
01353  0D5F  CD ED FC              CALL  ZDN
01353  0D62  CD 22 FF              CALL  OSRON_A      ;DE = # of entries in 'N' or 'O' // ROM A on
01354                     
01355  0D65  2A BE 0C              LD    HL,(FD_M4D)
01355  0D68  01 10 00              LD    BC,&0010
01355  0D6B  09                    ADD   HL,BC        ;= # of 1st shown file + 16
01356                     
01357  0D6C  ED 52                 SBC   HL,DE
01357  0D6E  38 15                 JR    C,SE4W       ;'# 1st new file' - '# of entries'
01358                     
01359                     ;Select next medium
01360                     ;
01361  0D70  3A 0D 05              LD    A,(DAM_LOP)
01361  0D73  FE 0E                 CP    A,&0E        ;Medium 'O' active?
01362                     
01363  0D75  CA 4A 03              JP    Z,G_UNE      ;Yes --> Next Medium is 'A'
01364                     
01365  0D78  2A 00 68              LD    HL,(&6800)
01365  0D7B  7D                    LD    A,L
01365  0D7C  B4                    OR    A,H
01365  0D7D  CA 4A 03              JP    Z,G_UNE      ;No DIR in 'O' --> Next Medium is 'A'
01366                     
01367  0D80  3E 0E                 LD    A,&0E
01367  0D82  C3 C0 0C              JP    Z_M4D        ;Next Medium is 'O' _^
01368                     
01369                     ;'# of entries' > '# 1st new file'
01370                     ;
01371  0D85  21 0E 05      SE4W    LD    HL,DAM_PAG
01371  0D88  34                    INC   (HL)         ;Page# +1
01372                     ;
01373  0D89  2A BC 0C              LD    HL,(ST_M4D)
01373  0D8C  C3 D6 0C              JP    ZM4E         ;--> Show next PDM page_^
01374                     
01375                     
01376                     ;--- PDM Page up ---
01377                     ;
01378  0D8F  06 7F         SE_OB4  LD    B,&7F
01378  0D91  3A FF B9              LD    A,(M4_ERAM)
01378  0D94  ED 79                 OUT   (C),A        ;M4 E-RAM on
01379                     ;
01380  0D96  21 0E 05              LD    HL,DAM_PAG
01380  0D99  35                    DEC   (HL)
01380  0D9A  FA A3 0D              JP    M,SE4P       ;Page# -1
01381                     ;
01382  0D9D  2A BC 0C              LD    HL,(ST_M4D)
01382  0DA0  C3 D6 0C              JP    ZM4E         ;--> Show previous PDM page_^
01383                     
01384                     ;1st page already active --> Select previous Medium
01385                     ;
01386  0DA3  3A 0D 05      SE4P    LD    A,(DAM_LOP)
01386  0DA6  FE 0D                 CP    A,&0D
01386  0DA8  CA 96 04              JP    Z,SEB_VL     ;Medium 'N' active? Y -> Medium='M' _^
01387                     ;
01388  0DAB  3E 0D                 LD    A,&0D
01388  0DAD  32 0D 05              LD    (DAM_LOP),A  ;Set new Medium to 'N'
01389                     ;
01390  0DB0  2A 00 48              LD    HL,(&4800)
01390  0DB3  7D                    LD    A,L
01390  0DB4  B4                    OR    A,H
01390  0DB5  CA 96 04              JP    Z,SEB_VL     ;No DIR in 'N' --> Sel.Prev.Medium
01391                     ;
01392                     ;New Medium 'N' contains DIR --> Calculate last page
01393                     ;
01394  0DB8  AF                    XOR   A,A
01394  0DB9  32 11 BE              LD    (FN_LR),A    ;Select new Medium &0D = 'N'
01395                     ;
01396  0DBC  21 00 48      CENN    LD    HL,&4800
01397                     ;
01398                     ;Setup previous PDM page #
01399                     ;
01400  0DBF  22 BC 0C      CENO    LD    (ST_M4D),HL
01400  0DC2  06 DF                 LD    B,&DF
01400  0DC4  3A C3 BB              LD    A,(IDE_XR)
01400  0DC7  ED 79                 OUT   (C),A        ;M4 ROM on
01401                     ;
01402  0DC9  CD ED FC              CALL  ZDN
01402  0DCC  CD 22 FF              CALL  OSRON_A      ;DE = # of entries in 'N' or 'O' // ROM A on
01403                     ;
01404  0DCF  1B                    DEC   DE
01404  0DD0  7B                    LD    A,E
01404  0DD1  F6 0F                 OR    A,&0F
01404  0DD3  5F                    LD    E,A
01404  0DD4  13                    INC   DE
01404  0DD5  7B                    LD    A,E          ;DA = &0NN0
01405                     ;
01406  0DD6  CB 3A                 SRL   D
01406  0DD8  1F                    RRA   
01406  0DD9  CB 3A                 SRL   D
01406  0DDB  1F                    RRA   
01406  0DDC  CB 3A                 SRL   D
01406  0DDE  1F                    RRA   
01406  0DDF  CB 3A                 SRL   D
01406  0DE1  1F                    RRA                ;A = DE/16
01407                     ;
01408  0DE2  3D                    DEC   A
01408  0DE3  32 0E 05              LD    (DAM_PAG),A  ;Save # of last PDM page (0-63)
01409                     ;
01410  0DE6  2A BC 0C              LD    HL,(ST_M4D)
01410  0DE9  C3 D6 0C              JP    ZM4E         ;New Medium is 'N'(last PDM page) _^
01411                     
01413  0DEC                        READ  "CBM-LNG1.MAX" 
                          ; /  Read Text to RAM
01414                     ;Source 'CBM-LNG1.MAX' - Ver. 2.0.0
01415                     ;795 lines - 2021.09.16
01416                     
01417                     
01418                     ;Sub-Menus (Level_2) - All langues
01419                     
01420  0DEC  52 10 B0 11   CBM_M   DW    CMS_FILE, CMS_EDIT, CMS_OPT, CMS_F1, CMS_F2, CMS_HELP
       0DF0  AD 12 7D 13 
       0DF4  0D 14 91 14 
01421                     
01422                     
01423                     ;General Texts for CBM --- equal for all languages ---
01424                     
01425                     ;Window PEN selection
01426                     
01427  0DF8  10 01 01 4C   PEN_TXT DB    &10,&01,&01,&4C
01428                     
01429  0DFC  07 4C 00 20           DB    &07,&4C,&00,&20,&00
       0E00  00 
01430                     
01431                     
01432                     ;Select PEN
01433                     
01434  0E01  0F            M_PEN   DB    &0F
01435                     
01436  0E02  23 0E                 DW    P_US
01437  0E04  24 0E 2C 0E           DW    P_00,P_01,P_02,P_03,P_04,P_05,P_06,P_07,P_08,P_09,P_0A,P_0B,P_0C,P_0D,P_0E
       0E08  34 0E 3C 0E 
       0E0C  44 0E 4C 0E 
       0E10  54 0E 5C 0E 
       0E14  64 0E 6C 0E 
       0E18  74 0E 7C 0E 
       0E1C  84 0E 8C 0E 
       0E20  94 0E 
01438                     
01439  0E22  00            PEN_N   DB    &00          ;Remember selected PEN
01440                     
01441  0E23  00            P_US    DB    &00
01442  0E24  1F 11 03 20   P_00    DB    &1F,&11,&03," 01 ",&00
       0E28  30 31 20 00 
01443  0E2C  1F 11 08 20   P_01    DB    &1F,&11,&08," 02 ",&00
       0E30  30 32 20 00 
01444  0E34  1F 11 0D 20   P_02    DB    &1F,&11,&0D," 03 ",&00
       0E38  30 33 20 00 
01445  0E3C  1F 11 12 20   P_03    DB    &1F,&11,&12," 04 ",&00
       0E40  30 34 20 00 
01446  0E44  1F 11 17 20   P_04    DB    &1F,&11,&17," 05 ",&00
       0E48  30 35 20 00 
01447  0E4C  1F 11 1C 20   P_05    DB    &1F,&11,&1C," 06 ",&00
       0E50  30 36 20 00 
01448  0E54  1F 11 21 20   P_06    DB    &1F,&11,&21," 07 ",&00
       0E58  30 37 20 00 
01449  0E5C  1F 11 26 20   P_07    DB    &1F,&11,&26," 08 ",&00
       0E60  30 38 20 00 
01450  0E64  1F 11 2B 20   P_08    DB    &1F,&11,&2B," 09 ",&00
       0E68  30 39 20 00 
01451  0E6C  1F 11 30 20   P_09    DB    &1F,&11,&30," 10 ",&00
       0E70  31 30 20 00 
01452  0E74  1F 11 35 20   P_0A    DB    &1F,&11,&35," 11 ",&00
       0E78  31 31 20 00 
01453  0E7C  1F 11 3A 20   P_0B    DB    &1F,&11,&3A," 12 ",&00
       0E80  31 32 20 00 
01454  0E84  1F 11 3F 20   P_0C    DB    &1F,&11,&3F," 13 ",&00
       0E88  31 33 20 00 
01455  0E8C  1F 11 44 20   P_0D    DB    &1F,&11,&44," 14 ",&00
       0E90  31 34 20 00 
01456  0E94  1F 11 49 20   P_0E    DB    &1F,&11,&49," 15 ",&00
       0E98  31 35 20 00 
01457                     
01458                     
01459                     ;Window INK selection
01460                     
01461  0E9C  14 03 02 47   INK_TXT DB    &14,&03,&02,&47
01462                     
01463  0EA0  07 47 00 20           DB    &07,&47,&00,&20,&00
       0EA4  00 
01464  0EA5  07 47 00 20           DB    &07,&47,&00,&20,&00
       0EA9  00 
01465                     
01466                     
01467                     ;Select INK
01468                     
01469  0EAA  1B            M_INK   DB    &1B
01470                     
01471  0EAB  E4 0E                 DW    I_US
01472  0EAD  E5 0E ED 0E           DW    I_00,I_01,I_02,I_03,I_04,I_05,I_06,I_07,I_08,I_09,I_0A,I_0B,I_0C,I_0D
       0EB1  F5 0E FD 0E 
       0EB5  05 0F 0D 0F 
       0EB9  15 0F 1D 0F 
       0EBD  25 0F 2D 0F 
       0EC1  35 0F 3D 0F 
       0EC5  45 0F 4D 0F 
01473  0EC9  55 0F 5D 0F           DW    I_0E,I_0F,I_10,I_11,I_12,I_13,I_14,I_15,I_16,I_17,I_18,I_19,I_1A
       0ECD  65 0F 6D 0F 
       0ED1  75 0F 7D 0F 
       0ED5  85 0F 8D 0F 
       0ED9  95 0F 9D 0F 
       0EDD  A5 0F AD 0F 
       0EE1  B5 0F 
01474                     
01475  0EE3  00            INK_N   DB    &00          ;Store selected INK
01476                     
01477  0EE4  00            I_US    DB    &00
01478  0EE5  1F 15 05 20   I_00    DB    &1F,&15,&05," 00 ",&00
       0EE9  30 30 20 00 
01479  0EED  1F 15 0A 20   I_01    DB    &1F,&15,&0A," 01 ",&00
       0EF1  30 31 20 00 
01480  0EF5  1F 15 0F 20   I_02    DB    &1F,&15,&0F," 02 ",&00
       0EF9  30 32 20 00 
01481  0EFD  1F 15 14 20   I_03    DB    &1F,&15,&14," 03 ",&00
       0F01  30 33 20 00 
01482  0F05  1F 15 19 20   I_04    DB    &1F,&15,&19," 04 ",&00
       0F09  30 34 20 00 
01483  0F0D  1F 15 1E 20   I_05    DB    &1F,&15,&1E," 05 ",&00
       0F11  30 35 20 00 
01484  0F15  1F 15 23 20   I_06    DB    &1F,&15,&23," 06 ",&00
       0F19  30 36 20 00 
01485  0F1D  1F 15 28 20   I_07    DB    &1F,&15,&28," 07 ",&00
       0F21  30 37 20 00 
01486  0F25  1F 15 2D 20   I_08    DB    &1F,&15,&2D," 08 ",&00
       0F29  30 38 20 00 
01487  0F2D  1F 15 32 20   I_09    DB    &1F,&15,&32," 09 ",&00
       0F31  30 39 20 00 
01488  0F35  1F 15 37 20   I_0A    DB    &1F,&15,&37," 10 ",&00
       0F39  31 30 20 00 
01489  0F3D  1F 15 3C 20   I_0B    DB    &1F,&15,&3C," 11 ",&00
       0F41  31 31 20 00 
01490  0F45  1F 15 41 20   I_0C    DB    &1F,&15,&41," 12 ",&00
       0F49  31 32 20 00 
01491  0F4D  1F 15 46 20   I_0D    DB    &1F,&15,&46," 13 ",&00
       0F51  31 33 20 00 
01492  0F55  1F 16 05 20   I_0E    DB    &1F,&16,&05," 14 ",&00
       0F59  31 34 20 00 
01493  0F5D  1F 16 0A 20   I_0F    DB    &1F,&16,&0A," 15 ",&00
       0F61  31 35 20 00 
01494  0F65  1F 16 0F 20   I_10    DB    &1F,&16,&0F," 16 ",&00
       0F69  31 36 20 00 
01495  0F6D  1F 16 14 20   I_11    DB    &1F,&16,&14," 17 ",&00
       0F71  31 37 20 00 
01496  0F75  1F 16 19 20   I_12    DB    &1F,&16,&19," 18 ",&00
       0F79  31 38 20 00 
01497  0F7D  1F 16 1E 20   I_13    DB    &1F,&16,&1E," 19 ",&00
       0F81  31 39 20 00 
01498  0F85  1F 16 23 20   I_14    DB    &1F,&16,&23," 20 ",&00
       0F89  32 30 20 00 
01499  0F8D  1F 16 28 20   I_15    DB    &1F,&16,&28," 21 ",&00
       0F91  32 31 20 00 
01500  0F95  1F 16 2D 20   I_16    DB    &1F,&16,&2D," 22 ",&00
       0F99  32 32 20 00 
01501  0F9D  1F 16 32 20   I_17    DB    &1F,&16,&32," 23 ",&00
       0FA1  32 33 20 00 
01502  0FA5  1F 16 37 20   I_18    DB    &1F,&16,&37," 24 ",&00
       0FA9  32 34 20 00 
01503  0FAD  1F 16 3C 20   I_19    DB    &1F,&16,&3C," 25 ",&00
       0FB1  32 35 20 00 
01504  0FB5  1F 16 41 20   I_1A    DB    &1F,&16,&41," 26 ",&00
       0FB9  32 36 20 00 
01505                     
01506                     
01507                     ;--- Language dependent parts ---+
01508                     
01509  0FBD  (0009)                IF    DEU
01510                     
01511                     ;Command Bar Menue Hauptteil --- Deutsch ---
01512                     
01513  0FBD  86            CM_BAR  DB    &06 + &80    ;6 Menuepunkte + Heisse Tasten aktiviert
01514                     
01515  0FBE  D9 0F                 DW    CM_US        ;Zeiger auf Init. Text
01516                     
01517  0FC0  F4 0F 01 10           DW    CM_00,CM_01,CM_02,CM_03,CM_04,CM_05 
                          ;Zeiger auf die 6 Optionen
       0FC4  13 10 23 10 
       0FC8  34 10 45 10 
01518                     
01519  0FCC  00                    DB    &00          ;Auswahl startet mit dieser Option
01520                     
01521  0FCD  64 44 62 42           DB    "dDbBoOpPfFhH" 
                          ;Heisse Tasten aktivieren Option, je zwei Tasten pro Option
       0FD1  6F 4F 70 50 
       0FD5  66 46 68 48 
01522                     
01523  0FD9  0B 0C 10      CM_US   DB    &0B,&0C,&10  ;Init. Text
01524                     
01525  0FDC  8F 07 4E 00           DB    &8F,&07,&4E,&00,&83
       0FE0  83 
01526  0FE1  07 52 00 8F           DB    &07,&52,&00,&8F
01527  0FE5  07 4E 00 8C           DB    &07,&4E,&00,&8C,&8F
       0FE9  8F 
01528  0FEA  CF 07 4F 00           DB    &CF,&07,&4F,&00,&DA
       0FEE  DA 
01529  0FEF  07 91 06 CF           DB    &07,&91,&06,&CF,&00
       0FF3  00 
01530                     
01531                     ;Text der Optionen
01532                     
01533  0FF4  1F 01 02 20   CM_00   DB    &1F,&01,&02," <D>atei ",&00
       0FF8  3C 44 3E 61 
       0FFC  74 65 69 20 
       1000  00 
01534  1001  1F 01 0C 20   CM_01   DB    &1F,&01,&0C," <B>earbeiten ",&00
       1005  3C 42 3E 65 
       1009  61 72 62 65 
       100D  69 74 65 6E 
       1011  20 00 
01535  1013  1F 01 1B 20   CM_02   DB    &1F,&01,&1B," <O>ptionen ",&00
       1017  3C 4F 3E 70 
       101B  74 69 6F 6E 
       101F  65 6E 20 00 
01536  1023  1F 01 28 20   CM_03   DB    &1F,&01,&28," <P>rg.Funk. ",&00
       1027  3C 50 3E 72 
       102B  67 2E 46 75 
       102F  6E 6B 2E 20 
       1033  00 
01537  1034  1F 01 36 20   CM_04   DB    &1F,&01,&36," <F>unk.Prg. ",&00
       1038  3C 46 3E 75 
       103C  6E 6B 2E 50 
       1040  72 67 2E 20 
       1044  00 
01538  1045  1F 01 45 20   CM_05   DB    &1F,&01,&45," <H>ilfe ",&00
       1049  3C 48 3E 69 
       104D  6C 66 65 20 
       1051  00 
01539                     
01540                     
01541                     ;Sub-Menue Datei
01542                     
01543  1052  8D            CMS_FILE
                                   DB    &8D
01544                     
01545  1053  8A 10                 DW    FI_US
01546  1055  C6 10 D8 10           DW    FI_00,FI_01,FI_02,FI_03,FI_04,FI_05,FI_06,FI_07,FI_08,FI_09,FI_0A,FI_0B,FI_0C
       1059  EA 10 FC 10 
       105D  0E 11 20 11 
       1061  32 11 44 11 
       1065  56 11 68 11 
       1069  7A 11 8C 11 
       106D  9E 11 
01547  106F  00                    DB    &00
01548  1070  6C 4C 73 53           DB    "lLsSaApPnNcCiIeEvVkKdDrRbB"
       1074  61 41 70 50 
       1078  6E 4E 63 43 
       107C  69 49 65 45 
       1080  76 56 6B 4B 
       1084  64 44 72 52 
       1088  62 42 
01549                     
01550  108A  1F 04 01      FI_US   DB    &1F,&04,&01
01551                     
01552  108D  04 13 8F              DB    &04,&13,&8F
01553  1090  07 0E 00 83           DB    &07,&0E,&00,&83
01554  1094  04 13 8F 0A           DB    &04,&13,&8F,&0A
01555  1098  04 12 20              DB    &04,&12," "
01556  109B  1F 0B 02 07           DB    &1F,&0B,&02,&07,&0E,&00,&9A
       109F  0E 00 9A 
01557  10A2  1F 0E 02 07           DB    &1F,&0E,&02,&07,&0E,&00,&9A
       10A6  0E 00 9A 
01558  10A9  1F 11 02 07           DB    &1F,&11,&02,&07,&0E,&00,&9A
       10AD  0E 00 9A 
01559  10B0  1F 14 02 07           DB    &1F,&14,&02,&07,&0E,&00,&9A
       10B4  0E 00 9A 
01560  10B7  1F 16 02 07           DB    &1F,&16,&02,&07,&0E,&00,&8C
       10BB  0E 00 8C 
01561  10BE  1F 17 02 07           DB    &1F,&17,&02,&07,&10,&00,&DA
       10C2  10 00 DA 
01562  10C5  00                    DB    &00
01563                     
01564  10C6  1F 05 02 20   FI_00   DB    &1F,&05,&02," <L>aden      ",&00
       10CA  3C 4C 3E 61 
       10CE  64 65 6E 20 
       10D2  20 20 20 20 
       10D6  20 00 
01565  10D8  1F 06 02 20   FI_01   DB    &1F,&06,&02," <S>peichern  ",&00
       10DC  3C 53 3E 70 
       10E0  65 69 63 68 
       10E4  65 72 6E 20 
       10E8  20 00 
01566  10EA  1F 07 02 20   FI_02   DB    &1F,&07,&02," Blk. l<a>den ",&00
       10EE  42 6C 6B 2E 
       10F2  20 6C 3C 61 
       10F6  3E 64 65 6E 
       10FA  20 00 
01567  10FC  1F 08 02 20   FI_03   DB    &1F,&08,&02," Blk. s<p>ei. ",&00
       1100  42 6C 6B 2E 
       1104  20 73 3C 70 
       1108  3E 65 69 2E 
       110C  20 00 
01568  110E  1F 09 02 20   FI_04   DB    &1F,&09,&02," DIRs lese<n> ",&00
       1112  44 49 52 73 
       1116  20 6C 65 73 
       111A  65 3C 6E 3E 
       111E  20 00 
01569  1120  1F 0A 02 20   FI_05   DB    &1F,&0A,&02," S<c>hlie",&B1,"en  ",&00
       1124  53 3C 63 3E 
       1128  68 6C 69 65 
       112C  B1 65 6E 20 
       1130  20 00 
01570  1132  1F 0C 02 20   FI_06   DB    &1F,&0C,&02," <I>mport     ",&00
       1136  3C 49 3E 6D 
       113A  70 6F 72 74 
       113E  20 20 20 20 
       1142  20 00 
01571  1144  1F 0D 02 20   FI_07   DB    &1F,&0D,&02," <E>xport     ",&00
       1148  3C 45 3E 78 
       114C  70 6F 72 74 
       1150  20 20 20 20 
       1154  20 00 
01572  1156  1F 0F 02 20   FI_08   DB    &1F,&0F,&02," <V>ersion    ",&00
       115A  3C 56 3E 65 
       115E  72 73 69 6F 
       1162  6E 20 20 20 
       1166  20 00 
01573  1168  1F 10 02 20   FI_09   DB    &1F,&10,&02," <K>ode       ",&00
       116C  3C 4B 3E 6F 
       1170  64 65 20 20 
       1174  20 20 20 20 
       1178  20 00 
01574  117A  1F 12 02 20   FI_0A   DB    &1F,&12,&02," <D>rucken    ",&00
       117E  3C 44 3E 72 
       1182  75 63 6B 65 
       1186  6E 20 20 20 
       118A  20 00 
01575  118C  1F 13 02 20   FI_0B   DB    &1F,&13,&02," Ve<r>senden  ",&00
       1190  56 65 3C 72 
       1194  3E 73 65 6E 
       1198  64 65 6E 20 
       119C  20 00 
01576  119E  1F 15 02 20   FI_0C   DB    &1F,&15,&02," <B>eenden    ",&00
       11A2  3C 42 3E 65 
       11A6  65 6E 64 65 
       11AA  6E 20 20 20 
       11AE  20 00 
01577                     
01578                     
01579                     ;Bearbeiten
01580                     
01581  11B0  89            CMS_EDIT
                                   DB    &89
01582                     
01583  11B1  D8 11                 DW    ED_US
01584  11B3  14 12 25 12           DW    ED_00,ED_01,ED_02,ED_03,ED_04,ED_05,ED_06,ED_07,ED_08
       11B7  36 12 47 12 
       11BB  58 12 69 12 
       11BF  7A 12 8B 12 
       11C3  9C 12 
01585  11C5  00                    DB    &00
01586  11C6  7A 5A 65 45           DB    "zZeElLkKfFoOsSrRaA"
       11CA  6C 4C 6B 4B 
       11CE  66 46 6F 4F 
       11D2  73 53 72 52 
       11D6  61 41 
01587                     
01588  11D8  1F 04 0B      ED_US   DB    &1F,&04,&0B
01589                     
01590  11DB  04 0F 8F              DB    &04,&0F,&8F
01591  11DE  07 0D 00 83           DB    &07,&0D,&00,&83
01592  11E2  04 0F 8F              DB    &04,&0F,&8F
01593  11E5  0A 04 0E 20           DB    &0A,&04,&0E," "
01594  11E9  1F 06 0C 07           DB    &1F,&06,&0C,&07,&0D,&00,&9A
       11ED  0D 00 9A 
01595  11F0  1F 09 0C 07           DB    &1F,&09,&0C,&07,&0D,&00,&9A
       11F4  0D 00 9A 
01596  11F7  1F 0C 0C 07           DB    &1F,&0C,&0C,&07,&0D,&00,&9A
       11FB  0D 00 9A 
01597  11FE  1F 10 0C 07           DB    &1F,&10,&0C,&07,&0D,&00,&9A
       1202  0D 00 9A 
01598  1205  1F 12 0C 07           DB    &1F,&12,&0C,&07,&0D,&00,&8C
       1209  0D 00 8C 
01599  120C  1F 13 0C 07           DB    &1F,&13,&0C,&07,&0F,&00,&DA
       1210  0F 00 DA 
01600  1213  00                    DB    &00
01601                     
01602  1214  1F 05 0C 20   ED_00   DB    &1F,&05,&0C," <Z>urueck   ",&00
       1218  3C 5A 3E 75 
       121C  72 75 65 63 
       1220  6B 20 20 20 
       1224  00 
01603  1225  1F 07 0C 20   ED_01   DB    &1F,&07,&0C," <E>ditieren ",&00
       1229  3C 45 3E 64 
       122D  69 74 69 65 
       1231  72 65 6E 20 
       1235  00 
01604  1236  1F 08 0C 20   ED_02   DB    &1F,&08,&0C," <L>oeschen  ",&00
       123A  3C 4C 3E 6F 
       123E  65 73 63 68 
       1242  65 6E 20 20 
       1246  00 
01605  1247  1F 0A 0C 20   ED_03   DB    &1F,&0A,&0C," <K>opieren  ",&00
       124B  3C 4B 3E 6F 
       124F  70 69 65 72 
       1253  65 6E 20 20 
       1257  00 
01606  1258  1F 0B 0C 20   ED_04   DB    &1F,&0B,&0C," Ein<f>uegen ",&00
       125C  45 69 6E 3C 
       1260  66 3E 75 65 
       1264  67 65 6E 20 
       1268  00 
01607  1269  1F 0D 0C 20   ED_05   DB    &1F,&0D,&0C," Gehe zu <o> ",&00
       126D  47 65 68 65 
       1271  20 7A 75 20 
       1275  3C 6F 3E 20 
       1279  00 
01608  127A  1F 0E 0C 20   ED_06   DB    &1F,&0E,&0C," <S>uchen    ",&00
       127E  3C 53 3E 75 
       1282  63 68 65 6E 
       1286  20 20 20 20 
       128A  00 
01609  128B  1F 0F 0C 20   ED_07   DB    &1F,&0F,&0C," E<r>setzen  ",&00
       128F  45 3C 72 3E 
       1293  73 65 74 7A 
       1297  65 6E 20 20 
       129B  00 
01610  129C  1F 11 0C 20   ED_08   DB    &1F,&11,&0C," <A>ufruf OS ",&00
       12A0  3C 41 3E 75 
       12A4  66 72 75 66 
       12A8  20 4F 53 20 
       12AC  00 
01611                     
01612                     
01613                     ;Sub-Menue Optionen
01614                     
01615  12AD  86            CMS_OPT DB    &86
01616                     
01617  12AE  C9 12                 DW    OP_US
01618  12B0  FE 12 0E 13           DW    OP_00,OP_01,OP_02,OP_03,OP_04,OP_05
       12B4  1E 13 2E 13 
       12B8  3E 13 4E 13 
01619  12BC  00                    DB    &00
01620  12BD  6D 4D 66 46           DB    "mMfFoOdDnNsS"
       12C1  6F 4F 64 44 
       12C5  6E 4E 73 53 
01621                     
01622  12C9  1F 04 1A      OP_US   DB    &1F,&04,&1A
01623                     
01624  12CC  04 0B 8F              DB    &04,&0B,&8F
01625  12CF  07 0C 00 83           DB    &07,&0C,&00,&83
01626  12D3  04 0B 8F              DB    &04,&0B,&8F
01627  12D6  0A 04 0A 20           DB    &0A,&04,&0A," "
01628  12DA  1F 08 1B 07           DB    &1F,&08,&1B,&07,&0C,&00,&9A
       12DE  0C 00 9A 
01629  12E1  1F 0A 1B 07           DB    &1F,&0A,&1B,&07,&0C,&00,&9A
       12E5  0C 00 9A 
01630  12E8  1F 0C 1B 07           DB    &1F,&0C,&1B,&07,&0C,&00,&9A
       12EC  0C 00 9A 
01631  12EF  1F 0E 1B 07           DB    &1F,&0E,&1B,&07,&0C,&00,&8C
       12F3  0C 00 8C 
01632  12F6  1F 0F 1B 07           DB    &1F,&0F,&1B,&07,&0E,&00,&DA
       12FA  0E 00 DA 
01633  12FD  00                    DB    &00
01634                     
01635  12FE  1F 05 1B 20   OP_00   DB    &1F,&05,&1B," <M>ode     ",&00
       1302  3C 4D 3E 6F 
       1306  64 65 20 20 
       130A  20 20 20 00 
01636  130E  1F 06 1B 20   OP_01   DB    &1F,&06,&1B," <F>arben   ",&00
       1312  3C 46 3E 61 
       1316  72 62 65 6E 
       131A  20 20 20 00 
01637  131E  1F 07 1B 20   OP_02   DB    &1F,&07,&1B," F<o>rmat   ",&00
       1322  46 3C 6F 3E 
       1326  72 6D 61 74 
       132A  20 20 20 00 
01638  132E  1F 09 1B 20   OP_03   DB    &1F,&09,&1B," <D>rucker  ",&00
       1332  3C 44 3E 72 
       1336  75 63 6B 65 
       133A  72 20 20 00 
01639  133E  1F 0B 1B 20   OP_04   DB    &1F,&0B,&1B," <N>etzwerk ",&00
       1342  3C 4E 3E 65 
       1346  74 7A 77 65 
       134A  72 6B 20 00 
01640  134E  1F 0D 1B 20   OP_05   DB    &1F,&0D,&1B," <S>prache  ",&00
       1352  3C 53 3E 70 
       1356  72 61 63 68 
       135A  65 20 20 00 
01641                     
01642                     
01643                     ;Text LW nicht vorhanden
01644                     
01645  135E  15 1A 01 1A   SZD_ERR DB    &15,&1A,&01,&1A
01646                     
01647  1362  20 4C 61 75           DB    " Laufwerk nicht markiert! ",&00
       1366  66 77 65 72 
       136A  6B 20 6E 69 
       136E  63 68 74 20 
       1372  6D 61 72 6B 
       1376  69 65 72 74 
       137A  21 20 00 
01648                     
01649  137D                        ENDIF 
01650                     
01651                     
01652  137D  (0000)                IF    ENG
01653                     
01654                     ;Command Bar Menu Main --- English ---
01655                     
01656  137D                CM_BAR  DB    &06 + &80    ;6 Menu choices + Hot keys active
01657                     
01658  137D                        DW    CME_US       ;pointer to init text
01659                     
01660  137D                        DW    CME_00,CME_01,CME_02,CME_03,CME_04,CME_05 
                          ;pointer to 6 options
01661                     
01662  137D                        DB    &00          ;start with this option
01663                     
01664  137D                        DB    "fFpPoOuUmMhH" 
                          ;Hot keys for options, two keys for each option
01665                     
01666  137D                CME_US  DB    &0B,&0C,&10
01667                     
01668  137D                        DB    &8F,&07,&4E,&00,&83
01669  137D                        DB    &07,&52,&00,&8F
01670  137D                        DB    &07,&4E,&00,&8C,&8F
01671  137D                        DB    &CF,&07,&4F,&00,&DA
01672  137D                        DB    &07,&91,&06,&CF,&00
01673                     
01674  137D                CME_00  DB    &1F,&01,&02," <F>ile ",&00
01675  137D                CME_01  DB    &1F,&01,&0B," <P>rocess ",&00
01676  137D                CME_02  DB    &1F,&01,&17," <O>ptions ",&00
01677  137D                CME_03  DB    &1F,&01,&23," <U>ser Func 1 ",&00
01678  137D                CME_04  DB    &1F,&01,&34," <M>enu User 2 ",&00
01679  137D                CME_05  DB    &1F,&01,&45," <H>elp ",&00
01680                     
01681                     
01682                     ;Sub-Menu FILE
01683                     
01684  137D                CMS_FILE
                                   DB    &8D
01685                     
01686  137D                        DW    FIE_US
01687  137D                        DW    FIE_00,FIE_01,FIE_02,FIE_03,FIE_04,FIE_05,FIE_06,FIE_07,FIE_08,FIE_09,FIE_0A,FIE_0B,FIE_
                          0C
01688  137D                        DB    &00
01689  137D                        DB    "lLsSoObBaAcCiIeEvVyYpPdDqQ"
01690                     
01691  137D                FIE_US  DB    &1F,&04,&01
01692                     
01693  137D                        DB    &04,&13,&8F
01694  137D                        DB    &07,&0D,&00,&83
01695  137D                        DB    &04,&13,&8F,&0A
01696  137D                        DB    &04,&12," "
01697  137D                        DB    &1F,&0B,&02,&07,&0D,&00,&9A
01698  137D                        DB    &1F,&0E,&02,&07,&0D,&00,&9A
01699  137D                        DB    &1F,&11,&02,&07,&0D,&00,&9A
01700  137D                        DB    &1F,&14,&02,&07,&0D,&00,&9A
01701  137D                        DB    &1F,&16,&02,&07,&0D,&00,&8C
01702  137D                        DB    &1F,&17,&02,&07,&0F,&00,&DA
01703  137D                        DB    &00
01704                     
01705  137D                FIE_00  DB    &1F,&05,&02," <L>oad      ",&00
01706  137D                FIE_01  DB    &1F,&06,&02," <S>ave      ",&00
01707  137D                FIE_02  DB    &1F,&07,&02," L<o>ad Blk. ",&00
01708  137D                FIE_03  DB    &1F,&08,&02," Save <B>lk. ",&00
01709  137D                FIE_04  DB    &1F,&09,&02," Re<a>d DIRs ",&00
01710  137D                FIE_05  DB    &1F,&0A,&02," <C>lose     ",&00
01711  137D                FIE_06  DB    &1F,&0C,&02," <I>mport    ",&00
01712  137D                FIE_07  DB    &1F,&0D,&02," <E>xport    ",&00
01713  137D                FIE_08  DB    &1F,&0F,&02," <V>ersion   ",&00
01714  137D                FIE_09  DB    &1F,&10,&02," Encr<y>pt   ",&00
01715  137D                FIE_0A  DB    &1F,&12,&02," <P>rint     ",&00
01716  137D                FIE_0B  DB    &1F,&13,&02," Sen<d>      ",&00
01717  137D                FIE_0C  DB    &1F,&15,&02," <Q>uit      ",&00
01718                     
01719                     
01720                     ;Sub-Menu EDIT
01721                     
01722  137D                CMS_EDIT
                                   DB    &89
01723                     
01724  137D                        DW    EDE_US
01725  137D                        DW    EDE_00,EDE_01,EDE_02,EDE_03,EDE_04,EDE_05,EDE_06,EDE_07,EDE_08
01726  137D                        DB    &00
01727  137D                        DB    "uUeElLcCpPoOsSrRaA"
01728                     
01729  137D                EDE_US  DB    &1F,&04,&0A
01730                     
01731  137D                        DB    &04,&0F,&8F
01732  137D                        DB    &07,&0B,&00,&83
01733  137D                        DB    &04,&0F,&8F
01734  137D                        DB    &0A,&04,&0E," "
01735  137D                        DB    &1F,&06,&0B,&07,&0B,&00,&9A
01736  137D                        DB    &1F,&09,&0B,&07,&0B,&00,&9A
01737  137D                        DB    &1F,&0C,&0B,&07,&0B,&00,&9A
01738  137D                        DB    &1F,&10,&0B,&07,&0B,&00,&9A
01739  137D                        DB    &1F,&12,&0B,&07,&0B,&00,&8C
01740  137D                        DB    &1F,&13,&0B,&07,&0D,&00,&DA
01741  137D                        DB    &00
01742                     
01743  137D                EDE_00  DB    &1F,&05,&0B," <U>ndo    ",&00
01744  137D                EDE_01  DB    &1F,&07,&0B," <E>dit    ",&00
01745  137D                EDE_02  DB    &1F,&08,&0B," C<l>ear   ",&00
01746  137D                EDE_03  DB    &1F,&0A,&0B," <C>opy    ",&00
01747  137D                EDE_04  DB    &1F,&0B,&0B," <P>aste   ",&00
01748  137D                EDE_05  DB    &1F,&0D,&0B," G<o> To   ",&00
01749  137D                EDE_06  DB    &1F,&0E,&0B," <S>earch  ",&00
01750  137D                EDE_07  DB    &1F,&0F,&0B," <R>eplace ",&00
01751  137D                EDE_08  DB    &1F,&11,&0B," C<a>ll OS ",&00
01752                     
01753                     
01754                     ;Sub-Menu Options
01755                     
01756  137D                CMS_OPT DB    &86
01757                     
01758  137D                        DW    OPE_US
01759  137D                        DW    OPE_00,OPE_01,OPE_02,OPE_03,OPE_04,OPE_05
01760  137D                        DB    &00
01761  137D                        DB    "mMcCfFpPnNlL"
01762                     
01763  137D                OPE_US  DB    &1F,&04,&16
01764                     
01765  137D                        DB    &04,&0B,&8F
01766  137D                        DB    &07,&0C,&00,&83
01767  137D                        DB    &04,&0B,&8F
01768  137D                        DB    &0A,&04,&0A," "
01769  137D                        DB    &1F,&08,&17,&07,&0C,&00,&9A
01770  137D                        DB    &1F,&0A,&17,&07,&0C,&00,&9A
01771  137D                        DB    &1F,&0C,&17,&07,&0C,&00,&9A
01772  137D                        DB    &1F,&0E,&17,&07,&0C,&00,&8C
01773  137D                        DB    &1F,&0F,&17,&07,&0E,&00,&DA
01774  137D                        DB    &00
01775                     
01776  137D                OPE_00  DB    &1F,&05,&17," <M>ode     ",&00
01777  137D                OPE_01  DB    &1F,&06,&17," <C>olour   ",&00
01778  137D                OPE_02  DB    &1F,&07,&17," <F>ormat   ",&00
01779  137D                OPE_03  DB    &1F,&09,&17," <P>rinter  ",&00
01780  137D                OPE_04  DB    &1F,&0B,&17," <N>etwork  ",&00
01781  137D                OPE_05  DB    &1F,&0D,&17," <L>anguage ",&00
01782                     
01783                     
01784                     ;Text for Drive not connected
01785                     
01786  137D                SZD_ERR DB    &15,&1A,&01,&1A
01787                     
01788  137D                        DB    " The drive is not tagged! ",&00
01789                     
01790  137D                        ENDIF 
01791                     
01792                     
01793  137D  (0000)                IF    FRA
01794                     
01795                     ;Command Bar Menu Main --- Francais ---
01796                     
01797  137D                CM_BAR  DB    &06 + &80    ;6 Menu choices + Hot keys active
01798                     
01799  137D                        DW    CMF_US       ;pointer to init text
01800                     
01801  137D                        DW    CMF_00,CMF_01,CMF_02,CMF_03,CMF_04,CMF_05 
                          ;pointer to 6 options
01802                     
01803  137D                        DB    &00          ;start with this option
01804                     
01805  137D                        DB    "fFpPoOuUmMaA" 
                          ;Hot keys for options, two keys for each option
01806                     
01807  137D                CMF_US  DB    &0B,&0C,&10
01808                     
01809  137D                        DB    &8F,&07,&4E,&00,&83
01810  137D                        DB    &07,&52,&00,&8F
01811  137D                        DB    &07,&4E,&00,&8C,&8F
01812  137D                        DB    &CF,&07,&4F,&00,&DA
01813  137D                        DB    &07,&91,&06,&CF,&00
01814                     
01815  137D                CMF_00  DB    &1F,&01,&02," <F>ichier ",&00
01816  137D                CMF_01  DB    &1F,&01,&0E," <P>rocessus ",&00
01817  137D                CMF_02  DB    &1F,&01,&1C," <O>ptions ",&00
01818  137D                CMF_03  DB    &1F,&01,&28," App. <U>ser ",&00
01819  137D                CMF_04  DB    &1F,&01,&36," App. <M>enu ",&00
01820  137D                CMF_05  DB    &1F,&01,&45," <A>ide ",&00
01821                     
01822                     
01823                     ;Sub-Menu Fichier
01824                     
01825  137D                CMS_FILE
                                   DB    &8D
01826                     
01827  137D                        DW    FIF_US
01828  137D                        DW    FIF_00,FIF_01,FIF_02,FIF_03,FIF_04,FIF_05,FIF_06,FIF_07,FIF_08,FIF_09,FIF_0A,FIF_0B,FIF_
                          0C
01829  137D                        DB    &00
01830  137D                        DB    "cCsSaAbBhHfFiIeEvVrRpPnNqQ"
01831                     
01832  137D                FIF_US  DB    &1F,&04,&01
01833                     
01834  137D                        DB    &04,&13,&8F
01835  137D                        DB    &07,&0D,&00,&83
01836  137D                        DB    &04,&13,&8F,&0A
01837  137D                        DB    &04,&12," "
01838  137D                        DB    &1F,&0B,&02,&07,&0D,&00,&9A
01839  137D                        DB    &1F,&0E,&02,&07,&0D,&00,&9A
01840  137D                        DB    &1F,&11,&02,&07,&0D,&00,&9A
01841  137D                        DB    &1F,&14,&02,&07,&0D,&00,&9A
01842  137D                        DB    &1F,&16,&02,&07,&0D,&00,&8C
01843  137D                        DB    &1F,&17,&02,&07,&0F,&00,&DA
01844  137D                        DB    &00
01845                     
01846  137D                FIF_00  DB    &1F,&05,&02," <C>harger   ",&00
01847  137D                FIF_01  DB    &1F,&06,&02," <S>auver    ",&00
01848  137D                FIF_02  DB    &1F,&07,&02," Ch<a>r.Bloq ",&00
01849  137D                FIF_03  DB    &1F,&08,&02," Sauv.<B>loq ",&00
01850  137D                FIF_04  DB    &1F,&09,&02," C<h>ar.DIRs ",&00
01851  137D                FIF_05  DB    &1F,&0A,&02," <F>ermer    ",&00
01852  137D                FIF_06  DB    &1F,&0C,&02," <I>mporter  ",&00
01853  137D                FIF_07  DB    &1F,&0D,&02," <E>xporter  ",&00
01854  137D                FIF_08  DB    &1F,&0F,&02," <V>ersion   ",&00
01855  137D                FIF_09  DB    &1F,&10,&02," Enc<r>ypter ",&00
01856  137D                FIF_0A  DB    &1F,&12,&02," Im<p>rimer  ",&00
01857  137D                FIF_0B  DB    &1F,&13,&02," E<n>voyer   ",&00
01858  137D                FIF_0C  DB    &1F,&15,&02," <Q>uitter   ",&00
01859                     
01860                     
01861                     ;Sub-Menu Processus
01862                     
01863  137D                CMS_EDIT
                                   DB    &89
01864                     
01865  137D                        DW    EDF_US
01866  137D                        DW    EDF_00,EDF_01,EDF_02,EDF_03,EDF_04,EDF_05,EDF_06,EDF_07,EDF_08
01867  137D                        DB    &00
01868  137D                        DB    "uUeEfFcClLoOhHrRaA"
01869                     
01870  137D                EDF_US  DB    &1F,&04,&0D
01871                     
01872  137D                        DB    &04,&0F,&8F
01873  137D                        DB    &07,&0D,&00,&83
01874  137D                        DB    &04,&0F,&8F
01875  137D                        DB    &0A,&04,&0E," "
01876  137D                        DB    &1F,&06,&0E,&07,&0D,&00,&9A
01877  137D                        DB    &1F,&09,&0E,&07,&0D,&00,&9A
01878  137D                        DB    &1F,&0C,&0E,&07,&0D,&00,&9A
01879  137D                        DB    &1F,&10,&0E,&07,&0D,&00,&9A
01880  137D                        DB    &1F,&12,&0E,&07,&0D,&00,&8C
01881  137D                        DB    &1F,&13,&0E,&07,&0F,&00,&DA
01882  137D                        DB    &00
01883                     
01884  137D                EDF_00  DB    &1F,&05,&0E," Ann<u>ler   ",&00
01885  137D                EDF_01  DB    &1F,&07,&0E," <E>diter    ",&00
01886  137D                EDF_02  DB    &1F,&08,&0E," E<f>facer   ",&00
01887  137D                EDF_03  DB    &1F,&0A,&0E," <C>opier    ",&00
01888  137D                EDF_04  DB    &1F,&0B,&0E," Co<l>ler    ",&00
01889  137D                EDF_05  DB    &1F,&0D,&0E," Aller ",&40," <o> ",&00
01890  137D                EDF_06  DB    &1F,&0E,&0E," C<h>ercher  ",&00
01891  137D                EDF_07  DB    &1F,&0F,&0E," <R>emplacer ",&00
01892  137D                EDF_08  DB    &1F,&11,&0E," <A>ppelleOS ",&00
01893                     
01894                     
01895                     ;Sub-Menu Options
01896                     
01897  137D                CMS_OPT DB    &86
01898                     
01899  137D                        DW    OPF_US
01900  137D                        DW    OPF_00,OPF_01,OPF_02,OPF_03,OPF_04,OPF_05
01901  137D                        DB    &00
01902  137D                        DB    "mMcCfFiIrRlL"
01903                     
01904  137D                OPF_US  DB    &1F,&04,&1B
01905                     
01906  137D                        DB    &04,&0B,&8F
01907  137D                        DB    &07,&0E,&00,&83
01908  137D                        DB    &04,&0B,&8F
01909  137D                        DB    &0A,&04,&0A," "
01910  137D                        DB    &1F,&08,&1C,&07,&0E,&00,&9A
01911  137D                        DB    &1F,&0A,&1C,&07,&0E,&00,&9A
01912  137D                        DB    &1F,&0C,&1C,&07,&0E,&00,&9A
01913  137D                        DB    &1F,&0E,&1C,&07,&0E,&00,&8C
01914  137D                        DB    &1F,&0F,&1C,&07,&10,&00,&DA
01915  137D                        DB    &00
01916                     
01917  137D                OPF_00  DB    &1F,&05,&1C," <M>ode       ",&00
01918  137D                OPF_01  DB    &1F,&06,&1C," <C>ouleur    ",&00
01919  137D                OPF_02  DB    &1F,&07,&1C," <F>ormater   ",&00
01920  137D                OPF_03  DB    &1F,&09,&1C," <I>mprimante ",&00
01921  137D                OPF_04  DB    &1F,&0B,&1C," <R>",&7B,"seau     ",&00
01922  137D                OPF_05  DB    &1F,&0D,&1C," <L>angue     ",&00
01923                     
01924                     
01925                     ;Text Le lecteur n'est pas conncte
01926                     
01927  137D                SZD_ERR DB    &15,&18,&01,&1D
01928                     
01929  137D                        DB    " Lecteur n'est pas connecte! ",&00
01930                     
01931  137D                        ENDIF 
01932                     
01933                     
01934  137D  (0000)                IF    SPA
01935                     
01936                     ;Command Bar Menu Main --- Espa+ol ---
01937                     
01938  137D                CM_BAR  DB    &86
01939                     
01940  137D                        DW    CMS_US
01941  137D                        DW    CMS_00,CMS_01,CMS_02,CMS_03,CMS_04,CMS_05
01942  137D                        DB    &00
01943  137D                        DB    "aAeEoOfFpPyY"
01944                     
01945  137D                CMS_US  DB    &0B,&0C,&10
01946                     
01947  137D                        DB    &8F,&07,&4E,&00,&83
01948  137D                        DB    &07,&52,&00,&8F
01949  137D                        DB    &07,&4E,&00,&8C,&8F
01950  137D                        DB    &CF,&07,&4F,&00,&DA
01951  137D                        DB    &07,&91,&06,&CF,&00
01952                     
01953  137D                CMS_00  DB    &1F,&01,&02," <A>rchivo ",&00
01954  137D                CMS_01  DB    &1F,&01,&0E," <E>dicion ",&00
01955  137D                CMS_02  DB    &1F,&01,&1A," <O>pciones ",&00
01956  137D                CMS_03  DB    &1F,&01,&27," <F>nc. Prg.1 ",&00
01957  137D                CMS_04  DB    &1F,&01,&36," <P>rg.Fnc. 2 ",&00
01958  137D                CMS_05  DB    &1F,&01,&45," A<y>uda ",&00
01959                     
01960                     
01961                     ;Sub-Menu Archivo
01962                     
01963  137D                CMS_FILE
                                   DB    &8D
01964                     
01965  137D                        DW    FIS_US
01966  137D                        DW    FIS_00,FIS_01,FIS_02,FIS_03,FIS_04,FIS_05,FIS_06,FIS_07,FIS_08,FIS_09,FIS_0A,FIS_0B,FIS_
                          0C
01967  137D                        DB    &00
01968  137D                        DB    "aAdDlLuUbBcCiIeEvVoOpPnNsS"
01969                     
01970  137D                FIS_US  DB    &1F,&04,&01
01971                     
01972  137D                        DB    &04,&13,&8F
01973  137D                        DB    &07,&0E,&00,&83
01974  137D                        DB    &04,&13,&8F,&0A
01975  137D                        DB    &04,&12," "
01976  137D                        DB    &1F,&0B,&02,&07,&0E,&00,&9A
01977  137D                        DB    &1F,&0E,&02,&07,&0E,&00,&9A
01978  137D                        DB    &1F,&11,&02,&07,&0E,&00,&9A
01979  137D                        DB    &1F,&14,&02,&07,&0E,&00,&9A
01980  137D                        DB    &1F,&16,&02,&07,&0E,&00,&8C
01981  137D                        DB    &1F,&17,&02,&07,&10,&00,&DA
01982  137D                        DB    &00
01983                     
01984  137D                FIS_00  DB    &1F,&05,&02," <A>brir      ",&00
01985  137D                FIS_01  DB    &1F,&06,&02," Guar<d>ar    ",&00
01986  137D                FIS_02  DB    &1F,&07,&02," Abrir B<l>q. ",&00
01987  137D                FIS_03  DB    &1F,&08,&02," G<u>ardar B. ",&00
01988  137D                FIS_04  DB    &1F,&09,&02," A<b>rir DIRs ",&00
01989  137D                FIS_05  DB    &1F,&0A,&02," <C>errar     ",&00
01990  137D                FIS_06  DB    &1F,&0C,&02," <I>mportar   ",&00
01991  137D                FIS_07  DB    &1F,&0D,&02," <E>xportar   ",&00
01992  137D                FIS_08  DB    &1F,&0F,&02," <V>ersion    ",&00
01993  137D                FIS_09  DB    &1F,&10,&02," Encriptad<o> ",&00
01994  137D                FIS_0A  DB    &1F,&12,&02," Im<p>rimir   ",&00
01995  137D                FIS_0B  DB    &1F,&13,&02," E<n>viar     ",&00
01996  137D                FIS_0C  DB    &1F,&15,&02," <S>alir      ",&00
01997                     
01998                     
01999                     ;Sub-Menu Edicion
02000                     
02001  137D                CMS_EDIT
                                   DB    &89
02002                     
02003  137D                        DW    EDS_US
02004  137D                        DW    EDS_00,EDS_01,EDS_02,EDS_03,EDS_04,EDS_05,EDS_06,EDS_07,EDS_08
02005  137D                        DB    &00
02006  137D                        DB    "dDeEmMcCpPiIbBrRlL"
02007                     
02008  137D                EDS_US  DB    &1F,&04,&0D
02009                     
02010  137D                        DB    &04,&0F,&8F
02011  137D                        DB    &07,&0E,&00,&83
02012  137D                        DB    &04,&0F,&8F
02013  137D                        DB    &0A,&04,&0E," "
02014  137D                        DB    &1F,&06,&0E,&07,&0E,&00,&9A
02015  137D                        DB    &1F,&09,&0E,&07,&0E,&00,&9A
02016  137D                        DB    &1F,&0C,&0E,&07,&0E,&00,&9A
02017  137D                        DB    &1F,&10,&0E,&07,&0E,&00,&9A
02018  137D                        DB    &1F,&12,&0E,&07,&0E,&00,&8C
02019  137D                        DB    &1F,&13,&0E,&07,&10,&00,&DA
02020  137D                        DB    &00
02021                     
02022  137D                EDS_00  DB    &1F,&05,&0E," <D>eshacer   ",&00
02023  137D                EDS_01  DB    &1F,&07,&0E," <E>ditar     ",&00
02024  137D                EDS_02  DB    &1F,&08,&0E," Eli<m>inar   ",&00
02025  137D                EDS_03  DB    &1F,&0A,&0E," <C>opiar     ",&00
02026  137D                EDS_04  DB    &1F,&0B,&0E," <P>egar      ",&00
02027  137D                EDS_05  DB    &1F,&0D,&0E," <I>r a       ",&00
02028  137D                EDS_06  DB    &1F,&0E,&0E," <B>uscar     ",&00
02029  137D                EDS_07  DB    &1F,&0F,&0E," <R>eemplazar ",&00
02030  137D                EDS_08  DB    &1F,&11,&0E," <L>lamar SO  ",&00
02031                     
02032                     
02033                     ;Sub-Menu Opciones
02034                     
02035  137D                CMS_OPT DB    &86
02036                     
02037  137D                        DW    OPS_US
02038  137D                        DW    OPS_00,OPS_01,OPS_02,OPS_03,OPS_04,OPS_05
02039  137D                        DB    &00
02040  137D                        DB    "mMcCfFiIrRdD"
02041                     
02042  137D                OPS_US  DB    &1F,&04,&19
02043                     
02044  137D                        DB    &04,&0B,&8F
02045  137D                        DB    &07,&0D,&00,&83
02046  137D                        DB    &04,&0B,&8F
02047  137D                        DB    &0A,&04,&0A," "
02048  137D                        DB    &1F,&08,&1A,&07,&0D,&00,&9A
02049  137D                        DB    &1F,&0A,&1A,&07,&0D,&00,&9A
02050  137D                        DB    &1F,&0C,&1A,&07,&0D,&00,&9A
02051  137D                        DB    &1F,&0E,&1A,&07,&0D,&00,&8C
02052  137D                        DB    &1F,&0F,&1A,&07,&0F,&00,&DA
02053  137D                        DB    &00
02054                     
02055  137D                OPS_00  DB    &1F,&05,&1A," <M>odo      ",&00
02056  137D                OPS_01  DB    &1F,&06,&1A," <C>olor     ",&00
02057  137D                OPS_02  DB    &1F,&07,&1A," <F>ormato   ",&00
02058  137D                OPS_03  DB    &1F,&09,&1A," <I>mpresora ",&00
02059  137D                OPS_04  DB    &1F,&0B,&1A," <R>ed       ",&00
02060  137D                OPS_05  DB    &1F,&0D,&1A," I<d>ioma    ",&00
02061                     
02062                     
02063                     ;Text Unidad vacia
02064                     
02065  137D                SZD_ERR DB    &15,&1A,&01,&1A
02066                     
02067  137D                        DB    " La unidad no esta lista! ",&00
02068                     
02069  137D                        ENDIF 
02070                     
02071                     
02072  137D  (0000)                IF    NED
02073                     
02074                     ;Command Bar Menu Main --- Nederlands ---
02075                     
02076  137D                CM_BAR  DB    &86
02077                     
02078  137D                        DW    CMN_U
02079  137D                        DW    CMN_0,CMN_1,CMN_2,CMN_3,CMN_4,CMN_5
02080  137D                        DB    &00
02081  137D                        DB    "bBeEoOpPfFhH"
02082                     
02083  137D                CMN_U   DB    &0B,&0C,&10
02084                     
02085  137D                        DB    &8F,&07,&4E,&00,&83
02086  137D                        DB    &07,&52,&00,&8F
02087  137D                        DB    &07,&4E,&00,&8C,&8F
02088  137D                        DB    &CF,&07,&4F,&00,&DA
02089  137D                        DB    &07,&91,&06,&CF,&00
02090                     
02091  137D                CMN_0   DB    &1F,&01,&02," <B>estand ",&00
02092  137D                CMN_1   DB    &1F,&01,&0E," B<e>werken ",&00
02093  137D                CMN_2   DB    &1F,&01,&1B," <O>pties ",&00
02094  137D                CMN_3   DB    &1F,&01,&26," <P>rog.Fn.1 ",&00
02095  137D                CMN_4   DB    &1F,&01,&34," <F>n.Prog.2 ",&00
02096  137D                CMN_5   DB    &1F,&01,&45," <H>elp ",&00
02097                     
02098                     
02099                     ;Sub-Menu Bestand
02100                     
02101  137D                CMS_FILE
                                   DB    &8D
02102                     
02103  137D                        DW    FIN_US
02104  137D                        DW    FIN_0,FIN_1,FIN_2,FIN_3,FIN_4,FIN_5,FIN_6,FIN_7,FIN_8,FIN_9,FIN_A,FIN_B,FIN_C
02105  137D                        DB    &00
02106  137D                        DB    "iIwWbBoOdDsSmMxXzZlLpPvVeE"
02107                     
02108  137D                FIN_US  DB    &1F,&04,&01
02109                     
02110  137D                        DB    &04,&13,&8F
02111  137D                        DB    &07,&0E,&00,&83
02112  137D                        DB    &04,&13,&8F,&0A
02113  137D                        DB    &04,&12," "
02114  137D                        DB    &1F,&0B,&02,&07,&0E,&00,&9A
02115  137D                        DB    &1F,&0E,&02,&07,&0E,&00,&9A
02116  137D                        DB    &1F,&11,&02,&07,&0E,&00,&9A
02117  137D                        DB    &1F,&14,&02,&07,&0E,&00,&9A
02118  137D                        DB    &1F,&16,&02,&07,&0E,&00,&8C
02119  137D                        DB    &1F,&17,&02,&07,&10,&00,&DA
02120  137D                        DB    &00
02121                     
02122  137D                FIN_0   DB    &1F,&05,&02," <I>nlezen    ",&00
02123  137D                FIN_1   DB    &1F,&06,&02," <W>egschrij. ",&00
02124  137D                FIN_2   DB    &1F,&07,&02," Laad <B>lok  ",&00
02125  137D                FIN_3   DB    &1F,&08,&02," Save Bl<o>k  ",&00
02126  137D                FIN_4   DB    &1F,&09,&02," Laad <D>IRs  ",&00
02127  137D                FIN_5   DB    &1F,&0A,&02," <S>luiten    ",&00
02128  137D                FIN_6   DB    &1F,&0C,&02," I<m>porteren ",&00
02129  137D                FIN_7   DB    &1F,&0D,&02," E<x>porteren ",&00
02130  137D                FIN_8   DB    &1F,&0F,&02," Versie <z>   ",&00
02131  137D                FIN_9   DB    &1F,&10,&02," S<l>eutel    ",&00
02132  137D                FIN_A   DB    &1F,&12,&02," <P>rinten    ",&00
02133  137D                FIN_B   DB    &1F,&13,&02," <V>erzenden  ",&00
02134  137D                FIN_C   DB    &1F,&15,&02," <E>inde      ",&00
02135                     
02136                     
02137                     ;Sub-Menu Bewerken
02138                     
02139  137D                CMS_EDIT
                                   DB    &89
02140                     
02141  137D                        DW    EDN_US
02142  137D                        DW    EDN_0,EDN_1,EDN_2,EDN_3,EDN_4,EDN_5,EDN_6,EDN_7,EDN_8
02143  137D                        DB    &00
02144  137D                        DB    "tTbBwWkKiInNzZvVoO"
02145                     
02146  137D                EDN_US  DB    &1F,&04,&0D
02147                     
02148  137D                        DB    &04,&0F,&8F
02149  137D                        DB    &07,&0D,&00,&83
02150  137D                        DB    &04,&0F,&8F
02151  137D                        DB    &0A,&04,&0E," "
02152  137D                        DB    &1F,&06,&0E,&07,&0D,&00,&9A
02153  137D                        DB    &1F,&09,&0E,&07,&0D,&00,&9A
02154  137D                        DB    &1F,&0C,&0E,&07,&0D,&00,&9A
02155  137D                        DB    &1F,&10,&0E,&07,&0D,&00,&9A
02156  137D                        DB    &1F,&12,&0E,&07,&0D,&00,&8C
02157  137D                        DB    &1F,&13,&0E,&07,&0F,&00,&DA
02158  137D                        DB    &00
02159                     
02160  137D                EDN_0   DB    &1F,&05,&0E," <T>erug     ",&00
02161  137D                EDN_1   DB    &1F,&07,&0E," <B>ewerken  ",&00
02162  137D                EDN_2   DB    &1F,&08,&0E," <W>issen    ",&00
02163  137D                EDN_3   DB    &1F,&0A,&0E," <K>opieren  ",&00
02164  137D                EDN_4   DB    &1F,&0B,&0E," <I>nvoegen  ",&00
02165  137D                EDN_5   DB    &1F,&0D,&0E," Ga <n>aar   ",&00
02166  137D                EDN_6   DB    &1F,&0E,&0E," <Z>oeken    ",&00
02167  137D                EDN_7   DB    &1F,&0F,&0E," <V>ervangen ",&00
02168  137D                EDN_8   DB    &1F,&11,&0E," Vraag <O>S  ",&00
02169                     
02170                     
02171                     ;Sub-Menu Opties
02172                     
02173  137D                CMS_OPT DB    &86
02174                     
02175  137D                        DW    OPN_US
02176  137D                        DW    OPN_0,OPN_1,OPN_2,OPN_3,OPN_4,OPN_5
02177  137D                        DB    &00
02178  137D                        DB    "mMkKfFpPnNtT"
02179                     
02180  137D                OPN_US  DB    &1F,&04,&1A
02181                     
02182  137D                        DB    &04,&0B,&8F
02183  137D                        DB    &07,&0B,&00,&83
02184  137D                        DB    &04,&0B,&8F
02185  137D                        DB    &0A,&04,&0A," "
02186  137D                        DB    &1F,&08,&1B,&07,&0B,&00,&9A
02187  137D                        DB    &1F,&0A,&1B,&07,&0B,&00,&9A
02188  137D                        DB    &1F,&0C,&1B,&07,&0B,&00,&9A
02189  137D                        DB    &1F,&0E,&1B,&07,&0B,&00,&8C
02190  137D                        DB    &1F,&0F,&1B,&07,&0D,&00,&DA
02191  137D                        DB    &00
02192                     
02193  137D                OPN_0   DB    &1F,&05,&1B," <M>ode    ",&00
02194  137D                OPN_1   DB    &1F,&06,&1B," <K>leuren ",&00
02195  137D                OPN_2   DB    &1F,&07,&1B," <F>ormaat ",&00
02196  137D                OPN_3   DB    &1F,&09,&1B," <P>rinter ",&00
02197  137D                OPN_4   DB    &1F,&0B,&1B," <N>etwerk ",&00
02198  137D                OPN_5   DB    &1F,&0D,&1B," <T>aal    ",&00
02199                     
02200                     
02201                     ;Text for Drive not connected
02202                     
02203  137D                SZD_ERR DB    &15,&1A,&01,&1A
02204                     
02205  137D                        DB    " The drive is not tagged! ",&00
02206                     
02207  137D                        ENDIF 
02209  137D                        READ  "CBM-LNG2.MAX" 
                          ;/
02210                     ;Source 'CBM-LNG2.MAX' - Ver. 2.1.6
02211                     ;1308 lines - 2023.09.20
02212                     
02213                     
02214  137D  (0009)                IF    DEU
02215                     
02216                     ;Sub-Menue Programm Funktionen 1 - DEU
02217                     
02218  137D  86            CMS_F1  DB    &86
02219                     
02220  137E  99 13                 DW    F1_US
02221  1380  B9 13 C7 13           DW    F1_00,F1_01,F1_02,F1_03,F1_04,F1_05
       1384  D5 13 E3 13 
       1388  F1 13 FF 13 
02222  138C  00                    DB    &00
02223  138D  31 21 32 22           DB    "1!2",&22,"3#4$5%6&"
       1391  33 23 34 24 
       1395  35 25 36 26 
02224                     
02225  1399  1F 04 27      F1_US   DB    &1F,&04,&27
02226                     
02227  139C  04 0D 8F              DB    &04,&0D,&8F
02228  139F  07 0A 00 83           DB    &07,&0A,&00,&83
02229  13A3  04 0D 8F              DB    &04,&0D,&8F
02230  13A6  0A 04 0C 20           DB    &0A,&04,&0C," "
02231  13AA  1F 10 28 07           DB    &1F,&10,&28,&07,&0A,&00,&8C
       13AE  0A 00 8C 
02232  13B1  1F 11 28 07           DB    &1F,&11,&28,&07,&0C,&00,&DA
       13B5  0C 00 DA 
02233  13B8  00                    DB    &00
02234                     
02235  13B9  1F 05 28 20   F1_00   DB    &1F,&05,&28," Prg.F<1> ",&00
       13BD  50 72 67 2E 
       13C1  46 3C 31 3E 
       13C5  20 00 
02236  13C7  1F 07 28 20   F1_01   DB    &1F,&07,&28," Prg.F<2> ",&00
       13CB  50 72 67 2E 
       13CF  46 3C 32 3E 
       13D3  20 00 
02237  13D5  1F 09 28 20   F1_02   DB    &1F,&09,&28," Prg.F<3> ",&00
       13D9  50 72 67 2E 
       13DD  46 3C 33 3E 
       13E1  20 00 
02238  13E3  1F 0B 28 20   F1_03   DB    &1F,&0B,&28," Prg.F<4> ",&00
       13E7  50 72 67 2E 
       13EB  46 3C 34 3E 
       13EF  20 00 
02239  13F1  1F 0D 28 20   F1_04   DB    &1F,&0D,&28," Prg.F<5> ",&00
       13F5  50 72 67 2E 
       13F9  46 3C 35 3E 
       13FD  20 00 
02240  13FF  1F 0F 28 20   F1_05   DB    &1F,&0F,&28," Prg.F<6> ",&00
       1403  50 72 67 2E 
       1407  46 3C 36 3E 
       140B  20 00 
02241                     
02242                     
02243                     ;Sub-Menue Programm Funktionen 2
02244                     
02245  140D  06            CMS_F2  DB    &06
02246                     
02247  140E  1D 14                 DW    F2_US
02248  1410  3D 14 4B 14           DW    F2_00,F2_01,F2_02,F2_03,F2_04,F2_05
       1414  59 14 67 14 
       1418  75 14 83 14 
02249  141C  00                    DB    &00
02250                     
02251  141D  1F 04 35      F2_US   DB    &1F,&04,&35
02252                     
02253  1420  04 08 8F              DB    &04,&08,&8F
02254  1423  07 0A 00 83           DB    &07,&0A,&00,&83
02255  1427  04 08 8F              DB    &04,&08,&8F
02256  142A  0A 04 07 20           DB    &0A,&04,&07," "
02257  142E  1F 0B 36 07           DB    &1F,&0B,&36,&07,&0A,&00,&8C
       1432  0A 00 8C 
02258  1435  1F 0C 36 07           DB    &1F,&0C,&36,&07,&0C,&00,&DA
       1439  0C 00 DA 
02259  143C  00                    DB    &00
02260                     
02261  143D  1F 05 36 20   F2_00   DB    &1F,&05,&36," Prg.Fn 2 ",&00
       1441  50 72 67 2E 
       1445  46 6E 20 32 
       1449  20 00 
02262  144B  1F 06 36 20   F2_01   DB    &1F,&06,&36," Prg.Fn 2 ",&00
       144F  50 72 67 2E 
       1453  46 6E 20 32 
       1457  20 00 
02263  1459  1F 07 36 20   F2_02   DB    &1F,&07,&36," Prg.Fn 2 ",&00
       145D  50 72 67 2E 
       1461  46 6E 20 32 
       1465  20 00 
02264  1467  1F 08 36 20   F2_03   DB    &1F,&08,&36," Prg.Fn 2 ",&00
       146B  50 72 67 2E 
       146F  46 6E 20 32 
       1473  20 00 
02265  1475  1F 09 36 20   F2_04   DB    &1F,&09,&36," Prg.Fn 2 ",&00
       1479  50 72 67 2E 
       147D  46 6E 20 32 
       1481  20 00 
02266  1483  1F 0A 36 20   F2_05   DB    &1F,&0A,&36," Prg.Fn 2 ",&00
       1487  50 72 67 2E 
       148B  46 6E 20 32 
       148F  20 00 
02267                     
02268                     
02269                     ;Sub-Menue Hilfe
02270                     
02271  1491  87            CMS_HELP
                                   DB    &87
02272                     
02273  1492  B1 14                 DW    HE_US
02274  1494  D8 14 E5 14           DW    HE_00,HE_01,HE_02,HE_03,HE_04,HE_05,HE_06
       1498  F2 14 FF 14 
       149C  0C 15 19 15 
       14A0  26 15 
02275  14A2  00                    DB    &00
02276  14A3  68 48 69 49           DB    "hHiInNbBmM4$wW"
       14A7  6E 4E 62 42 
       14AB  6D 4D 34 24 
       14AF  77 57 
02277                     
02278  14B1  1F 04 44      HE_US   DB    &1F,&04,&44
02279                     
02280  14B4  04 0A 8F              DB    &04,&0A,&8F
02281  14B7  07 09 00 83           DB    &07,&09,&00,&83
02282  14BB  04 0A 8F              DB    &04,&0A,&8F
02283  14BE  0A 04 09 20           DB    &0A,&04,&09," "
02284  14C2  1F 09 45 07           DB    &1F,&09,&45,&07,&09,&00,&9A
       14C6  09 00 9A 
02285  14C9  1F 0D 45 07           DB    &1F,&0D,&45,&07,&09,&00,&8C
       14CD  09 00 8C 
02286  14D0  1F 0E 45 07           DB    &1F,&0E,&45,&07,&0B,&00,&DA
       14D4  0B 00 DA 
02287  14D7  00                    DB    &00
02288                     
02289  14D8  1F 05 45 20   HE_00   DB    &1F,&05,&45," <H>ilfe ",&00
       14DC  3C 48 3E 69 
       14E0  6C 66 65 20 
       14E4  00 
02290  14E5  1F 06 45 20   HE_01   DB    &1F,&06,&45," <I>nfo  ",&00
       14E9  3C 49 3E 6E 
       14ED  66 6F 20 20 
       14F1  00 
02291  14F2  1F 07 45 20   HE_02   DB    &1F,&07,&45," <N>eues ",&00
       14F6  3C 4E 3E 65 
       14FA  75 65 73 20 
       14FE  00 
02292  14FF  1F 08 45 20   HE_03   DB    &1F,&08,&45," <B>uch  ",&00
       1503  3C 42 3E 75 
       1507  63 68 20 20 
       150B  00 
02293  150C  1F 0A 45 20   HE_04   DB    &1F,&0A,&45," <M>enue ",&00
       1510  3C 4D 3E 65 
       1514  6E 75 65 20 
       1518  00 
02294  1519  1F 0B 45 20   HE_05   DB    &1F,&0B,&45," -$<$>$- ",&00
       151D  2D 24 3C 24 
       1521  3E 24 2D 20 
       1525  00 
02295  1526  1F 0C 45 20   HE_06   DB    &1F,&0C,&45," .w<w>w. ",&00
       152A  2E 77 3C 77 
       152E  3E 77 2E 20 
       1532  00 
02296                     
02297                     
02298                     ;Menue Nein/Ja
02299                     
02300  1533  82            M_LOAD  DB    &82
02301                     
02302  1534  3F 15                 DW    MDLA_US
02303  1536  55 15 5A 15           DW    MDLA_00,MDLA_01
02304  153A  00                    DB    &00
02305  153B  6A 4A 6E 4E           DB    "jJnN"
02306                     
02307  153F  1F 06 14 10   MDLA_US DB    &1F,&06,&14,&10," Benutzen? (J/N) ",&00
       1543  20 42 65 6E 
       1547  75 74 7A 65 
       154B  6E 3F 20 28 
       154F  4A 2F 4E 29 
       1553  20 00 
02308  1555  1F 06 20 4A   MDLA_00 DB    &1F,&06,&20,"J",&00
       1559  00 
02309  155A  1F 06 22 4E   MDLA_01 DB    &1F,&06,&22,"N",&00
       155E  00 
02310                     
02311                     
02312                     ;MODE Text
02313                     
02314  155F  04 2A 05 10   MOD_TXT DB    &04,&2A,&05,&10
02315                     
02316  1563  20 13 41 75           DB    " ",&13,"Auswahl MODE :",&10," ",&00
       1567  73 77 61 68 
       156B  6C 20 4D 4F 
       156F  44 45 20 3A 
       1573  10 20 00 
02317  1576  00 00 00 00           DB    0,0,0,0
02318                     
02319                     ;Menue
02320                     
02321  157A  84            M_MOD   DB    &84
02322                     
02323  157B  8E 15                 DW    MDM_US
02324  157D  8F 15 A3 15           DW    MDM_00,MDM_01,MDM_02,MDM_03
       1581  B7 15 CB 15 
02325  1585  00                    DB    &00
02326  1586  30 5F 31 21           DB    "0_1!2",&22,"3#"
       158A  32 22 33 23 
02327                     
02328  158E  00            MDM_US  DB    &00
02329  158F  1F 06 2B 20   MDM_00  DB    &1F,&06,&2B," Video MODE <0> ",&00
       1593  56 69 64 65 
       1597  6F 20 4D 4F 
       159B  44 45 20 3C 
       159F  30 3E 20 00 
02330  15A3  1F 07 2B 20   MDM_01  DB    &1F,&07,&2B," Video MODE <1> ",&00
       15A7  56 69 64 65 
       15AB  6F 20 4D 4F 
       15AF  44 45 20 3C 
       15B3  31 3E 20 00 
02331  15B7  1F 08 2B 20   MDM_02  DB    &1F,&08,&2B," Video MODE <2> ",&00
       15BB  56 69 64 65 
       15BF  6F 20 4D 4F 
       15C3  44 45 20 3C 
       15C7  32 3E 20 00 
02332  15CB  1F 09 2B 20   MDM_03  DB    &1F,&09,&2B," Video MODE <3> ",&00
       15CF  56 69 64 65 
       15D3  6F 20 4D 4F 
       15D7  44 45 20 3C 
       15DB  33 3E 20 00 
02333                     
02334                     
02335                     ;Farben Text
02336                     
02337  15DF  04 2A 04 0E   COL_TXT DB    &04,&2A,&04,&0E
02338                     
02339  15E3  20 13 46 61           DB    " ",&13,"Farbauswahl:",&10," ",&00
       15E7  72 62 61 75 
       15EB  73 77 61 68 
       15EF  6C 3A 10 20 
       15F3  00 
02340  15F4  00 00 00              DB    0,0,0
02341                     
02342                     ;Menue
02343                     
02344  15F7  83            M_COL   DB    &83
02345                     
02346  15F8  07 16                 DW    COD_US
02347  15FA  08 16 1A 16           DW    COD_00,COD_01,COD_02
       15FE  2C 16 
02348  1600  00                    DB    &00
02349  1601  72 52 75 55           DB    "rRuUsS"
       1605  73 53 
02350                     
02351  1607  00            COD_US  DB    &00
02352  1608  1F 06 2B 20   COD_00  DB    &1F,&06,&2B," <R>and       ",&00
       160C  3C 52 3E 61 
       1610  6E 64 20 20 
       1614  20 20 20 20 
       1618  20 00 
02353  161A  1F 07 2B 20   COD_01  DB    &1F,&07,&2B," <U>ntergrund ",&00
       161E  3C 55 3E 6E 
       1622  74 65 72 67 
       1626  72 75 6E 64 
       162A  20 00 
02354  162C  1F 08 2B 20   COD_02  DB    &1F,&08,&2B," <S>tift 1-15 ",&00
       1630  3C 53 3E 74 
       1634  69 66 74 20 
       1638  31 2D 31 35 
       163C  20 00 
02355                     
02356                     
02357                     ;Format Text
02358                     
02359  163E  04 2A 05 11   SFO_TXT DB    &04,&2A,&05,&11
02360                     
02361  1642  20 13 41 75           DB    " ",&13,"Auswahl Format:",&10," ",&00
       1646  73 77 61 68 
       164A  6C 20 46 6F 
       164E  72 6D 61 74 
       1652  3A 10 20 00 
02362  1656  00 00 00 00           DB    0,0,0,0
02363                     
02364  165A  84            M_SFO   DB    &84
02365                     
02366  165B  6E 16                 DW    MDF_US
02367  165D  6F 16 84 16           DW    MDF_00,MDF_01,MDF_02,MDF_03
       1661  99 16 AE 16 
02368  1665  00                    DB    &00
02369  1666  30 5F 31 21           DB    "0_1!2",&22,"3#"
       166A  32 22 33 23 
02370                     
02371  166E  00            MDF_US  DB    &00
02372  166F  1F 06 2B 20   MDF_00  DB    &1F,&06,&2B," 80 x * 25 y <0> ",&00
       1673  38 30 20 78 
       1677  20 2A 20 32 
       167B  35 20 79 20 
       167F  3C 30 3E 20 
       1683  00 
02373  1684  1F 07 2B 20   MDF_01  DB    &1F,&07,&2B," 68 x * 30 y <1> ",&00
       1688  36 38 20 78 
       168C  20 2A 20 33 
       1690  30 20 79 20 
       1694  3C 31 3E 20 
       1698  00 
02374  1699  1F 08 2B 20   MDF_02  DB    &1F,&08,&2B," 64 x * 32 y <2> ",&00
       169D  36 34 20 78 
       16A1  20 2A 20 33 
       16A5  32 20 79 20 
       16A9  3C 32 3E 20 
       16AD  00 
02375  16AE  1F 09 2B 14   MDF_03  DB    &1F,&09,&2B, &14, " ?? x * ?? y <3> ",&00
       16B2  20 3F 3F 20 
       16B6  78 20 2A 20 
       16BA  3F 3F 20 79 
       16BE  20 3C 33 3E 
       16C2  20 00 
02376                     
02377                     
02378                     ;Sprache Text
02379                     
02380  16C4  0B 2A 07 10   LNG_TXT DB    &0B,&2A,&07,&10
02381                     
02382  16C8  20 13 53 70           DB    " ",&13,"Sprachauswahl:",&10," ",&00
       16CC  72 61 63 68 
       16D0  61 75 73 77 
       16D4  61 68 6C 3A 
       16D8  10 20 00 
02383  16DB  00 00 00 00           DB    0,0,0,0,0,0
       16DF  00 00 
02384                     
02385                     ;Menue
02386                     
02387  16E1  86            M_LNG   DB    &86
02388                     
02389  16E2  FD 16                 DW    MDL_US
02390  16E4  FE 16 12 17           DW    MDL_00,MDL_01,MDL_02,MDL_03,MDL_04,MDL_05
       16E8  26 17 3A 17 
       16EC  4E 17 62 17 
02391  16F0  00                    DB    &00
02392  16F1  64 44 66 46           DB    "dDfFeErRsShH"
       16F5  65 45 72 52 
       16F9  73 53 68 48 
02393                     
02394  16FD  00            MDL_US  DB    &00
02395  16FE  1F 0D 2B 20   MDL_00  DB    &1F,&0D,&2B," <D>eutsch      ",&00
       1702  3C 44 3E 65 
       1706  75 74 73 63 
       170A  68 20 20 20 
       170E  20 20 20 00 
02396  1712  1F 0E 2B 20   MDL_01  DB    &1F,&0E,&2B," <F>ranzoesich  ",&00
       1716  3C 46 3E 72 
       171A  61 6E 7A 6F 
       171E  65 73 69 63 
       1722  68 20 20 00 
02397  1726  1F 0F 2B 20   MDL_02  DB    &1F,&0F,&2B," <E>nglisch     ",&00
       172A  3C 45 3E 6E 
       172E  67 6C 69 73 
       1732  63 68 20 20 
       1736  20 20 20 00 
02398  173A  1F 10 2B 20   MDL_03  DB    &1F,&10,&2B," G<r>iechisch   ",&00
       173E  47 3C 72 3E 
       1742  69 65 63 68 
       1746  69 73 63 68 
       174A  20 20 20 00 
02399  174E  1F 11 2B 20   MDL_04  DB    &1F,&11,&2B," <S>panisch     ",&00
       1752  3C 53 3E 70 
       1756  61 6E 69 73 
       175A  63 68 20 20 
       175E  20 20 20 00 
02400  1762  1F 12 2B 20   MDL_05  DB    &1F,&12,&2B," <H>ollaendisch ",&00
       1766  3C 48 3E 6F 
       176A  6C 6C 61 65 
       176E  6E 64 69 73 
       1772  63 68 20 00 
02401                     
02402                     
02403                     ;Ende Text
02404                     
02405  1776  0C 1C 02 15   END_TXT DB    &0C,&1C,&02,&15
02406                     
02407  177A  20 50 72 6F           DB    " Programm verlassen? ",&00
       177E  67 72 61 6D 
       1782  6D 20 76 65 
       1786  72 6C 61 73 
       178A  73 65 6E 3F 
       178E  20 00 
02408  1790  20 20 3E 4E           DB    "  >Nein< <===> >Ja<  ",&00
       1794  65 69 6E 3C 
       1798  20 3C 3D 3D 
       179C  3D 3E 20 3E 
       17A0  4A 61 3C 20 
       17A4  20 00 
02409                     
02410                     ;Menue Nein/Ja
02411                     
02412  17A6  02            M_END   DB    &02
02413                     
02414  17A7  AE 17                 DW    MDN_US
02415  17A9  AF 17 B7 17           DW    MDN_00,MDN_01
02416  17AD  00                    DB    &00
02417                     
02418  17AE  00            MDN_US  DB    &00
02419  17AF  1F 0E 20 4E   MDN_00  DB    &1F,&0E,&20,"Nein",&00
       17B3  65 69 6E 00 
02420  17B7  1F 0E 2D 4A   MDN_01  DB    &1F,&0E,&2D,"Ja",&00
       17BB  61 00 
02421                     
02422                     
02423                     ;Hilfe Text
02424                     
02425  17BD  09 18 05 1F   HLP_TXT DB    &09,&18,&05,&1F
02426                     
02427  17C1  20 44 69 65           DB    " Die Bedienung des CBM erfolgt ",&00
       17C5  20 42 65 64 
       17C9  69 65 6E 75 
       17CD  6E 67 20 64 
       17D1  65 73 20 43 
       17D5  42 4D 20 65 
       17D9  72 66 6F 6C 
       17DD  67 74 20 00 
02428  17E1  20 64 75 72           DB    " durch Joystick 0,  Joystick 1 ",&00
       17E5  63 68 20 4A 
       17E9  6F 79 73 74 
       17ED  69 63 6B 20 
       17F1  30 2C 20 20 
       17F5  4A 6F 79 73 
       17F9  74 69 63 6B 
       17FD  20 31 20 00 
02429  1801  20 6F 64 65           DB    " oder  Cursor-Tasten und Copy. ",&00
       1805  72 20 20 43 
       1809  75 72 73 6F 
       180D  72 2D 54 61 
       1811  73 74 65 6E 
       1815  20 75 6E 64 
       1819  20 43 6F 70 
       181D  79 2E 20 00 
02430  1821  20 44 75 72           DB    " Durch die ESCape-Taste werden ",&00
       1825  63 68 20 64 
       1829  69 65 20 45 
       182D  53 43 61 70 
       1831  65 2D 54 61 
       1835  73 74 65 20 
       1839  77 65 72 64 
       183D  65 6E 20 00 
02431  1841  20 65 69 6E           DB    " einige Funktionen abgebrochen ",&00
       1845  69 67 65 20 
       1849  46 75 6E 6B 
       184D  74 69 6F 6E 
       1851  65 6E 20 61 
       1855  62 67 65 62 
       1859  72 6F 63 68 
       185D  65 6E 20 00 
02432                     
02433                     
02434                     ;Menue Text
02435                     
02436  1861  07 0E 08 31   MEN_TXT DB    &07,&0E,&08,&31
02437                     
02438  1865  20 11 43 42           DB    " ",&11,"CBM - CommandBar Menue:",&10," Dieses Menue-System CBM ",&00
       1869  4D 20 2D 20 
       186D  43 6F 6D 6D 
       1871  61 6E 64 42 
       1875  61 72 20 4D 
       1879  65 6E 75 65 
       187D  3A 10 20 44 
       1881  69 65 73 65 
       1885  73 20 4D 65 
       1889  6E 75 65 2D 
       188D  53 79 73 74 
       1891  65 6D 20 43 
       1895  42 4D 20 00 
02439  1899  20 73 74 65           DB    " stellt jedem Program fuer ",&12,"FutureOS",&10," einheitliche ",&00
       189D  6C 6C 74 20 
       18A1  6A 65 64 65 
       18A5  6D 20 50 72 
       18A9  6F 67 72 61 
       18AD  6D 20 66 75 
       18B1  65 72 20 12 
       18B5  46 75 74 75 
       18B9  72 65 4F 53 
       18BD  10 20 65 69 
       18C1  6E 68 65 69 
       18C5  74 6C 69 63 
       18C9  68 65 20 00 
02440  18CD  20 2D 41 75           DB    " -Auswahlmoeglichkeiten- zur Verfuegung. Je nach ",&00
       18D1  73 77 61 68 
       18D5  6C 6D 6F 65 
       18D9  67 6C 69 63 
       18DD  68 6B 65 69 
       18E1  74 65 6E 2D 
       18E5  20 7A 75 72 
       18E9  20 56 65 72 
       18ED  66 75 65 67 
       18F1  75 6E 67 2E 
       18F5  20 4A 65 20 
       18F9  6E 61 63 68 
       18FD  20 00 
02441  18FF  20 4B 6F 6E           DB    " Konfiguration wird die  Muttersprache des Users ",&00
       1903  66 69 67 75 
       1907  72 61 74 69 
       190B  6F 6E 20 77 
       190F  69 72 64 20 
       1913  64 69 65 20 
       1917  20 4D 75 74 
       191B  74 65 72 73 
       191F  70 72 61 63 
       1923  68 65 20 64 
       1927  65 73 20 55 
       192B  73 65 72 73 
       192F  20 00 
02442  1931  20 61 75 74           DB    " automatisch ausgewaehlt und entsprechende Texte ",&00
       1935  6F 6D 61 74 
       1939  69 73 63 68 
       193D  20 61 75 73 
       1941  67 65 77 61 
       1945  65 68 6C 74 
       1949  20 75 6E 64 
       194D  20 65 6E 74 
       1951  73 70 72 65 
       1955  63 68 65 6E 
       1959  64 65 20 54 
       195D  65 78 74 65 
       1961  20 00 
02443  1963  20 77 65 72           DB    " werden angezeigt. Dabei stehen dem User weitere ",&00
       1967  64 65 6E 20 
       196B  61 6E 67 65 
       196F  7A 65 69 67 
       1973  74 2E 20 44 
       1977  61 62 65 69 
       197B  20 73 74 65 
       197F  68 65 6E 20 
       1983  64 65 6D 20 
       1987  55 73 65 72 
       198B  20 77 65 69 
       198F  74 65 72 65 
       1993  20 00 
02444  1995  20 7A 77 65           DB    " zwei Submenues: Prog.Funktionen 1 & 2 zu freier ",&00
       1999  69 20 53 75 
       199D  62 6D 65 6E 
       19A1  75 65 73 3A 
       19A5  20 50 72 6F 
       19A9  67 2E 46 75 
       19AD  6E 6B 74 69 
       19B1  6F 6E 65 6E 
       19B5  20 31 20 26 
       19B9  20 32 20 7A 
       19BD  75 20 66 72 
       19C1  65 69 65 72 
       19C5  20 00 
02445  19C7  20 56 65 72           DB    " Verfuegung. Fragen? Email an: ",&13,"FutureSoft@gmx.de",&10," ",&00
       19CB  66 75 65 67 
       19CF  75 6E 67 2E 
       19D3  20 46 72 61 
       19D7  67 65 6E 3F 
       19DB  20 45 6D 61 
       19DF  69 6C 20 61 
       19E3  6E 3A 20 13 
       19E7  46 75 74 75 
       19EB  72 65 53 6F 
       19EF  66 74 40 67 
       19F3  6D 78 2E 64 
       19F7  65 10 20 00 
02446                     
02447                     
02448                     ;Spenden Text
02449                     
02450  19FB  08 1B 06 16   SPD_TXT DB    &08,&1B,&06,&16
02451                     
02452  19FF  20 53 70 65           DB    " Spenden z. Programm- ",&00
       1A03  6E 64 65 6E 
       1A07  20 7A 2E 20 
       1A0B  50 72 6F 67 
       1A0F  72 61 6D 6D 
       1A13  2D 20 00 
02453  1A16  20 45 6E 74           DB    " Entwicklung an: ===> ",&00
       1A1A  77 69 63 6B 
       1A1E  6C 75 6E 67 
       1A22  20 61 6E 3A 
       1A26  20 3D 3D 3D 
       1A2A  3E 20 00 
02454  1A2D  20 53 74 65           DB    " Stefan Q. Mustermann ",&00
       1A31  66 61 6E 20 
       1A35  51 2E 20 4D 
       1A39  75 73 74 65 
       1A3D  72 6D 61 6E 
       1A41  6E 20 00 
02455  1A44  20 4B 6F 6E           DB    " Konto-Nummer: 123456 ",&00
       1A48  74 6F 2D 4E 
       1A4C  75 6D 6D 65 
       1A50  72 3A 20 31 
       1A54  32 33 34 35 
       1A58  36 20 00 
02456  1A5B  20 42 61 6E           DB    " Bankleitz.: 10020030 ",&00
       1A5F  6B 6C 65 69 
       1A63  74 7A 2E 3A 
       1A67  20 31 30 30 
       1A6B  32 30 30 33 
       1A6F  30 20 00 
02457  1A72  20 42 65 69           DB    " Beispiel-Bank Bayern ",&00
       1A76  73 70 69 65 
       1A7A  6C 2D 42 61 
       1A7E  6E 6B 20 42 
       1A82  61 79 65 72 
       1A86  6E 20 00 
02458                     
02459                     
02460                     ;WWW Text
02461                     
02462  1A89  09 18 04 19   WWW_TXT DB    &09,&18,&04,&19
02463                     
02464  1A8D  20 11 46 75           DB    " ",&11,"FutureOS",&10," - das CPC - OS ",&00
       1A91  74 75 72 65 
       1A95  4F 53 10 20 
       1A99  2D 20 64 61 
       1A9D  73 20 43 50 
       1AA1  43 20 2D 20 
       1AA5  4F 53 20 00 
02465  1AA9  20 7E 7E 7E           DB    " ~~~~~~~~~~~~~~~~~~~~~~~ ",&00
       1AAD  7E 7E 7E 7E 
       1AB1  7E 7E 7E 7E 
       1AB5  7E 7E 7E 7E 
       1AB9  7E 7E 7E 7E 
       1ABD  7E 7E 7E 7E 
       1AC1  20 00 
02466  1AC3  20 12 44 69           DB    " ",&12,"Die FutureOS Heimseite:",&10," ",&00
       1AC7  65 20 46 75 
       1ACB  74 75 72 65 
       1ACF  4F 53 20 48 
       1AD3  65 69 6D 73 
       1AD7  65 69 74 65 
       1ADB  3A 10 20 00 
02467  1ADF  20 13 68 74           DB    " ",&13,"http://www.FutureOS.de",&10,"  ",&00
       1AE3  74 70 3A 2F 
       1AE7  2F 77 77 77 
       1AEB  2E 46 75 74 
       1AEF  75 72 65 4F 
       1AF3  53 2E 64 65 
       1AF7  10 20 20 00 
02468                     
02469  1AFB                        ENDIF 
02470                     
02471                     
02472  1AFB  (0000)                IF    ENG
02473                     
02474                     ;Sub-Menu Application specific functions 1 - ENG
02475                     
02476  1AFB                CMS_F1  DB    &86
02477                     
02478  1AFB                        DW    F1E_US
02479  1AFB                        DW    F1E_00,F1E_01,F1E_02,F1E_03,F1E_04,F1E_05
02480  1AFB                        DB    &00
02481  1AFB                        DB    "1!2",&22,"3#4$5%6&"
02482                     
02483  1AFB                F1E_US  DB    &1F,&04,&22
02484                     
02485  1AFB                        DB    &04,&0D,&8F
02486  1AFB                        DB    &07,&0A,&00,&83
02487  1AFB                        DB    &04,&0D,&8F
02488  1AFB                        DB    &0A,&04,&0C," "
02489  1AFB                        DB    &1F,&10,&23,&07,&0A,&00,&8C
02490  1AFB                        DB    &1F,&11,&23,&07,&0C,&00,&DA
02491  1AFB                        DB    &00
02492                     
02493  1AFB                F1E_00  DB    &1F,&05,&23," Prg.F<1> ",&00
02494  1AFB                F1E_01  DB    &1F,&07,&23," Prg.F<2> ",&00
02495  1AFB                F1E_02  DB    &1F,&09,&23," Prg.F<3> ",&00
02496  1AFB                F1E_03  DB    &1F,&0B,&23," Prg.F<4> ",&00
02497  1AFB                F1E_04  DB    &1F,&0D,&23," Prg.F<5> ",&00
02498  1AFB                F1E_05  DB    &1F,&0F,&23," Prg.F<6> ",&00
02499                     
02500                     
02501                     ;Sub-Menu Application specific functions 2
02502                     
02503  1AFB                CMS_F2  DB    &06
02504                     
02505  1AFB                        DW    F2E_US
02506  1AFB                        DW    F2E_00,F2E_01,F2E_02,F2E_03,F2E_04,F2E_05
02507  1AFB                        DB    &00
02508                     
02509  1AFB                F2E_US  DB    &1F,&04,&33
02510                     
02511  1AFB                        DB    &04,&08,&8F
02512  1AFB                        DB    &07,&0A,&00,&83
02513  1AFB                        DB    &04,&08,&8F
02514  1AFB                        DB    &0A,&04,&07," "
02515  1AFB                        DB    &1F,&0B,&34,&07,&0A,&00,&8C
02516  1AFB                        DB    &1F,&0C,&34,&07,&0C,&00,&DA
02517  1AFB                        DB    &00
02518                     
02519  1AFB                F2E_00  DB    &1F,&05,&34," Prg.Fn 2 ",&00
02520  1AFB                F2E_01  DB    &1F,&06,&34," Prg.Fn 2 ",&00
02521  1AFB                F2E_02  DB    &1F,&07,&34," Prg.Fn 2 ",&00
02522  1AFB                F2E_03  DB    &1F,&08,&34," Prg.Fn 2 ",&00
02523  1AFB                F2E_04  DB    &1F,&09,&34," Prg.Fn 2 ",&00
02524  1AFB                F2E_05  DB    &1F,&0A,&34," Prg.Fn 2 ",&00
02525                     
02526                     
02527                     ;Sub-Menu HELP
02528                     
02529  1AFB                CMS_HELP
                                   DB    &87
02530                     
02531  1AFB                        DW    HEE_US
02532  1AFB                        DW    HEE_00,HEE_01,HEE_02,HEE_03,HEE_04,HEE_05,HEE_06
02533  1AFB                        DB    &00
02534  1AFB                        DB    "hHiInNbBmM4$wW"
02535                     
02536  1AFB                HEE_US  DB    &1F,&04,&44
02537                     
02538  1AFB                        DB    &04,&0A,&8F
02539  1AFB                        DB    &07,&09,&00,&83
02540  1AFB                        DB    &04,&0A,&8F
02541  1AFB                        DB    &0A,&04,&09," "
02542  1AFB                        DB    &1F,&09,&45,&07,&09,&00,&9A
02543  1AFB                        DB    &1F,&0D,&45,&07,&09,&00,&8C
02544  1AFB                        DB    &1F,&0E,&45,&07,&0B,&00,&DA
02545  1AFB                        DB    &00
02546                     
02547  1AFB                HEE_00  DB    &1F,&05,&45," <H>elp  ",&00
02548  1AFB                HEE_01  DB    &1F,&06,&45," <I>nfo  ",&00
02549  1AFB                HEE_02  DB    &1F,&07,&45," <N>ews  ",&00
02550  1AFB                HEE_03  DB    &1F,&08,&45," <B>ook  ",&00
02551  1AFB                HEE_04  DB    &1F,&0A,&45," <M>enu  ",&00
02552  1AFB                HEE_05  DB    &1F,&0B,&45," -$<$>$- ",&00
02553  1AFB                HEE_06  DB    &1F,&0C,&45," .w<w>w. ",&00
02554                     
02555                     
02556                     ;Menu Yes/No
02557                     
02558  1AFB                M_LOAD  DB    &82
02559                     
02560  1AFB                        DW    MELA_US
02561  1AFB                        DW    MELA_00,MELA_01
02562  1AFB                        DB    &00
02563  1AFB                        DB    "yYnN"
02564                     
02565  1AFB                MELA_US DB    &1F,&06,&14,&10," Use file? (Y/N) ",&00
02566  1AFB                MELA_00 DB    &1F,&06,&20,"Y",&00
02567  1AFB                MELA_01 DB    &1F,&06,&22,"N",&00
02568                     
02569                     
02570                     ;Text for MODE
02571                     
02572  1AFB                MOD_TXT DB    &04,&26,&05,&0F
02573                     
02574  1AFB                        DB    " ",&13,"Select MODE :",&10," ",&00
02575  1AFB                        DB    0,0,0,0
02576                     
02577                     ;Menu
02578                     
02579  1AFB                M_MOD   DB    &84
02580                     
02581  1AFB                        DW    MEM_US
02582  1AFB                        DW    MEM_00,MEM_01,MEM_02,MEM_03
02583  1AFB                        DB    &00
02584  1AFB                        DB    "0_1!2",&22,"3#"
02585                     
02586  1AFB                MEM_US  DB    &00
02587  1AFB                MEM_00  DB    &1F,&06,&27," Scrn MODE <0> ",&00
02588  1AFB                MEM_01  DB    &1F,&07,&27," Scrn MODE <1> ",&00
02589  1AFB                MEM_02  DB    &1F,&08,&27," Scrn MODE <2> ",&00
02590  1AFB                MEM_03  DB    &1F,&09,&27," Scrn MODE <3> ",&00
02591                     
02592                     
02593                     ;Text for Colour
02594                     
02595  1AFB                COL_TXT DB    &04,&26,&04,&0C
02596                     
02597  1AFB                        DB    " ",&13," Colour : ",&10," ",&00
02598  1AFB                        DB    0,0,0
02599                     
02600                     ;Menu
02601                     
02602  1AFB                M_COL   DB    &83
02603                     
02604  1AFB                        DW    COE_US
02605  1AFB                        DW    COE_00,COE_01,COE_02
02606  1AFB                        DB    &00
02607  1AFB                        DB    "bBpPeE"
02608                     
02609  1AFB                COE_US  DB    &00
02610  1AFB                COE_00  DB    &1F,&06,&27," <B>order   ",&00
02611  1AFB                COE_01  DB    &1F,&07,&27," <P>aper    ",&00
02612  1AFB                COE_02  DB    &1F,&08,&27," P<e>n 1-15 ",&00
02613                     
02614                     
02615                     ;Text for Format
02616                     
02617  1AFB                SFO_TXT DB    &04,&26,&05,&0F
02618                     
02619  1AFB                        DB    " ",&13,"Select Format",&10," ",&00
02620  1AFB                        DB    0,0,0,0
02621                     
02622  1AFB                M_SFO   DB    &84
02623                     
02624  1AFB                        DW    MEF_US
02625  1AFB                        DW    MEF_00,MEF_01,MEF_02,MEF_03
02626  1AFB                        DB    &00
02627  1AFB                        DB    "0_1!2",&22,"3#"
02628                     
02629  1AFB                MEF_US  DB    &00
02630  1AFB                MEF_00  DB    &1F,&06,&27," 80x * 25y <0> ",&00
02631  1AFB                MEF_01  DB    &1F,&07,&27," 68x * 30y <1> ",&00
02632  1AFB                MEF_02  DB    &1F,&08,&27," 64x * 32y <2> ",&00
02633  1AFB                MEF_03  DB    &1F,&09,&27, &14, " ??x * ??y <3> ",&00
02634                     
02635                     
02636                     ;Text for Language
02637                     
02638  1AFB                LNG_TXT DB    &0B,&26,&07,&0B
02639                     
02640  1AFB                        DB    " ",&13,"Language:",&10," ",&00
02641  1AFB                        DB    0,0,0,0,0,0
02642                     
02643                     ;Menu
02644                     
02645  1AFB                M_LNG   DB    &86
02646                     
02647  1AFB                        DW    MEL_US
02648  1AFB                        DW    MEL_00,MEL_01,MEL_02,MEL_03,MEL_04,MEL_05
02649  1AFB                        DB    &00
02650  1AFB                        DB    "mMfFeErRsSdD"
02651                     
02652  1AFB                MEL_US  DB    &00
02653  1AFB                MEL_00  DB    &1F,&0D,&27," Ger<m>an  ",&00
02654  1AFB                MEL_01  DB    &1F,&0E,&27," <F>rench  ",&00
02655  1AFB                MEL_02  DB    &1F,&0F,&27," <E>nglish ",&00
02656  1AFB                MEL_03  DB    &1F,&10,&27," G<r>eek   ",&00
02657  1AFB                MEL_04  DB    &1F,&11,&27," <S>panish ",&00
02658  1AFB                MEL_05  DB    &1F,&12,&27," <D>utch   ",&00
02659                     
02660                     
02661                     ;Text for End
02662                     
02663  1AFB                END_TXT DB    &0C,&1C,&02,&14
02664                     
02665  1AFB                        DB    " Terminate program? ",&00
02666  1AFB                        DB    "  >No< <===> >Yes<  ",&00
02667                     
02668                     ;Menu No/Yes
02669                     
02670  1AFB                M_END   DB    &02
02671                     
02672  1AFB                        DW    MEN_US
02673  1AFB                        DW    MEN_00,MEN_01
02674  1AFB                        DB    &00
02675                     
02676  1AFB                MEN_US  DB    &00
02677  1AFB                MEN_00  DB    &1F,&0E,&20,"No",&00
02678  1AFB                MEN_01  DB    &1F,&0E,&2B,"Yes",&00
02679                     
02680                     
02681                     ;Text for Help
02682                     
02683  1AFB                HLP_TXT DB    &09,&18,&05,&1F
02684                     
02685  1AFB                        DB    " The control of CBM is managed ",&00
02686  1AFB                        DB    " by the Joystick 0, Joystick 1 ",&00
02687  1AFB                        DB    " or the Cursor-Keys and Copy.  ",&00
02688  1AFB                        DB    " The ESCape key  can terminate ",&00
02689  1AFB                        DB    " some of the choosen functions ",&00
02690                     
02691                     
02692                     ;Text for Menu
02693                     
02694  1AFB                MEN_TXT DB    &07,&0E,&08,&31
02695                     
02696  1AFB                        DB    " ",&11,"CBM - Command Bar Menu:",&10,"  This CBM Menu - System ",&00
02697  1AFB                        DB    " provides a standardized interface  for ",&12,"FutureOS",&10," ",&00
02698  1AFB                        DB    " programs.  Depending on your configuration your ",&00
02699  1AFB                        DB    " mother - language will be automatically choosen ",&00
02700  1AFB                        DB    " and corresponding text will be shown on screen. ",&00
02701  1AFB                        DB    " Further two spcial menus:  Prog.functions 1 & 2 ",&00
02702  1AFB                        DB    " are reserved for the user.  Your can adapt this ",&00
02703  1AFB                        DB    " menus freely. Questions? Ask: ",&13,"FutureSoft@gmx.de",&10," ",&00
02704                     
02705                     
02706                     ;Text for Spend
02707                     
02708  1AFB                SPD_TXT DB    &08,&18,&06,&1D
02709                     
02710  1AFB                        DB    " Donate for the  development ",&00
02711  1AFB                        DB    " for such programs! => IBAN: ",&00
02712  1AFB                        DB    " GE12 1234 1234 1234 1234 12 ",&00
02713  1AFB                        DB    " SWIFT-BIC./ BIC SWIFT-CODE: ",&00
02714  1AFB                        DB    " SXYZGEZZXXX and the name is ",&00
02715  1AFB                        DB    " Steve Exampleman // Thanks! ",&00
02716                     
02717                     
02718                     ;Text for WWW
02719                     
02720  1AFB                WWW_TXT DB    &09,&18,&04,&1D
02721                     
02722  1AFB                        DB    "  ",&11,"FutureOS",&10," - the OS for CPC  ",&00
02723  1AFB                        DB    "  ~~~~~~~~~~~~~~~~~~~~~~~~~  ",&00
02724  1AFB                        DB    " ",&12,"Visit the FutureOS homepage",&10," ",&00
02725  1AFB                        DB    " at : ",&13,"http://www.FutureOS.de",&10," ",&00
02726                     
02727  1AFB                        ENDIF 
02728                     
02729                     
02730  1AFB  (0000)                IF    FRA
02731                     
02732                     ;Appliaction Fonctions 1 - FRA
02733                     
02734  1AFB                CMS_F1  DB    &86
02735                     
02736  1AFB                        DW    F1F_US
02737  1AFB                        DW    F1F_00,F1F_01,F1F_02,F1F_03,F1F_04,F1F_05
02738  1AFB                        DB    &00
02739  1AFB                        DB    "1!2",&22,"3#4$5%6&"
02740                     
02741  1AFB                F1F_US  DB    &1F,&04,&27
02742                     
02743  1AFB                        DB    &04,&0D,&8F
02744  1AFB                        DB    &07,&0C,&00,&83
02745  1AFB                        DB    &04,&0D,&8F
02746  1AFB                        DB    &0A,&04,&0C," "
02747  1AFB                        DB    &1F,&10,&28,&07,&0C,&00,&8C
02748  1AFB                        DB    &1F,&11,&28,&07,&0E,&00,&DA
02749  1AFB                        DB    &00
02750                     
02751  1AFB                F1F_00  DB    &1F,&05,&28," App.Fn <1> ",&00
02752  1AFB                F1F_01  DB    &1F,&07,&28," App.Fn <2> ",&00
02753  1AFB                F1F_02  DB    &1F,&09,&28," App.Fn <3> ",&00
02754  1AFB                F1F_03  DB    &1F,&0B,&28," App.Fn <4> ",&00
02755  1AFB                F1F_04  DB    &1F,&0D,&28," App.Fn <5> ",&00
02756  1AFB                F1F_05  DB    &1F,&0F,&28," App.Fn <6> ",&00
02757                     
02758                     
02759                     ;Appliaction Fonctions 2
02760                     
02761  1AFB                CMS_F2  DB    &06
02762                     
02763  1AFB                        DW    F2F_US
02764  1AFB                        DW    F2F_00,F2F_01,F2F_02,F2F_03,F2F_04,F2F_05
02765  1AFB                        DB    &00
02766                     
02767  1AFB                F2F_US  DB    &1F,&04,&35
02768                     
02769  1AFB                        DB    &04,&08,&8F
02770  1AFB                        DB    &07,&0A,&00,&83
02771  1AFB                        DB    &04,&08,&8F
02772  1AFB                        DB    &0A,&04,&07," "
02773  1AFB                        DB    &1F,&0B,&36,&07,&0A,&00,&8C
02774  1AFB                        DB    &1F,&0C,&36,&07,&0C,&00,&DA
02775  1AFB                        DB    &00
02776                     
02777  1AFB                F2F_00  DB    &1F,&05,&36," Prg.Fn 2 ",&00
02778  1AFB                F2F_01  DB    &1F,&06,&36," Prg.Fn 2 ",&00
02779  1AFB                F2F_02  DB    &1F,&07,&36," Prg.Fn 2 ",&00
02780  1AFB                F2F_03  DB    &1F,&08,&36," Prg.Fn 2 ",&00
02781  1AFB                F2F_04  DB    &1F,&09,&36," Prg.Fn 2 ",&00
02782  1AFB                F2F_05  DB    &1F,&0A,&36," Prg.Fn 2 ",&00
02783                     
02784                     
02785                     ;Sub-Menu Aide
02786                     
02787  1AFB                CMS_HELP
                                   DB    &87
02788                     
02789  1AFB                        DW    HEF_US
02790  1AFB                        DW    HEF_00,HEF_01,HEF_02,HEF_03,HEF_04,HEF_05,HEF_06
02791  1AFB                        DB    &00
02792  1AFB                        DB    "aAiInNlLmM4$wW"
02793                     
02794  1AFB                HEF_US  DB    &1F,&04,&44
02795                     
02796  1AFB                        DB    &04,&0A,&8F
02797  1AFB                        DB    &07,&09,&00,&83
02798  1AFB                        DB    &04,&0A,&8F
02799  1AFB                        DB    &0A,&04,&09," "
02800  1AFB                        DB    &1F,&09,&45,&07,&09,&00,&9A
02801  1AFB                        DB    &1F,&0D,&45,&07,&09,&00,&8C
02802  1AFB                        DB    &1F,&0E,&45,&07,&0B,&00,&DA
02803  1AFB                        DB    &00
02804                     
02805  1AFB                HEF_00  DB    &1F,&05,&45," <A>ide  ",&00
02806  1AFB                HEF_01  DB    &1F,&06,&45," <I>nfo  ",&00
02807  1AFB                HEF_02  DB    &1F,&07,&45," <N>euve ",&00
02808  1AFB                HEF_03  DB    &1F,&08,&45," <L>ivre ",&00
02809  1AFB                HEF_04  DB    &1F,&0A,&45," <M>enu  ",&00
02810  1AFB                HEF_05  DB    &1F,&0B,&45," -$<$>$- ",&00
02811  1AFB                HEF_06  DB    &1F,&0C,&45," .w<w>w. ",&00
02812                     
02813                     
02814                     ;Menu Qui/No
02815                     
02816  1AFB                M_LOAD  DB    &82
02817                     
02818  1AFB                        DW    MFLA_US
02819  1AFB                        DW    MFLA_00,MFLA_01
02820  1AFB                        DB    &00
02821  1AFB                        DB    "qQnN"
02822                     
02823  1AFB                MFLA_US DB    &1F,&06,&14,&10," Utiliser? (Q/N) ",&00
02824  1AFB                MFLA_00 DB    &1F,&06,&20,"Q",&00
02825  1AFB                MFLA_01 DB    &1F,&06,&22,"N",&00
02826                     
02827                     
02828                     ;Text pour MODE
02829                     
02830  1AFB                MOD_TXT DB    &04,&2D,&05,&10
02831                     
02832  1AFB                        DB    " ",&13,"S",&7B,"lection MODE",&10," ",&00
02833  1AFB                        DB    0,0,0,0
02834                     
02835                     ;Menu
02836                     
02837  1AFB                M_MOD   DB    &84
02838                     
02839  1AFB                        DW    MFM_US
02840  1AFB                        DW    MFM_00,MFM_01,MFM_02,MFM_03
02841  1AFB                        DB    &00
02842  1AFB                        DB    "0_1!2",&22,"3#"
02843                     
02844  1AFB                MFM_US  DB    &00
02845  1AFB                MFM_00  DB    &1F,&06,&2E," Mode ",&7B,"cran <0> ",&00
02846  1AFB                MFM_01  DB    &1F,&07,&2E," Mode ",&7B,"cran <1> ",&00
02847  1AFB                MFM_02  DB    &1F,&08,&2E," Mode ",&7B,"cran <2> ",&00
02848  1AFB                MFM_03  DB    &1F,&09,&2E," Mode ",&7B,"cran <3> ",&00
02849                     
02850                     
02851                     ;Text pour Couleur
02852                     
02853  1AFB                COL_TXT DB    &04,&2D,&04,&0D
02854                     
02855  1AFB                        DB    " ",&13," Couleur : ",&10," ",&00
02856  1AFB                        DB    0,0,0
02857                     
02858                     ;Menu
02859                     
02860  1AFB                M_COL   DB    &83
02861                     
02862  1AFB                        DW    COF_US
02863  1AFB                        DW    COF_00,COF_01,COF_02
02864  1AFB                        DB    &00
02865  1AFB                        DB    "bBsScC"
02866                     
02867  1AFB                COF_US  DB    &00
02868  1AFB                COF_00  DB    &1F,&06,&2E," <B>ordure   ",&00
02869  1AFB                COF_01  DB    &1F,&07,&2E," <S>ous-sol  ",&00
02870  1AFB                COF_02  DB    &1F,&08,&2E," <C>lou 1-15 ",&00
02871                     
02872                     
02873                     ;Texte pour Formater
02874                     
02875  1AFB                SFO_TXT DB    &04,&2D,&05,&0F
02876                     
02877  1AFB                        DB    " ",&13,"Choix format:",&10," ",&00
02878  1AFB                        DB    0,0,0,0
02879                     
02880  1AFB                M_SFO   DB    &84
02881                     
02882  1AFB                        DW    MFF_US
02883  1AFB                        DW    MFF_00,MFF_01,MFF_02,MFF_03
02884  1AFB                        DB    &00
02885  1AFB                        DB    "0_1!2",&22,"3#"
02886                     
02887  1AFB                MFF_US  DB    &00
02888  1AFB                MFF_00  DB    &1F,&06,&2E," 80x * 25y <0> ",&00
02889  1AFB                MFF_01  DB    &1F,&07,&2E," 68x * 30y <1> ",&00
02890  1AFB                MFF_02  DB    &1F,&08,&2E," 64x * 32y <2> ",&00
02891  1AFB                MFF_03  DB    &1F,&09,&2E, &14, " ??x * ??y <3> ",&00
02892                     
02893                     
02894                     ;Texte pour Langue
02895                     
02896  1AFB                LNG_TXT DB    &0B,&2D,&07,&0E
02897                     
02898  1AFB                        DB    " ",&13,"  Langue :  ",&10," ",&00
02899  1AFB                        DB    0,0,0,0,0,0
02900                     
02901                     ;Menu
02902                     
02903  1AFB                M_LNG   DB    &86
02904                     
02905  1AFB                        DW    MFL_US
02906  1AFB                        DW    MFL_00,MFL_01,MFL_02,MFL_03,MFL_04,MFL_05
02907  1AFB                        DB    &00
02908  1AFB                        DB    "aAfFeErRsShH"
02909                     
02910  1AFB                MFL_US  DB    &00
02911  1AFB                MFL_00  DB    &1F,&0D,&2E," <A>llemand   ",&00
02912  1AFB                MFL_01  DB    &1F,&0E,&2E," <F>ran",&5C,"ais   ",&00
02913  1AFB                MFL_02  DB    &1F,&0F,&2E," Anglais <e>  ",&00
02914  1AFB                MFL_03  DB    &1F,&10,&2E," G<r>ec       ",&00
02915  1AFB                MFL_04  DB    &1F,&11,&2E," E<s>pagnol   ",&00
02916  1AFB                MFL_05  DB    &1F,&12,&2E," <H>ollandais ",&00
02917                     
02918                     
02919                     ;Texte pour Fin
02920                     
02921  1AFB                END_TXT DB    &0C,&1C,&02,&18
02922                     
02923  1AFB                        DB    " Terminer le programme? ",&00
02924  1AFB                        DB    "  >Non<  <-==->  >Qui<  ",&00
02925                     
02926                     ;Menu Non/Qui
02927                     
02928  1AFB                M_END   DB    &02
02929                     
02930  1AFB                        DW    MFN_US
02931  1AFB                        DW    MFN_00,MFN_01
02932  1AFB                        DB    &00
02933                     
02934  1AFB                MFN_US  DB    &00
02935  1AFB                MFN_00  DB    &1F,&0E,&20,"Non",&00
02936  1AFB                MFN_01  DB    &1F,&0E,&2F,"Qui",&00
02937                     
02938                     
02939                     ;Texte pour Aide
02940                     
02941  1AFB                HLP_TXT DB    &09,&18,&05,&22
02942                     
02943  1AFB                        DB    " Le controle de CBM  s'effectue ",&40," ",&00
02944  1AFB                        DB    " l'aide du Joystick 0, Joys. 1 ou ",&00
02945  1AFB                        DB    " des touches CURSEUR et de COPY.  ",&00
02946  1AFB                        DB    " La touche ESC permet de terminer ",&00
02947  1AFB                        DB    " les fonctions s",&7B,"lectionner.  TFM ",&00
02948                     
02949                     
02950                     ;Texte pour Menu
02951                     
02952  1AFB                MEN_TXT DB    &07,&0D,&08,&34
02953                     
02954  1AFB                        DB    " ",&11,"CBM - Command/\Bar Menu :",&10," Ce menu de CBM - Systeme ",&00
02955  1AFB                        DB    " est une interface standardiser pour les programmes ",&00
02956  1AFB                        DB    " de  ",&12,"FutureOS",&10,".   Selon  votre  configuration  votre ",&00
02957  1AFB                        DB    " langue  sera  automatiquement  s",&7B,"lectionn",&7B,"  et les ",&00
02958  1AFB                        DB    " textes des menus seront  affich",&7B,"s ",&40," l'",&7B,"cran.  Deux ",&00
02959  1AFB                        DB    " menus suppl",&7B,"mentaires: Prog. fonctions 1 et 2 sont ",&00
02960  1AFB                        DB    " r",&7B,"serv",&7B,"s ",&40," l'utilisateur.  Vous pouvez adapter ces ",&00
02961  1AFB                        DB    " menus librement. Questions ? >>> ",&13,"FutureSoft@gmx.de",&10," ",&00
02962                     
02963                     
02964                     ;Texte pour Spend
02965                     
02966  1AFB                SPD_TXT DB    &08,&18,&06,&1D
02967                     
02968  1AFB                        DB    " Spend for the >DEVELOPMENT< ",&00
02969  1AFB                        DB    " of such programs! ==> IBAN: ",&00
02970  1AFB                        DB    " FR12 1234 1234 1234 1234 12 ",&00
02971  1AFB                        DB    " SWIFT-BIC./ BIC SWIFT-CODE: ",&00
02972  1AFB                        DB    " FRASFRZZXXX / Et le nom est ",&00
02973  1AFB                        DB    " Stefan Votreenom // Merci ! ",&00
02974                     
02975                     
02976                     ;Texte pour WWW
02977                     
02978  1AFB                WWW_TXT DB    &09,&18,&04,&1D
02979                     
02980  1AFB                        DB    "  ",&11,"FutureOS",&10," - the OS for CPC  ",&00
02981  1AFB                        DB    "  ~~~~~~~~~~~~~~~~~~~~~~~~~  ",&00
02982  1AFB                        DB    " ",&12,"Visite le FutureOS homepage",&10," ",&00
02983  1AFB                        DB    " at : ",&13,"http://www.FutureOS.de",&10," ",&00
02984                     
02985  1AFB                        ENDIF 
02986                     
02987                     
02988  1AFB  (0000)                IF    SPA
02989                     
02990                     ;Sub-Menu Program Functions 1 - SPA
02991                     
02992  1AFB                CMS_F1  DB    &86
02993                     
02994  1AFB                        DW    F1S_US
02995  1AFB                        DW    F1S_00,F1S_01,F1S_02,F1S_03,F1S_04,F1S_05
02996  1AFB                        DB    &00
02997  1AFB                        DB    "1!2",&22,"3#4$5%6&"
02998                     
02999  1AFB                F1S_US  DB    &1F,&04,&26
03000                     
03001  1AFB                        DB    &04,&0D,&8F
03002  1AFB                        DB    &07,&0C,&00,&83
03003  1AFB                        DB    &04,&0D,&8F
03004  1AFB                        DB    &0A,&04,&0C," "
03005  1AFB                        DB    &1F,&10,&27,&07,&0C,&00,&8C
03006  1AFB                        DB    &1F,&11,&27,&07,&0E,&00,&DA
03007  1AFB                        DB    &00
03008                     
03009  1AFB                F1S_00  DB    &1F,&05,&27," Fn.Prg <1> ",&00
03010  1AFB                F1S_01  DB    &1F,&07,&27," Fn.Prg <2> ",&00
03011  1AFB                F1S_02  DB    &1F,&09,&27," Fn.Prg <3> ",&00
03012  1AFB                F1S_03  DB    &1F,&0B,&27," Fn.Prg <4> ",&00
03013  1AFB                F1S_04  DB    &1F,&0D,&27," Fn.Prg <5> ",&00
03014  1AFB                F1S_05  DB    &1F,&0F,&27," Fn.Prg <6> ",&00
03015                     
03016                     
03017                     ;Sub-Menu Program Functions 2
03018                     
03019  1AFB                CMS_F2  DB    &06
03020                     
03021  1AFB                        DW    F2S_US
03022  1AFB                        DW    F2S_00,F2S_01,F2S_02,F2S_03,F2S_04,F2S_05
03023  1AFB                        DB    &00
03024                     
03025  1AFB                F2S_US  DB    &1F,&04,&36
03026                     
03027  1AFB                        DB    &04,&08,&8F
03028  1AFB                        DB    &07,&0A,&00,&83
03029  1AFB                        DB    &04,&08,&8F
03030  1AFB                        DB    &0A,&04,&07," "
03031  1AFB                        DB    &1F,&0B,&37,&07,&0A,&00,&8C
03032  1AFB                        DB    &1F,&0C,&37,&07,&0C,&00,&DA
03033  1AFB                        DB    &00
03034                     
03035  1AFB                F2S_00  DB    &1F,&05,&37," Fn.Prg 2 ",&00
03036  1AFB                F2S_01  DB    &1F,&06,&37," Fn.Prg 2 ",&00
03037  1AFB                F2S_02  DB    &1F,&07,&37," Fn.Prg 2 ",&00
03038  1AFB                F2S_03  DB    &1F,&08,&37," Fn.Prg 2 ",&00
03039  1AFB                F2S_04  DB    &1F,&09,&37," Fn.Prg 2 ",&00
03040  1AFB                F2S_05  DB    &1F,&0A,&37," Fn.Prg 2 ",&00
03041                     
03042                     
03043                     ;Sub-Menu Ayuda
03044                     
03045  1AFB                CMS_HELP
                                   DB    &87
03046                     
03047  1AFB                        DW    HES_US
03048  1AFB                        DW    HES_00,HES_01,HES_02,HES_03,HES_04,HES_05,HES_06
03049  1AFB                        DB    &00
03050  1AFB                        DB    "aAiInNlLmM4$wW"
03051                     
03052  1AFB                HES_US  DB    &1F,&04,&44
03053                     
03054  1AFB                        DB    &04,&0A,&8F
03055  1AFB                        DB    &07,&09,&00,&83
03056  1AFB                        DB    &04,&0A,&8F
03057  1AFB                        DB    &0A,&04,&09," "
03058  1AFB                        DB    &1F,&09,&45,&07,&09,&00,&9A
03059  1AFB                        DB    &1F,&0D,&45,&07,&09,&00,&8C
03060  1AFB                        DB    &1F,&0E,&45,&07,&0B,&00,&DA
03061  1AFB                        DB    &00
03062                     
03063  1AFB                HES_00  DB    &1F,&05,&45," <A>yuda ",&00
03064  1AFB                HES_01  DB    &1F,&06,&45," <I>nfo  ",&00
03065  1AFB                HES_02  DB    &1F,&07,&45," <N>uevo ",&00
03066  1AFB                HES_03  DB    &1F,&08,&45," <L>ibro ",&00
03067  1AFB                HES_04  DB    &1F,&0A,&45," <M>enu  ",&00
03068  1AFB                HES_05  DB    &1F,&0B,&45," -$<$>$- ",&00
03069  1AFB                HES_06  DB    &1F,&0C,&45," .w<w>w. ",&00
03070                     
03071                     
03072                     ;Menu Si/Non
03073                     
03074  1AFB                M_LOAD  DB    &82
03075                     
03076  1AFB                        DW    MSLA_US
03077  1AFB                        DW    MSLA_00,MSLA_01
03078  1AFB                        DB    &00
03079  1AFB                        DB    "sSnN"
03080                     
03081  1AFB                MSLA_US DB    &1F,&06,&14,&10," Utilizar? (S/N) ",&00
03082  1AFB                MSLA_00 DB    &1F,&06,&20,"S",&00
03083  1AFB                MSLA_01 DB    &1F,&06,&22,"N",&00
03084                     
03085                     
03086                     ;Texto por MODE
03087                     
03088  1AFB                MOD_TXT DB    &04,&2A,&05,&13
03089                     
03090  1AFB                        DB    " ",&13," Seleccione MODO ",&10," ",&00
03091  1AFB                        DB    0,0,0,0
03092                     
03093                     ;Menu
03094                     
03095  1AFB                M_MOD   DB    &84
03096                     
03097  1AFB                        DW    MSM_US
03098  1AFB                        DW    MSM_00,MSM_01,MSM_02,MSM_03
03099  1AFB                        DB    &00
03100  1AFB                        DB    "0_1!2",&22,"3#"
03101                     
03102  1AFB                MSM_US  DB    &00
03103  1AFB                MSM_00  DB    &1F,&06,&2B," Pantalla MODO <0> ",&00
03104  1AFB                MSM_01  DB    &1F,&07,&2B," Pantalla MODO <1> ",&00
03105  1AFB                MSM_02  DB    &1F,&08,&2B," Pantalla MODO <2> ",&00
03106  1AFB                MSM_03  DB    &1F,&09,&2B," Pantalla MODO <3> ",&00
03107                     
03108                     
03109                     ;Text for Color
03110                     
03111  1AFB                COL_TXT DB    &04,&2A,&04,&0E
03112                     
03113  1AFB                        DB    " ",&13,"   Color:   ",&10," ",&00
03114  1AFB                        DB    0,0,0
03115                     
03116                     ;Menu
03117                     
03118  1AFB                M_COL   DB    &83
03119                     
03120  1AFB                        DW    COS_US
03121  1AFB                        DW    COS_00,COS_01,COS_02
03122  1AFB                        DB    &00
03123  1AFB                        DB    "mMfFpP"
03124                     
03125  1AFB                COS_US  DB    &00
03126  1AFB                COS_00  DB    &1F,&06,&2B," <M>arco      ",&00
03127  1AFB                COS_01  DB    &1F,&07,&2B," <F>ondo      ",&00
03128  1AFB                COS_02  DB    &1F,&08,&2B," <P>luma 1-15 ",&00
03129                     
03130                     
03131                     ;Texto por Formato
03132                     
03133  1AFB                SFO_TXT DB    &04,&2A,&05,&11
03134                     
03135  1AFB                        DB    " ",&13,"Elegir formato:",&10," ",&00
03136  1AFB                        DB    0,0,0,0
03137                     
03138  1AFB                M_SFO   DB    &84
03139                     
03140  1AFB                        DW    MSF_US
03141  1AFB                        DW    MSF_00,MSF_01,MSF_02,MSF_03
03142  1AFB                        DB    &00
03143  1AFB                        DB    "0_1!2",&22,"3#"
03144                     
03145  1AFB                MSF_US  DB    &00
03146  1AFB                MSF_00  DB    &1F,&06,&2B," 80 x * 25 y <0> ",&00
03147  1AFB                MSF_01  DB    &1F,&07,&2B," 68 x * 30 y <1> ",&00
03148  1AFB                MSF_02  DB    &1F,&08,&2B," 64 x * 32 y <2> ",&00
03149  1AFB                MSF_03  DB    &1F,&09,&2B, &14, " ?? x * ?? y <3> ",&00
03150                     
03151                     
03152                     ;Texto par Idioma
03153                     
03154  1AFB                LNG_TXT DB    &0B,&2A,&07,&0B
03155                     
03156  1AFB                        DB    "  ",&13,"Idioma:",&10,"  ",&00
03157  1AFB                        DB    0,0,0,0,0,0
03158                     
03159                     ;Menu Idioma
03160                     
03161  1AFB                M_LNG   DB    &86
03162                     
03163  1AFB                        DW    MSL_US
03164  1AFB                        DW    MSL_00,MSL_01,MSL_02,MSL_03,MSL_04,MSL_05
03165  1AFB                        DB    &00
03166  1AFB                        DB    "aAfFiIrReEdD"
03167                     
03168  1AFB                MSL_US  DB    &00
03169  1AFB                MSL_00  DB    &1F,&0D,&2B," <A>leman  ",&00
03170  1AFB                MSL_01  DB    &1F,&0E,&2B," <F>rances ",&00
03171  1AFB                MSL_02  DB    &1F,&0F,&2B," <I>ngles  ",&00
03172  1AFB                MSL_03  DB    &1F,&10,&2B," G<r>iego  ",&00
03173  1AFB                MSL_04  DB    &1F,&11,&2B," <E>spa+ol ",&00
03174  1AFB                MSL_05  DB    &1F,&12,&2B," <D>anes   ",&00
03175                     
03176                     
03177                     ;Texto por Salir
03178                     
03179  1AFB                END_TXT DB    &0C,&1C,&02,&12
03180                     
03181  1AFB                        DB    " Cerrar programa? ",&00
03182  1AFB                        DB    "  >No< <==> >Si<  ",&00
03183                     
03184                     ;Menu No/Yes
03185                     
03186  1AFB                M_END   DB    &02
03187                     
03188  1AFB                        DW    MSN_US
03189  1AFB                        DW    MSN_00,MSN_01
03190  1AFB                        DB    &00
03191                     
03192  1AFB                MSN_US  DB    &00
03193  1AFB                MSN_00  DB    &1F,&0E,&20,"No",&00
03194  1AFB                MSN_01  DB    &1F,&0E,&2A,"Si",&00
03195                     
03196                     
03197                     ;Texto por Ayuda
03198                     
03199  1AFB                HLP_TXT DB    &09,&18,&05,&1F
03200                     
03201  1AFB                        DB    " Se puede manejar  CBM  con el ",&00
03202  1AFB                        DB    " Joystick 0,  Joystick 1 o las ",&00
03203  1AFB                        DB    " Teclas  de  Cursor  y  Copia. ",&00
03204  1AFB                        DB    " La tecla ESCape  puede cerrar ",&00
03205  1AFB                        DB    " algunas funciones selectadas. ",&00
03206                     
03207                     
03208                     ;Texto por Menu
03209                     
03210  1AFB                MEN_TXT DB    &07,&0D,&08,&34
03211                     
03212  1AFB                        DB    " ",&11,"CBM-CommandBarMenu:",&10," El Sistema de Menus propociona ",&00
03213  1AFB                        DB    " una interfaz comun para los programas de ",&12,"FutureOS",&10,". ",&00
03214  1AFB                        DB    " Dependiendo  de  la  configuracion  de  tu CPC, tu ",&00
03215  1AFB                        DB    " lengua materna  se  elegira  automaticamente  y el ",&00
03216  1AFB                        DB    " texto  correspondiente  se  mostrara  en pantalla. ",&00
03217  1AFB                        DB    " Ademas dos menus especiales: Funciones.Prog. 1 y 2 ",&00
03218  1AFB                        DB    " estan reservados al  usuario  y  puedes adaptarlos ",&00
03219  1AFB                        DB    " a tu antojo.  Dudas? Escribeme! ",&13,"FutureSoft@gmx.de",&10,". ",&00
03220                     
03221                     
03222                     ;Texto por SPEND
03223                     
03224  1AFB                SPD_TXT DB    &08,&18,&06,&1D
03225                     
03226  1AFB                        DB    " Ayuda al  >>DESARROLLO<< de ",&00
03227  1AFB                        DB    " estos programas! ===> IBAN: ",&00
03228  1AFB                        DB    " ES12 1234 1234 1234 1234 12 ",&00
03229  1AFB                        DB    " SWIFT-BIC./ BIC SWIFT-CODE: ",&00
03230  1AFB                        DB    " SXYZGEZZXXX  y mi nombre es ",&00
03231  1AFB                        DB    " Antonio Ejemplo // Gracias! ",&00
03232                     
03233                     
03234                     ;Texto por WWW
03235                     
03236  1AFB                WWW_TXT DB    &09,&15,&04,&22
03237                     
03238  1AFB                        DB    "    ",&11,"Future OS",&10," - el SO para CPC    ",&00
03239  1AFB                        DB    "    ~~~~~~~~~~~~~~~~~~~~~~~~~~    ",&00
03240  1AFB                        DB    " ",&12,"Visita la pagina web de FutureOS",&10," ",&00
03241  1AFB                        DB    " en :      ",&13,"http://www.FutureOS.de",&10," ",&00
03242                     
03243  1AFB                        ENDIF 
03244                     
03245                     
03246  1AFB  (0000)                IF    NED
03247                     
03248                     ;Sub-Menu Applicatin Functions 1 - NED
03249                     
03250  1AFB                CMS_F1  DB    &86
03251                     
03252  1AFB                        DW    F1N_US
03253  1AFB                        DW    F1N_0,F1N_1,F1N_2,F1N_3,F1N_4,F1N_5
03254  1AFB                        DB    &00
03255  1AFB                        DB    "1!2",&22,"3#4$5%6&"
03256                     
03257  1AFB                F1N_US  DB    &1F,&04,&25
03258                     
03259  1AFB                        DB    &04,&0D,&8F
03260  1AFB                        DB    &07,&0C,&00,&83
03261  1AFB                        DB    &04,&0D,&8F
03262  1AFB                        DB    &0A,&04,&0C," "
03263  1AFB                        DB    &1F,&10,&26,&07,&0C,&00,&8C
03264  1AFB                        DB    &1F,&11,&26,&07,&0E,&00,&DA
03265  1AFB                        DB    &00
03266                     
03267  1AFB                F1N_0   DB    &1F,&05,&26," Prg.Fn <1> ",&00
03268  1AFB                F1N_1   DB    &1F,&07,&26," Prg.Fn <2> ",&00
03269  1AFB                F1N_2   DB    &1F,&09,&26," Prg.Fn <3> ",&00
03270  1AFB                F1N_3   DB    &1F,&0B,&26," Prg.Fn <4> ",&00
03271  1AFB                F1N_4   DB    &1F,&0D,&26," Prg.Fn <5> ",&00
03272  1AFB                F1N_5   DB    &1F,&0F,&26," Prg.Fn <6> ",&00
03273                     
03274                     
03275                     ;Sub-Menu Application Functions 2
03276                     
03277  1AFB                CMS_F2  DB    &06
03278                     
03279  1AFB                        DW    F2N_US
03280  1AFB                        DW    F2N_0,F2N_1,F2N_2,F2N_3,F2N_4,F2N_5
03281  1AFB                        DB    &00
03282                     
03283  1AFB                F2N_US  DB    &1F,&04,&33
03284                     
03285  1AFB                        DB    &04,&08,&8F
03286  1AFB                        DB    &07,&0A,&00,&83
03287  1AFB                        DB    &04,&08,&8F
03288  1AFB                        DB    &0A,&04,&07," "
03289  1AFB                        DB    &1F,&0B,&34,&07,&0A,&00,&8C
03290  1AFB                        DB    &1F,&0C,&34,&07,&0C,&00,&DA
03291  1AFB                        DB    &00
03292                     
03293  1AFB                F2N_0   DB    &1F,&05,&34," Prg.Fn 2 ",&00
03294  1AFB                F2N_1   DB    &1F,&06,&34," Prg.Fn 2 ",&00
03295  1AFB                F2N_2   DB    &1F,&07,&34," Prg.Fn 2 ",&00
03296  1AFB                F2N_3   DB    &1F,&08,&34," Prg.Fn 2 ",&00
03297  1AFB                F2N_4   DB    &1F,&09,&34," Prg.Fn 2 ",&00
03298  1AFB                F2N_5   DB    &1F,&0A,&34," Prg.Fn 2 ",&00
03299                     
03300                     
03301                     ;Sub-Menu Help - Dutch
03302                     
03303  1AFB                CMS_HELP
                                   DB    &87
03304                     
03305  1AFB                        DW    HEN_US
03306  1AFB                        DW    HEN_0,HEN_1,HEN_2,HEN_3,HEN_4,HEN_5,HEN_6
03307  1AFB                        DB    &00
03308  1AFB                        DB    "hHiInNbBmM4$wW"
03309                     
03310  1AFB                HEN_US  DB    &1F,&04,&44
03311                     
03312  1AFB                        DB    &04,&0A,&8F
03313  1AFB                        DB    &07,&09,&00,&83
03314  1AFB                        DB    &04,&0A,&8F
03315  1AFB                        DB    &0A,&04,&09," "
03316  1AFB                        DB    &1F,&09,&45,&07,&09,&00,&9A
03317  1AFB                        DB    &1F,&0D,&45,&07,&09,&00,&8C
03318  1AFB                        DB    &1F,&0E,&45,&07,&0B,&00,&DA
03319  1AFB                        DB    &00
03320                     
03321  1AFB                HEN_0   DB    &1F,&05,&45," <H>elp  ",&00
03322  1AFB                HEN_1   DB    &1F,&06,&45," <I>nfo  ",&00
03323  1AFB                HEN_2   DB    &1F,&07,&45," <N>ieuw ",&00
03324  1AFB                HEN_3   DB    &1F,&08,&45," <B>oek  ",&00
03325  1AFB                HEN_4   DB    &1F,&0A,&45," <M>enu  ",&00
03326  1AFB                HEN_5   DB    &1F,&0B,&45," -$<$>$- ",&00
03327  1AFB                HEN_6   DB    &1F,&0C,&45," .w<w>w. ",&00
03328                     
03329                     
03330                     ;Menu Nein/Ja - Dutch
03331                     
03332  1AFB                M_LOAD  DB    &82
03333                     
03334  1AFB                        DW    MLAN_U
03335  1AFB                        DW    MLAN_0,MLAN_1
03336  1AFB                        DB    &00
03337  1AFB                        DB    "jJnN"
03338                     
03339  1AFB                MLAN_U  DB    &1F,&06,&14,&10," Gebruiken (J/N) ",&00
03340  1AFB                MLAN_0  DB    &1F,&06,&20,"J",&00
03341  1AFB                MLAN_1  DB    &1F,&06,&22,"N",&00
03342                     
03343                     
03344                     ;MODE Text
03345                     
03346  1AFB                MOD_TXT DB    &04,&29,&05,&10
03347                     
03348  1AFB                        DB    " ",&13," Keuze MODE : ",&10," ",&00
03349  1AFB                        DB    0,0,0,0
03350                     
03351                     ;Menu
03352                     
03353  1AFB                M_MOD   DB    &84
03354                     
03355  1AFB                        DW    MDMN_U
03356  1AFB                        DW    MDMN_0,MDMN_1,MDMN_2,MDMN_3
03357  1AFB                        DB    &00
03358  1AFB                        DB    "0_1!2",&22,"3#"
03359                     
03360  1AFB                MDMN_U  DB    &00
03361  1AFB                MDMN_0  DB    &1F,&06,&2A," Keuze MODE <0> ",&00
03362  1AFB                MDMN_1  DB    &1F,&07,&2A," Keuze MODE <1> ",&00
03363  1AFB                MDMN_2  DB    &1F,&08,&2A," Keuze MODE <2> ",&00
03364  1AFB                MDMN_3  DB    &1F,&09,&2A," Keuze MODE <3> ",&00
03365                     
03366                     
03367                     ;Kleurkeuze Text
03368                     
03369  1AFB                COL_TXT DB    &04,&29,&04,&0E
03370                     
03371  1AFB                        DB    " ",&13,"Kleurkeuze :",&10," ",&00
03372  1AFB                        DB    0,0,0
03373                     
03374                     ;Menu
03375                     
03376  1AFB                M_COL   DB    &83
03377                     
03378  1AFB                        DW    CODN_U
03379  1AFB                        DW    CODN_0,CODN_1,CODN_2
03380  1AFB                        DB    &00
03381  1AFB                        DB    "rRaApP"
03382                     
03383  1AFB                CODN_U  DB    &00
03384  1AFB                CODN_0  DB    &1F,&06,&2A," <R>and       ",&00
03385  1AFB                CODN_1  DB    &1F,&07,&2A," <A>chtegrond ",&00
03386  1AFB                CODN_2  DB    &1F,&08,&2A," <P>en 1-15   ",&00
03387                     
03388                     
03389                     ;Formaat Text
03390                     
03391  1AFB                SFO_TXT DB    &04,&29,&05,&10
03392                     
03393  1AFB                        DB    " ",&13,"Keuze formaat:",&10," ",&00
03394  1AFB                        DB    0,0,0,0
03395                     
03396  1AFB                M_SFO   DB    &84
03397                     
03398  1AFB                        DW    MFN_U
03399  1AFB                        DW    MFN_0,MFN_1,MFN_2,MFN_3
03400  1AFB                        DB    &00
03401  1AFB                        DB    "0_1!2",&22,"3#"
03402                     
03403  1AFB                MFN_U   DB    &00
03404  1AFB                MFN_0   DB    &1F,&06,&2A," 80x * 25y  <0> ",&00
03405  1AFB                MFN_1   DB    &1F,&07,&2A," 68x * 30y  <1> ",&00
03406  1AFB                MFN_2   DB    &1F,&08,&2A," 64x * 32y  <2> ",&00
03407  1AFB                MFN_3   DB    &1F,&09,&2A, &14, " ??x * ??y  <3> ",&00
03408                     
03409                     
03410                     ;Taal Text
03411                     
03412  1AFB                LNG_TXT DB    &0B,&29,&07,&0E
03413                     
03414  1AFB                        DB    " ",&13," Taalkeuze: ",&10," ",&00
03415  1AFB                        DB    0,0,0,0,0,0
03416                     
03417                     ;Menu
03418                     
03419  1AFB                M_LNG   DB    &86
03420                     
03421  1AFB                        DW    MDLN_U
03422  1AFB                        DW    MDLN_0,MDLN_1,MDLN_2,MDLN_3,MDLN_4,MDLN_5
03423  1AFB                        DB    &00
03424  1AFB                        DB    "dDfFeErRsSnN"
03425                     
03426  1AFB                MDLN_U  DB    &00
03427  1AFB                MDLN_0  DB    &1F,&0D,&2A," <D>uits      ",&00
03428  1AFB                MDLN_1  DB    &1F,&0E,&2A," <F>rans      ",&00
03429  1AFB                MDLN_2  DB    &1F,&0F,&2A," <E>ngels     ",&00
03430  1AFB                MDLN_3  DB    &1F,&10,&2A," G<r>ieks     ",&00
03431  1AFB                MDLN_4  DB    &1F,&11,&2A," <S>paans     ",&00
03432  1AFB                MDLN_5  DB    &1F,&12,&2A," <N>ederlands ",&00
03433                     
03434                     
03435                     ;End Text
03436                     
03437  1AFB                END_TXT DB    &0C,&1C,&02,&17
03438                     
03439  1AFB                        DB    " Programma beeindigen? ",&00
03440  1AFB                        DB    "   >Nee< <====> >Ja<   ",&00
03441                     
03442                     ;Menu Nee/Ja
03443                     
03444  1AFB                M_END   DB    &02
03445                     
03446  1AFB                        DW    MDNN_U
03447  1AFB                        DW    MDNN_0,MDNN_1
03448  1AFB                        DB    &00
03449                     
03450  1AFB                MDNN_U  DB    &00
03451  1AFB                MDNN_0  DB    &1F,&0E,&21,"Nee",&00
03452  1AFB                MDNN_1  DB    &1F,&0E,&2E,"Ja",&00
03453                     
03454                     
03455                     ;Help Text
03456                     
03457  1AFB                HLP_TXT DB    &09,&18,&05,&21
03458                     
03459  1AFB                        DB    " Het bedienen van de CBM gebeurt ",&00
03460  1AFB                        DB    " d.m.v.  Joystick 0,  Joystick 1 ",&00
03461  1AFB                        DB    " of  de  Cursor-  en  Copytoets. ",&00
03462  1AFB                        DB    " Via  de  ESCape-Toets  kan  men ",&00
03463  1AFB                        DB    " enkele   funkties   beeindigen. ",&00
03464                     
03465                     
03466                     ;Menu Text
03467                     
03468  1AFB                MEN_TXT DB    &07,&03,&08,&3D
03469                     
03470  1AFB                        DB    " ",&11,"CBM - Command-Bar Menu :",&10,"  Dit  Menu-System  CBM  stelt  elk ",&00
03471  1AFB                        DB    " programma voor  ",&12,"FutureOS",&10,"  normgebonden -Keuzemogelijkheden- ",&00
03472  1AFB                        DB    " ter beschikking. Afhankelijk  vqn  de  configuratie word de ",&00
03473  1AFB                        DB    " moedertaal  van  de   gebruiker   automatisch   gekozen  en ",&00
03474  1AFB                        DB    " daarbijhorende  teksten  worden  getoont.  Daarnaast  staan ",&00
03475  1AFB                        DB    " de gebruiker nog 2 ondermenu's nl.: Prog.Funkties 1 & 2 ter ",&00
03476  1AFB                        DB    " vrije beschikking.  Bij Nederlandstalige vragen: E-mail aan ",&00
03477  1AFB                        DB    " ",&12,"CPC_Freak_Belgium@hotmail.com (translat.) ",&13,"FutureSoft@gmx.de ",&00
03478                     
03479                     
03480                     ;Giften Text
03481                     
03482  1AFB                SPD_TXT DB    &08,&18,&06,&1D
03483                     
03484  1AFB                        DB    " Giften    voor    Programma ",&00
03485  1AFB                        DB    " ontwikkeling aan |==> IBAN: ",&00
03486  1AFB                        DB    " GE12 1234 1234 1234 1234 12 ",&00
03487  1AFB                        DB    " SWIFT-BIC./ BIC SWIFT-CODE: ",&00
03488  1AFB                        DB    " SXYZGEZZXXX and the name is ",&00
03489  1AFB                        DB    " Steve Exampleman // Thanks! ",&00
03490                     
03491                     
03492                     ;WWW Text
03493                     
03494  1AFB                WWW_TXT DB    &09,&18,&04,&19
03495                     
03496  1AFB                        DB    " ",&11,"FutureOS",&10," - Het CPC - OS ",&00
03497  1AFB                        DB    " ~~~~~~~~~~~~~~~~~~~~~~~ ",&00
03498  1AFB                        DB    " ",&12,"De FutureOS Website...:",&10," ",&00
03499  1AFB                        DB    " ",&13,"http://www.FutureOS.de",&10,". ",&00
03500                     
03501  1AFB                        ENDIF 
03502                     
03503                     
03504                     ;Show version of this application
03505                     
03506  1AFB  0E 13 02 26   T_VER   DB    &0E,&13,&02,&26
03507                     
03508  1AFF  20 41 70 70           DB    " Application - Ver. 1.11 - 2023.09.20 ",&00
       1B03  6C 69 63 61 
       1B07  74 69 6F 6E 
       1B0B  20 2D 20 56 
       1B0F  65 72 2E 20 
       1B13  31 2E 31 31 
       1B17  20 2D 20 32 
       1B1B  30 32 33 2E 
       1B1F  30 39 2E 32 
       1B23  30 20 00 
03509  1B26  20 2D 2D 3E           DB    " --> Application XXX for FutureOS <-- ",&00
       1B2A  20 41 70 70 
       1B2E  6C 69 63 61 
       1B32  74 69 6F 6E 
       1B36  20 58 58 58 
       1B3A  20 66 6F 72 
       1B3E  20 46 75 74 
       1B42  75 72 65 4F 
       1B46  53 20 3C 2D 
       1B4A  2D 20 00 
03510                     
03511                     
03512                     ;This function of this application is still inactive
03513                     
03514  1B4D  15 22 01 2A   INA_T   DB    &15,&22,&01,&2A
03515                     
03516  1B51  20 46 75 6E           DB    " Function isn't part of this application! ",&00
       1B55  63 74 69 6F 
       1B59  6E 20 69 73 
       1B5D  6E 27 74 20 
       1B61  70 61 72 74 
       1B65  20 6F 66 20 
       1B69  74 68 69 73 
       1B6D  20 61 70 70 
       1B71  6C 69 63 61 
       1B75  74 69 6F 6E 
       1B79  21 20 00 
03518                     
03519                     
03520  1B7C  (2484)                DS    &4000-$,&C9
03521                     
03522                     
03523                     ;---=== The following routines must be located at &4000 (or higher) ===---
03524                     
03525                     
03526                     ;Copy the Charset from ROM to RAM (call at &9000)
03527                     
03528  4000  CD 7D FE      U_STED  CALL  STED
03528  4003  01 86 7F              LD    BC,&7F86
03528  4006  ED 49                 OUT   (C),C
03528  4008  C9                    RET                ;Because STED switch L-ROM on!
03529                     
03530  4009  CD 2A FF      U_LOAD  CALL  ROM_A2C
03530  400C  01 86 7F              LD    BC,&7F86
03530  400F  ED 49                 OUT   (C),C
03530  4011  C9                    RET                ;Call OS funct. in C // L-RAM on!
03531                     
03532                     
03533                     ;Needed OS Variables
03534                     
03535  4012  (A000)        TMS_A   EQU   &A000        ;in RAM
03536  4012  (A800)        TMS_I   EQU   &A800
03537  4012  (B848)        C_POS   EQU   &B848
03538  4012  (B84C)        AKT_RAM EQU   &B84C
03539  4012  (B858)        TURBO_A EQU   &B858
03540  4012  (B860)        TURBO_B EQU   &B860
03541  4012  (B868)        TURBO_C EQU   &B868
03542  4012  (B870)        TURBO_D EQU   &B870
03543  4012  (B878)        TURBO_E EQU   &B878
03544  4012  (B880)        TURBO_F EQU   &B880
03545  4012  (B888)        TURBO_G EQU   &B888
03546  4012  (B890)        TURBO_H EQU   &B890
03547  4012  (B898)        TURBO_I EQU   &B898
03548  4012  (B8A0)        TURBO_J EQU   &B8A0
03549  4012  (B8A8)        TURBO_K EQU   &B8A8
03550  4012  (B8B0)        TURBO_L EQU   &B8B0
03551  4012  (B8B8)        TURBO_M EQU   &B8B8
03552  4012  (B8D2)        REG_IX  EQU   &B8D2
03553  4012  (B8D4)        REG_IY  EQU   &B8D4
03554  4012  (B8DF)        REG08_3 EQU   &B8DF
03555  4012  (B8E6)        REG16_1 EQU   &B8E6
03556  4012  (B8F0)        REG16_6 EQU   &B8F0
03557  4012  (B8F4)        REG16_8 EQU   &B8F4
03558  4012  (B940)        TMD_A   EQU   &B940
03559  4012  (B96D)        DIRIN   EQU   &B96D
03560  4012  (B970)        KF_AB   EQU   &B970
03561  4012  (B971)        KF_CD   EQU   &B971
03562  4012  (B972)        KF_EF   EQU   &B972
03563  4012  (B973)        KF_GH   EQU   &B973
03564  4012  (B976)        KF_CPC  EQU   &B976
03565  4012  (B97F)        MO_ST   EQU   &B97F
03566  4012  (B9F3)        VZ_MOD  EQU   &B9F3
03567  4012  (B9FA)        VZ_FA   EQU   &B9FA
03568  4012  (B9FF)        M4_ERAM EQU   &B9FF
03569  4012  (BA58)        OK_ADR  EQU   &BA58
03570  4012  (BA5A)        OK_ATE  EQU   &BA5A
03571  4012  (BA5C)        OK_BLK  EQU   &BA5C
03572  4012  (BA5E)        OK_BTE  EQU   &BA5E
03573  4012  (BB91)        BORDER  EQU   &BB91
03574  4012  (BB92)        INK_0   EQU   &BB92
03575  4012  (BBC3)        IDE_XR  EQU   &BBC3
03576  4012  (BE11)        FN_LR   EQU   &BE11
03577                     
03578  4012  (FF00)        ROM_A   EQU   &FF00        ;all ROMs A-D
03579  4012  (FF0C)        ROM_C   EQU   &FF0C
03580  4012  (FF12)        ROM_D   EQU   &FF12
03581  4012  (FF2A)        ROM_A2C EQU   &FF2A
03582  4012  (FF3C)        ROM_A2D EQU   &FF3C
03583  4012  (FF22)        OSRON_A EQU   &FF22
03584                     
03585  4012  (C02F)        H_ALLET EQU   &C02F        ;ROM A
03586  4012  (C115)        H_XALLET
                                   EQU   &C115
03587  4012  (C4DB)        WART_TS EQU   &C4DB
03588  4012  (C561)        HOLE1TS EQU   &C561
03589  4012  (C671)        XWART   EQU   &C671
03590  4012  (D1C2)        STR_2I  EQU   &D1C2
03591  4012  (D358)        TERM_2I EQU   &D358
03592  4012  (D42C)        TERM_2U EQU   &D42C
03593  4012  (D48C)        TERM_2  EQU   &D48C
03594  4012  (D60E)        S80X25  EQU   &D60E
03595  4012  (FC32)        M_CON   EQU   &FC32
03596  4012  (FC6E)        R_ALM   EQU   &FC6E
03597  4012  (FD77)        H_JCM   EQU   &FD77
03598  4012  (FE6B)        H_JC    EQU   &FE6B
03599  4012  (FE7D)        STED    EQU   &FE7D
03600                     
03601  4012  (C017)        LESC    EQU   &C017        ;ROM C
03602  4012  (C0C8)        F_MOVE  EQU   &C0C8
03603  4012  (C9AD)        INRZ    EQU   &C9AD
03604  4012  (FD3B)        CC2N    EQU   &FD3B
03605  4012  (FD8C)        SICHRE  EQU   &FD8C
03606  4012  (FD8F)        LADEN   EQU   &FD8F
03607  4012  (FD98)        FMD32   EQU   &FD98
03608                     
03609  4012  (C017)        ICON6ON EQU   &C017        ;ROM D
03610  4012  (FE7C)        GET_DIR EQU   &FE7C
03611  4012  (FE9D)        TUR_E   EQU   &FE9D
03612  4012  (C08D)        A_1     EQU   &C08D
03613  4012  (C111)        A_2     EQU   &C111
03614  4012  (C195)        A_3     EQU   &C195
03615  4012  (C219)        B_1     EQU   &C219
03616  4012  (C29D)        B_2     EQU   &C29D
03617  4012  (C321)        B_3     EQU   &C321
03618  4012  (C3A5)        C_1     EQU   &C3A5
03619  4012  (C429)        C_2     EQU   &C429
03620  4012  (C4AD)        C_3     EQU   &C4AD
03621  4012  (C531)        D_1     EQU   &C531
03622  4012  (C5B5)        D_2     EQU   &C5B5
03623  4012  (C639)        D_3     EQU   &C639
03624  4012  (C6BD)        E_1     EQU   &C6BD
03625  4012  (C741)        E_2     EQU   &C741
03626  4012  (C7C5)        E_3     EQU   &C7C5
03627  4012  (C849)        F_1     EQU   &C849
03628  4012  (C8CD)        F_2     EQU   &C8CD
03629  4012  (C951)        F_3     EQU   &C951
03630  4012  (C9D5)        G_1     EQU   &C9D5
03631  4012  (CA59)        G_2     EQU   &CA59
03632  4012  (CADD)        G_3     EQU   &CADD
03633  4012  (CB61)        H_1     EQU   &CB61
03634  4012  (CBE5)        H_2     EQU   &CBE5
03635  4012  (CC69)        H_3     EQU   &CC69
03636  4012  (CCED)        I_1     EQU   &CCED
03637  4012  (CD71)        I_2     EQU   &CD71
03638  4012  (CDF5)        I_3     EQU   &CDF5
03639  4012  (CE79)        J_1     EQU   &CE79
03640  4012  (CEFD)        J_2     EQU   &CEFD
03641  4012  (CF81)        J_3     EQU   &CF81
03642  4012  (D005)        K_1     EQU   &D005
03643  4012  (D089)        K_2     EQU   &D089
03644  4012  (D10D)        K_3     EQU   &D10D
03645  4012  (D191)        L_1     EQU   &D191
03646  4012  (D215)        L_2     EQU   &D215
03647  4012  (D299)        L_3     EQU   &D299
03648  4012  (D31D)        M_1     EQU   &D31D
03649  4012  (D3A1)        M_2     EQU   &D3A1
03650  4012  (D425)        M_3     EQU   &D425
03651                     
03652  4012  (FCDE)        FNOFN   EQU   &FCDE        ;ROM M
03653  4012  (FCF0)        KM4OS   EQU   &FCF0
03654  4012  (FCED)        ZDN     EQU   &FCED

Errors: 00000  Warnings: 00000  

  SYMBOL TABLE:

07EC A_NM                    0A5D AKT_MODE       0A5E AKT_FOR        B84C AKT_RAM        C08D A_1            C111 A_2
C195 A_3 0777 BOR            077B BO2            0808 B_NM           BB91 BORDER         C219 B_1            C29D B_2
C321 B_3 0078 CBM            0823 C_NM           0A59 CBM_BAR        0A5B CBM_S_1        0DBC CENN           0DBF CENO
0DEC CBM_M                   0FBD CM_BAR         0FD9 CM_US          0FF4 CM_00          1001 CM_01          1013 CM_02
1023 CM_03                   1034 CM_04          1045 CM_05          1052 CMS_FILE       11B0 CMS_EDIT       12AD CMS_OPT
137D CMS_F1                  140D CMS_F2         1491 CMS_HELP       15DF COL_TXT        1607 COD_US         1608 COD_00
161A COD_01                  162C COD_02         B848 C_POS          FD3B CC2N           C3A5 C_1            C429 C_2
C4AD C_3 0009 DEU            0163 DAM_TXT        01A1 DAM_US         01A2 DAM_00         01B7 DAM_01         01CC DAM_02
01E1 DAM_03                  01F6 DAM_04         020B DAM_05         0220 DAM_06         0235 DAM_07         024A DAM_08
025F DAM_09                  0274 DAM_0A         0289 DAM_0B         029E DAM_0C         02B3 DAM_0D         02C8 DAM_0E
02DD DAM_0F                  02F2 DAM_10         0307 DAM_11         036A DAM_L1         0377 DAM_LA         0383 DAM_LB
039A DAM_L2                  03F9 DAM_HDM        0407 DAM_M          0435 DAM_SNL        043A DANM           0462 DSSM
046E DAM_L3                  050D DAM_LOP        050E DAM_PAG        083F D_NM           0954 DRI_W          0958 DT86
0A5F DR_WIN                  0AAB DRW_L          0AAC DRW_M          0AE3 DRW_Y1         0AE4 DRW_X1         0AE6 DRW_TL
B96D DIRIN                   C531 D_1            C5B5 D_2            C639 D_3            0000 ENG            085A E_NM
0948 EXRD                    11D8 ED_US          1214 ED_00          1225 ED_01          1236 ED_02          1247 ED_03
1258 ED_04                   1269 ED_05          127A ED_06          128B ED_07          129C ED_08          1776 END_TXT
C6BD E_1 C741 E_2            C7C5 E_3            0000 FRA            0876 F_NM           0CBE FD_M4D         108A FI_US
10C6 FI_00                   10D8 FI_01          10EA FI_02          10FC FI_03          110E FI_04          1120 FI_05
1132 FI_06                   1144 FI_07          1156 FI_08          1168 FI_09          117A FI_0A          118C FI_0B
119E FI_0C                   1399 F1_US          13B9 F1_00          13C7 F1_01          13D5 F1_02          13E3 F1_03
13F1 F1_04                   13FF F1_05          141D F2_US          143D F2_00          144B F2_01          1459 F2_02
1467 F2_03                   1475 F2_04          1483 F2_05          BE11 FN_LR          C0C8 F_MOVE         FD98 FMD32
C849 F_1 C8CD F_2            C951 F_3            FCDE FNOFN          034A G_UNE          0891 G_NM           FE7C GET_DIR
C9D5 G_1 CA59 G_2            CADD G_3            0782 HWFW           08AD H_NM           14B1 HE_US          14D8 HE_00
14E5 HE_01                   14F2 HE_02          14FF HE_03          150C HE_04          1519 HE_05          1526 HE_06
17BD HLP_TXT                 C02F H_ALLET        C115 H_XALLET       C561 HOLE1TS        FD77 H_JCM          FE6B H_JC
CB61 H_1 CBE5 H_2            CC69 H_3            08BF I_NM           0A54 INAKT          0E9C INK_TXT        0EE3 INK_N
0EE4 I_US                    0EE5 I_00           0EED I_01           0EF5 I_02           0EFD I_03           0F05 I_04
0F0D I_05                    0F15 I_06           0F1D I_07           0F25 I_08           0F2D I_09           0F35 I_0A
0F3D I_0B                    0F45 I_0C           0F4D I_0D           0F55 I_0E           0F5D I_0F           0F65 I_10
0F6D I_11                    0F75 I_12           0F7D I_13           0F85 I_14           0F8D I_15           0F95 I_16
0F9D I_17                    0FA5 I_18           0FAD I_19           0FB5 I_1A           1B4D INA_T          BB92 INK_0
BBC3 IDE_XR                  C9AD INRZ           C017 ICON6ON        CCED I_1            CD71 I_2            CDF5 I_3
08D1 J_NM                    CE79 J_1            CEFD J_2            CF81 J_3            08E3 K_NM           B970 KF_AB
B971 KF_CD                   B972 KF_EF          B973 KF_GH          B976 KF_CPC         D005 K_1            D089 K_2
D10D K_3 FCF0 KM4OS          0518 LSFNB          08F5 L_NM           16C4 LNG_TXT        C017 LESC           FD8F LADEN
D191 L_1 D215 L_2            D299 L_3            0179 M_DAM          0907 M_NM           0AE8 M_DISP2        0B12 MD2_L0
0B24 MD2W1                   0B32 MD2_L1         0B46 MD2_LT         0B4D MD2_LH         0BA3 MD2_F0         0BA6 MD2_F1
0BA9 MD2_UP                  0BBD MD2UP          0BC2 MD2_DN         0BD7 MD2DN          0BDC MD2_LE         0BF0 MD2LE
0BF5 MD2_RI                  0C0A MD2RI          0C0F M_DATA2        0C11 M_MPAA2        0C13 M_DXDY2        0E01 M_PEN
0EAA M_INK                   1533 M_LOAD         153F MDLA_US        1555 MDLA_00        155A MDLA_01        155F MOD_TXT
157A M_MOD                   158E MDM_US         158F MDM_00         15A3 MDM_01         15B7 MDM_02         15CB MDM_03
15F7 M_COL                   165A M_SFO          166E MDF_US         166F MDF_00         1684 MDF_01         1699 MDF_02
16AE MDF_03                  16E1 M_LNG          16FD MDL_US         16FE MDL_00         1712 MDL_01         1726 MDL_02
173A MDL_03                  174E MDL_04         1762 MDL_05         17A6 M_END          17AE MDN_US         17AF MDN_00
17B7 MDN_01                  1861 MEN_TXT        B97F MO_ST          B9FF M4_ERAM        FC32 M_CON          D31D M_1
D3A1 M_2 D425 M_3            0000 NED            0058 OSUER          12C9 OP_US          12FE OP_00          130E OP_01
131E OP_02                   132E OP_03          133E OP_04          134E OP_05          BA58 OK_ADR         BA5A OK_ATE
BA5C OK_BLK                  BA5E OK_BTE         FF22 OSRON_A        073E PEI            0DF8 PEN_TXT        0E22 PEN_N
0E23 P_US                    0E24 P_00           0E2C P_01           0E34 P_02           0E3C P_03           0E44 P_04
0E4C P_05                    0E54 P_06           0E5C P_07           0E64 P_08           0E6C P_09           0E74 P_0A
0E7C P_0B                    0E84 P_0C           0E8C P_0D           0E94 P_0E           0000 RES0           0008 RES1
0010 RES2                    0018 RES3           0020 RES4           0028 RES5           0030 RES6           0038 RES7
00CE R_LAD                   0117 R_LAE          0127 RL_Y           0145 RL_TT          031C RNFM           0346 RNFN
0363 RLE 050F RLADW          0528 R_SAV          05F6 R_LBK          063E R_LBL          064E RLB_Y          0651 R_SBK
066D R_IMP                   06B5 R_IMQ          06C5 RIM_Y          06C8 R_EXP          06E4 R_COS          0702 R_MOD
0717 R_COL                   079D R_FOR          07B2 R_LNG          07D1 R_DIR          0919 RE_AM          0A19 R_END
0A34 R_HLP                   0A39 R_MEN          0A3E R_SPD          0A43 R_WWW          0A4F R_VER          B8D2 REG_IX
B8D4 REG_IY                  B8DF REG08_3        B8E6 REG16_1        B8F0 REG16_6        B8F4 REG16_8        FF00 ROM_A
FF0C ROM_C                   FF12 ROM_D          FF2A ROM_A2C        FF3C ROM_A2D        FC6E R_ALM          0000 SPA
0039 START_CB                0408 SE_AB          047C SE_OB          0496 SEB_VL         049E SEB_VM         04A0 SEB_VO
04A5 SEB_VN                  04AF SEVLP          04DC SPNO           04EF SEB_TG         058B SF_AM          059A SF_NO
05CF S_DERR                  05DB SAV_W          05E7 SA_NM          0C52 SMB2           0CBC ST_M4D         0D49 SE_AB4
0D85 SE4W                    0D8F SE_OB4         0DA3 SE4P           135E SZD_ERR        163E SFO_TXT        19FB SPD_TXT
D1C2 STR_2I                  D60E S80X25         FE7D STED           FD8C SICHRE         04BA TANO           0939 TDAM
0AC2 T_FRAM                  0B95 TCK_L0         0B9E TCK_OK         0C5E T1_FIL         0C78 T1_PRC         0C8A T1_OPT
0C96 T1_PF1                  0CA2 T1_PF2         0CAE T1_HLP         1AFB T_VER          A000 TMS_A          A800 TMS_I
B858 TURBO_A                 B860 TURBO_B        B868 TURBO_C        B870 TURBO_D        B878 TURBO_E        B880 TURBO_F
B888 TURBO_G                 B890 TURBO_H        B898 TURBO_I        B8A0 TURBO_J        B8A8 TURBO_K        B8B0 TURBO_L
B8B8 TURBO_M                 B940 TMD_A          D358 TERM_2I        D42C TERM_2U        D48C TERM_2         FE9D TUR_E
4000 U_STED                  4009 U_LOAD         B9F3 VZ_MOD         B9FA VZ_FA          0A46 WAAAW          0C15 WAIT
0C22 WATL                    1A89 WWW_TXT        C4DB WART_TS        0AEB X_DISP2        C671 XWART          0C35 YWART
0C43 YW_TU                   0C47 YW_L1          0CC0 Z_M4D          0CD6 ZM4E           0CF5 ZM4L           FCED ZDN

