10 REM     SWAT Q&D OPTIONS MAKER
20 REM  CHANGE LINES 40-193 THEN RUN
30 REM
40 JP=5000:  REM JACKPOT (100000 MAX)
50 B=10:     REM COINS PER LINE (1-10)
60 CU=3:     REM CUTOFF NUMBER (1-5)
70 FL=2:     REM GAME TYPE (1-9 ONLY)
80 :         REM 1=NO R/B  2=R/B 3                       3=R/B 5   4=RACE 3
90 :         REM 5=RACE 5  6=BONUS 3                     7=BONUS 5 8=910JQKA
100 :        REM 9=910JQKA WITH WILD
110 MU=1:    REM RACE/BONUS TIE BREAKER                  (0=RACES 1=BONUS)
120 PL=13:   REM NUMBER OF LINES PLAYED                  (5 OR 13 ONLY)
130 AR=0:    REM ARROW ANIMATION                         (0=OFF 1=ON)
140 C1=6:    REM CAR 1 COLOR (1-15)
150 C2=3:    REM CAR 2 COLOR (1-15)
160 C3=7:    REM CAR 3 COLOR (1-15)
170 C4=2:    REM CAR 4 COLOR (1-15)
180 C5=5:    REM CAR 5 COLOR (1-15)
190 CR=1000: REM CREDITS
191 B1=5000: REM BONUS HIGH NUMBER
192 B2=2500: REM BONUS MIDDLE NUMBER
193 B3=1000: REM BONUS LOW NUMBER
200 REM
210 REM SIMPLE ERROR CHECKING OF DATA
220 REM
230 REM IF PROGRAM STOPS WITH A BREAK
240 REM IN XXXX, RE-LIST PROGRAM AND
250 REM FIX DATA THAT IS OUT OF RANGE
260 REM
270 IFJP<1ORJP>100000THENSTOP
280 IFB<1ORB>10THENSTOP
290 IFCU<1ORCU>5THENSTOP
300 IFFL<1ORFL>9THENSTOP
310 IFMU<>0ANDMU<>1THENSTOP
320 IFPL<>5ANDPL<>13THENSTOP
330 IFAR<>0ANDAR<>1THENSTOP
340 IFC1<1ORC1>15THENSTOP
350 IFC2<1ORC2>15THENSTOP
360 IFC3<1ORC3>15THENSTOP
370 IFC4<1ORC4>15THENSTOP
380 IFC5<1ORC5>15THENSTOP
390 IFCR<1THENSTOP
391 IFB1<1THENSTOP
392 IFB2<1THENSTOP
393 IFB3<1THENSTOP
400 REM
410 REM SCRATCH OLD FILE
420 REM
430 DV=PEEK(186):IFDV<8THENDV=8
440 OPEN15,DV,15,"S0:SWAT.OPTIONS":CLOSE15
450 REM
460 REM WRITE NEW FILE TO ACTIVE DRIVE
470 REM
480 OPEN2,DV,2,"SWAT.OPTIONS,P,W"
490 PRINT#2,JP
500 PRINT#2,B
510 PRINT#2,CU
520 PRINT#2,FL
530 PRINT#2,MU
540 PRINT#2,PL
550 PRINT#2,AR
560 PRINT#2,C1
570 PRINT#2,C2
580 PRINT#2,C3
590 PRINT#2,C4
600 PRINT#2,C5
610 PRINT#2,CR
611 PRINT#2,B1
612 PRINT#2,B2
613 PRINT#2,B3
620 CLOSE2
630 END
10000 OPEN15,8,15,"S0:SWAT.OPTS.MAKER":CLOSE15:SAVE"SWAT.OPTS.MAKER",8:END