10   REM ----------- DARTH VADER PLOT -----------------------------------------
20 ' Converted to the IBM-PC from the HP 9845 by G.Wesley  2/27/83
30 '  ICE -- IBM Computer Enthusiasts of the Lehigh Valley Computer Group
40 '          Data  215-250-0173
41 '
42 ' Music added by Karson and Marty Morrison on 4/7/84
43 '                Ringoes NJ 08551
44 '
46 A$="O2L9DDDL2G>L4DL9C<BAL2>GL5DL9C<BAL2>GL5DL9C<B>C<"
47 B$="L2AL9DDL2G>L4DL9C<BAL2>GL5DL9C<BAL2>GL4DL9C<B>C"
48 C$="<L2AL9DDL3EL6EL8>C<BAL8"
49 D$="GL10GABL6AL7EL3F+L9DDL3E"
50 E$="L6EL8>C<BAGL4>DL2<AL8DD"
51 F$="L3EL6EL8>C<BAL8GL10GABL6A"
52 G$="L7EL2F+>L9DDL8GFE-DC<B-AG"
53 H$="L2>DP4<L9DDDL2G>L4DL9C<BA"
54 I$="L2>GL5DL9C<BAL2>GL5DL9C<B"
55 J$=">C<L2AL9DDL2G>L4DL9C<BAL2"
56 K$=">GL5DL8GFE-L2B-L3AG<L9GGGL4G"
59 KEY OFF
60 CLS:PRINT:PRINT " DARTH.BAS -- a gift from ICE to the public domain"
61 PRINT: PRINT " Modified by Karson and Marty Morrison with music":FOR I=1 TO 2500:NEXT
62 LET TABLE$(1) = C$
63 LET TABLE$(2) = D$
64 LET TABLE$(3) = E$
65 LET TABLE$(4) = F$
66 LET TABLE$(5) = G$
67 LET TABLE$(6) = H$
68 LET TABLE$(7) = I$
69 LET TABLE$(8) = J$
70 LET TABLE$(9) = K$
75  ' SCALE -5,30,5,33
80 CLS:SCREEN 0,1
90  REM 
91 PLAY "MB"
92 PLAY A$
93 LOCATE 11,28,0,0,6:PRINT CHR$(201)STRING$(26,205)CHR$(187)
94 PRINT TAB(28)CHR$(186)"       Darth Vader        "CHR$(186)
95 PRINT TAB(28):PRINT CHR$(200)STRING$(26,205)CHR$(188)
96 ON PLAY (5) GOSUB 9000
97 PLAY B$:PLAY ON:CLS
98 SCREEN 2
100  FOR I=1 TO 409
110  READ Y,X,P
120     X=(X+5)*640/35
130     Y=(Y-5)*200/28
140     Y=200-Y
150     LINE -(X,Y),P
160  NEXT I
170 GOTO 1095
180 DATA 19.89,6.765,0,19.89,6.765,1,22.0925,6.695,1,21.305,6.44,0,20.7425,7.0675
190 DATA 1,21.345,7.0375,0,20.6775,6.4125,1,21.0075,6.1525,0,21.05,7.36,1,5.77,2.17
200 DATA 0,8.2325,7.7775,1,9.96,7.735,1,10.78,7.4775,1,11.82,6.7675,1,12.3875,6.335
210 DATA 1,13.19,6.1875,1,14.155,6.0775,1,17.62,4.6575,1,19.1225,5.9425,1,19.565
220 DATA 5.585,1,20.4125,5.2725,1,21.235,5.34,1,22.0975,5.7675,1,22.525,6.485,1
230 DATA 22.715,7.4675,1,22.645,8.15,1,22.415,8.715,1,22.005,9.205,1,20.0425,9.2675
240 DATA 1,19.7175,8.62,1,19.43,7.785,1,19.37,6.9375,1,19.4725,6.1275,1,19.545,5.605
250 DATA 1,19.1125,5.94,1,18.87,6.865,1,18.98,7.79,1,19.2825,8.7225,1,19.655,9.47
260 DATA 1,19.5225,11.19,0,19.11,12.48,1,19.0325,13.455,1,18.9875,14.4275,1,19.0375
270 DATA 15.4775,1,19.1875,16.4825,1,19.69,17.3525,1,21.1075,17.14,1,21.7525,16.7575
280 DATA 1,22.54,15.93,1,23.1125,14.7575,1,23.2775,13.7475,1,23.145,12.49,1,22.6025
290 DATA 11.4725,1,22.36,11.2325,1,19.8175,11.32,1,19.4925,12.545,1,19.42,13.4925
300 DATA 1,19.385,14.4175,1,19.4575,15.5275,1,19.605,16.5025,1,19.685,17.36,1,17.725
310 DATA 15.61,1,13.1075,15.0225,1,12.7475,14.495,1,12,13.9775,1,11.55,13.19,1
320 DATA 10.67,12.7375,1,9.4,12.7375,1,9.2325,8.785,1,10.335,8.7625,1,11.2275,7.795
330 DATA 1,11.83,6.7625,1,12.4125,6.3325,1,13.1825,6.1675,1,17.73,15.6,0,18.6025
340 DATA 11.1175,1,18.3525,10.6725,1,18.7575,10.255,1,18.79,9.86,1,18.2725,9.095
350 DATA 1,20.0575,9.5625,1,20.2475,9.94,1,20.2475,10.2625,1,19.9575,10.61,1,17.125
360 DATA 10.69,1,17.105,9.17,1,18.275,9.0825,1,18.4775,8.6075,1,17.635,4.65,1,14.1575
370 DATA 6.09,1,14.675,5.86,1,12.69,5.64,1,13.01,6,1,12.405,6.3325,1,12.24,5.9475
380 DATA 1,12.7275,5.6425,1,12.7525,14.49,0,13.1625,14.4625,1,13.43,14.8625,1,13.095
390 DATA 15.02,1,6.3325,14.5125,0,7.4975,14.5125,1,8.685,17.4325,1,10.715,17.39
400 DATA 1,12.035,17.7725,1,14.9375,19.025,1,15.8025,19.245,1,16.9575,19.295,1
410 DATA 6.71,22.22,0,8.69,17.4225,1,10.5325,23.9425,1,11.145,24.79,1,11.6925,24.8125
420 DATA 1,23.7425,20.0975,1,25.1725,20.27,1,26.705,20.09,1,28.7975,19.5025,1,30.0625
430 DATA 18.565,1,31.01,17.4,1,31.4275,16.23,1,31.7,15.065,1,31.865,13.9425,1,31.8775
440 DATA 12.7,1,31.28,9.3425,0,31.0525,7.855,1,29.845,5.9375,1,28.915,5.2875,1
450 DATA 27.8075,4.845,1,26.35,4.595,1,25.1575,4.545,1,23.8775,4.545,1,23.165,4.6575
460 DATA 1,22.5125,4.4225,1,21.7275,4.16,1,12.975,1.0325,1,11.7825,1.52,1,11.7825
470 DATA 1.52,1,11.0275,2.215,1,10.4425,3.1675,1,9.9975,4.165,1,9.5875,5.355,1
480 DATA 9.3175,6.415,1,9.0125,7.7625,1,9.53,7.7375,0,9.78,6.5125,1,10.03,5.4975
490 DATA 1,10.395,4.375,1,10.7975,3.4125,1,11.34,2.475,1,12.0475,1.835,1,12.81
500 DATA 1.525,1,12.975,1.035,1,12.84,1.515,1,21.4925,4.525,1,22.1225,5.0475,1
510 DATA 22.465,5.5175,1,22.875,6.4125,1,23.035,7.4925,1,22.9275,8.1975,1,22.675
520 DATA 8.7725,1,22.4475,9.095,1,23.88,9.015,0,24.2325,8.3775,1,24.5625,7.4325
530 DATA 1,24.64,6.7325,1,24.275,5.875,1,24.015,5.42,1,23.3225,4.89,1,21.7325,4.13
540 DATA 1,22.34,4.6875,1,22.75,5.3075,1,23.0875,6.31,1,23.0425,7.47,1,24.0125
550 DATA 10.675,0,24.545,11.5775,1,24.895,12.3675,1,25.045,13.0075,1,25.2,13.88
560 DATA 1,25.2425,14.7075,1,25.2475,15.565,1,25.1025,16.42,1,24.9025,17.25,1,24.6275
570 DATA 18.1675,1,24.27,19.1725,1,23.75,20.0825,1,22.675,10.7,0,23.045,11.2425
580 DATA 1,23.4275,12.3825,1,23.6375,13.715,1,23.6325,14.27,1,23.585,14.895,1,23.425
590 DATA 15.4325,1,23.06,16.2075,1,22.315,17.2275,1,21.5325,17.78,1,13.655,21.2275
600 DATA 1,13.1375,22.7025,1,12.5175,23.7975,1,11.6625,24.81,1,9.345,17.4125,0
610 DATA 11.0325,23.71,1,11.4525,24.27,1,12.0925,23.485,1,12.6875,22.44,1,13.32
620 DATA 20.9,1,13.6375,21.22,1,13.3,20.9075,1,16.9475,19.2825,1,21.2825,17.3675
630 DATA 1,21.9875,16.96,1,22.885,16.12,1,23.2625,15.4075,1,23.6325,14.2625,1,14.1775
640 DATA 6.0725,0,17.785,9.1075,1,13.175,6.1675,1,13.205,6.66,0,17.09,9.1625,1
650 DATA 17.12,10.6875,1,13.4975,14.15,1,13.51,14.52,0,17.9,10.67,1,14.38,14.9225
660 DATA 1,14.675,15.0675,0,17.9,10.685,1,14.3175,13.35,0,13.6475,13.3625,1,13.6225
670 DATA 12.5675,1,15.235,12.5,1,15.68,12.055,0,13.595,12.1175,1,13.5925,11.2925
680 DATA 1,16.6225,11.125,1,17.11,10.6875,0,13.55,10.815,1,13.5325,10.0675,1,17.0725
690 DATA 9.8975,1,17.0725,9.4025,0,13.48,9.55,1,13.48,8.74,1,16.2325,8.615,1,15.58
700 DATA 8.2025,0,13.43,8.255,1,13.4125,7.4975,1,14.4425,7.4575,1,13.415,7.49,0
710 DATA 13.6375,7.8525,1,13.445,8.28,1,13.7625,8.2575,0,13.7625,8.2575,1,13.9425
720 DATA 7.8225,1,13.715,7.465,1,13.9675,7.49,0,14.2,7.83,1,14.025,8.2425,1,14.305
730 DATA 8.2425,0,14.4775,7.8425,1,14.235,7.4725,1,14.5625,7.545,0,14.7225,7.8375
740 DATA 1,14.56,8.215,1,14.885,8.2275,0,15.0375,7.8575,1,15.245,7.9925,0,15.155
750 DATA 8.2025,1,13.4975,8.745,0,13.695,9.1125,1,13.4825,9.52,1,13.6725,9.52,0
760 DATA 13.925,9.09,1,13.7125,8.735,1,13.99,8.735,0,14.2,9.075,1,13.9525,9.515
770 DATA 1,14.245,9.5,0,14.4825,9.095,1,14.2725,8.73,1,14.5825,8.73,0,14.765,9.0675
780 DATA 1,14.535,9.475,1,14.815,9.455,0,15.0425,9.04,1,14.845,8.7125,1,15.115
790 DATA 8.7125,0,15.315,9.0575,1,15.0975,9.445,1,15.415,9.445,0,15.635,9.0475
800 DATA 1,15.44,8.6875,1,15.7,8.6875,0,15.895,9.03,1,15.665,9.4275,1,15.965,9.4275
810 DATA 0,16.165,9.005,1,15.97,8.6725,1,16.22,8.6725,0,16.4425,8.9925,1,16.18
820 DATA 9.435,1,16.54,9.3925,0,16.7525,9.01,1,13.52,10.0625,0,13.7975,10.425,1
830 DATA 13.56,10.815,1,13.865,10.79,0,14.105,10.385,1,13.8875,10.0775,1,14.1025
840 DATA 10.0775,0,14.335,10.3925,1,14.125,10.76,1,14.4275,10.76,0,14.6325,10.36
850 DATA 1,14.3775,10.0425,1,14.65,10.0425,0,14.87,10.3575,1,14.6775,10.73,1,14.9775
860 DATA 10.73,0,15.165,10.35,1,14.945,10.045,1,15.205,10.045,0,15.42,10.3625,1
870 DATA 15.21,10.7,1,15.4825,10.7,0,15.72,10.3025,1,15.49,10.0125,1,15.7225,10.0125
880 DATA 0,15.935,10.3075,1,15.7025,10.6925,1,16.015,10.6925,0,16.2375,10.3025
890 DATA 1,16.0175,9.98,1,16.26,9.98,0,16.4975,10.2875,1,16.2825,10.67,1,16.5825
900 DATA 10.67,0,16.8325,10.2675,1,16.6175,9.97,1,13.5775,11.3175,0,13.8525,11.6925
910 DATA 1,13.62,12.0875,1,13.88,12.0875,0,14.1275,11.68,1,13.845,11.32,1,14.1075
920 DATA 11.32,0,14.38,11.6725,1,14.155,12.055,1,14.445,12.055,0,14.67,11.675,1
930 DATA 14.38,11.28,1,14.665,11.28,0,14.93,11.6725,1,14.71,12.0275,1,15.0125,12.0275
940 DATA 0,15.2125,11.66,1,14.9075,11.255,1,15.1775,11.255,0,15.455,11.6425,1,15.2525
950 DATA 12.0125,1,15.5625,12.0125,0,15.7825,11.64,1,15.4925,11.23,1,15.7325,11.23
960 DATA 0,16.0125,11.6075,1,15.875,11.8525,1,13.635,12.5775,0,13.895,12.9575,1
970 DATA 13.65,13.35,1,14.025,13.3275,0,14.255,12.935,1,14.0025,12.5825,1,14.2625
980 DATA 12.5825,0,14.515,12.9025,1,14.2525,13.325,1,14.81,12.86,0,14.5875,12.5625
990 DATA 1,14.8825,12.54,0,14.985,12.6875,1,20.7225,10.62,0,20.7225,9.6125,1,21.2575
1000 DATA 9.6125,1,21.2575,10.6075,1,20.73,10.625,1,32.075,11.71,0,32.0625,11.7275
1010 DATA 0,31.905,12.6925,1,31.6975,11.71,1,31.04,10.82,1,30.1275,10.5,1,29.225
1020 DATA 10.415,1,22.4425,10.69,1,21.62,9.9125,1,21.7075,9.8,1,22.31,10.3575,1
1030 DATA 29.33,10.04,1,30.2975,10.2,1,31.085,10.465,1,31.415,10.715,1,32.05,11.7125
1040 DATA 1,31.9725,10.595,1,31.555,9.53,1,30.635,9.01,1,29.4175,8.785,1,22.4475
1050 DATA 9.095,1,21.7,9.785,1,13.14,6.18,0,13.47,14.54,1,14.38,14.91,1,14.68,15.05
1060 DATA 1,17.72,15.59,1,36.31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1070 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1080 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1090 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1095 GOTO 1095
9000 IF Z < 10 THEN PLAY TABLE$(Z):LET Z = Z+1
9002 RETURN
10000 END