10  COM B$[15],L$[72],M$[72],N$[72]
11  COM I,E,L[108],F[200],E[100],I[200,2]
12  COM L,X,Y,Z
13  COM A$[72]
14  DIM C$[5]
15  C$=" *#-+"
20  REM MACHINE LANGUAGE PROGRAMMING
22  IF A$[1,2]="NO" THEN 30
23  PRINT "START EDITING.  000 ADDRESS  STILL LAST STATEMENT."
24  GOTO 50
30  MAT F=ZER
40  MAT I=ZER
50  INPUT A$
60  IF A$[1,3] <> "000" THEN 320
70  Y=10
80  Z=8
90  GOSUB 150
100  I=N
110  PRINT "BEGINNING EXECUTION"
111  PRINT '10'10'10
120  CHAIN "STPAL2"
130  STOP 
140  REM GOSUB SUBROUTINE TO FIND THE VALUE OF N FROM STRING
150  C=F=N=0
160  FOR J=Y TO Z STEP -1
170  X=0
180  FOR G=1 TO 10
190  IF A$[J,J]=" " THEN 260
200  IF A$[J,J]=B$[G,G] THEN 270
210  X=X+1
220  NEXT G
230  PRINT "ILLEGAL ITEM COLUMN",J-1,"RE-ENTER LINE"
240  F=1
250  GOTO 300
260  X=0
270  N=N+X*10^C
280  C=C+1
290  NEXT J
300  RETURN 
310  REM CHECK FOR COMMENT
320  IF A$[1,1]="*" THEN 50
330  Y=3
340  Z=1
350  GOSUB 150
360  I=N
370  REM ASSIGN FLAG BIT
380  FOR J=1 TO 5
390  IF A$[5,5]=C$[J,J] THEN 410
400  NEXT J
410  F[I]=J
420  Y=7
430  Z=6
440  GOSUB 150
450  I[I,1]=N
460  Y=10
470  Z=8
480  GOSUB 150
490  I[I,2]=N
500  GOTO 50
510  END 
