Tasword to M-Script File Conversion

This is a ZX Spectrum utility for converting Tasword files into M-Script files. The first program generates and saves the machine code that is required to do the conversion. The second program loads and launches the machine code and steps the user through the conversion of files. This utility can be used in conjunction with the Sinclair ASCII Text To IBM Text conversion utility created by David Solly.

Program Number 1

   1 REM Tasword II to M-Script
(ASCII) Conversion
   2 REM This program generates a
block of machine code that will be
used to convert Tasword II files into
M-Script (ASCII) files
  10 RESTORE
  50 LET t = 0
 100 FOR i = 1 TO 86
 110 READ a
 120 POKE 65279+i, a
 130 LET t = t + i * a
 140 NEXT i
 150 IF t <> 428022 THEN BEEP 1, 1:
PRINT "Error in DATA!": STOP
 200 SAVE *"m";1;"TS>MS.Cm"CODE
65280,86
 210 BEEP 1, 1: CLS : PRINT "Machine
code save successful": STOP
 500 DATA 33,0,108,84,93,19,54,32,1,0
 510 DATA 75,237,176,201,0,0,0,0,0,0
 520 DATA
33,255,182,62,32,43,190,40,252,35
 530 DATA
34,86,255,33,0,108,17,79,183,6
 540 DATA
0,14,64,190,32,6,235,43,54,13
 550 DATA
35,235,237,176,235,43,190,40,252,35
 560 DATA
119,35,229,42,86,255,167,237,82,225
 570 DATA
235,48,224,235,17,79,183,54,0,35
 580 DATA 167,237,82,68,77,201
8999 STOP
9000 REM Save routine
9010 ERASE "m";1;"TS>MS.Bc"
9020 SAVE *"m";1;"TS>MS.Bc"

Program Number 2

 100 RANDOMIZE USR 65280
 110 CLS : INPUT "Enter the drive to
be used (1-8) > ";no
 120 CLS : CAT no
 200 INPUT "File Name? > ";n$
 210 IF n$ = "" OR LEN n$ > 6 THEN GO
TO 200
 220 LOAD *"m";no;n$ + ".Ct"CODE 27648
 250 LET len = USR 65300
 260 INPUT "Save fule as: ";s$
 270 IF s$ = "" THEN LET s$ = n$
 280 IF LEN n$ > 6 THEN GO TO 260
 290 SAVE *"m";no;s$ + ".CS"CODE
46972,len
 300 PRINT #1;"Convert another file?
(Y/N) > "
 310 PAUSE 0: LET s$ = INKEY$: IF s$ =
"Y" OR s$ = "y" THEN GO TO 100
 320 IF s$ = "N" OR s$ = "n" THEN STOP
 330 GO TO 310
9800 LOAD *"m";1;"TS>MS.Cm"CODE
9810 GO TO 100
9900 ERASE "m";1;"TS>MS.Bm"
9910 SAVE *"m";1;"TS>MS.Bm" LINE 9800