/PAGE 0 SUBROUTINES/

BSW=7002
*0020
TYPCLA, 0
  TSF
  JMP .-1
  TLS
  CLA
  JMP I TYPCLA
TYPE, 0
  TSF
  JMP .-1
  TLS
  JMP I TYPE
CRLF, 0
  TAD CR
  JMS TYPCLA
  TAD LF
  JMS TYPCLA
  JMP I CRLF
CR, 215; LF, 212
LISN, 0
  KSF
  JMP .-1
  KRB
  JMP I LISN
MESS, 0
  DCA INDEXA
  TAD (-2)
  DCA INDEXB
  TAD I INDEXA
  DCA TEMP
  TAD TEMP
  BSW
  AND (0077)
  SNA
  JMP I MESS
  TAD (-40)
  SPA
  TAD (100)
  TAD (240)
  JMS TYPCLA
  ISZ INDEXB
  JMP .+3
  ISZ INDEXA
  JMP MESS+2
  TAD TEMP
  JMP .-15
SCOPE, 0
  CIA
  DCA INDEXS
  TAD (1600)
  6150
  TAD (0012)
  6151
  6156
  JMP .-1
  ISZ INDEXS
  JMP .-3
  6152
  JMP I SCOPE
  NOP
  NOP
TEMP, 0
INDEXA, 0
INDEXB, 0
INDEXS, 0
$