Using NOTEPAD to change data

* AT.NOTEPAD
* DAN WAGNER 4/1/2007  FOR ACCUTERM TESTING
* USE NOTEPAD TO ENTER TEXT INFORMATION
  SVM=CHAR(252)
   VM=CHAR(253)
  AM=CHAR(254)
PRINT 'ENTER FILE':
INPUT FILE
OPEN FILE TO F.FILE ELSE
CRT " no  ":FILE:" file on system stop "
STOP
END
*
PRINT 'ENTER ID':
INPUT ID
IF ID = "" THEN
CRT " must enter a ID  or E to End Exit ":;INPUT ID
IF ID = "E" THEN STOP
IF ID = "Exit" THEN STOP
IF ID = "X" THEN STOP
END
READ ITEM FROM F.FILE,ID ELSE ITEM=''
TMP.TXT=ITEM
ORIG.TXT=ITEM
CALL DOSSVC('NOTEPAD C:\TEMP\TMP.TXT','C:\TEMP','TMP.TXT',ITEM,'C:\TEMP','TMP.TXT',NEWITEM)
WRITE NEWITEM ON F.FILE,ID
IF NEWITEM # ORIG.TXT THEN
CRT " changed item using NOTEPAD "
END
*
CRT "wrote ":ID:" to ":FILE

END*-------   end of program

* this program puts ITEM into C:TEMP  either change c:\temp OR

* make a C:\TEMP folder for notepad to use .