Zeus Utility

The following routine converts ZEUS source code files into an ASCII file for either of the two most popular TS2068 word processors: MSCRIPT and TASWORD TWO. A hex dump is included for ease of data entry.

   5 REM
         ZEUS SOURCE CODE TO
           MSCRIPT CMSV5
           or TASWORD II
            CONVERSION

         (C)1987 Richard Hurd
  10 REM This program uses and is based on the mnemonics lookuptable from the ZEUS assembler.
  20 PRINT ''TAB 13;"Z2M/T"''''" Conversion routine to convert  Zeus formatted Source Code to   either or both:"''" Mscript (CMSV5T)"'" TASWORD II"
  30 BEEP .1,7: PRINT ''''TAB 10;"Please LOAD"''TAB 3;"ZEUS (Format) Source Code"
  40 LOAD ""CODE 32768
  50 LET length=USR 61431: POKE 46927+length,255
  60 CLS : PRINT '''" Press appropriate key"''" 1) MSCRIPT (CMSV5T)"'" 2) TASWORD II"'" 3) BOTH 1 & 2"
  61 LET i=CODE INKEY$: IF i=CODE "" THEN  GO TO 61
  65 IF i<49 OR i>51 THEN  GO TO 61
  70 IF i=49 OR i=51 THEN  CLS : PRINT '''" Saving Z2Mfile CODE 46927,";length: SAVE "Z2Mfile" CODE 46927,length: IF i=49 THEN  GO TO 100
  80 LET length=USR 61556: POKE 61552,79: POKE 61553,183: POKE 61554,48: POKE 61555,117
  90 PRINT '" Saving Z2Tfile CODE 30000,";length: SAVE "Z2Tfile"CODE 30000,length
 100 CLS : PRINT '''TAB 4;"That's It!": STOP
 110 LOAD ""CODE : CLEAR 29999: RUN
 120 CLEAR : SAVE "Z_2_M/T" LINE 110: SAVE "Z_2_M/T"CODE 61015,610

Hex Dump of Z_2_M/T

EE57   41 0A 41 44 43 20 08 41
EE5F   44 44 20 08 41 46 27 0A
EE67   41 46 0A 41 4E 44 20 08
EE6F   42 0A 42 43 0A 42 49 54
EE77   20 08 43 0A 43 41 4C 4C
EE7F   20 08 43 43 46 0A 43 50
EE87   20 08 43 50 44 0A 43 50
EE8F   44 52 0A 43 50 49 0A 43
EE97   50 49 52 0A 43 50 4C 0A
EE9F   44 0A 44 41 41 0A 44 45
EEA7   0A 44 45 43 20 08 44 45
EEAF   46 42 20 08 44 45 46 4D
EEB7   20 08 44 45 46 53 20 08
EEBF   44 45 46 57 20 08 44 49
EEC7   0A 44 49 53 50 20 08 44
EECF   4A 4E 5A 20 08 45 0A 45
0
EED7   49 0A 45 4E 54 0A 45 51
EEDF   55 20 08 45 58 20 08 45
EEE7   58 58 0A 48 0A 48 41 4C
EEEF   54 0A 48 4C 0A 49 0A 49
EEF7   4D 20 08 49 4E 20 08 49
EEFF   4E 43 20 08 49 4E 44 0A
EF07   49 4E 44 52 0A 49 4E 49
EF0F   0A 49 4E 49 52 0A 49 58
EF17   0A 49 59 0A 4A 50 20 08
EF1F   4A 52 20 08 4C 0A 4C 44
EF27   20 08 4C 44 44 0A 4C 44
EF2F   44 52 0A 4C 44 49 0A 4C
EF37   44 49 52 0A 4D 0A 4E 43
EF3F   0A 4E 45 47 0A 4E 4F 50
EF47   0A 4E 56 0A 4E 5A 0A 4F
EF4F   52 20 08 4F 52 47 20 08
0