3132 F706 4C AF E7 JMP KEP
3133 F709 A0 00 UPNO LDY #0
3134 F70B 20 E9 F8 JSR ATBOT
3135 F70E 90 03 BCC UP1
3136 F710 4C 5C FA JMP ENDERR
3137 F713 B1 DF UP1 LDA (NOWLN),Y
3138 F715 F0 09 BEQ UP4
3139 F717 C8 INY
3140 F718 C9 0D CMP #CR
3141 F71A D0 F7 BNE UP1
3142 F71C 98 TYA
3143 F71D 20 2A F9 JSR ADDA ;ADD LENGTH TO CURRENT LINE
3144 F720 60 UP4 RTS
3145 F721
3146 F721 ;***** B COMMAND-GO TO BOTTOM *****
3147 F721 20 C5 F8 BT JSR SETBOT
3148 F724 ;START U-COMMAND HERE
3149 F724 20 D8 F6 DOWN JSR DNNO ;U COMMAND
3150 F727
3151 F727 ;***** <SPACE> COMMAND-DISPLAY CURRENT LINE *****
3152 F727 A0 00 PLNE LDY #0 ;PRINT CURRENT LINE
3153 F729 B1 DF P02 LDA (NOWLN),Y
3154 F72B F0 0E BEQ P01 ;PAST END ?
3155 F72D C9 0D CMP #CR ;DONE?
3156 F72F F0 0A BEQ P01
3157 F731 20 BC E9 JSR OUTALL ;PUT IT SOMEWHERE
3158 F734 99 38 A4 STA DIBUFF,Y
3159 F737 C8 INY
3160 F738 4C 29 F7 JMP P02
3161 F73B 84 EA P01 STY LENGTH
3162 F73D 84 E9 STY OLDLEN
3163 F73F AC 13 A4 P03 LDY OUTFLG ;ONE MORE <CR> FOR TAPE
3164 F742 C0 0D CPY #CR
3165 F744 F0 03 BEQ P00
3166 F746 4C F0 E9 JMP CRLF ;TO OUTPUT DEV
3167 F749 4C 24 EA P00 JMP CRCK ;<CR>, & DONT CLR DISPL
3168 F74C
3169 F74C ;***** K COMMAND-KILL LINE *****
3170 F74C ;DELETE CURRENT LINE
3171 F74C 20 B6 F8 DLNE JSR KIFLG ;CLR K OR I COMM FLG
3172 F74F EA NOP
3173 F750 EA NOP
3174 F751 EA NOP
3175 F752 20 27 F7 JSR PLNE
3176 F755 20 E9 F8 JSR ATBOT
3177 F758 B0 CD BCS PLNE ;AT END OF TEXT
3178 F75A A0 00 LDY #0
3179 F75C 84 EA STY LENGTH
3180 F75E 20 3F F9 JSR REPLAC ;KILL LINE
3181 F761 4C 27 F7 JMP PLNE
3182 F764
3183 F764 ;***** I COMMAND-INSERT LINE *****
3184 F764 20 6D F7 IN JSR INL
3185 F767 20 F9 F6 JSR UP ;DISPLAY NEXT LINE DOWN
3186 F76A 4C 78 FA JMP ERR0 ;IF AT BOTTOM PRINT "END"
3187 F76D 20 B6 F8 INL JSR KIFLG ;CLR K OR I COMM FLG
3188 F770 A0 00 LDY #0 ;GET LINE INTO DIBUFF
3189 F772 84 E9 STY OLDLEN
3190 F774 20 BD E7 JSR PROMPT
3191 F777 20 44 EB JSR CLR
3192 F77A 20 93 E9 IN02 JSR INALL
3193 F77D 20 F8 FE JSR PATC12 ;CLR, SO WE CAN OUTPUT TO PRI