62 lines
2.2 KiB
QBasic
62 lines
2.2 KiB
QBasic
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
|