1180
11glJ
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1440
1450
1460
1470
1500
1510
1520
1530
1540
1550
1560
1570
1580
15’90
1600
1610
1620
1630
1640
LPRINT “AUTOS’’;CHR$(9) ;
FOR1=.4 TO 9.3 STEP .4
LPRINTCHR$(61) ;
NEXTI
LPRINT
LPRINT “CHEMICALS’’;cHR$(9) ;
FOR1=.4 TO 8.7 STEP .4
LPRINTcHR$(60);
NEXTI
LPRINT
LPRINT “GUNS’’;CHR$(9);
FOR1=.4 TO 1.4 STEP .4
LPRINTCHR$(62);
NEXTI
LPRINT
LPRINT~HR$(9) ;“+--”;
SCALE$=U--+––*
FOR 1=2 TO 8STEP 2
LPRINT S~ALE$;
NEXTI
LPRINT “--+”
LPRINTCHR$(9); M‘;
FOR1=2 TO 8STEP 2
LPRINT ““;1;
NEXTI
LPRINTCHR$(27) ;“1’’;CHR$(2)
LPRINTcHR$(27j ;“S”;~HR$(Ol ;
LPRINTCHR$(9) ;‘MILLIONSOF DOLLARSW
LPRINTCHR$(27) ;“TH
END
DATA O, 0, 0, 0, 2, 4, 4. 2, 1, 8
DATA 8, 0, 1, 16,240,224, 1, 0, 0, 0
DATA 1, 0, 0, 0, 1, 0. 0, 0, 1, 0
DATA 240,224, 1, 16, 8, 0, 1, 8/ 4, 2
DATA 2, 4, 0, 0> 0> 0
DATA 14, 28, 16, 32, 38> 14. 1, 64s 70, 14
DATA 1, 0, 70, 14> 0, 0,1’26,124, O, 0
DATA O, 0> 70, 12, 0, 64> 38> 12> 0, 32
DATA 22, 14, g, 16,, 6, 14, 9, 0, 6, 14
DATA 8, 0, 6, 12> a, o
DATA O, 0> 24, 32, 7, 16, 56, 14. 1, 48
DATA 56, 14, 7, 48, 8, 14, 2> 32, 8. 0
DATA 6, 32, 8, 0, ~, 40, 8, 0, 4, 36
DATA 8, 0, 0, 40, 8, 0, 0, 32, 32, 0
DATA 8. 32, 0, 0, 24. 48
92 —