10 REM Tue,14 Apr 1992.19:01:41
   20 DEFFNS:$(PAGE+6)=TIME$:="BLDROM"
   30 MODE7:t%=&880:FOR L%=4TO6 STEP 2:P%=&8000:O%=&3000
   40 [OPT L%:EQUB 0:EQUW 0:JMP se:EQUB &82:EQUB nm:EQUB 1
   50 .tit EQUS "Tailorom ":EQUB 0
   60 .nm EQUB0:EQUS "(C) C.J.Richardson":EQUB13
   70 EQUS"  Test Rom Builder":EQUB13:EQUS CHR$255
   80 .se STA &9A:TXA:PHA:TYA:PHA:LDA &9A:CMP#4:BEQ comm:CMP#9:BNEoutno:LDA(&F2),Y:CLC:ADC#&D0:BCSoutno
   90 .help JSR &FFE7:LDX #0:.loop:LDA tit,X:CMP#&FF:BEQ exhl:JSR &FFE3:INX:JMP loop
  100 .exhl LDA(&F2),Y:CMP #ASC".":BNEoutno:LDX #0:.lp:LDA words+1,X:BEQoutno:JSR &FFE3:INX:JMP lp
  110 .outyes LDA#0:STA&9A:.outno PLA:TAY:PLA:TAX:LDA &9A:RTS
  120 .comm
  130 .ch DEY:STYt%+2:LDX #0:STXt%+1:DEX
  140 .ch1 LDY t%+2
  150 .ch2 INX:LDA words+3,X:CMP #&D:BEQ find
  160 .ch3 LDA words+3,X:AND #&DF:STA t%+3:INY:LDA(&F2),Y:CMP #ASC" ":BEQ ch3:CMP #ASC".":BEQ find
  170 AND #&DF:CMPt%+3:BNE ch4:CMP #&D:BNE ch2:BEQ find
  180 .ch4 CMP #&D:BEQ ch6:INX:LDA words+3,X:BNE ch4
  190 .ch5 JMP outno
  200 .ch6 INCt%+1:INX:INX:BNE ch1
  210 .find LDXt%+1:TXA:ASL A:TAX
  220 LDA Jumpto,X:STA t%+1:LDA Jumpto+1,X:STA t%+2:JMP (t%+1)
  230 .words EQUB13:EQUS"  Beep":EQUB13:EQUS"  Mode"
  240 EQUW &D
  250 .Jumpto EQUW Bp:EQUW moch
  260 .Bp LDA#7:JSR&FFEE:JMPoutyes
  270 .moch LDA#22:JSR&FFEE:LDA#7:JSR&FFEE:JMPoutyes
  280 ]:NEXT
  290 INPUT"FILENAME? "f$
  300 OSCLI"SAVE "+f$+" 3000 "+STR$~(O%+1)+" 8000 8000"
  310 OSCLI"SRLOAD "+f$+" 8000 4"