See all articles from SyncWare News v1
Here is a short listing you might find useful. I developed it after trying to find the mistakes, and there were several, in a 12K long program that I hand-loaded from a magazine listing. My eyes could not take the strain of staring at the TV and then the listing, back and forth over and over. Ergo, this routine, which can be placed anywhere in a listing. It uses about 200 bytes, and works great in FAST mode. I don’t suggest using VAL within the loop because of its effect on program speed.
10 LET D=VAL "16509"
15 CLS
20 LET G=PEEK D*256+PEEK (D+SGN PI)
25 LET D=D+VAL "4"
30 PRINT AT PI,4-LEN STR$ G;G;
35 IF PEEK D=126 THEN LET D=D+6
40 IF PEEK D=118 THEN LET G=NOT G
45 IF G THEN PRINT CHR$ PEEK D
50 LET D=D+SGN PI
55 IF G THEN GOTO 35
60 IF PEEK D=118 THEN STOP
65 PAUSE D
70 GOTO VAL "15"