Listing of file='FORCER.BAS;01' on disk='vmedia/stamp_price_lists-sector.ccvf'
100 REM UPDATE ASC RECORDS(42 BYTES EACH) 120 REM LAST UPDATE: 22/6/80 150 REM ASC YY DESCRIPTION___________$$$.CC $$$.CC 200 CLEAR 1000 250 PLOT 22 300 INPUT "FILENAME?";F$ 350 FILE "R",1,F$,2 400 PLOT 18 450 DIM D$(50) 500 DIM DS$(40) 550 DIM C$(42) 600 PLOT 19 650 INPUT "WAPEX NO.";WN$ 700 WN= VAL (WN$) 720 IF WN= > 999THEN 3050 725 IF WN> 300THEN PRINT "WAPEX NO. >300!":GOTO 600 800 IF WN< > 0THEN 1150 850 W1= W1+ 1 900 WN= W1 925 IF WN> 300THEN PRINT "END OF FILE REACHED.":PRINT 950 PRINT WN 1000 GOTO 1150 1050 PLOT 23 1100 PRINT D$ 1150 PLOT 22 1200 PRINT "DESCRIPTION CHANGE?(Y OR N<RETURN>)"; 1250 INPUT S$ 1300 IF S$< > "Y"THEN 1650 1350 PRINT " ASC YY DESCRIPTION_________" 1400 INPUT ND$ 1450 FOR NS= LEN (ND$)TO 27:REM SPACE FILL 1500 ND$= ND$+ " " 1550 NEXT NS 1600 ND= 1:REM ND FLAG ON. 1650 PRINT "PRICE CHANGE? (Y OR RETURN<NO> )"; 1700 PLOT 18 1750 INPUT P$ 1800 IF P$= "Y"THEN 1900 1850 GOTO 2350 1900 PC= 1:REM PRICE CHANGE FLAG ON 1950 INPUT "MUH $$$.CC:";B$ 2000 FOR J= LEN (B$)TO 6 2050 B$= " "+ B$ 2100 NEXT J 2150 INPUT "F. USED $$$.CC:";U$ 2200 FOR U= LEN (U$)TO 6 2250 U$= " "+ U$ 2300 NEXT U 2350 IF ND= 0THEN 2550 2400 C$= ND$ 2450 ND= 0 2500 GOTO 2600 2550 C$= LEFT$ (D$,28) 2600 IF PC= 1 THEN 2750 2650 B$= MID$ (D$,29,7) 2700 U$= MID$ (D$,36,7) 2750 E$= C$+ B$+ U$ 2800 PC= 0 2850 PUT 1,WN,1;E$[42] 2900 W1= WN 2950 PRINT "RECORD FOR WAPEX NO:",WN,"UPDATED." 3000 GOTO 600 3050 FILE "C",1 3100 PLOT 21 3150 PRINT "FILE CLOSED" 3200 PLOT 18 3250 GOTO 3500 3300 FILR "T",1930 3350 FILE "E",FL,ER,LN 3400 PRINT "DISK ERROR:",ER,"OCCURRED IN LINE:",LN 3450 GOTO 650 3500 END