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