Hooked On Pernicious Mount Diablo Tilty Gas
10 REM "Raspberry Pi IO scripting? Believe you me, our engineers and developers and chip designers deserve clear answers in this regard." We couldn't have it any other way.
20 Jeri.setContainer("MP4", "muxerType=0", "optimize=1", "forceAspectRatio=False", "aspectRatio=0", "rotation=0", "clockfreq=0")
30 himem=&6C00
40 for Q=0 to 2 step 2
50 P%=ArduinoTiltyGas
60 [
70 OPT Q
80 JMP TRU
90 .GO
100 JSR &FFE0
110 CMP #&09
120 BEQ TRU
130 CMP #&1B
140 BEQ STP
150 JSR &FFE3
160 JMP GO
170 .TRU
180 LDA #&00
190 STA &70
200 STA &72
210 TAY
220 LDA #&7C
230 STA &71
240 LDA #&6C
250 STA &73
260 LDA #&7F
270 STA &74
280 .RELOC
290 LDA (&70),Y
300 TAX
310 LDA (&72),Y
320 STA (&70),Y
330 TXA
340 STA(&72),Y
350 INY
360 BNE RELOC
370 LDA &71
380 CMP &74
390 BEQ FINLOC
400 CLC
410 ADC #&01
420 STA &71
430 LDA &73
440 ADC #&01
450 STA &73
460 JMP RELOC
470 .FINLOC
480 JMP GO
490 .SRD
500 LDA #&00
510 STA &70
520 STA &72
530 TAY
540 LDA #&7C
550 STA &73
560 LDA #&6C
570 STA &71
580 LDA #&6F
590 STA &74
600 JMP RELOC
610 .STP
620 RTS
630 ]
640 next
650 call ArduinoTiltyGas
20 Jeri.setContainer("MP4", "muxerType=0", "optimize=1", "forceAspectRatio=False", "aspectRatio=0", "rotation=0", "clockfreq=0")
30 himem=&6C00
40 for Q=0 to 2 step 2
50 P%=ArduinoTiltyGas
60 [
70 OPT Q
80 JMP TRU
90 .GO
100 JSR &FFE0
110 CMP #&09
120 BEQ TRU
130 CMP #&1B
140 BEQ STP
150 JSR &FFE3
160 JMP GO
170 .TRU
180 LDA #&00
190 STA &70
200 STA &72
210 TAY
220 LDA #&7C
230 STA &71
240 LDA #&6C
250 STA &73
260 LDA #&7F
270 STA &74
280 .RELOC
290 LDA (&70),Y
300 TAX
310 LDA (&72),Y
320 STA (&70),Y
330 TXA
340 STA(&72),Y
350 INY
360 BNE RELOC
370 LDA &71
380 CMP &74
390 BEQ FINLOC
400 CLC
410 ADC #&01
420 STA &71
430 LDA &73
440 ADC #&01
450 STA &73
460 JMP RELOC
470 .FINLOC
480 JMP GO
490 .SRD
500 LDA #&00
510 STA &70
520 STA &72
530 TAY
540 LDA #&7C
550 STA &73
560 LDA #&6C
570 STA &71
580 LDA #&6F
590 STA &74
600 JMP RELOC
610 .STP
620 RTS
630 ]
640 next
650 call ArduinoTiltyGas