17.07.2013 Views

GWBASIC User's Manual

GWBASIC User's Manual

GWBASIC User's Manual

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

GW-BASIC <strong>User's</strong> Guide<br />

480 REM ADD TO STOCK<br />

490 GOSUB 840<br />

500 IF ASC(F$)=255 THEN PRINT "NULL ENTRY":RETURN<br />

510 PRINT D$:INPUT "QUANTITY TO ADD";A%<br />

520 Q%=CVI(Q$)+A%<br />

530 LSET Q$=MKI$(Q%)<br />

540 PUT#1,PART%<br />

550 RETURN<br />

560 REM REMOVE FROM STOCK<br />

570 GOSUB 840<br />

580 IF ASC(F$)=255 THEN PRINT "NULL ENTRY":RETURN<br />

590 PRINT D$<br />

600 INPUT "QUANTITY TO SUBTRACT";S%<br />

610 Q%=CVI(Q$)<br />

620 IF (Q%-S%) "Y" THEN RETURN<br />

920 LSET F$=CHR$(255)<br />

930 FOR I=1 TO 100<br />

940 PUT#1,I<br />

950 NEXT I<br />

960 RETURN<br />

file:///C|/Documents%20and%20Settings/Lorenzo/Desktop/GW%20Basic/Chapter%205.html (9 of 9)28/03/2004 21.29.02

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!