Kas and Tom Ear commands for BS2 -------------------------------- KEY_POWER BS2cmnd =5 5=Halt KEY_UP BS2cmnd =1 KEY_DOWN BS2cmnd =2 KEY_RIGHT BS2cmnd =3 KEY_LEFT BS2cmnd =4 KEY_0 BS2cmnd =9 KEY_MINUS BS2cmnd =22 StbOn CON 22 KEY_XCROSS BS2cmnd =$2A dump BSe Acts in decimal KEY_9 - behavior, then KEY_1 be slow BS2cmnd =$22 param =$11 GOSUB tellBS2 '42=s $rp =$11 speed KEY_2 be medium BS2cmnd =$22 param =$33 GOSUB tellBS2 '42=s $rp =$33 speed KEY_3 be fast BS2cmnd =$22 param =$55 GOSUB tellBS2 '42=s $rp =$55 speed KEY_4 be UStimid BS2cmnd =$1B GOSUB tellBS2 'be UStimid KEY_5 be USnormal BS2cmnd =$1C GOSUB tellBS2 'be USnormal KEY_6 be USbold BS2cmnd =$1D GOSUB tellBS2 'be USbold KEY_UP be faster BS2cmnd =$10 GOSUB tellBS2 'Su=$10 'increase speed(+1) MAX potspeed KEY_DOWN be slower BS2cmnd =$11 GOSUB tellBS2 'Sd=$11 'reduce speed(/2) MIN minpacespeed KEY_MINUS CASE 38 BS2cmnd =$13 GOSUB tellBS2 'StbOff=98-60 [9][-]=disable foot test KEY_VCROSS = 37 '[f+] BS2Do CASE >=shiftDo60 BS2cmnd =$2F GOSUB tellBS2 ;$2F =>c, jump TO Act number in NEXT Byte