home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / cbasedit.bqs / CBASEDIT.BAS
Encoding:
BASIC Source File  |  1985-02-10  |  2.9 KB  |  97 lines
  1. REM ******************* CBASEDIT.BAS ********************
  2. REM *        AL BRENDEL 3/15/81
  3. REM *        WRITTEN AS C-BASIC2 MULTILINE FUNCTIONS
  4. REM * A DATA ENTRY AND EDITOR FOR STRINGS OF GIVEN FIELD
  5. REM * LENGTHS. ALLOWS EDITING USING TERMINALS WITH OR WITHOUT
  6. REM * CURSOR CONTROL. ESPECIALLY USEFUL FOR DATA ENTRY FOR
  7. REM * FORMS OR FOR RANDON ACCESS FILES
  8.  
  9.     REM ******** CBASIC-2 FUNCTION LIBRARY ************\
  10.             AL BRENDEL 3/15/81
  11.  
  12.     REM ********* SET CONSOLE WIDTH *********
  13.         POKE 272,0
  14.         CONSOLE
  15.  
  16.     REM ********* STRING FUNCTION ************
  17.     REM *TYPICAL USE:\
  18.         PRINT FN.STRING$(12,10) REM..PRINT 12 LINE FEEDS
  19.  
  20.     DEF FN.STRING$ (LENGTH,ASCVAL)
  21.         STRING$=""
  22.         FOR NUMB = 1 TO LENGTH
  23.             STRING$ = STRING$ + CHR$(ASCVAL)
  24.         NEXT NUMB
  25.         FN.STRING$=STRING$
  26.         RETURN
  27.     FEND
  28.  
  29.     REM ********** GET DATA AND EDIT FUNCTION *************
  30.     REM *TYPICAL APPLICATION:
  31.     REM    NAME$=FN.GET.DATA$("MSG",INITNAME$,FIELD.LGTH)
  32.     REM        'PRINTS MSG AND THEN ALLOWS
  33.     REM        'ENTRY OR MODIFICATION OF NAME$ AND
  34.     REM        'SHOWS LENGTH OF FIELD
  35.     REM        'EDITING COMMANDS INCLUDE:
  36.     REM            'MOVE CURSER RIGHT..    >
  37.     REM            'MOVE CURSER LEFT...    < OR BS(^H)
  38.     REM            'DELETE CHARACTER...    DEL
  39.     REM            'INSERT CHARACTER...    ^
  40.     REM            'RETURN TO PROGRAM...    CR
  41.  
  42.     DEF FN.GET.DATA$ (MSG$,NAME$,LENGTH)
  43.         NAME$=NAME$+FN.STRING$(LENGTH-LEN(NAME$),42)
  44.         PRINT MSG$;": ";NAME$+FN.STRING$(LENGTH,8);
  45.         FOR NUM = 1 TO LENGTH
  46.         ANS%=CONCHAR%
  47.         IF ANS%=13 THEN GOTO 1.03
  48.         IF ANS%=8 AND NUM=1 THEN PRINT\
  49.             CHR$(32)+MID$(NAME$,NUM,1)+CHR$(8);\
  50.             :NUM=NUM-1:GOTO 1.02
  51.         IF ANS%=8 THEN NUM=NUM-2\
  52.             :GOTO 1.02
  53.         IF ANS%=62 AND NUM=LENGTH THEN\
  54.             PRINT CHR$(8)+MID$(NAME$,NUM,1)\
  55.             +CHR$(8)+CHR$(7);\
  56.             :NUM=NUM-1:GOTO 1.02
  57.         IF ANS%=62 THEN PRINT CHR$(8)+\
  58.             MID$(NAME$,NUM,1);:GOTO 1.02
  59.         IF ANS%=60 AND NUM>1 THEN PRINT CHR$(8)+\
  60.             MID$(NAME$,NUM,1)+CHR$(8)+CHR$(8);\
  61.             :NUM=NUM-2:GOTO 1.02
  62.         IF ANS%=60 AND NUM=1 THEN PRINT\
  63.             CHR$(8)+MID$(NAME$,NUM,1)+CHR$(8);\
  64.             :NUM=NUM-1:GOTO 1.02
  65.         IF ANS%=94 THEN NAME$=LEFT$(NAME$,NUM-1)\
  66.             +" "+MID$(NAME$,NUM,LENGTH-NUM)\
  67.             :PRINT CHR$(8)+RIGHT$(NAME$,LENGTH-NUM+1)\
  68.             +FN.STRING$(LENGTH-NUM+1,8);\
  69.             :NUM=NUM-1:GOTO 1.02
  70.         IF ANS%=127 THEN NAME$=LEFT$(NAME$,NUM-1)\
  71.             +RIGHT$(NAME$,LENGTH-NUM)+"*"\
  72.             :PRINT RIGHT$(NAME$,LENGTH-NUM+1)\
  73.             +FN.STRING$(LENGTH-NUM+1,8);\
  74.             :NUM=NUM-1:GOTO 1.02
  75.         NAME$=LEFT$(NAME$,NUM-1)\
  76.             +CHR$(ANS%)+RIGHT$(NAME$,LENGTH-NUM)
  77.         IF NUM=LENGTH THEN PRINT CHR$(7)+CHR$(8);\
  78.         :NUM=NUM-1
  79.     1.02    NEXT NUM
  80.         PRINT CHR$(13);
  81.     1.03    FOR NUM=1 TO LENGTH
  82.             IF MID$(NAME$,NUM,1)="*" THEN NAME$= \
  83.             LEFT$(NAME$,NUM-1)+" "+RIGHT$(NAME$,LENGTH-NUM)
  84.         NEXT NUM
  85.         PRINT MSG$;": ";NAME$
  86.         FN.GET.DATA$=NAME$
  87.         RETURN
  88.     FEND
  89.  
  90. REM ******TEST OF FUNCTIONS
  91.  
  92.     2.01    INPUT " STARTING WORD";LINE NAME$
  93.         PRINT
  94.         NAME$=FN.GET.DATA$("EDIT ACTIVE..",NAME$,20)
  95.         PRINT:PRINT "ENDING WORD..";NAME$
  96.         GOTO 2.01
  97.