Msg: 5737 *Conference*

04-01-95 06:09:44

From: CARROLL LEWIS

To : COMET

Subj: VARPTR -MORE-

COMET,
 
Thank you for your interest!!!
 
I enclosed the whole program for jobinput in the conference, to:ALL
subject:VARPTR I HOPE.
 
LINES 9000-9050 simply establish what to look for.
 
I used these lines next:(SS$=search string, PN$= phone #, JT$=job type,
DT$=date, JS$= job source, CS$= call status.)
 
 10000 CLOSE:OPEN "JOBS.DO" FOR INPUT AS 1
 10010 IF EOF(1) THEN 10100
 10020 INPUT#1, PN$,JT$,DT$,JS$,CS$
 10030 IF PN$=SS$ THEN 10200
 10040 GOTO 10010
 10100 CLOSE:RETURN
 
AT this point, display the current info and offer the choices for the change: 
 
 10200 'use line 10006
 
Now input the new call status and restore the correct data to be poked
 
 10210 NC$=INKEY$:IFNC$=""THEN 10210
 10220 IF NC$="1"THEN RESTORE 11000:GOTO 10300
 10230 IF NC$="2"THEN RESTORE 12000:GOTO 10300
 10240 IF NC$="3"THEN RESTORE 13000:GOTO 10300
 10250 GOTO 10210
 
These are the data lines
 11000 DATA32,67,97,108,108,101,100 '" Called"
 12000 DATA65,112,112,108,105,101,100 '"Applied"
 13000 DATA32,87,111,114,107,101,100 '" Worked"
  
At this point is where I can't seem to make VARPTR work. The file is still open
the varibles are still "loaded" and the data is "set". Using X=VARPTR(CS$) only
returns it's location in the "Working" memory and a poke changes only this
value. I've tried X=VARPTR(1) and the syntax error comes up X=VARPTR(1,CS$)
results in the same message.
 
 10300 'use VARPTR to find location IN THE FILE
 10310 'use a stepped READ and POKE to change the "status" IN THE FILE
 10320 CLOSE:RETURN
 
SHOULD I JUST GIVE IT UP? or??
 
 
-CARROLL-