Sharp PC-E500/E500S Technikersoftware

EDITOR.51#

PF key title editor

EDITOR.51# (1.944 Bytes)

5 ' EDITOR.51# (PF key title editor)
10 ON ERROR GOTO *ERR
20 CLOSE #2
30 CLEAR :DIM P1$(3):P1$(0)="MF"
40 CLS :LOCATE 8,0:PRINT "*   PF KEY LABEL EDITOR   *":LOCATE 3,2:PRINT "APPEND          ...1":LOCATE 3,3:PRINT "MODIFY          ...2"
50 Q4$=INKEY$ &1:IF Q4$="1" THEN 60 ELSE IF Q4$="2" THEN 150 ELSE 50
60 CLS :LOCATE 3,1:PRINT "FILE NAME= ?":LOCATE 0,2:INPUT "(EXAMPLE) E:KEY LABEL.6##  ";R2$
70 IF LEN R2$<7 THEN 60 ELSE IF MID$ (R2$,LEN R2$-3,1)<>"." THEN 60
80 P1$=LEFT$ (R2$,2):IF P1$="E:" THEN 90 ELSE IF P1$="F:" THEN 90 ELSE 60
90 OPEN R2FOR OUTPUT AS #2
100 CLS :PRINT "MENU LABEL= ?":INPUT "LINE1 = ";P1$(1):P1$(1)=LEFT$ (P1$(1),30)
110 INPUT "LINE2 = ";P1$(2):P1$(2)=LEFT$ (P1$(2),30)
120 INPUT "LINE3 = ";P1$(3):P1$(3)=LEFT$ (P1$(3),30)
130 PRINT #2,P1$(0):FOR QI=1TO 3:PRINT #2,CHR$ &22;P1$(QI);CHR$ &22:NEXT
140 END
150 CLS :LOCATE 2,1:PRINT "FILE NAME=?":LOCATE 2,2:INPUT "(EXAMPLE) G:SCI.2## ";R2$
160 IF LEN R2$<7 THEN 150 ELSE IF MID$ (R2$,LEN R2$-3,1)<>"." THEN 150
170 P1$=LEFT$ (R2$,2):IF P1$="E:" THEN 180 ELSE IF P1$="F:" THEN 180 ELSE IF P1$<>"G:" THEN 150
180 OPEN R2FOR INPUT AS #2
190 INPUT #2,P1$(0),P1$(1),P1$(2),P1$(3)
200 CLOSE #2
210 IF P1$(0)<>"MF" THEN 330
220 CLS :LOCATE 0,0:PRINT "MENU LABEL= ";P1$(1):LOCATE 10,1:PRINT P1$(2):LOCATE 10,2:PRINT P1$(3)
230 LOCATE 0,3:INPUT "LINE1 =   ";P1$(1):P1$(1)=LEFT$ (P1$(1),30)
240 INPUT "LINE2 =   ";P1$(2):P1$(2)=LEFT$ (P1$(2),30)
250 INPUT "LINE3 =   ";P1$(3):P1$(3)=LEFT$ (P1$(3),30)
260 CLS :LOCATE 1,1:PRINT "WHICH MEMORY ?":LOCATE 2,2:PRINT "MAIN (E:) ...1     CARD (F:) ...2"
270 Q4$=INKEY$ &1:IF Q4$="1" THEN Q9$="E:" ELSE IF Q4$="2" THEN Q9$="F:" ELSE 260
280 R2$=Q9$+RIGHT$ (R2$,LEN R2$-2)
290 OPEN R2FOR OUTPUT AS #2
300 PRINT #2,P1$(0):FOR QI=1TO 3:PRINT #2,CHR$ &22;P1$(QI);CHR$ &22:NEXT
310 END
320 *ERR IF ERL =20 RESUME NEXT ELSE RESUME 330
330 CLS :LOCATE 8,2:WAIT 50:PRINT "FILE ERROR":WAIT 0:GOTO 20

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net