1000  COM Q[100,3],I$[72],S$[37],Q,T,F,F1
1001  REM  ****  hp basic program library  ********************************
1002  REM
1003  REM        turing:  turing machine simulator (tm*new, part 2 of 5)
1004  REM
1005  REM        36743  rev a -- 10/73
1006  REM
1007  REM  ****  contributed program  ************************************
1010  FILES TQUIN,TTAPE
1020  IF F1#0 THEN 3100
1030  F1=1
1040  GOTO F OF 2000,3000
2000  REM.....
2010  REM.....TURING MACHINE
2020  REM.....
2030  REM.....ERASE QUINTUPLES
2040  REM.....
2050  FOR I=1 TO Q
2060  Q[I,3]=-1
2070  NEXT I
2080  PRINT "QUINTUPLES ERASED"
2090  READ #1,1
2100  MAT  PRINT #1;Q
2110  GOTO 3100
3000  REM.....
3010  REM.....TURING MACHINE
3020  REM.....
3030  REM.....ERASE THE TAPE
3040  REM.....
3050  READ #2,1
3060  FOR I=0 TO T+1
3070  PRINT #2;"."
3080  NEXT I
3090  PRINT "TAPE ERASED"
3100  READ #1,1
3110  READ #2,1
3120  CHAIN "TM"
3130  END 
