1 REM Ins{nd av Jarl Johansson <1680>    1985-05-01 16.32.27
10 ! ******************************
20 ! *                            *
30 ! *   GRANPRIX.800   VER 1.0   *
40 ! *                            *
50 ! *  GJORD AV PETER JOHANSSON  *
60 ! *        SON TILL <1680>     *
70 ! *                            *
80 ! *   PASSAR ABC800M,800C,806  *
90 ! *   MED HR-UPPL\SNING        *
100 ! *  TESTAD P] ABC806         *
110 ! *                           *
120 ! *****************************
125 EXTEND : FLOAT : OPTION BASE 0 ! K|r man ABC806 b|r man s{tta ATTRIBUTE 0
130 DIM J(30) : DIM K(30) : DIM T(30) : DIM [(30)
140 G1=1
150 ! ****** RENSA SK[RMEN ******
160 ; CHR$(12)
170 FGPOINT 239,239,0
180 FGFILL 0,0
190 FGCTL 7
200 X=12 : Y=222
210 W=3
220 FOR I=1 TO 29
230   READ J(I),K(I),T(I),[(I)
240 NEXT I 
250 IF PEEK(65364)=80 THEN ; CUR(2,10);DBLE GRN 'G R A N D   P R I X' : ; 
260 IF PEEK(65364)=80 THEN ; CUR(4,8);GRN DBLE '======================'
270 IF PEEK(65364)=40 THEN ; CUR(2,6);DBLE GRN 'G R A N D   P R I X' : ; 
280 IF PEEK(65364)=40 THEN ; CUR(4,4);GRN DBLE '======================='
290 ; : ; RED NRML '\NSKAS INSTRUKTIONER '; : INPUT F5$
300 IF F5$='J' OR F5$='j' THEN 1320
310 ON ERROR GOTO 310 : ; RED 'VILKEN HASTIGHET(0-9)'; : INPUT ]
320 IF ]>9 THEN 310
330 ! ****** RITA BANA ******
340 FGPOINT 0,0,0 : FGFILL 239,239 : FOR I=1 TO 29
350   FGPOINT J(I),K(I),W
360   FGLINE T(I),[(I)
370 NEXT I 
380 ! ****** RITA M]LLINJE ******
390 FGPOINT 140,91,1 : FGPOINT 140,93
400 FGPOINT 140,89
410 FGPOINT 140,87
420 FGPOINT 140,85
430 FGPOINT 140,83 : FGPOINT 140,81 : FGPOINT 140,79 : FGPOINT 140,77
440 T1=0 : B=13 : ; CHR$(12) : X=12 : Y=222
450 ; CUR(10,12);DBLE GRN 'GRAND ';MAG 'PRIX'
460 ; CUR(0,10);'TRYCK P] <S> F\R ATT STARTA !'
470 [3=INP(34) : IF [3=83 THEN 480 ELSE 470
480 ; CUR(0,10);'                               '
490 ! ****** L[S AV TANGENTBORDET ******
500 B=INP(34)
510 ! ****** TID VID HASTIGHETERNA 0 OCH 1 ******
520 IF ]>1 THEN 570
530 T1=T1+]*.007+.03
540 ; CUR(22,0); : PRINT USING "###.##";T1
550 FOR K=1 TO ]*2 : NEXT K 
560 ! ****** F\RDR\JNING F\R ATT S[NKA HASTIGHETEN ******
570 FOR K=1 TO ]*8+8
580 NEXT K 
590 ON ERROR GOTO 500
600 IF Y>75 AND Y<95 AND X=139 GOTO 970
610 IF B=65 THEN 670
620 IF B=87 THEN 740
630 IF B=83 THEN 810
640 IF B=90 THEN 880
650 GOTO 500
660 ! ****** SV[NG V[NSTER ******
670 X=X-G1
680 E%=(FGPOINT(X,Y)<>0)
690 IF E%=-1 THEN 940
700 FGPOINT X,Y,1
710 FGPOINT X+1,Y,0
720 GOTO 500
730 ! ****** SV[NG UPP ******
740 Y=Y+G1
750 E%=(FGPOINT(X,Y)<>0)
760 IF E%=-1 THEN 940
770 FGPOINT X,Y,1
780 FGPOINT X,Y-1,0
790 GOTO 500
800 ! ****** SV[NG H\GER ******
810 X=X+G1
820 E%=(FGPOINT(X,Y)<>0)
830 IF E%=-1 THEN 940
840 FGPOINT X,Y,1
850 FGPOINT X-1,Y,0
860 GOTO 500
870 ! ****** SV[NG NER ******
880 Y=Y-G1
890 E%=(FGPOINT(X,Y)<>0)
900 IF E%=-1 THEN 940
910 FGPOINT X,Y,1
920 FGPOINT X,Y+1,0
930 GOTO 500
940 ; CUR(20,0);
950 ; 'TYV[RR [R DET SLUT'
960 GOTO 990
970 ; CUR(19,0);
980 ; 'GRATTIS DU KLARADE DET'
990 ; 'VILL DU SPELA IGEN(J/N)'; : INPUT G$
1000 IF G$='J' THEN 310
1010 ! ****** DATASATSER F\R BANRITNINGEN ******
1020 DATA 10,230,230,230,230,230,230,180,230,180,25,180,180,180,180,60
1030 DATA 180,60,10,60,10,60,10,230,10,215,210,215,210,215,210,195,210,195,80,195
1040 DATA 80,195,80,215,180,165,65,165,65,165,65,205
1050 DATA 65,195,25,195,25,195,25,75,25,75,165,75,165,75,165,95
1060 DATA 165,95,40,95,40,95,40,145,40,145,165,145,165
1070 DATA 145,165,120,165,120,40,120
1080 DATA 180,107,55,107
1090 DATA 50,180,50,160
1100 DATA 40,145,40,170,50,180,50,160
1110 DATA 25,195,25,207,45,195,45,207
1120 DATA 35,215,35,202,55,215,55,202
1130 DATA 10,230,230,230,230,230,230,165,230,165,120
1140 DATA 165,184,165,184,40,184,40,92,40
1150 DATA 92,40,92,58,92,58,10,58,10,58,10,230,10,215,82,215
1160 DATA 82,215,82,180,82,180,59,180,59,180,59
1170 DATA 201,59,201,66,201,66,201,66,181,74,188,74,207
1180 DATA 74,207,52,207,52,207,52,173,52,173,52,173,52
1190 DATA 173,93,173,93,173,93,229,108,208,211,208
1200 DATA 211,208,211,178,211,178,108,178,108,207
1210 DATA 108,163,108,163,44,163,44,163,44,214,120,165,120,148
1220 DATA 120,148,21,148,21,148,21,185,35,185,35,148
1230 DATA 28,214,28,166,120,147,120,55,120,55,104,55
1240 DATA 104,55,104,147,133,41,133,150,147,165,147
1250 DATA 55,21,147,21,71,33,59,33,133,47,147,47,70
1260 DATA 59,58,59,132,74,147,74,71,92,59,92,133
1270 DATA 122,229,122,217,133,209,133,221,145,229,145,217
1280 DATA 157,209,157,221,170,229,170,217,181,209,181,221
1290 FGCTL 0 : ; CHR$(12)
1300 END 
1310 ! ****** INSTRUKTIONER ******
1320 ; CHR$(12)
1330 IF PEEK(65364)=80 THEN ; CUR(0,10);GRN DBLE 'G R A N D   P R I X'
1340 IF PEEK(65364)=80 THEN ; CUR(2,8);GRN DBLE '======================='
1350 IF PEEK(65364)=40 THEN ; CUR(0,6);GRN DBLE 'G R A N D   P R I X'
1360 IF PEEK(65364)=40 THEN ; CUR(2,4);GRN DBLE '======================='
1370 ; : ; RED 'DU HAR BLIVIT ANST[LLD SOM EN FORMEL 1'
1380 ; RED 'F\RARE. DU SKALL NU F\RS\KA DIG P] ATT '
1390 ; RED 'K\RA BANAN P] S] KORT TID SOM M\JLIGT'
1400 ; RED 'OCH F\RS\KA ATT INTE K\RA IN I V[GGEN,'
1410 ; RED 'F\R D] AVBRYTS SPELET.' : ; 
1420 ; RED 'F\R ATT STYRA BILEN ANV[NDER DU' : ; RED 'F\LJANDE TANGENTER:'
1430 ; YEL '            W <UPP>'
1440 ; : ; YEL '     A <V[NSTER>  S <H\GER>'
1450 ; : ; YEL '            Z <NED>'
1460 ; : ; GRN ' DET FINNS 10 HASTIGHETER (0-9)'
1470 ; GRN 'D[R 0 [R SV]RAST OCH 9 [R L[TTAST.'
1480 ; GRN 'P] HASTIGHETERNA 0 OCH 1 F]R DU TID.'
1490 ; : ; BLU 'TRYCK P] RETURN N[R DU HAR L[ST F[RDIGT' : GET Q1$
1500 ; CHR$(12)
1510 IF PEEK(65364)=80 THEN ; CUR(0,10);DBLE GRN 'G R A N D   P R I X' : ; 
1520 IF PEEK(65364)=80 THEN ; CUR(2,8);GRN DBLE '======================'
1530 IF PEEK(65364)=40 THEN ; CUR(0,6);DBLE GRN 'G R A N D   P R I X' : ; 
1540 IF PEEK(65364)=40 THEN ; CUR(2,4);GRN DBLE '======================='
1550 ; : ; : GOTO 310