Machine code program that translates TS1000 programs into 2068 programs.
FIRSTLOAD
2 GO TO 40
10 DATA 1,181,0,17,0,92,33,136,111,237,176,1,124,146,17,62,105,33,62,112,237,176,201
15 FOR i=24606 TO 24628
25 READ v
30 POKE i,v
35 NEXT i
40 STOP
100 INPUT v
110 FOR i=v TO v+10
120 PRINT i,
130 INPUT t
135 PRINT t,
137 POKE i,t
140 NEXT i
150 GO TO 207
205 INPUT "start";v
206 IF v=0 THEN LET v=45000
207 LET b$=" "
210 FOR i=v TO (v+300) STEP 5
220 PRINT i;
230 FOR j=0 TO 4
240 LET x=PEEK (i+j)
250 IF x<100 THEN LET b$=" "
255 IF x<10 THEN LET b$=" "
260 PRINT " ";b$;x;
270 LET b$=" "
280 NEXT j
290 PRINT " ";
295 NEXT i
299 STOP
300 FOR i=44000 TO 45234
310 IF PEEK i<>PEEK (i+6000) THEN PRINT i,PEEK i
320 NEXT i
500 CLS
501 PRINT " Loading code... Please wait"
510 LOAD ""CODE
600 CLS
610 PRINT " Enter: CLEAR 43999 :NEW then: RANDOMIZE USR 45000"
699 STOP
700 SAVE "firstloadr" LINE 500
710 SAVE "firstloadr"CODE 44000,1234
799 STOP
Tags
No tags for this content.