image of READY prompt

Wang2200.org

Listing of file='uTextEdt' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 3787, program filename = 'uTextEdt'
7000 REM %^ TEXT DATA (EDIT MODULE)
   : LOAD DC T"uKeyEdit"2000,3500BEG 2000
7012 REM 32,32,8,8
   : DATA "EDIT OPTIONS","TEST"," CREATE"," DELETE"
7016 REM 32,32,8,8
   : DATA "DELETE OPTIONS","SCRATCH"," KEYDATA"," KEYPAT"
7020 REM 32,32
   : DATA "DELETE KEYDATA FILE","DATA"
7024 REM 32,32
   : DATA "DELETE KEYPATTERN FILE","PATTERN"
7028 REM 32,8,8
   : DATA "CREATE KEY FILE"," KEYDATA"," KEYPAT"
7032 REM 32
   : DATA "CREATE A KEYDATA FILE"
7036 REM 32
   : DATA "Reference Pattern Selection"
7038 REM all32
   : DATA "Key Pattern Data Entry","Position cursor with SF'5,6",",11,12,13,14
     .","Press SPACE & BACKSPACE to"," Position sequence,"
7039 DATA "Partition","Terminal","SF'9 to Delete, SF'10 to Insert,"," EDIT to
     exit.","Sequence is in order of"," Entry, Enter all Keys."
7044 REM 32,32,32,32
   : DATA "Enter Title \A0\A0\A0\A0\A0\A0\A0","Is Entry Correct"," Y(RET)/N(SP
     ACE)?","Saving DATAFILE:"
7052 REM 32,32,32,32,32,32
   : DATA "Untestable Key Selection","Select 'KEY' with SPACE"," & BACKSPACE."
     ,"Press RETURN to select,"," EDIT to continue.","Partition","Terminal"
7056 REM all 32
   : DATA "Keycode Data Entry","Set mode and shift"," as indicated.","Key each
      hi-lighted"," key twice.","Partition","Terminal"
7070 REM 32
   : DATA "PROCESSING"
8000 DEFFN'15
   : INIT(20)U$()
   : X$(1)="SAVE EDITED ROUTINE"
   : X$(3)="SAVE"
   : U$(1)="uTextTst"
   : U$(2)="uTextEdt"
   : U$(3)="uKeyEdit"
   : U$(4)="uKeyTest"
   : GOSUB 190
   : ON NGOSUB 8000,8010,8020,8030,8040
   : PRINT HEX(0306);AT(12,35);U$;" SAVED";
   : STOP
8010 SCRATCH TU$
   : SAVE DC T()U$6000,6500
   : RETURN
8020 SCRATCH TU$
   : SAVE DC T()U$7000,9500
   : RETURN
8030 SCRATCH TU$
   : SAVE DC T()U$2000,3000
   : RETURN
8040 SCRATCH TU$
   : SAVE DC T()U$10,1500
   : RETURN