File DEMOIN.BA (BASIC source file)

Directory of image this file is from
This file as a plain text file

10 PRINT "INVENTORY REPORT"\PRINT 
20 REM HEADING
30 GOSUB 3000 \GOSUB 2000 
40 PRINT "! PART NUMBER !   VENDOR    !    COST     !   ON HAND   !"
45 GOSUB 2000 \GOSUB 3000 
48 FOR K1=1 TO 2
50 GOSUB 2000 
60 FOR K=1 TO 5\GOSUB 4000 \NEXT K
70 GOSUB 2000 \GOSUB 3000 \NEXT K1
90 STOP
2000 REM BLANK LINE
2010 PRINT "!             !             !             !             !"
2020 RETURN
3000 REM SEPARATOR
3010 PRINT "+-------------+-------------+-------------+-------------+"
3020 RETURN
4000 REM EACH LINE
4010 A=INT(5000*RND(0)+5000)
4020 B=INT(7*RND(0))
4030 C=INT(10000*RND(0)+500)/100
4040 D=INT(100*RND(0))
5010 PRINT "!";A,"!";B,"!";C,"!";D,"!"
5020 RETURN
5030 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search