* EDITOR ver.1.0 * * * PRINT MACRO TADR LDX #0 LDA TADR,X BEQ @PC+12+2 ;@B STX POX JSR PUT LDX POX INX BNE @PC-17+2 ;@A OUT MEND MAXDL EQU 30720 ORG $1B00 START PRINT THEAD JSR INPNAM CPX #2 BCC START LDX #16 LDA #12 STA 834,X JSR CIO LDA #3 STA 834,X LDA #INBUF&255 STA 836,X LDA #INBUF/256 STA 837,X LDA #4 STA 842,X LDA #0 STA 843,X JSR CIO BPL OOK LDA #0 STA DL STA DL+1 JMP READOO OOK LDA #7 STA 834,X LDA #TEXT&255 STA 836,X LDA #TEXT/256 STA 837,X LDA #MAXDL&255 STA 840,X LDA #MAXDL/256 STA 841,X JSR CIO BMI READOE PRINT TOUT JMP READOK READOE CPY #136 BEQ READOK PRINT TERR READOK LDX #16 LDA 840,X STA DL LDA 841,X STA DL+1 READOO LDA #12 STA 834,X JSR CIO LDX #10 PAU2 LDY #0 PAU1 DEY BNE PAU1 DEX BNE PAU2 JMP EDITOR SAVE PRINT TSAVE JSR INPNAM CPX #2 BCC SAVE LDX #16 LDA #12 STA 834,X JSR CIO LDA #3 STA 834,X LDA #INBUF&255 STA 836,X LDA #INBUF/256 STA 837,X LDA #8 STA 842,X LDA #0 STA 843,X JSR CIO BMI SERR LDA #11 STA 834,X LDA #TEXT&255 STA 836,X LDA #TEXT/256 STA 837,X LDA DL STA 840,X LDA DL+1 STA 841,X JSR CIO BMI SERR CONT LDX #16 LDA #12 STA 834,X JSR CIO RTS SERR PRINT TSERR JMP CONT QUIT PRINT TQUIT JSR GET CMP #'Y' BNE EDITOR JMP (10) LOAD PRINT TLOAD JSR GET CMP #'Y' BNE EDITOR JMP START EDITOR LDA #0 STA MOD EDITO LDA #0 STA ZO STA ZO+1 STA PK STA PK+1 STA PL STA PL+1 STA ESC STA FINDED EDITS LDA #0 STA ESC JSR SCREEN EDIT JSR GET CMP #27 BNE EDIT1 LDX #0 STX FINDED LDX ESC BNE EDITVV INC ESC JMP EDIT EDIT1 CMP #32 BCS EDIT2 LDX ESC EDITVV BNE EDITV JMP EDITF EDIT2 CMP #126 BNE EDIT3 LDX ESC BNE EDITV LDA #0 STA FINDED LDA PK ORA PK+1 BEQ EDIT LDA KX ORA KY BEQ EDIT JSR EPSET JSR DELETE LDA POX CMP #155 BNE EDIT22 LDA PK BNE EDIT23 DEC PK+1 EDIT23 DEC PK JSR EPL5 JSR SCREEN INC PK BNE EDIT22 INC PK+1 INC KY ;??? EDIT22 JSR EPSET JSR EPL JMP EDITS EDIT3 CMP #254 BNE EDITV LDX ESC BNE EDITV LDA #0 STA FINDED LDA PK+1 CMP DL+1 BCC EDIT31 LDA PK CMP DL BCC EDIT31 JMP EDIT EDIT31 JSR EPSET JSR DELE JMP EDITS EDITV STA POX LDX #0 STX FINDED JSR INSERT LDA POX STA (PO),Y JSR EPR JMP EDITS EDITSN LDA #0 STA FINDED JMP EDITS EDITF CMP #31 BNE EDITF1 JSR EPSET JSR EPR JMP EDITSN EDITF1 CMP #30 BNE EDITF2 JSR EPSET JSR EPL JMP EDITSN EDITF2 CMP #29 BNE EDITF3 JSR EPSET JSR EPD JMP EDITSN EDITF3 CMP #28 BNE EDITF4 JSR EPSET JSR EPU LDA KY CMP #3 BCS EDIF33 LDA #3 STA KY JSR ENO EDIF33 JMP EDITSN EDITF4 CMP #1 ;CTRL-A HOME BNE EDITF5 JMP EDITO EDITF5 CMP #19 ;CTRL-S SAVE BNE EDITF6 JSR SAVE JMP EDITO EDITF6 CMP #17 ;CTRL-Q QUIT BNE EDITF7 JMP QUIT EDITF7 CMP #20 ;CTRL-T MOD BNE EDITF8 LDA MOD EOR #$80 STA MOD JMP EDITS EDITF8 CMP #26 ;CTRL-Z DOWN BNE EDITF9 LDA DL STA PK LDA DL+1 STA PK+1 LDA #20 STA KY JSR ENO JMP EDITSN EDITF9 CMP #12 ;CTRL-L LOAD BNE EDITF10 JMP LOAD EDITF10 CMP #5 ;CTRL-E UP 20 BNE EDITF11 JMP PGUP EDITF11 CMP #4 ;CTRL-D DOWN 20 BNE EDITF12 JMP PGDN EDITF12 CMP #23 ;CTRL-W ODUP BNE EDITF13 JMP ODUP EDITF13 CMP #3 ;CTRL-C ODDN BNE EDITF14 JMP ODDN EDITF14 CMP #6 ;CTRL-F FIND BNE EDITF15 JSR FIND LDA #10 STA KY JSR ENO JMP EDITS EDITF15 CMP #14 ;CTRL-N NEXT BNE EDITF16 JSR FINDNXT LDA #10 STA KY JSR ENO JMP EDITS EDITF16 CMP #2 ;CTRL-B SET CHNG BNE EDITF17 JMP CHSET EDITF17 CMP #22 ;CTRL-V CHANGE BNE EDITF18 JMP CHANG EDITF18 CMP #24 ;CTRL-X DEL LINE BNE EDITF19 JMP DELIN EDITF19 JMP EDIT ENO JSR EPSET LDA PK STA Z LDA PK+1 STA Z+1 LDA #0 STA POM STA POM+1 STA POX LDA #255 STA PL STA PL+1 ENO1 LDA Z ORA Z+1 BEQ ENOZ LDA PO BNE ENO2 DEC PO+1 ENO2 DEC PO LDA Z BNE ENO3 DEC Z+1 ENO3 DEC Z INC POM BNE ENO33 INC POM+1 ENO33 LDA (PO),Y CMP #155 BNE ENO1 LDA POX BNE ENO5 LDA POM+1 BNE ENO4 LDA POM CMP #37 BCS ENO4 LDA #0 STA PL STA PL+1 JMP ENO5 ENO4 LDA POM SEC SBC #37 STA PL LDA POM+1 SBC #0 STA PL+1 ENO5 INC POX LDA POX CMP KY BCC ENO1 BEQ ENO1 LDA Z CLC ADC #1 STA ZO LDA Z+1 ADC #0 STA ZO+1 JMP ENOE ENOZ LDA #0 STA ZO STA ZO+1 ENOE LDA PL+1 CMP #255 BEQ ENON RTS ENON LDA POM+1 BNE ENON1 LDA POM CMP #37 BCS ENON1 LDA #0 STA PL STA PL+1 JMP ENON2 ENON1 LDA POM SEC SBC #37 STA PL LDA POM+1 SBC #0 STA PL+1 ENON2 JMP ENOE EPU LDA #0 STA POM LDA #2 STA POM+1 LDA (PO),Y CMP #155 BNE EPU1 INC POM+1 EPU1 LDA PO+1 CMP #TEXT/256 BCC EPU8 BNE EPU2 LDA PO CMP #TEXT&255 BCC EPU8 BEQ EPU8 EPU2 LDA (PO),Y CMP #155 BNE EPU3 INC POM LDA POM CMP POM+1 BCS EPU6 EPU3 LDA PO BNE EPU4 DEC PO+1 EPU4 DEC PO LDA PK BNE EPU5 DEC PK+1 EPU5 DEC PK JMP EPU1 EPU6 INC PO BNE EPU7 INC PO+1 EPU7 INC PK BNE EPU8 INC PL+1 EPU8 LDA #0 STA KX STA PL STA PL+1 LDA KY BEQ EPU9 DEC KY RTS EPU9 LDA PK STA ZO LDA PK+1 STA ZO+1 RTS EPD LDA (PO),Y CMP #155 BEQ EPD2 JSR EPR BCS EPD1 JSR EPSET JMP EPD EPD2 JSR EPR EPD1 RTS EPL LDA PK ORA PK+1 BNE EPL1 RTS EPL1 LDA PK BNE EPL2 DEC PK+1 EPL2 DEC PK JSR EPSET LDA (PO),Y CMP #155 BEQ EPL5 LDA KX CMP #3 BCS EPL4 LDA PL ORA PL+1 BEQ EPL4 LDA PL BNE EPL3 DEC PL+1 EPL3 DEC PL RTS EPL4 DEC KX RTS EPL5 LDA KY CMP #4 ;3+1 BCS EPL6 LDA #4 STA KY EPL6 DEC KY JSR ENO RTS *EPL5 LDA #0 * STA POM * STA POM+1 * LDY #0 *EPL6 LDA PO * BNE EPL7 * DEC PO+1 *EPL7 DEC PO * INC POM * BNE EPL8 * INC POM+1 *EPL8 LDA PO+1 * CMP #TEXT/256 * BCC EPL10 * BNE EPL9 * LDA PO * CMP #TEXT&255 * BCC EPL10 *EPL9 LDA (PO),Y * CMP #155 * BNE EPL6 *EPL10 LDA POM+1 * BNE EPL13 * LDA POM * CMP #37 * BCS EPL13 * LDA #0 * STA PL * STA PL+1 *EPL12 LDA KY * BNE EPL14 * LDA ZO * SEC * SBC POM * STA ZO * LDA ZO+1 * SBC POM+1 * STA ZO+1 *EPL14 RTS *EPL13 LDA POM * SEC * SBC #37 * STA PL * LDA POM+1 * SBC #0 * STA PL+1 * JMP EPL12 EPR LDA PK+1 CMP DL+1 BCC EPR2 BNE EPR1 LDA PK CMP DL BCC EPR2 EPR1 RTS EPR2 INC PK BNE EPR3 INC PK+1 EPR3 LDA (PO),Y CMP #155 BEQ EPR5 INC KX LDA KX CMP #37 BCC EPR4 INC PL BNE EPR4 INC PL+1 EPR4 CLC RTS EPR5 LDA #0 STA PL STA PL+1 STA KX INC KY LDA KY CMP #22 BCC EPR4 LDA ZO CLC ADC #TEXT&255 STA PT LDA ZO+1 ADC #TEXT/256 STA PT+1 LDY #0 EPR6 LDA (PT),Y INC PT BNE EPR7 INC PT+1 EPR7 INC ZO BNE EPR8 INC ZO+1 EPR8 CMP #155 BEQ EPR4 JMP EPR6 EPSET LDA PK STA POM CLC ADC #TEXT&255 STA PO LDA PK+1 STA POM+1 ADC #TEXT/256 STA PO+1 LDY #0 RTS DELE LDA PK STA POM CLC ADC #TEXT&255 STA PO LDA PK+1 STA POM+1 ADC #TEXT/256 STA PO+1 LDY #0 LDA (PO),Y STA POX JMP DEL3 DELETE LDA PK STA POM CLC ADC #TEXT&255 STA PO LDA PK+1 STA POM+1 ADC #TEXT/256 STA PO+1 LDA PO BNE DEL1 DEC PO+1 DEL1 DEC PO LDY #0 LDA (PO),Y STA POX LDA POM BNE DEL2 DEC POM+1 DEL2 DEC POM DEL3 LDY #1 LDA (PO),Y DEY STA (PO),Y INC PO BNE DEL4 INC PO+1 DEL4 INC POM BNE DEL5 INC POM+1 DEL5 LDA POM+1 CMP DL+1 BCC DEL3 BNE DEL6 LDA POM CMP DL BCC DEL3 DEL6 LDA DL BNE DEL7 DEC DL+1 DEL7 DEC DL RTS DELDL OUT DELDL0 LDY POX LDA (PO),Y LDY #0 STA (PO),Y INC PO BNE DELDL1 INC PO+1 DELDL1 INC POM BNE DELDL2 INC POM+1 DELDL2 LDA POM+1 CMP DL+1 BCC DELDL0 BNE DELDL3 LDA POM CMP DL BCC DELDL0 DELDL3 LDA DL SEC SBC POX STA DL LDA DL+1 SBC #0 STA DL+1 RTS INSERT LDA DL+1 CMP #MAXDL/256 BCC INS1 BNE INS2 LDA DL CMP #MAXDL&255 BCC INS1 INS2 JSR EPSET RTS INS1 LDA DL STA POM CLC ADC #TEXT&255 STA PO LDA DL+1 STA POM+1 ADC #TEXT/256 STA PO+1 INSER1 LDY #0 LDA (PO),Y INY STA (PO),Y LDA POM+1 CMP PK+1 BNE INSER3 LDA POM CMP PK BEQ INSER4 INSER3 LDA PO BNE INSER2 DEC PO+1 INSER2 DEC PO LDA POM BNE INSER5 DEC POM+1 INSER5 DEC POM JMP INSER1 INSER4 INC DL BNE INSER6 INC DL+1 INSER6 LDY #0 LDA #32 STA (PO),Y RTS INSDL LDA DL CLC ADC POX STA POM LDA DL+1 ADC #0 CMP #MAXDL/256 BCC INSD1 BNE INSD2 LDA POM CMP #MAXDL&255 BCC INSD1 INSD2 JSR EPSET LDY #128 ;ERROR RTS INSD1 LDA DL STA POM CLC ADC #TEXT&255 STA PO LDA DL+1 STA POM+1 ADC #TEXT/256 STA PO+1 INSDL1 LDY #0 LDA (PO),Y LDY POX STA (PO),Y LDA POM+1 CMP PK+1 BNE INSDL3 LDA POM CMP PK BEQ INSDL4 INSDL3 LDA PO BNE INSDL2 DEC PO+1 INSDL2 DEC PO LDA POM BNE INSDL5 DEC POM+1 INSDL5 DEC POM JMP INSDL1 INSDL4 LDA DL CLC ADC POX STA DL LDA DL+1 ADC #0 STA DL+1 LDY #0 RTS SCREEND RTS SCREEN LDA #0 STA SX STA SY LDA ZO STA Z LDA ZO+1 STA Z+1 LDA ZO CLC ADC #TEXT&255 STA PT LDA ZO+1 ADC #TEXT/256 STA PT+1 LDA 88 STA PO LDA 89 STA PO+1 SCRE0 JMP SCOLE SCRE1 LDA #0 STA EOL LDA Z+1 CMP DL+1 BCC SCRE2 JMP SCREE1 SCRE2 LDA SY CMP #24 BCS SCREEND LDA Z+1 CMP PK+1 BNE SCRE22 LDA Z CMP PK BNE SCRE22 LDA SX STA KX LDA SY STA KY LDY #0 LDA (PT),Y CMP #155 BNE SCRE21 STA EOL SCRE21 EOR #$80 JMP SCRE23 SCRE22 LDY #0 LDA (PT),Y CMP #155 BNE SCRE23 STA EOL SCRE23 STA POM AND #$7F CMP #96 BCS SCRE3 CMP #32 BCS SCRE4 CLC ADC #64 JMP SCRE3 SCRE4 SEC SBC #32 SCRE3 BIT POM BPL SCRE5 ORA #$80 SCRE5 LDX EOL BEQ SCRE6 BIT MOD BMI SCRE52 LDA #0 SCRE52 BIT POM BMI SCRE51 LDA #128 SCRE51 STA (PO),Y LDA #219 JMP SCRE7 SCRE6 STA (PO),Y SCRE7 INC PT BNE SCRE8 INC PT+1 SCRE8 INC Z BNE SCRE9 INC Z+1 SCRE9 INC PO BNE SCRE10 INC PO+1 SCRE10 INC SX LDX EOL BNE SCREOL LDA SX CMP #40 BCS SCRE14 JMP SCRE1 SCRE14 LDA Z+1 CMP DL+1 BCC SCRE17 LDA Z CMP DL BCS SCRE16 SCRE17 LDA (PT),Y CMP #155 ;EOL BEQ SCRE11 INC PT BNE SCRE12 INC PT+1 SCRE12 INC Z BNE SCRE13 INC Z+1 SCRE13 JMP SCRE14 SCRE11 INC PT BNE SCRE15 INC PT+1 SCRE15 INC Z BNE SCRE16 INC Z+1 SCRE16 LDA #0 STA SX INC SY JMP SCRE0 SCREOL LDY #0 SCEOL0 LDA SX CMP #40 BCS SCEOLE LDA #0 STA (PO),Y INC PO BNE SCEOL1 INC PO+1 SCEOL1 INC SX JMP SCEOL0 SCEOLE LDA #0 STA SX INC SY SCOLE LDA PL ORA PL+1 BNE SCOLE1 JMP SCRE1 SCOLE1 LDA PL STA POM LDA PL+1 STA POM+1 SCOLE2 LDA (PT),Y INC PT BNE SCOLE3 INC PT+1 SCOLE3 INC Z BNE SCOLE4 INC Z+1 SCOLE4 CMP #155 ;EOL BEQ SCOLE6 LDA POM BNE SCOLE5 DEC POM+1 SCOLE5 DEC POM LDA POM ORA POM+1 BNE SCOLE2 JMP SCRE1 SCOLE6 LDA #0 STA SX JMP SCREOL SCREE1 BNE SCREE2 LDA Z CMP DL BCS SCREE2 JMP SCRE2 SCREE2 LDA Z+1 CMP PK+1 BNE SCREE5 LDA Z CMP PK BNE SCREE5 LDA SX STA KX LDA SY STA KY LDY #0 LDA #128 JMP SCREE6 SCREE5 LDY #0 SCREE3 LDA #0 SCREE6 STA (PO),Y INC PO BNE SCREE4 INC PO+1 SCREE4 INC SX LDA SX CMP #40 BCC SCREE3 LDA #0 STA SX INC SY LDA SY CMP #24 BCC SCREE3 JMP SCREEND INPNAM LDY #0 STY POX INPNA1 JSR GET CMP #126 BEQ INPNAD CMP #155 BEQ INPNAE CMP #32 ;42 BCC INPNA1 CMP #123 ;96 BCS INPNA1 LDY POX STA INBUF,Y JSR PUT INC POX LDA POX CMP #40 BCC INPNA1 INPNAE LDA #155 JSR PUT LDA #155 LDX POX STA INBUF,X RTS INPNAD LDA POX BEQ INPNA1 LDA #126 JSR PUT DEC POX JMP INPNA1 PGUP JSR EPSET LDA #21 ;20+1 STA POX PGUP1 LDA PK ORA PK+1 BEQ PGUPZ LDA PO BNE PGUP2 DEC PO+1 PGUP2 DEC PO LDA PK BNE PGUP3 DEC PK+1 PGUP3 DEC PK LDA (PO),Y CMP #155 BNE PGUP1 DEC POX BNE PGUP1 INC PK BNE PGUPZ INC PK+1 PGUPZ LDA #3 STA KY JSR ENO JMP EDITSN PGDN JSR EPSET LDA #20 STA POX PGDN1 LDA PK+1 CMP DL+1 BCC PGDN11 BNE PGDNZ LDA PK CMP DL BCS PGDNZ PGDN11 INC PO BNE PGDN2 INC PO+1 PGDN2 INC PK BNE PGDN3 INC PK+1 PGDN3 LDA (PO),Y CMP #155 BNE PGDN1 DEC POX BNE PGDN1 INC PK BNE PGDNZ INC PK+1 PGDNZ LDA #20 STA KY JSR ENO JMP EDITSN ODUP JSR EPSET LDA PK+1 BNE ODUP0 LDA PK CMP #2 BCC ODUPE ODUP0 LDA PK SEC SBC #2 STA PK LDA PK+1 SBC #0 STA PK+1 JSR EPSET ODUP1 LDA PK ORA PK+1 BEQ ODUPZ LDA PO BNE ODUP2 DEC PO+1 ODUP2 DEC PO LDA PK BNE ODUP3 DEC PK+1 ODUP3 DEC PK LDA (PO),Y CMP #155 BNE ODUP1 INY LDA (PO),Y DEY CMP #155 BNE ODUP1 LDA PK CLC ADC #2 STA PK LDA PK+1 ADC #0 STA PK+1 ODUPZ LDA #8 STA KY JSR ENO ODUPE JMP EDITSN ODDN JSR EPSET ODDN1 LDA PK+1 CMP DL+1 BCC ODDN11 BNE ODDNZ LDA PK CMP DL BCS ODDNZ ODDN11 INC PO BNE ODDN2 INC PO+1 ODDN2 INC PK BNE ODDN3 INC PK+1 ODDN3 LDA (PO),Y CMP #155 BNE ODDN1 INY LDA (PO),Y DEY CMP #155 BNE ODDN1 LDA PK CLC ADC #2 STA PK LDA PK+1 ADC #0 STA PK+1 CMP DL+1 BCC ODDNZ BNE ODDN34 LDA PK CMP DL BCS ODDN34 ODDNZ LDA #20 STA KY JSR ENO JMP EDITSN ODDN34 LDA DL STA PK LDA DL+1 STA PK+1 JMP ODDNZ CHSET PRINT TCHAN JSR INPNAM CPX #1 BCC CHSET CPX #20 BCC CHSET1 LDX #20 CHSET1 STX CHNGDL CHSET2 LDA INBUF,X STA CHNGBUF,X DEX BPL CHSET2 JMP EDITS CHANG LDA FINDED BNE CHANG1 JMP EDITS CHANG1 JSR EPSET LDA PK STA POM LDA PK+1 STA POM+1 LDA FINDED STA POX JSR DELDL LDA CHNGDL STA FINDED STA POX JSR INSDL CPY #0 BNE CHANG3 CHANG2 LDA CHNGBUF,Y STA (PO),Y INY CPY POX BCC CHANG2 JSR ENO CHANG3 JMP EDITSN FIND PRINT TFIND JSR INPNAM CPX #1 BCC FIND CPX #20 BCC FIND1 LDX #20 FIND1 STX FINDL FIND2 LDA INBUF,X STA FINDBUF,X DEX BPL FIND2 LDA #0 STA FINDED FINDNXT JSR EPSET LDA FINDED BNE FIND4 FIND3 LDA (PO),Y CMP FINDBUF,Y BNE FIND4 INY CPY FINDL BCC FIND3 STY FINDED RTS FIND4 LDA PK+1 CMP DL+1 BCC FIND6 BNE FIND5 LDA PK CMP DL BCC FIND6 FIND5 LDY #0 ;NEBOLO NAJDENE STY FINDED RTS FIND6 INC PK BNE FIND7 INC PK+1 FIND7 INC PO BNE FIND8 INC PO+1 FIND8 LDY #0 JMP FIND3 FB155 LDA #0 STA POM STA POM+1 TAY FB1551 INC POM BNE FB1552 INC POM+1 FB1552 LDA PO BNE FB1553 DEC PO+1 FB1553 DEC PO LDA (PO),Y CMP #155 BEQ FB155N LDA PO+1 CMP #TEXT/256 BCC FB1551 LDA PO CMP #TEXT&255 BCC FB1551 LDA #0 STA POM STA POM+1 FB155N RTS DELIN LDA PK CLC ADC #TEXT&255 STA PO LDA PK+1 ADC #TEXT/256 STA PO+1 JSR FB155 JSR FB155 LDA POM ORA POM+1 BEQ DELINK LDA PO SEC SBC #TEXT&255 STA PK LDA PO+1 SBC #TEXT/256 STA PK+1 INC PK BNE DELIN0 INC PK+1 DELIN0 LDA POM+1 STA KX ;POMOCNE LDA POM STA POX JSR DELDL DELIN1 LDA KX BEQ DELINK LDA #255 STA POX LDA PK CLC ADC #TEXT&255 STA PO LDA PK+1 ADC #TEXT/256 STA PO+1 JSR DELDL DEC KX JMP DELIN1 DELINK JSR EPSET JSR ENO JMP EDITSN PUT EQU $F2B0 GET EQU $F2F8 CIO EQU $E456 DL DFW 0 ZO DFW 0 PK DFW 0 KX DFB 0 KY DFB 0 MOD DFB 0 SX DFB 0 SY DFB 0 Z DFW 0 PT EPZ 203 ;4 PO EPZ 205 ;6 PL DFW 0 ESC DFB 0 POX DFB 0 *POA DFB 0 POM DFW 0 EOL DFB 0 FINDL DFB 0 CHNGDL DFB 0 FINDED DFB 0 INBUF DFW 0,0,0,0,0,0,0,0,0,0 DFW 0,0,0,0,0,0,0,0,0,0 FINDBUF DFW 0,0,0,0,0,0,0,0,0,0 CHNGBUF DFW 0,0,0,0,0,0,0,0,0,0 THEAD DFB 125,155 ASC ' TEXT EDITOR ver.1.0 3.8.1993' DFB 155 ASC ' Copyright (c)Tomi by Marek Zelem' DFB 155,155 ASC 'FILENAME:' DFB 0 TOUT ASC 'OUT OF MEMORY!' DFB 155,0 TERR ASC 'ERROR' DFB 155,0 TSAVE DFB 125,155,155 ASC 'SAVE TEXT' DFB 155 ASC 'FILENAME:' DFB 0 TFIND DFB 125,155,155 ASC 'FIND STRING:' DFB 0 TCHAN DFB 125,155,155 ASC 'SECOND STRING:' DFB 0 TSERR DFB 155,253 ASC 'SAVE ERROR!' DFB 253,155,0 TLOAD DFB 125,155,155 ASC 'LOAD (Y/N)' DFB 0 TQUIT DFB 125,155,155 ASC 'QUIT (Y/N)' DFB 0 TEXT DFB 0