0 POKE 770,131:POKE 771,164: REM AUTORUN
10 POKE 53280,1:POKE 53281,1:POKE 646,2:REM COLORS
20 SYS 58692:REM CLEAR SCREEN
30 PRINT:PRINT "         ORASTRON A-SID V 1.0.0":PRINT:PRINT
40 PRINT:PRINT:PRINT:PRINT:PRINT
50 PRINT "    PLEASE DO NOT USE THIS SOFTWARE"
60 PRINT " IF YOU SUFFER FROM EPILEPSY, MIGRAINE,"
70 PRINT "  OR OTHER PHOTOSENSITIVE CONDITIONS.":PRINT:PRINT:PRINT:PRINT
80 PRINT "       INSERT JOYSTICK IN PORT 1"
90 PRINT "      AND PRESS FIRE TO CONTINUE."
110 J=PEEK(56321):IF (J AND 16) THEN 110
111 J=PEEK(56321):IF (J AND 16)=0 THEN 111
200 SYS 58692
210 PRINT:PRINT "         ORASTRON A-SID V 1.0.0":PRINT:PRINT
220 PRINT:PRINT:PRINT:PRINT
230 PRINT "   YOU CAN INSERT A PADDLE IN PORT 2"
240 PRINT "    OR CONNECT THE OUTPUT PORT OF AN"
250 PRINT " EXPRESSION PEDAL TO A JACK-TO-CONTROL"
260 PRINT "  PORT ADAPTER ATTACHED TO PORT 2, AND"
270 PRINT "      TURN EITHER TO THE MINIMUM.":PRINT:PRINT:PRINT
280 PRINT "     IF ANY SUCH DEVICE IS DETECTED"
290 PRINT "       WE WILL THEN CALIBRATE IT.":PRINT:PRINT:PRINT
300 PRINT "        PRESS FIRE TO CONTINUE."
310 J=PEEK(56321):IF (J AND 16) THEN 310
311 J=PEEK(56321):IF (J AND 16)=0 THEN 311
400 SYS 12032:L=PEEK(49178):REM GET PADDLE X VALUE
440 P=0
450 IF L>=244 THEN 1000
460 P=1
500 SYS 58692
510 PRINT:PRINT "         ORASTRON A-SID V 1.0.0":PRINT:PRINT
515 PRINT:PRINT
520 PRINT "MIN: ",L:PRINT
530 PRINT "NOW SET TO MAXIMUM AND PRESS FIRE.":PRINT
540 J=PEEK(56321):IF (J AND 16) THEN 540
541 J=PEEK(56321):IF (J AND 16)=0 THEN 541
550 SYS 12032:H=PEEK(49178)
560 PRINT "MAX: ",H:PRINT
570 PRINT "AND NOW TO THE MIDDLE AND PRESS FIRE.":PRINT
580 J=PEEK(56321):IF (J AND 16) THEN 580
581 J=PEEK(56321):IF (J AND 16)=0 THEN 581
590 SYS 12032:M=PEEK(49178)
600 PRINT "MID: ",M:PRINT
610 PRINT "GIVE ME A SEC TO COMPUTE SOME STUFF...":PRINT:PRINT:PRINT
620 FOR I=0 TO 255
630 POKE 32768+I,0
640 NEXT I
650 IF L=M THEN 690
660 FOR I=L TO M-1
670 POKE 32768+I,(256-INT(127*(I-M)/(L-M))) AND 255
680 NEXT I
690 IF M=H THEN 800
700 FOR I=M TO H
710 POKE 32768+I,INT(127*(I-M)/(H-M))
720 NEXT I
800 PRINT "            OK, READY TO GO.":PRINT
810 PRINT "        PRESS FIRE TO CONTINUE."
820 J=PEEK(56321):IF (J AND 16) THEN 820
821 J=PEEK(56321):IF (J AND 16)=0 THEN 821
1000 POKE 49172,P:POKE 49173,L:POKE 49174,H
1010 SYS 8192