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-