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