home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0012 / graphics.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1970-01-01  |  12.6 KB  |  490 lines
  1. 5  'SAVE"B:GRAPHICS"
  2. 10  GOTO 85
  3. 15  DR=INT(RND*8)+1:PLAY "mbl14o3n"+STR$(INT(RND*50)):PRESET (XA(T),YA(T)):T=T+1:IF T>200 THEN T=1
  4. 20  IF FNTM(TIME$)>TIME THEN 220
  5. 25  RETURN
  6. 30  XA(H)=X:YA(H)=Y
  7. 35  X=X+XD(DR):Y=Y+YD(DR)
  8. 40  IF POINT(X,Y)>0 THEN GOSUB 15:X=XA(H):Y=YA(H):GOTO 35 ELSE PSET(X,Y):PRESET (XA(T),YA(T)):H=H+1:T=T+1:IF H>200 THEN H=1
  9. 45  IF T>200 THEN T=1:GOTO 30 ELSE GOTO 30
  10. 50  GOTO 30
  11. 55  XA(H)=X:YA(H)=Y:X=X+XD(DR):Y=Y+YD(DR)
  12. 60  IF POINT (X,Y)>0 THEN X=XA(H):Y=YA(H):DR=INT(RND*8)+1:GOTO 55
  13. 65  PSET (X,Y):H=H+1
  14. 70  IF H>200 THEN H=1
  15. 75  T=3
  16. 80  GOTO 30
  17. 85  KEY OFF:SCREEN 1:DEF SEG=&HB800
  18. 90  DEF FNTM(X$)=VAL(MID$(X$,4,2))*60+VAL(RIGHT$(X$,2))
  19. 95  CLS:DEFINT A-Z
  20. 100  DEF FNTM(X$)=VAL(MID$(X$,4,2))*60+VAL(RIGHT$(X$,2))
  21. 105  X=0:Y=0:DR=1:H=0:T=0
  22. 110  DEF FNXY(A,B)=A*2+1+B*80
  23. 115  COLOR 0,1
  24. 120  DIM YD(8),XD(8)  ' X&Y DIR. INCRS
  25. 125  DIM XA(200),YA(200) ' X,Y VALUES
  26. 130  RANDOMIZE FNTM(TIME$):ON INT(RND*2)+1 GOTO 135,145
  27. 135  BLOAD "B:WORM.PIC",0:GOTO 150
  28. 140  'BLOAD "WORM1.PIC",0:GOTO 150
  29. 145  BLOAD "B:WORM2.PIC",0
  30. 150  FOR I=1 TO 8:READ XD(I):NEXT I
  31. 155  FOR I=1 TO 8:READ YD(I):NEXT I
  32. 160  H=1:J=2
  33. 165  X=RND*315:Y=RND*184:IF POINT(X,Y)=0 THEN PSET (X,Y) ELSE 165
  34. 170  PT=PT+1:IF PT<301 THEN 165
  35. 175  H=1
  36. 180  T=2:DR=INT(RND*8)+1
  37. 185  X=RND*300
  38. 190  Y=RND*150
  39. 195  IF POINT(X,Y)>0 THEN 185
  40. 200  TIME=FNTM(TIME$)+30: IF TIME>3600 THEN TIME=30
  41. 205  GOTO 55
  42. 210  DATA 0,1,1,1,0,-1,-1,-1:' x incrs
  43. 215  DATA -1,-1,0,1,1,1,0,-1:' y incrs
  44. 220  REM
  45. 499  'SAVE "B:PICTURES"
  46. 500  '
  47. 510  'PICTURES
  48. 520  '
  49. 530  DIM NM1$(15): CNT=0: SCREEN 1,0: DEF SEG=&HB800: KEY OFF
  50. 540  FOR I=1 TO 15: READ NM1$(I): IF NM1$(I)="" THEN 560
  51. 550  NEXT I
  52. 560  I=I-1
  53. 570  J=RND*I+1: IF NM1$(J)="" THEN 570
  54. 575  IF NM1$(J)="MOUNTX" THEN COLOR 0,1 ELSE COLOR 1,0
  55. 580  CLS: BLOAD "B:"+NM1$(J)+".PIC",0: NM1$(J)=""
  56. 590  FOR K=1 TO 3000: NEXT K
  57. 600  CNT=CNT+1: IF CNT<4 THEN 570
  58. 610  GOTO 700
  59. 620  DATA COMPLEX1
  60. 625  'DATA HEX
  61. 630  DATA EGGS
  62. 635  DATA MOUNTX
  63. 640  DATA FLOWERS
  64. 645  'DATA CHECKERS
  65. 650  'DATA PALETTE
  66. 655  'DATA PALETTE2
  67. 660  DATA QUILT
  68. 665  DATA ""
  69. 700  KEY OFF
  70. 705  SCREEN 1,0
  71. 710  CLS
  72. 715  IF 2*RND>1 THEN COLOR 0,0 ELSE COLOR 0,1
  73. 720  FOR N=1 TO 3
  74. 725  FOR X=0 TO 320 STEP N*(RND*3)+(RND*N)+1
  75. 730  J=N
  76. 735  'IF N=4 THEN J=0
  77. 740  LINE (0,200)-(X,0),J
  78. 745  LINE (320,200)-(320-X,0),J
  79. 750  LINE (0,0)-(X,200),J
  80. 755  LINE (320,0)-(320-X,200),J
  81. 760  NEXT:NEXT
  82. 770  FOR N=1 TO 2000:NEXT
  83. 900  REM SAVE"B:EYESORE
  84. 905  DEFINT J-L: PLAY "MF"
  85. 910  DIM J(40),L(40)
  86. 915  CLS
  87. 920  SCREEN 1,0
  88. 925  COLOR 0,0
  89. 930  REM
  90. 935  REM ********************************
  91. 940  REM
  92. 945  REM CLEAR KEY AREA
  93. 950  REM
  94. 955  REM ********************************
  95. 960  REM
  96. 965  DRAW "C0M1,192M320,192M320,200M1,200M1,193M319,193M319,199M2,199M2,194M318,194M318,198M3,198M3,195M317,195M317,197M4,197M4,196M316,196M160,100"
  97. 970  REM
  98. 975  REM *******************************
  99. 980  REM
  100. 985  REM SETUP DRAW STRINGS
  101. 990  REM
  102. 995  REM                (S$ STRING)
  103. 1000  REM
  104. 1005  REM *******************************
  105. 1010  REM
  106. 1015  S$="C0M151,100C1M153,98M156,96M159,95M161,95M164,96M167,98M169,100M167,102M164,104M161,105M159,105M156,104M153,102M151,100M152,100C0M156,99"
  107. 1020  REM
  108. 1025  REM *******************************
  109. 1030  REM
  110. 1035  REM                (T$ STRING)
  111. 1040  REM
  112. 1045  REM *******************************
  113. 1050  REM
  114. 1055  T$="C3M156,99C2M157,97M159,96M161,96M163,97M164,99M164,101M163,103M161,104M159,104M157,103M156,101M156,99M157,99C0M158,99"
  115. 1060  REM
  116. 1065  REM *******************************
  117. 1070  REM
  118. 1075  REM                (U$ STRING)
  119. 1080  REM
  120. 1085  REM *******************************
  121. 1090  REM
  122. 1095  U$="C1M158,99C3M159,98M161,98M162,99M162,101M161,102M159,102M158,101M158,99"
  123. 1100  REM
  124. 1105  REM *******************************
  125. 1110  REM
  126. 1115  REM MAINLINE PROGRAM
  127. 1120  REM
  128. 1125  REM *******************************
  129. 1130  REM
  130. 1135  DRAW S$
  131. 1140  SOUND 300,10
  132. 1145  FOR Z=1 TO 1000:NEXT
  133. 1150  PAINT (159,96),3,1
  134. 1155  SOUND 320,10
  135. 1160  FOR Z=1 TO 1000:NEXT
  136. 1165  DRAW T$
  137. 1170  SOUND 340,10
  138. 1175  FOR Z=1 TO 1000:NEXT
  139. 1180  PAINT (158,98),1,2
  140. 1185  SOUND 360,10
  141. 1190  FOR Z=1 TO 1000:NEXT
  142. 1195  DRAW U$
  143. 1200  SOUND 380,10
  144. 1205  FOR Z=1 TO 1000:NEXT
  145. 1210  PAINT (160,100),2,3
  146. 1215  SOUND 400,10
  147. 1220  FOR Z=1 TO 1000:NEXT
  148. 1225  GET (150,94)-(170,106),J
  149. 1230  GET (100,94)-(120,106),L
  150. 1235  FOR K=1 TO 3000:NEXT
  151. 1240  PUT (180,94),J
  152. 1245  SOUND 760,4
  153. 1250  FOR K=1 TO 3000:NEXT
  154. 1255  FOR I=1 TO 13
  155. 1260  PUT (180,81+I),L,AND
  156. 1265  SOUND (14-I)*37,2
  157. 1270  FOR Z=1 TO 80:NEXT
  158. 1275  NEXT I
  159. 1280  SOUND 54,30
  160. 1285  FOR I=1 TO 3000:NEXT
  161. 1290  PUT (180,94),J
  162. 1295  SOUND 760,4
  163. 1300  FOR I=1 TO 3000:NEXT I
  164. 1305  X2 = 150
  165. 1310  Y2 = 94
  166. 1315  FOR I = 1 TO 50
  167. 1320  X1 = RND*260+1
  168. 1325  Y1 = RND*186+1
  169. 1330  SOUND X1+Y1+37,1
  170. 1335  PUT (X1,Y1),J
  171. 1340  PUT (X1+30,Y1),J
  172. 1345  PUT (X2,Y2),J,XOR
  173. 1350  PUT (X2+30,Y2),J,XOR
  174. 1355  X2 = X1
  175. 1360  Y2 = Y1
  176. 1365  NEXT I
  177. 1370  FOR I = 1 TO 3000:NEXT
  178. 1375  FOR I=1 TO 13
  179. 1380  Y3=Y2+I
  180. 1382  LINE (X2,Y3)-(X2+50,Y3),0
  181. 1385  'PUT (X2,Y3),L,AND
  182. 1390  'PUT (X2+30,Y3),L,AND
  183. 1395  'SOUND (14-I)*37,3
  184. 1400  'FOR Z=1 TO 100:NEXT
  185. 1405  NEXT I
  186. 1410  'FOR Z=1 TO 1000:NEXT
  187. 1415  'SOUND 74,10
  188. 1420  'SOUND 111,10
  189. 1425  'SOUND 148,10
  190. 1430  'SOUND 185,10
  191. 1435  'SOUND 222,10
  192. 1440  FOR Z=1 TO 2000:NEXT
  193. 1445  FOR K=2 TO 20 STEP 2
  194. 1450  SOUND K*37,70
  195. 1455  FOR I=1 TO 150 STEP K
  196. 1460  IF I<K GOTO 1475
  197. 1465  PUT (I-K,I-K),J,XOR
  198. 1470  PUT (I+30-K,I-K),J,XOR
  199. 1475  PUT (I,I),J
  200. 1480  PUT (I+30,I),J
  201. 1485  NEXT I
  202. 1490  FOR Z=1 TO 80:NEXT
  203. 1495  SOUND 20000,0
  204. 1500  PUT (I-K,I-K),J,XOR
  205. 1505  PUT (I+30-K,I-K),J,XOR
  206. 1510  NEXT K
  207. 1515  SOUND 800,20
  208. 1520  FOR I=1 TO 3000:NEXT
  209. 1525  'PUT (150,95),J
  210. 1530  PUT (145,95),J
  211. 1535  SOUND 380,7
  212. 1540  FOR I=1 TO 1000:NEXT
  213. 1545  'PUT (180,95),J
  214. 1550  PUT (175,95),J
  215. 1555  SOUND 760,4
  216. 1560  FOR I=1 TO 3000:NEXT
  217. 1565  FOR I=1 TO 13
  218. 1570  'PUT (150,82+I),L,AND
  219. 1575  PUT (145,82+I),L,AND
  220. 1580  'PUT (180,82+I),L,AND
  221. 1585  PUT (175,82+I),L,AND
  222. 1590  IF I<>6 GOTO 1605
  223. 1595  SOUND (14-I)*37,30
  224. 1600  FOR Z=1 TO 2000:NEXT
  225. 1605  SOUND (14-I)*37,3
  226. 1610  FOR Z=1 TO 180:NEXT
  227. 1615  NEXT I
  228. 1620  SOUND 37,30
  229. 1625  FOR I=1 TO 6000:NEXT
  230. 1630  'FOR I=1 TO 281 STEP 40
  231. 1635  'FOR K=11 TO 179 STEP 28
  232. 1640  'PUT (I,K),J
  233. 1645  'NEXT K
  234. 1650  'SOUND I*5+37,2
  235. 1655  'FOR Z=1 TO 60:NEXT
  236. 1660  'NEXT I
  237. 1665  'SOUND 380,20
  238. 1670  'FOR I=1 TO 2000:NEXT
  239. 1675  'FOR K=0 TO 168 STEP 28
  240. 1680  'FOR I=1 TO 281 STEP 40
  241. 1685  'SOUND I*7+111,3
  242. 1690  'FOR Z=1 TO 60:NEXT
  243. 1695  'FOR H=1 TO 13
  244. 1700  'PUT (I,K+H),L,AND
  245. 1705  'NEXT
  246. 1710  'NEXT:NEXT
  247. 1715  'SOUND 400,5
  248. 1720  'SOUND 360,5
  249. 1725  'SOUND 360,5
  250. 1730  'SCREEN 0,0,0
  251. 1735  'END
  252. 1800  'SAVE "SQRSQR"
  253. 1805  DEFSNG M-Z,A-H:DEFINT I-N:KEY OFF:SCREEN 1,0:BL$=" ":ESC$=CHR$(27):C=3:DIM A(3):A(1)=1:A(2)=5:A(3)=3
  254. 1810  RANDOMIZE VAL(RIGHT$(TIME$,2))
  255. 1815  CLS:COLOR A(INT(4*RND)),INT(2*RND)
  256. 1820  N=INT(27*RND+4):XSTART=0:YSTART=0:HEIGHT=199:WID=319
  257. 1825  '
  258. 1830  IF N>20 THEN K=5 ELSE IF N>10 THEN K=3 ELSE K=2
  259. 1835  FOR I=N+1 TO K STEP -1
  260. 1840  XSIZE=WID/I:YSIZE=HEIGHT/I:Y=YSTART
  261. 1845  X=XSTART:XP=X+XSIZE:XPPP=X+WID:XPP=XPPP-XSIZE
  262. 1850   FOR J=1 TO I:YP=Y+YSIZE:LINE(X,Y)-(XP,YP),C,B:LINE(XPP,Y)-(XPPP,YP),C,B:Y=YP:NEXT J
  263. 1855  X=X+XSIZE
  264. 1860  Y=YSTART:YP=Y+YSIZE:YPPP=Y+HEIGHT:YPP=YPPP-YSIZE
  265. 1865   FOR J=1 TO I-2:XP=X+XSIZE:LINE(X,Y)-(XP,YP),C,B:LINE(X,YPP)-(XP,YPPP),C,B:X=XP:NEXT J
  266. 1870  XSTART=XSTART+XSIZE:YSTART=YSTART+YSIZE:HEIGHT=HEIGHT-2*YSIZE:WID=WID-2*XSIZE
  267. 1875  NEXT I
  268. 1880  C=C+1:IF C>3 THEN C=1
  269. 1885  FOR I=1 TO 80:NEXT I
  270. 1890  IF C=1 THEN 1815
  271. 1895  'IF INKEY$="" THEN 140 ELSE 15
  272. 2000  SCREEN 1
  273. 2005  COLOR 1,0
  274. 2010  CLS
  275. 2015  LINE (0,80)-(319,199),0,BF
  276. 2020  DRAW "S4;BM159,90;C2;U7;R20;M-35,+35;R12;M+35,-35;U8;L43;D15;R10"
  277. 2025  PAINT (158,89),4,2
  278. 2030  DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
  279. 2035  PAINT (121,76),4,2
  280. 2040  DRAW "s4;bm110,130;c2;r75"
  281. 2045  DRAW "s4;bm178,7;c2;m-33,+33;r24;d20;r10;u20;r8;u8;l8;u25;"
  282. 2050  DRAW "s1;bm170,25;c2;m-33,+33;r33;u28;"
  283. 2055  PAINT (178,8),4,2
  284. 2060  FOR Q= 1 TO 1000:NEXT Q
  285. 2065  DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
  286. 2070  PAINT (129,145),4,2
  287. 2075  FOR Q= 1 TO 1000:NEXT Q
  288. 2080  DRAW "s3;bm150,195;c2;r45;u9;l30;M+30,-30;U15;M-18,-18;L14;M-15,+15;D9;R11;U7;M+8,-8;R7;M+10,+10;D14;M-35,+35;D5;
  289. 2085  PAINT (151,194),4,2
  290. 2090  DRAW "s3;bm205,155;c2;d25;m+10,-10;m+10,+10;u25;l6;d10;m-5,-5;m-5,+5;u10;l5;"
  291. 2095  PAINT (206,156),4,2
  292. 2100  DRAW "s3;bm225,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u10;l18;"
  293. 2105  DRAW "s3;bm230,157;d4;r6;u4;l6;"
  294. 2110  PAINT (226,156),4,2
  295. 2115  DRAW "s3;bm245,155;c2;d25;r20;u25;l20;"
  296. 2120  DRAW "s3;bm250,158;c2;d15;r8;u15;l8;"
  297. 2125  PAINT (246,156),4,2
  298. 2130  DRAW "s3;bm265,155;c2;d25;r7;u10;m+10,+10;r5;u25;l6;d10;m-10,-10;l5;
  299. 2135  PAINT (266,156),4,2
  300. 2140  DRAW "s3;bm287,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;
  301. 2145  PAINT (289,156),4,2
  302. 2150  DRAW "s3;bm307,155;c2;d17;r4;u17;l4;
  303. 2155  PAINT (308,156),4,2
  304. 2160  DRAW "s3;bm307,170;c2;d4;r4;u4;l4;
  305. 2165  PAINT (308,171),4,2
  306. 2170  PLAY"t36;o1;l10;c
  307. 2175  FOR Q=1 TO 2000:NEXT
  308. 2200  SCREEN 1
  309. 2205  COLOR 1,0
  310. 2210  CLS
  311. 2215  LINE (0,80)-(319,199),0,BF
  312. 2220  DRAW "S4;BM159,90;C2;U7;R20;M-35,+35;R12;M+35,-35;U8;L43;D15;R10"
  313. 2225  PAINT (158,89),4,2
  314. 2230  DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
  315. 2235  PAINT (121,76),4,2
  316. 2240  DRAW "s4;bm110,130;c2;r75"
  317. 2245  DRAW "s4;bm178,7;c2;m-33,+33;r24;d20;r10;u20;r8;u8;l8;u25;"
  318. 2250  DRAW "s1;bm170,25;c2;m-33,+33;r33;u28;"
  319. 2255  PAINT (178,8),4,2
  320. 2260  FOR Q= 1 TO 600:NEXT Q
  321. 2265  DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
  322. 2270  PAINT (129,145),4,2
  323. 2275  FOR Q= 1 TO 600:NEXT Q
  324. 2280  DRAW "s6;bm170,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
  325. 2285  PAINT (129,145),4,2
  326. 2290  PAINT (169,145),4,2
  327. 2295  DRAW "s6;bm130,143;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
  328. 2300  PAINT (129,145),4,2
  329. 2305  DRAW "s3;bm205,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u11;l18;
  330. 2310  DRAW "s2;bm210,160;c2;u6;r8;d6;l8
  331. 2315  PAINT (206,155),4,2
  332. 2320  DRAW "s3;bm225,155;c2;d25;r7;u25;l7;"
  333. 2325  PAINT (226,156),4,2
  334. 2330  DRAW "s3;bm235,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;"
  335. 2335  PAINT (236,156),4,2
  336. 2340  DRAW "s3;bm255,155;c2;d25;r7;u10;r10;d10;r7;u25;l7;d10;l10;u10;l7;"
  337. 2345  PAINT (256,156),4,2
  338. 2350  DRAW "s3;bm275,155;c2;d5;r8;d20;r7;u20;r8;u5;l23;"
  339. 2355  PAINT (276,156),4,2
  340. 2360  DRAW "s3;bm305,155;c2;d17;r7;u17;l7;"
  341. 2365  PAINT (306,156),4,2
  342. 2370  DRAW "s3;bm305,172;c2;d4;r7;u4;l7;"
  343. 2375  PAINT (306,173),4,2
  344. 2380  PLAY "t45;o3;l32;dgb"
  345. 2385  PLAY "o4;d
  346. 2390  PLAY "p30"
  347. 2395  PLAY "o3;b
  348. 2400  PLAY "o4;l8;d
  349. 2405  FOR W = 1 TO 1500
  350. 2410  NEXT W
  351. 2415  CLS
  352. 2420  LINE (0,80)-(319,199),0,BF
  353. 2425  DRAW "s6;bm159,10;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
  354. 2430  PAINT (155,30),4,2
  355. 2435  DRAW "s6;bm159,70;c2;m-10,+10;r5;d20;l5;d5;r15;u5;l5;u30;"
  356. 2440  PAINT (155,90),4,2
  357. 2445  DRAW"s4;bm110,90;c2;u5;r10;u10;r5;d10;r10;d5;l10;d10;l5;u10;l10; RUN
  358. 2450  PAINT (121,76),4,2
  359. 2455  DRAW"s4;bm110,130;c2;r75"
  360. 2460  FOR Q= 1 TO 600:NEXT Q
  361. 2465  DRAW "s3;bm140,195;c2;r45;u9;l30;m+30,-30;u15;m-18,-18;l14;m-15,+15;d9;r11;u7;m+8,-8;r7;m+10,+10;d14;m-35,+35;d5;"
  362. 2470  PAINT (141,194),4,2
  363. 2475  DRAW "s3;bm205,155;c2;d25;r7;u11;m+11,+11;m+5,-5;m-11,-11;r8;u11;l18;
  364. 2480  DRAW "s2;bm210,160;c2;u6;r8;d6;l8
  365. 2485  PAINT (206,155),4,2
  366. 2490  DRAW "s3;bm225,155;c2;d25;r7;u25;l7;"
  367. 2495  PAINT (226,156),4,2
  368. 2500  DRAW "s3;bm235,155;c2;d25;r20;u11;l9;d3;r3;d4;l8;u17;r12;u5;l19;"
  369. 2505  PAINT (236,156),4,2
  370. 2510  DRAW "s3;bm255,155;c2;d25;r7;u10;r10;d10;r7;u25;l7;d10;l10;u10;l7;"
  371. 2515  PAINT (256,156),4,2
  372. 2520  DRAW "s3;bm275,155;c2;d5;r8;d20;r7;u20;r8;u5;l23;"
  373. 2525  PAINT (276,156),4,2
  374. 2530  DRAW "s3;bm305,155;c2;d17;r7;u17;l7;"
  375. 2535  PAINT (306,156),4,2
  376. 2540  DRAW "s3;bm305,172;c2;d4;r7;u4;l7;"
  377. 2545  PAINT (306,173),4,2
  378. 2550  PLAY "t45;o3;l32;dgb"
  379. 2555  PLAY "o4;d
  380. 2560  PLAY "p30"
  381. 2565  PLAY "o3;b
  382. 2570  PLAY "o4;l8;d
  383. 2575  FOR W = 1 TO 1500
  384. 2580  NEXT W
  385. 2600  SCREEN 1
  386. 2605  COLOR 0,0
  387. 2610  CLS
  388. 2615  KEY OFF
  389. 2620  DRAW"bm150,20;c3;d80;m+7,+7;m+7,-7;u80;l13;
  390. 2625  PAINT (152,21),3,3
  391. 2630  DRAW"BM150,100;c0;r14;bd5;bl4;bl5;bl1;bu5;u80;br6;d80;bd1;br2;l10;br1;bd1;r8;bl1;bd1;l6;bd1;br1;r4
  392. 2635  DRAW"bm150,19;c1;u9;r14;d9;l14
  393. 2640  PAINT (152,18),1,1
  394. 2645  DRAW"bm150,19;c0;bu9;r14;bd9;l14
  395. 2650  FOR Z = 1 TO 17
  396. 2655  PRINT
  397. 2660  NEXT Z
  398. 2665  PRINT "     SPELL THE NAME OF THIS OBJECT "
  399. 2670  PRINT:PRINT
  400. 2675  FOR X= 1 TO 1500:NEXT X
  401. 2680  PRINT "                P";
  402. 2685  FOR X= 1 TO 300:NEXT X
  403. 2690  PRINT "E";
  404. 2695  FOR X= 1 TO 300:NEXT X
  405. 2700  PRINT "N";
  406. 2705  FOR X= 1 TO 300:NEXT X
  407. 2710  PRINT "C";
  408. 2715  FOR X= 1 TO 300:NEXT X
  409. 2720  PRINT "I";
  410. 2725  FOR X= 1 TO 300:NEXT X
  411. 2730  PRINT "L";
  412. 2735  PRINT:PRINT:PRINT"                RIGHT! "
  413. 2740  FOR W = 1 TO 1500
  414. 2745  NEXT W
  415. 3000  ' START.BAS    SYSTEM STARTUP ROUTINE     6/9/81 PBK
  416. 3005  KEY OFF
  417. 3010  DIM A$(15),P$(15):SCREEN 0,1:WIDTH 40:COLOR 15,1,1:LOCATE ,,0
  418. 3015  GREEN=2: BLUE=1: CYAN=3: YELLOW=6 ELSE GREEN=7: BLUE=0: CYAN=7: YELLOW=7
  419. 3020  A$(13)= "       Personal Computer     "
  420. 3025  A$(1)=SPACE$(39):A$(2)=A$(1):A$(11)=A$(1):A$(12)=A$(1):A$(14)=A$(1):A$(15)=A$(1)
  421. 3030   A$(1)= "          The             "
  422. 3035   A$(3)= "POINTPOINTPOINTPOINT  POINTPOINTPOINTPOINTPOINTPOINT   POINTPOINT       POINTPOINT"
  423. 3040   A$(4)= "POINTPOINTPOINTPOINT  POINTPOINTPOINTPOINTPOINTPOINTPOINT  POINTPOINTPOINT     POINTPOINTPOINT"
  424. 3045   A$(5)=" POINTPOINT    POINTPOINT  POINTPOINT   POINTPOINTPOINT   POINTPOINTPOINT "
  425. 3050   A$(6)=" POINTPOINT    POINTPOINTPOINTPOINTPOINT    POINTPOINTPOINTPOINT POINTPOINTPOINTPOINT "
  426. 3055   A$(7)=" POINTPOINT    POINTPOINTPOINTPOINTPOINT    POINTPOINTPOINTPOINTPOINTPOINTPOINTPOINTPOINT "
  427. 3060   A$(8)=" POINTPOINT    POINTPOINT  POINTPOINT   POINTPOINT POINTPOINTPOINT POINTPOINT "
  428. 3065   A$(9)="POINTPOINTPOINTPOINT  POINTPOINTPOINTPOINTPOINTPOINTPOINT  POINTPOINTPOINT  POINT  POINTPOINTPOINT"
  429. 3070  A$(10)="POINTPOINTPOINTPOINT  POINTPOINTPOINTPOINTPOINTPOINT   POINTPOINTPOINT  POINT  POINTPOINTPOINT"
  430. 3075  CLS
  431. 3080  FOR I = 2 TO 40
  432. 3085  FOR J = 3 TO 10
  433. 3090  LOCATE J+5,I:PRINT "POINT";
  434. 3095  NEXT J:SOUND 100+RND*3000,1:NEXT I
  435. 3100  FOR I = 1 TO 7
  436. 3105  FOR J = 3 TO 10
  437. 3110  LOCATE J+5,I:PRINT " ";
  438. 3115  NEXT J:SOUND 100+RND*3000,1:NEXT I
  439. 3120  FOR I=8 TO 33:FOR J=3 TO 10:IF MID$(A$(J),I-7,1)=" "THEN LOCATE J+5,I:PRINT " ";
  440. 3125  NEXT J:SOUND 100+RND*3000,1:NEXT I
  441. 3130  FOR I = 34 TO 40
  442. 3135  FOR J = 3 TO 10
  443. 3140  LOCATE J+5,I:PRINT " ";
  444. 3145  NEXT J:SOUND 100+RND*3000,1:NEXT I
  445. 3150  GOTO 3165
  446. 3155  FOR I=2 TO 12
  447. 3160  COLOR 15,BLUE:LOCATE I+5,5: PRINT SPACE$(3)+A$(I)+SPACE$(3): NEXT
  448. 3165  COLOR 15,BLUE:LOCATE 1+5,6: PRINT SPACE$(3)+A$(1)+SPACE$(3)
  449. 3170  SOUND 100+RND*3000,1
  450. 3175  COLOR 15,BLUE:LOCATE 13+5,2: PRINT SPACE$(3)+A$(13)
  451. 3180  SOUND 100+RND*3000,4
  452. 3185  FOR I=1 TO 3000:NEXT
  453. 3200  KEY OFF:DEFSNG S,A:SCREEN 1,0:COLOR 0,0:CLS:X=160:Y=100
  454. 3205  FOR T=1 TO 200:CIRCLE(RND*300,RND*300),RND*0.5,3:NEXT T
  455. 3210  CIRCLE (X,Y),50,1
  456. 3215  PAINT (X,Y),3,1
  457. 3220  FIRST =0:LAST=10:CLR=1:SET = 2.2:ANG =1:GOSUB 3240
  458. 3225  FIRST=14:LAST=22:CLR=2:SET=2.05:ANG=1.1:GOSUB 3240
  459. 3230  FIRST=31:LAST=48:CLR=1:SET=1.95:ANG=1.2:GOSUB 3240
  460. 3235  GOTO 3260
  461. 3240  FOR RING=FIRST TO LAST
  462. 3245  CIRCLE(X,Y),85+RING,CLR,SET,ANG,0.2
  463. 3250  NEXT RING
  464. 3255  RETURN
  465. 3260  FOR I=1 TO 3000:NEXT:DEFINT S,A
  466. 3300  SCREEN 1,0
  467. 3305  COLOR 0,1
  468. 3310  CLS
  469. 3315  KEY OFF
  470. 3320  PRINT"              PROFITS-1980"
  471. 3325  DRAW "S3;bm32,40;c3;d194;r372;u194;l372;"
  472. 3330  DRAW "S3;bm33,40;c3;d193;r370;u193;l371;"
  473. 3335  DRAW"s3;bm82,40;c3;d194;r62;u194;r62;d194;r62;u194;r62;d194;"
  474. 3340  DRAW"s3;bm81,40;c3;d194;r62;u194;r62;d194;r62;u194;r62;d194;"
  475. 3345  PRINT"             (IN THOUSANDS)":PRINT:
  476. 3350  PRINT"     JAN   FEB  MARCH APRIL  MAY  JUNE"
  477. 3355  PRINT:PRINT" 90":PRINT:PRINT" 80":PRINT:PRINT" 70":PRINT:PRINT" 60":PRINT:PRINT" 50":PRINT:PRINT" 40":PRINT:PRINT" 30":PRINT:PRINT" 20":PRINT:PRINT" 10":
  478. 3360  FOR P=1 TO 500
  479. 3365  NEXT P
  480. 3370  LINE (35,80)-(78,182),1,BF
  481. 3375  LINE (84,67)-(124,182),1,BF
  482. 3380  LINE (131,95)-(170,182),1,BF
  483. 3385  LINE (177,87)-(216,182),1,BF
  484. 3390  LINE (222,60)-(262,182),1,BF
  485. 3395  LINE (268,72)-(308,182),1,BF
  486. 3400  FOR X = 1 TO 1000
  487. 3405  NEXT X
  488. 3410  FOR I=1 TO 3000:NEXT
  489. 9900  CHAIN "B:TEXT"
  490.