10REM Tue,14 Apr 1992.19:01:41 20DEFFNS:$(PAGE+6)=TIME$:="BLDROM" 30MODE7: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 70EQUS" Test Rom Builder":EQUB13:EQU S 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 ti t,X:CMP#&FF:BEQ exhl:JSR &FFE3:INX:JMP l oop 100.exhl LDA(&F2),Y:CMP #ASC".":BNEout no: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 170AND #&DF:CMPt%+3:BNE ch4:CMP #&D:BN E 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 220LDA Jumpto,X:STA t%+1:LDA Jumpto+1, X:STA t%+2:JMP (t%+1) 230.words EQUB13:EQUS" Beep":EQUB13:E QUS" Mode" 240EQUW &D 250.Jumpto EQUW Bp:EQUW moch 260.Bp LDA#7:JSR&FFEE:JMPoutyes 270.moch LDA#22:JSR&FFEE:LDA#7:JSR&FFE E:JMPoutyes 280]:NEXT 290INPUT"FILENAME? "f$ 300OSCLI"SAVE "+f$+" 3000 "+STR$÷(O%+1 )+" 8000 8000" 310OSCLI"SRLOAD "+f$+" 8000 4"