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