BASIC PROGRAMS

TIME ADJUST PROGRAM

900: " " ;LABEL = [SPACE]
920: T=0:K$="":I=0 ;CLEAR VARIABLES
930: FOR I = 1 TO 5 :NEXT I ;SHORT TIME KILLING LOOP
940: T=T+.1 ;START OF COUNT LOOP
951: REM ;PHONY TIME KILLER
952: REM ;SAME
960: K$= INKEY$ ;GET LAST KEY PUSHED
970: IF K$="" GOTO 940 ;IF NO KEY PUSHED LOOP & ADD COUNT
990: USING "####.#": PRINT T ;SET NUMBER FORMAT AND DISPLAY
995: END ;SO NEXT PROG DOES NOT RUN




SINGLE LOOP SPEED PROGRAM



900: " " L=1681.5 ;START= [SPACE] LOOP MAGIC NUMBER
920: T=0:K$="":I=0 ;CLEAR VARIABLES
930: FOR I = 1 TO 5 :NEXT I ;SHORT TIME KILLING LOOP
940: T=T+.1 ;START OF COUNT LOOP
951: REM ;PHONY TIME KILLER
952: REM ;SAME
960: K$= INKEY$ ;GET LAST KEY PUSHED
970: IF K$="" GOTO 940 ;IF NO KEY PUSHED LOOP & ADD COUNT
980: S=L/T ;IF KEY DIVIDE TO GET SPEED
990: USING "####.#": PRINT S ;SET NUMBER FORMAT AND DISPLAY
995: END ;SO NEXT PROG DOES NOT RUN




MULTILOOP SPEED PROGRAM



900: " " L=1681.5 : GOTO 920 ;34" R START, MAGIC, SKIP
902: "K" L=XXXX.X : GOTO 920 ;22" R START, MAGIC, SKIP
903: "L" L=XXXX.X : GOTO 920 ;18" R START, MAGIC, SKIP
904: "=" L=XXXX.X : GOTO 920 ;15" R START, MAGIC, SKIP
905: "H" L=3600 : GOTO 920 ;MILE START, MAGIC, SKIP
______. ADD
______. LINES
______. AS NEEDED
915: "J" L=XXXX.X ;JOE'S START, MAGIC, NO SKIP IF LAST
920: C=0:K$="":I=0 ;CLEAR VARIABLES, REST IS SAME




MOTOR RPM PROGRAM



800: "M" WAIT 64:PRINT "MOTOR RPM"
812: PRINT "DRIVERS=";D:INPUT "DRIVERS=?";D
815: PRINT "GEAR=";G:INPUT "GEAR=?";G
819: A=336.1352398
831: WAIT : M=A*G*S/D:PRINT "MOTOR RPM=";M:GOTO "M"




MOTOR RPM/SPEED/DRIVER DIAMETER/GEAR RATIO (MSDG) PROGRAM



800: "M" WAIT 64:PRINT "MOTOR RPM":N=1:GOTO 809
801: "S" WAIT 64:PRINT "SPEED":N=2:GOTO 809
802: "D" WAIT 64:PRINT "DRIVERS":N=3:GOTO 809
803: "G" WAIT 64:PRINT "GEAR":N=4:GOTO 809
809: USING "######.#"
810: IF N < > 1 PRINT "MOTOR RPM=";M:INPUT "RPM=?",M
811: IF N < > 2 PRINT "SPEED=";S:INPUT "SPEED=?";S
812: IF N < > 3 PRINT "DRIVERS=";D:INPUT "DRIVERS=?";D
813: IF N < > 4 PRINT "GEARUP=";U:INPUT "GEARUP=?";U
814: IF N < > 4 PRINT "GEARBT=";B:INPUT "GEARBT=?";B
815: IF N < > THEN LET G=U*B PRINT "GEARTOT=";G
819: A=336.1352398
820: ON N GOTO 831,832,833,834
831: WAIT:M=S*G*A/D:PRINT "MOTOR RPM=";M:GOTO "M"
832: WAIT:S=M*D/G/A:PRINT "SPEED=";S:GOTO "S"
833: WAIT:D=S*G*A/M:PRINT "DRIVERS=";D:GOTO "D"
834: WAIT:G=M/A/S*D:PRINT "GEARTOT=";G
835: B=G:INPUT "GEARBT=?";B
836: U=G/B: PRINT "GEARUP=";U:GOTO "G"




BACK TO COMPUTER APPROACH

HOME

Authored on the AMITHLON AMIGA

using:

OS 3.9 -- 2002

Browser -- Ibrowse V2.3 -- 2003
Text -- CygnusEd Professional V4.2 -- 1999
Drawings -- XCAD-3000 V1.1 -- 1992
Graphs -- Math-Amation V1.0d -- 1988
Rendering -- Image FX V4.1 -- 2000
Digital Camera -- Kodak DC25 -- 1998
Digital Camera 2 -- Kodak DC280 -- 2003
Scanner -- HP Scanjet 6200C -- 2000
HTML and mistakes -- BUDB -- 1931


alt