home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib29a.dsk / DECEMBER.1986 / MAKE.SCENE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  9KB  |  209 lines
  1. 10  REM  **********************
  2. 20  REM  *    MAKE.SCENE      *
  3. 30  REM  *  BY COLIN FRENCH   *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  IF  PEEK(104) < >8  THEN  POKE 104,8: POKE 103,1: POKE 2048,0: PRINT  CHR$(4)"RUN MAKE.SCENE"
  9. 90  LOMEM: 16384: ONERR  GOTO 2090
  10. 100  TEXT : HOME : HGR : VTAB 21
  11. 110  PRINT "=== FORMULA NIBBLE SCREEN GENERATOR ===": PRINT 
  12. 120  REM ---DRAW SKY---
  13. 130  PRINT "DO YOU HAVE A COLOR OR A MONOCHROME"
  14. 140  PRINT "MONITOR? (PRESS C OR M)  ";
  15. 150  GET Z$: IF Z$ = "M"  OR Z$ =  CHR$(109)  THEN  PRINT "MONOCHROME";: HCOLOR= 7: GOTO 180
  16. 160  IF Z$ < >"C"  AND Z$ < > CHR$(99)  THEN 150
  17. 170  PRINT "COLOR!";: HCOLOR= 6
  18. 180  FOR Y = 0 TO 63: HPLOT 0,Y TO 279,Y: NEXT 
  19. 190  REM ---DRAW GRASS---
  20. 200  HCOLOR= 1: POKE  -16302,0: PRINT 
  21. 210 Y = 64: FOR X = 131 TO 0  STEP  -6
  22. 220  HPLOT 0,Y TO X,Y:Y = Y +1: NEXT 
  23. 230 X = 148: FOR Y = 64 TO 100
  24. 240  HPLOT X,Y TO 279,Y:X = X +2: NEXT 
  25. 250  REM ---CENTER LINE---
  26. 260  HCOLOR= 3: FOR N = 1 TO 13: READ X,Y
  27. 270  HPLOT X,Y TO X +1,Y: NEXT 
  28. 280  REM ---CAR BODY---
  29. 290  HCOLOR= 5: FOR Y = 101 TO 154: READ X1,X2
  30. 300  HPLOT X1,Y TO X2,Y: HPLOT 279 -X1,Y TO 279 -X2,Y
  31. 310  NEXT 
  32. 320  REM ---TIRE OUTLINE---
  33. 330  HCOLOR= 7
  34. 340  READ X1,Y1,X2,Y2
  35. 350  IF X1 <0  THEN 380
  36. 360  HPLOT X1,Y1 TO X2,Y2: HPLOT 279 -X1,Y1 TO 279 -X2,Y2
  37. 370  GOTO 340
  38. 380  REM ---NUMBER ON HOOD---
  39. 390  HPLOT 126,106 TO 153,106: HPLOT 126,111 TO 153,111
  40. 400  HPLOT 116,107 TO 135,107: HPLOT 140,107 TO 163,107
  41. 410  HPLOT 112,108 TO 127,108: HPLOT 152,108 TO 167,108
  42. 420  HPLOT 112,109 TO 135,109: HPLOT 148,109 TO 167,109
  43. 430  HPLOT 116,110 TO 135,110: HPLOT 144,110 TO 163,110
  44. 440  HPLOT 140,109 TO 143,109
  45. 450  REM ---DASHBOARD---
  46. 460 Y = 128
  47. 470  READ X1,X2: IF X1 <0  THEN 550
  48. 480  FOR X = X1 TO X2  STEP 4
  49. 490  HPLOT X,Y TO X +1,Y: HPLOT 276 -X,Y TO 277 -X,Y
  50. 500  NEXT :Y = Y +1
  51. 510  READ X1,X2: IF X1 <0  THEN 550
  52. 520  FOR X = X1 TO X2  STEP 4
  53. 530  HPLOT X +2,Y TO X +3,Y: HPLOT 278 -X,Y TO 279 -X,Y
  54. 540  NEXT :Y = Y +1: GOTO 470
  55. 550  HCOLOR= 4: FOR Y = 144 TO 148: READ X1,X2
  56. 560  HPLOT X1,Y TO X2,Y: HPLOT 279 -X1,Y TO 279 -X2,Y
  57. 570  NEXT 
  58. 580  REM ---INSTRUMENTS---
  59. 590  FOR Y = 133 TO 144: READ X
  60. 600  HPLOT 125 -X,Y TO 126 +X,Y: HPLOT 153 -X,Y TO 154 +X,Y
  61. 610  NEXT : HCOLOR= 7
  62. 620  FOR Y = 132 TO 145: READ X1,X2
  63. 630  HPLOT 125 -X1,Y TO 125 -X2,Y: HPLOT 126 +X1,Y TO 126 +X2,Y
  64. 640  HPLOT 153 -X1,Y TO 153 -X2,Y: HPLOT 154 +X1,Y TO 154 +X2,Y
  65. 650  NEXT 
  66. 660  REM ---STEERING WHEEL---
  67. 670  FOR Y = 122 TO 160: READ X1,X2
  68. 680  HPLOT X1,Y TO X2,Y: HPLOT 279 -X1,Y TO 279 -X2,Y
  69. 690  NEXT : HCOLOR= 4
  70. 700  FOR X = 1 TO 8: READ X1,Y1,X2,Y2
  71. 710  HPLOT X1,Y1 TO X2,Y2: HPLOT 279 -X1,Y1 TO 279 -X2,Y2
  72. 720  NEXT 
  73. 730  REM ---TEXT AT BOTTOM---
  74. 740  FOR L = 0 TO 7: READ ADD
  75. 750  FOR X = 6 TO 18: READ C: POKE ADD +X,C: NEXT 
  76. 760  FOR X = 27 TO 33: READ C: POKE ADD +X,C: NEXT 
  77. 770  NEXT : HCOLOR= 3
  78. 780  REM ---STARTING LIGHTS---
  79. 790  FOR Y = 160 TO 169: READ X1,X2
  80. 800  HPLOT 119 -X1,Y TO 119 -X2,Y: HPLOT 120 +X1,Y TO 120 +X2,Y
  81. 810  HPLOT 139 -X1,Y TO 139 -X2,Y: HPLOT 140 +X1,Y TO 140 +X2,Y
  82. 820  HPLOT 159 -X1,Y TO 159 -X2,Y: HPLOT 160 +X1,Y TO 160 +X2,Y
  83. 830  NEXT 
  84. 840  REM ---BOX---
  85. 850  HPLOT 4,165 TO 107,165: HPLOT 172,165 TO 275,165
  86. 860  HPLOT 4,165 TO 4,190: HPLOT 5,165 TO 5,190
  87. 870  HPLOT 274,165 TO 274,190: HPLOT 275,165 TO 275,190
  88. 880  HPLOT 4,190 TO 275,190
  89. 890  FOR D = 1 TO 800: NEXT : REM -PAUSE TO ADMIRE?-
  90. 900  REM ---SAVE IMAGES---
  91. 910  HOME : POKE  -16301,0: VTAB 22
  92. 920  PRINT "READY TO SAVE IMAGES.. INSERT THE DISK"
  93. 930  PRINT "YOU WANT TO SAVE THEM ON & PRESS A KEY ";
  94. 940  GET Z$: HOME : VTAB 21: PRINT : PRINT  TAB( 10)"WORKING ON SCREEN 1"
  95. 950  PRINT  CHR$(4)"BSAVE TRK.SCREEN1,A$2000,L$1FFB"
  96. 960  REM ---DRAW TIRE HIGHLIGHTS---
  97. 970  HCOLOR= 7: FOR X = 10 TO 27  STEP 8
  98. 980  HPLOT X,104 TO X +3,104: HPLOT 279 -X,104 TO 276 -X,104: NEXT 
  99. 990  FOR X = 6 TO 23  STEP 8
  100. 1000  HPLOT X,105 TO X +3,105: HPLOT 279 -X,105 TO 276 -X,105: NEXT 
  101. 1010  HOME : VTAB 22: PRINT  TAB( 10)"WORKING ON SCREEN 2"
  102. 1020  PRINT  CHR$(4)"BSAVE TRK.SCREEN2,A$2000,L$1FFB"
  103. 1030  HOME : VTAB 22: PRINT "FINISHED HI-RES SCREENS, WORKING ON"
  104. 1040  PRINT "RACE RECORDS SCREEN...": FOR D = 1 TO 500: NEXT : GOTO 1730
  105. 1050  REM ---CENTER LINE DATA---
  106. 1060  DATA  132,67,126,70,120,73,114,76,108,79
  107. 1070  DATA  102,82,100,83,90,88,88,89,74,96,72,97,70,98,68,99
  108. 1080  REM ---ORANGE CAR DATA---
  109. 1090  DATA  105,139,91,139,77,139,68,139,64,139
  110. 1100  DATA  60,125,56,115,54,111,50,111,48,115
  111. 1110  DATA  46,125,42,139,40,139,36,139,34,139
  112. 1120  DATA  32,139,30,139,28,139,26,139,24,139
  113. 1130  DATA  20,139,18,139,16,139,14,139,12,139
  114. 1140  DATA  10,139,8,93,6,83,4,75,2,69
  115. 1150  DATA  0,63,0,59,0,55,0,51,0,47
  116. 1160  DATA  0,45,0,41,0,39,0,35,0,33
  117. 1170  DATA  0,29,0,27,0,25,0,21,0,19
  118. 1180  DATA  0,17,0,15,0,13,0,11,0,9
  119. 1190  DATA  0,7,0,5,0,3,0,1
  120. 1200  REM ---TIRE OUTLINE DATA---
  121. 1210  DATA  12,101,57,101,6,102,11,102,42,102,47,102
  122. 1220  DATA  58,102,61,102,2,103,5,103,0,104,1,104
  123. 1230  DATA  38,103,41,103,62,103,63,103,36,104,37,104
  124. 1240  DATA  34,105,34,106,35,105,35,106,32,107,32,109
  125. 1250  DATA  33,107,33,109,30,110,30,113,31,110,31,113
  126. 1260  DATA  28,114,28,117,29,114,29,117,-1,-1,-1,-1
  127. 1270  REM ---DASHBOARD DATA---
  128. 1280  DATA  96,139,84,139,76,139,72,139,64,139
  129. 1290  DATA  60,139,56,139,52,139,48,139,48,139
  130. 1300  DATA  44,139,40,139,36,139,36,139,32,139
  131. 1310  DATA  28,139,24,139,24,139,20,139,20,139
  132. 1320  DATA  16,139,16,36,12,32,12,28,8,28
  133. 1330  DATA  8,24,4,24,4,20,0,20,0,16
  134. 1340  DATA  0,16,0,12,0,12,-1,-1
  135. 1350  DATA  54,89,50,95,46,101,42,107,40,115
  136. 1360  REM ---INSTRUMENTS DATA---
  137. 1370  DATA  1,3,5,5,7,7,7,7,5,5,3,1
  138. 1380  DATA  0,1,2,3,4,5,6,7,6,7,8,9,8,9
  139. 1390  DATA  8,9,8,9,6,7,6,7,4,5,2,3,0,1
  140. 1400  REM ---STEERING WHEEL DATA---
  141. 1410  DATA  132,139
  142. 1420  DATA  124,139,118,139,114,139,110,139,108,139
  143. 1430  DATA  106,139,104,139,102,139,100,129,100,121
  144. 1440  DATA  98,117,98,115,96,113,94,109,94,109
  145. 1450  DATA  92,107,92,107,92,105,90,105,90,103
  146. 1460  DATA  90,103,90,103,88,101,88,101,88,101
  147. 1470  DATA  88,101,88,99,86,99,86,99,84,99
  148. 1480  DATA  82,99,80,101,80,103,78,103,78,103
  149. 1490  DATA  78,103,78,103,78,101
  150. 1500  DATA  84,152,84,156,85,152,85,156,86,157,87,157
  151. 1510  DATA  88,158,91,158,92,159,93,159,94,158,97,158
  152. 1520  DATA  98,157,98,154,99,157,99,154
  153. 1530  REM ---TEXT DATA---
  154. 1540  DATA  15056,127,25,3,115,7,0,30,30,0,30,30,0,30
  155. 1550  DATA  3,62,124,1,0,30,30
  156. 1560  DATA  16080,24,24,71,51,0,0,51,51,0,51,51,0,51
  157. 1570  DATA  3,99,12,3,0,51,51
  158. 1580  DATA  9040 ,24,24,111,51,96,0,51,51,12,51,51,0,51
  159. 1590  DATA  3,99,12,51,0,51,51
  160. 1600  DATA  10064,24,24,59,115,97,0,51,51,12,51,51,0,51
  161. 1610  DATA  3,99,12,51,0,51,51
  162. 1620  DATA  11088,24,24,19,51,0,0,51,51,0,51,51,0,51
  163. 1630  DATA  3,127,124,1,0,51,51
  164. 1640  DATA  12112,24,24,3,51,96,0,51,51,12,51,51,0,51
  165. 1650  DATA  3,99,12,48,0,51,51
  166. 1660  DATA  13136,24,24,3,51,96,0,51,51,12,51,51,12,51
  167. 1670  DATA  3,99,12,48,0,51,51
  168. 1680  DATA  14160,24,24,3,115,7,0,30,30,0,30,30,12,30
  169. 1690  DATA  63,99,12,0,0,30,30
  170. 1700  REM ---STARTING LIGHTS DATA---
  171. 1710  DATA  0,1,2,3,4,5,6,7,6,7
  172. 1720  DATA  6,7,6,7,4,5,2,3,0,1
  173. 1730  TEXT : HOME 
  174. 1740 V = 1: GOSUB 1990
  175. 1750  PRINT : PRINT : PRINT  TAB( 14)"RECORD HOLDERS"
  176. 1760  FOR N = 1 TO 39: PRINT ".";: NEXT : PRINT : PRINT 
  177. 1770  HTAB 17: PRINT "ROOKIE";: HTAB 30: PRINT "CHAMPION"
  178. 1780  FOR N = 1 TO 39: PRINT ".";: NEXT : PRINT 
  179. 1790  FOR N = 1 TO 3
  180. 1800  HTAB 13: PRINT ":";: HTAB 27: PRINT ":"
  181. 1810  FOR N2 = 1 TO 3
  182. 1820  HTAB 13: PRINT ": --- 00:00.0 : --- 00:00.0"
  183. 1830  NEXT N2,N
  184. 1840  FOR N = 1 TO 12: PRINT ".";: NEXT : PRINT ":";
  185. 1850  FOR N = 1 TO 13: PRINT ".";: NEXT : PRINT ":";
  186. 1860  FOR N = 1 TO 12: PRINT ".";: NEXT 
  187. 1870  VTAB 11: HTAB 1: PRINT "MONACO"
  188. 1880  VTAB 15: PRINT "DETROIT"
  189. 1890  VTAB 19: PRINT "MONTREAL"
  190. 1900  VTAB 24: PRINT "     (PRESS KEY OR BUTTON FOR MENU)";
  191. 1910  VTAB 23: PRINT : HTAB 32
  192. 1920  PRINT  CHR$(4)"BSAVE RACE.RECORDS,A$400,L$400
  193. 1930  HOME : PRINT "ALL DONE!": END 
  194. 1940  REM   ---CHECKERED PATTERNS---
  195. 1950  FOR N = 1 TO 6: PRINT " ";: INVERSE 
  196. 1960  PRINT " ";: NORMAL : NEXT : RETURN 
  197. 1970  FOR N = 1 TO 5: INVERSE : PRINT " ";: NORMAL 
  198. 1980  PRINT " ";: NEXT : INVERSE : PRINT " ";: NORMAL : RETURN 
  199. 1990  REM   ---DRAW LOGO---
  200. 2000  VTAB V: HTAB 1: GOSUB 1950
  201. 2010  PRINT "----------------";: REM  16 -'S
  202. 2020  GOSUB 1970
  203. 2030  VTAB V +1: HTAB 1: GOSUB 1970
  204. 2040  PRINT "  FORMULA NIBBLE ";
  205. 2050  GOSUB 1950
  206. 2060  VTAB V +2: HTAB 1: GOSUB 1950
  207. 2070  PRINT "----------------";: REM  16 -'S
  208. 2080  GOSUB 1970: RETURN 
  209. 2090  HOME : TEXT : VTAB 12: PRINT "ERROR " PEEK(222)" IN LINE " PEEK(218) +256 * PEEK(219): END