a=(:cp*6)-(:cs-1) ifa!=1 thengotoa end :1s-=(:1s>10)*5 :dv=-1 goto1
a=(:cp*6)-(:cs-1) ifa!=2 thengotoa end :1r-=(:1r>5)*5 :dv=-1 goto2
a=(:cp*6)-(:cs-1) ifa!=3 thengotoa end :1y-=(:1y>5)*5 :dv=-1 goto3
a=(:cp*6)-(:cs-1) ifa!=4 thengotoa end :1p-=(:1p>5)*5 :dv=-1 goto4
a=(:cp*6)-(:cs-1) ifa!=5 thengotoa end :1b-=(:1b>5)*5 :dv=-1 goto5
a=(:cp*6)-(:cs-1) ifa!=6 thengotoa end :1f-=(:1f>5)*5 :dv=-1 goto6
a=(:cp*6)-(:cs-1) ifa!=7 thengotoa end :2s-=(:2s>10)*5 :dv=-1 goto7
a=(:cp*6)-(:cs-1) ifa!=8 thengotoa end :2r-=(:2r>5)*5 :dv=-1 goto8
a=(:cp*6)-(:cs-1) ifa!=9 thengotoa end :2y-=(:2y>5)*5 :dv=-1 goto9
a=(:cp*6)-(:cs-1) ifa!=10 thengotoa end :2p-=(:2p>5)*5 :dv=-1 goto10
a=(:cp*6)-(:cs-1) ifa!=11 thengotoa end :2b-=(:2b>5)*5 :dv=-1 goto11
a=(:cp*6)-(:cs-1) ifa!=12 thengotoa end :2f-=(:2f>5)*5 :dv=-1 goto12
a=(:cp*6)-(:cs-1) ifa!=13 thengotoa end :3s-=(:3s>10)*5 :dv=-1 goto13
a=(:cp*6)-(:cs-1) ifa!=14 thengotoa end :3r-=(:3r>5)*5 :dv=-1 goto14
a=(:cp*6)-(:cs-1) ifa!=15 thengotoa end :3y-=(:3y>5)*5 :dv=-1 goto15
a=(:cp*6)-(:cs-1) ifa!=16 thengotoa end :3p-=(:3p>5)*5 :dv=-1 goto16
a=(:cp*6)-(:cs-1) ifa!=17 thengotoa end :3b-=(:3b>5)*5 :dv=-1 goto17
a=(:cp*6)-(:cs-1) ifa!=18 thengotoa end :3f-=(:3f>5)*5 :dv=-1 goto18
// Flight Profile Selector by B00M
// Credit: Adrian202, DarkyWiiYou, Goodgu