This program produces the same text for the TS 1000 that the program "ADVICE 2068" does. The data code is different because of the difference between the 2 computer types. Luckily, the character codes for the TS 1000 are exactly 27 digits less than for the 2068. Comparing code tables, numbers are 20 digits less than the 2068 but none are used here.
The data is in 5 strings, about one for each text line. As the data is in string form, the separating commnas require special treatment as used in the program. This method requires the program to jump to line 200 each time a comma is read.
Line 205 simply converts the text data strings to numeric form so line 210 can print it. To prove this add a PRINT F; immediately after line 205
Considerable testing was required as the program development progressed, but I was working with my 2068 computer because I wished to do the hard copy on my large printer. The data didn't make sense except that spaces were question marks, and periods were 6s. My solution is in the article "READ TS 1000 ON A 2068".
The use of strings to input data, and change the data into numeric digits, is one of several ways of simulating READ & DATA such as is available on a 2068 computer.
FAST puts the program thru nicely but pressing the ENTRY key is required to show the display. Using SLOW displays the characters being printed on the screen. Take your pick by adding a fast or slow line to the program.
Code: Select all
5 REM THIS TS 1000 PROGRAM READS STRINGS TO PRINT OUT A MESSAGE
10 LET A$="50,62,0,46,51,57,42,55,42,56,57,0,46,56,0,46,51,0,57,45,42,0,43,58,57,58,55,42,"
12 LET B$="0,0,0,0,39,42,40,38,58,56,42,0,46,0,38,50,0,44,52,46,51,44,0,57,52,0,56,53,42,51,41,0,57,45,42,"
14 LET C$="0,55,42,56,57,0,52,43,0,50,62,0,49,46,43,42,0,57,45,42,55,42,27,"
16 LET D$="0,0,0,0,0,0,0,0,0,0,0,40,45,38,55,49,42,56,0,43,27,0,48,42,57,57,42,55,46,51,44,"
18 LET E$="0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57,45,42,0,40,45,52,46,40,4 2,0,46,56,0,62,52,58,55,56,27,"
20 LET A$=A$+B$+C$+D$+E$
120 LET M=1
130 FOR N=1 TO LEN A$
140 IF A$(N)="," THEN GOSUB 200
150 NEXT N
200 LET F$=A$(M TO N-1)
205 LET F=VAL F$
210 PRINT CHR$ F;
220 LET M=N+1
230 RETURN