Improved Machine Code Error Checking Routine for WORM

NOTE: In reference to the “WORM” series, Warren Tucker of Vallejo, California sent this submission. It is an improved M.C. error checking routing.

6080 REM ROUTINE GIVES (CODE)
         LINE NUMBER, ADDRESS
         AND CODE
6081 REM ENTER FROM PROGRAM
         LINE NUMBER 8059
6090 LET S=0
6094 LET B$="--"
6095 LET Q=S+3
6097 LET K=X-6
6098 LET A$=STR$ K
6099 LET A$=A$+B$
7000 FOR D=N-36 TO N+5 STEP 2
7020 SCROLL
7050 PRINT TAB 0;A$;TAB 5;D;"  ";PEEK D;TAB 19;(D+1);"  ";PEEK (D+1)
7051 LET S=S+1
7052 IF NOT S=Q THEN LET A$="-----"
7054 IF S=Q THEN LET K=K+1
7055 IF S=Q THEN LET A$=STR$ K+B$
7056 IF S=Q THEN LET Q=Q+3
7060 NEXT D
7062 PAUSE 4E4
7063 SCROLL
7064 SCROLL
7065 SCROLL
7066 SCROLL
7067 GOTO 8062
8029 REM
8030 REM [illegible] CODE ENTERED IN
         "LINE 1 REM CODES"
         BY LINE NUMBER.
8031 REM
8040 PRINT AT 16,0;"TYPE STARTING ADDRESS";AT 18,1;"MUST BE [illegible] NUMBER"
8042 INPUT B
8043 CLS
8045 LET X=((B-INT 16514)/6)+1
8047 LET G=X+6
8050 FOR N=B TO 17154 STEP 6
8051 FAST
8052 PRINT AT 19,0;"LINE ";X
8053 SCROLL
8055 PRINT AT 19,0;PEEK N;TAB 5;PEEK (N+1);TAB 10;PEEK (N+2);TAB 15;PEEK (N+3);TAB 20;PEEK (N+4);TAB 25;PEEK (N+5)
8057 IF X=G THEN PAUSE 4E4
8058 REM GOTO TO ROUTINE TO FIND LINE NUMBER, ADDRESS AND CODE 7 LINES AT A TIME.
8059 IF INKEY$="A" THEN GOTO 6090
8060 SCROLL
8061 SCROLL
8062 IF X=G THEN LET G=G+7
8063 LET X=X+1
8065 NEXT N
9065 REM ***BASIC ASSEMBLER***
9066 REM TO [illegible] GOTO 8040
9067 REM
9070 PRINT AT 21,0;"TYPE STARTING ADDRESS AND [illegible]"
9071 PRINT AT 19,8;"TO INPUT CODES"
9072 INPUT B
9074 CLS
9977 LET N=B
9978 LET M=0
9979 INPUT A
9980 IF A>300 THEN GOTO 9989
9981 POKE N,A
9982 PRINT AT 20,M;A
9983 LET N=N+1
9984 LET M=M+5
9985 IF M<26 THEN GOTO 9979
9986 LET M=0
9987 SCROLL
9988 GOTO 9979
9989 IF A>555 THEN GOTO 9999
9990 IF A=555 THEN GOTO 9997
9991 LET N=N-1
9992 IF M=0 THEN LET M=30
9993 IF M<26 THEN LET M=M-5
9994 IF M=-5 THEN LET M=0
9995 PRINT AT 20,M;"     "
9996 GOTO 9979
9997 SAVE "WOR[illegible]"
9998 GOTO 9970
9999 STOP