Listing of file='PTSMEN.BAS;01' on disk='vmedia/chip_57-sector.ccvf'
100 REM ************************************************* 110 REM ** ** 120 REM ** 'MENU' OF STOCK CONTROL PROGRAM FOR ** 130 REM ** ** 140 REM ** COMPONENTS AND DEVICES HELD IN 'BINS' ** 150 REM ** ** 160 REM ** AS PARTS FOR EQUIPMENT IN TV AREA ** 170 REM ** ** 180 REM ** D. MASON 1982 ** 190 REM ************************************************* 200 CLEAR 100 210 PLOT 12:PRINT :PRINT :PRINT :PRINT :PRINT 220 PRINT SPC( 10) 230 PLOT 14,6,28:PRINT " P A R T S S T O C K R E C O R D S " 240 PLOT 15,6,3 250 PRINT :PRINT 260 PRINT SPC( 8);"SELECT ONE OF THE FOLLOWING OPTIONS : ";:PRINT :PRINT :PRINT :PRINT 270 PRINT SPC( 10)"1. CREATE NEW DATA FILE":PRINT 280 PRINT SPC( 10)"2. CREATE NEW INDEX FILE":PRINT 290 PRINT SPC( 10)"3. EDIT DATA FILES":PRINT 300 PRINT SPC( 10)"4. FULL PRINTOUT OF DATA":PRINT 310 PRINT SPC( 10)"5. BULK INSERTIONS":PRINT :PRINT 320 PRINT SPC( 8);"ENTER THE NUMBER OF THE DESIRED OPTION : ";:INPUT "";A$ 330 A= VAL (A$):IF A< 1OR A> 5THEN PLOT 28,11:GOTO 320 340 ON AGOTO 400,600,800,810,820 350 REM 360 REM **************************************************** 370 REM 380 REM ** CREATE NEW DATA FILE DISK ** 390 REM 400 PLOT 12 410 PLOT 3,10,5,14,6,39:PRINT " C R E A T E N E W D A T A D I S K ":PLOT 15,6,3:PRINT :PRINT 420 PRINT :PRINT SPC( 10);"INSERT NEW INITIALIZED DISK - HIT RETURN ";:INPUT "";Z$ 430 FILE "T",460:FILE "R",1,"STOCKS.RND",1:FILE "C",1 440 PRINT :PRINT 450 PRINT SPC( 10)"FILE ALREADY ON DISC":PRINT :GOTO 420 460 PRINT :PRINT SPC( 10);:INPUT "ENTER DATA DISK NUMBER (1-5) : ";DN 470 IF DN< 1OR DN> 5THEN PLOT 28,11:GOTO 460 480 PRINT :PRINT :PRINT SPC( 18);"SIT DOWN AND RELAX":PRINT 490 PRINT SPC( 16);"THIS WILL TAKE A WHILE...." 500 FILE "N","STOCKS.RND",420,108,64 510 FILE "R",1,"STOCKS",1:FOR I= 1TO 420:PUT 1;"-99"[8]," "[25],"-99"[16]:NEXT :FILE "C",1 520 FILE "N","DATA.RND",10,4,10 530 FILE "R",1,"DATA.RND",1 540 PUT 1,1,1;DN:FILE "C",1:GOTO 710 550 REM 560 REM **************************************************** 570 REM 580 REM ** CREATE NEW INDEX DISK ** 590 REM 600 PLOT 12,3,10,5,14,6,39 610 PRINT " C R E A T E I N D E X F I L E ":PLOT 15,6,3 620 PRINT :PRINT SPC( 10);:INPUT "INSERT NEW INITIALISED DISK - HIT 'RETURN'";Z$ 630 FILE "T",650:FILE "R",1,"PARTS.INX",1:FILE "C",1 640 GOTO 450 650 PRINT :PRINT SPC( 12)"THIS WILL TAKE A WHILE ...." 660 FILE "N","PARTS.INX",2100,8,64 670 FILE "R",1,"PARTS.INX",1:N= 8:GOSUB 830 680 FILE "N","EQPT.INX",2100,16,64 690 FILE "R",1,"EQPT.INX",1:N= 16:GOSUB 830 700 PRINT :PRINT :PRINT SPC( 14)"INDEX DISK WITH 2100 RECORDS":PRINT :GOTO 720 710 PRINT :PRINT :PRINT SPC( 8)"DATA DISK "DN" WITH 420 RECORDS":PRINT 720 PRINT SPC( 14);"HAVE BEEN CREATED IN THIS DISK ":PRINT :PRINT :PRINT 730 PRINT :PRINT SPC( 10);"INSERT PROGRAM DISK - HIT RETURN ":INPUT "";Z$ 740 GOTO 210 750 REM 760 REM ***************************************************** 770 REM 780 REM ** LOAD SELECTED PROGRAM AND RUN IT ** 790 REM 800 LOAD "RETRV":RUN 810 LOAD "LIST":RUN 820 LOAD "ADDON":RUN 830 FOR T= 1TO 2100:PUT 1;"-99"[N]:NEXT :FILE "C",1:RETURN