Code: Select all
10 FOR I=133 TO 134
20 GO SUB 90
30 NEXT I
60 FOR I=230 TO 255
70 IF NOT(I=231 OR I=232 OR 236<=I AND I<=237 OR I=249 OR I=252) THEN GO SUB 90
80 NEXT I
89 STOP
90 PRINT STR$ I;":";CHR$ I;"."
99 RETURN
This prints the following except 133 and 134 that are block characters similar to \ and |.
Code: Select all
133:.
134:.
230: NEW .
233: DIM .
234: REM .
235: FOR .
238: INPUT .
239: LOAD .
240: LIST .
241: LET .
242: PAUSE .
243: NEXT .
244: POKE .
245: PRINT .
246: PLOT .
247: RUN .
248: SAVE .
250: IF .
251: CLS .
253: CLEAR .
254: RETURN .
255: COPY .
Code: Select all
sed 's/GOTO/GO TO/;s/GOSUB/GO SUB/;s/RAND/RANDOMIZE/;s/SCROLL/POKE 23692,255/' aritm-zx81.bas > aritm-zx81sp.bas
One could then polish the translation. There are many more emulators for ZX Spectrum than for ZX81 for e.g. phones.