q b a s i c p p o g r a m s [LONG!]
ken collins
kckpaulc at aol.comABCXYZ
Sat Nov 6 16:38:55 EST 1999
'b e g i n r e l m o . b a s -----------------------------------------------
2 REM 50 REM $DYNAMIC
100 COLOR 14, 3, 3
150 CLS : PRINT "--------------------IMAGE/MIRROR-IMAGE RELATIVE MOTION
DEMO----------------": PRINT
200 OPTION BASE 1: TABLFLAG% = 0: TYME = .001: CENTER% = 1
250 DIM WORK1$(39, 39): DIM WORK.I$(11, 11): DIM WORK.M$(11, 11): DIM RM$(117)
300 INPUT ">>>DO YOU WANT TO WATCH THE PROCEDINGS (N)"; LOOK$
350 INPUT ">>>HOW MANY TIMES DO YOU WANT THE ANIMATION TO LOOP (10)"; LUPE%
400 IF LUPE% <= 0 THEN LUPE% = 10
450 PRINT "NUMBER OF FREE BYTES "; FRE(0)
500 GOSUB 12350
550 CLS : PRINT : PRINT "FUNCTIONS:": PRINT
600 PRINT 1, "IMAGE/MIRROR-IMAGE RELATIVE MOTION DEMO"
650 PRINT 2, "QUERY FREE SPACE"
700 PRINT 3, "SET NUMBER OF LOOPS FOR RELATIVE MOTION DEMO"
750 PRINT 4, "SET TIME CONSTANTS FOR THE RELATIVE MOTION DEMO"
800 PRINT 5, "QUICK RERUN OF THE RELATIVE MOTION DEMO"
850 PRINT 6, "TURN 'LOOK' ON/OFF"
900 PRINT 7, "DISPLAY AN EXISTING IMAGE"
950 PRINT 8, "DISPLAY RELATIVE MOTION TABLE"
1000 PRINT 9, "PRINT RELATIVE MOTION TABLE"
1050 PRINT 10, "TERMINATE SESSION"
1100 PRINT : PRINT : INPUT ">>>FUNCTION"; FUNC%
1150 IF (FUNC% < 1) OR (FUNC% > 10) THEN PRINT "BAD FUNCTION NUMBER": GOTO 550
1200 ON FUNC% GOSUB 1300, 14150, 16100, 16500, 7500, 12325, 11200, 14300,
15000, 11100
1250 GOTO 550
1300 REM CRUDE INFO CALC ---------------------------(29 DEC, 1983)
1350 GOSUB 11200
1400 IF IMAGE% = 99 THEN GOTO 11050
1450 IF LOOK$ = "Y" THEN PRINT "BUILDING WORKING IMAGE"
1500 K% = 0: REM BUILDS WORKING IMAGE
1550 FOR I% = 1 TO 11
1600 FOR J% = 1 TO 11
1650 WORK.I$(I%, J%) = MID$(IMAGE$, K% + 1, 1)
1700 K% = K% + 1
1750 NEXT J%
1800 NEXT I%
1850 IF LOOK$ = "Y" THEN GOSUB 12650
1900 IF LOOK$ = "Y" THEN PRINT "BUILDING WORKING MIRROR-IMAGE"
1950 K% = 1: REM BUILDS MIRROR IMAGE
2000 FOR I% = 1 TO 11
2050 FOR J% = 11 TO 1 STEP -1
2100 WORK.M$(I%, J%) = WORK.I$(I%, K%)
2150 IF K% = 11 THEN K% = 1 ELSE K% = K% + 1
2200 NEXT J%
2250 NEXT I%
2300 IF LOOK$ = "Y" THEN GOSUB 13150
2350 IF LOOK$ = "Y" THEN PRINT "INITIALIZING RELATIVE MOTION TABLE"
2400 ERASE WORK1$: ' DIM WORK1$(39, 39)
2450 REM FILLS IN THE RELATIVE MOTION TABLE WITH "."
2500 FOR I% = 1 TO 39
2550 FOR J% = 1 TO 39
2600 WORK1$(I%, J%) = "."
2650 NEXT J%
2700 NEXT I%
2750 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION TABLE FOR IMAGE (TOP)"
2800 K% = 1: P% = 1
2850 C% = 1: O% = 15
2900 L1% = 1: L2% = 29
2950 FOR I% = 1 TO 11
3000 FOR J% = 1 TO 11
3050 IF WORK.I$(I%, J%) = "*" THEN WORK1$(K%, P%) = "O": WORK1$(C%, O%) =
"O": WORK1$(L1%, L2%) = "O"
3100 IF (J% = 11) THEN K% = K% + 1: P% = 1: C% = C% + 1: O% = 15: L1% = L1%
+ 1: L2% = 29 ELSE P% = P% + 1: O% = O% + 1: L2% = L2% + 1
3150 NEXT J%
3200 NEXT I%
3250 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION TABLE FOR IMAGE
(MIDDLE)"
3300 K% = 15: P% = 1
3350 C% = 15: O% = 15
3400 L1% = 15: L2% = 29
3450 FOR I% = 1 TO 11
3500 FOR J% = 1 TO 11
3550 IF WORK.I$(I%, J%) = "*" THEN WORK1$(K%, P%) = "O": WORK1$(C%, O%) =
"O": WORK1$(L1%, L2%) = "O"
3600 IF (J% = 11) THEN K% = K% + 1: P% = 1: C% = C% + 1: O% = 15: L1% = L1%
+ 1: L2% = 29 ELSE P% = P% + 1: O% = O% + 1: L2% = L2% + 1
3650 NEXT J%
3700 NEXT I%
3750 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION TABLE FOR IMAGE
(BOTTOM)"
3800 K% = 29: P% = 1
3850 C% = 29: O% = 15
3900 L1% = 29: L2% = 29
3950 FOR I% = 1 TO 11
4000 FOR J% = 1 TO 11
4050 IF WORK.I$(I%, J%) = "*" THEN WORK1$(K%, P%) = "O": WORK1$(C%, O%) =
"O": WORK1$(L1%, L2%) = "O"
4100 IF (J% = 11) THEN K% = K% + 1: P% = 1: C% = C% + 1: O% = 15: L1% = L1%
+ 1: L2% = 29 ELSE P% = P% + 1: O% = O% + 1: L2% = L2% + 1
4150 NEXT J%
4200 NEXT I%
4250 TABLFLAG% = 1
4300 IF LOOK$ = "Y" THEN GOSUB 14300: GOSUB 15000
4350 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION TABLE FOR MIRROR-IMAGE
(TOP)"
4400 K% = 3: P% = 3
4450 C% = 3: O% = 15
4500 L1% = 3: L2% = 27
4550 FOR I% = 1 TO 11
4600 FOR J% = 1 TO 11
4650 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(K%, P%) = "O" GOTO 4750
4700 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(K%, P%) = "O" THEN WORK1$(K%,
P%) = "B" ELSE WORK1$(K%, P%) = "M"
4750 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(C%, O%) = "O" GOTO 4850
4800 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(C%, O%) = "O" THEN WORK1$(C%,
O%) = "B" ELSE WORK1$(C%, O%) = "M"
4850 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(L1%, L2%) = "O" GOTO 4950
4900 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(L1%, L2%) = "O" THEN
WORK1$(L1%, L2%) = "B" ELSE WORK1$(L1%, L2%) = "M"
4950 IF (J% = 11) THEN K% = K% + 1: P% = 3: C% = C% + 1: O% = 15: L1% = L1%
+ 1: L2% = 27 ELSE P% = P% + 1: O% = O% + 1: L2% = L2% + 1
5000 NEXT J%
5050 NEXT I%
5100 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION TABLE FOR MIRROR-IMAGE
(MIDDLE)"
5150 K% = 15: P% = 3
5200 C% = 15: O% = 15
5250 L1% = 15: L2% = 27
5300 FOR I% = 1 TO 11
5350 FOR J% = 1 TO 11
5400 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(K%, P%) = "O" GOTO 5500
5450 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(K%, P%) = "O" THEN WORK1$(K%,
P%) = "B" ELSE WORK1$(K%, P%) = "M"
5500 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(C%, O%) = "O" GOTO 5600
5550 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(C%, O%) = "O" THEN WORK1$(C%,
O%) = "B" ELSE WORK1$(C%, O%) = "M"
5600 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(L1%, L2%) = "O" GOTO 5700
5650 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(L1%, L2%) = "O" THEN
WORK1$(L1%, L2%) = "B" ELSE WORK1$(L1%, L2%) = "M"
5700 IF (J% = 11) THEN K% = K% + 1: P% = 3: C% = C% + 1: O% = 15: L1% = L1%
+ 1: L2% = 27 ELSE P% = P% + 1: O% = O% + 1: L2% = L2% + 1
5750 NEXT J%
5800 NEXT I%
5850 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION TABLE FOR MIRROR-IMAGE
(BOTTOM)"
5900 K% = 27: P% = 3
5950 C% = 27: O% = 15
6000 L1% = 27: L2% = 27
6050 FOR I% = 1 TO 11
6100 FOR J% = 1 TO 11
6150 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(K%, P%) = "O" GOTO 6250
6200 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(K%, P%) = "O" THEN WORK1$(K%,
P%) = "B" ELSE WORK1$(K%, P%) = "M"
6250 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(C%, O%) = "O" GOTO 6350
6300 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(C%, O%) = "O" THEN WORK1$(C%,
O%) = "B" ELSE WORK1$(C%, O%) = "M"
6350 IF WORK.M$(I%, J%) <> "*" THEN IF WORK1$(L1%, L2%) = "O" GOTO 6450
6400 IF WORK.M$(I%, J%) = "*" THEN IF WORK1$(L1%, L2%) = "O" THEN
WORK1$(L1%, L2%) = "B" ELSE WORK1$(L1%, L2%) = "M"
6450 IF (J% = 11) THEN K% = K% + 1: P% = 3: C% = C% + 1: O% = 15: L1% = L1%
+ 1: L2% = 27 ELSE P% = P% + 1: O% = O% + 1: L2% = L2% + 1
6500 NEXT J%
6550 NEXT I%
6600 IF LOOK$ = "Y" THEN GOSUB 14300: GOSUB 15000
6650 ERASE RM$: ' DIM RM$(117)
6700 IF LOOK$ = "Y" THEN PRINT "BUILDING RELATIVE MOTION FRAMES"
6750 K% = 1: WORK1ROW% = 1: WORK1COL% = 1: WENDROW% = 13: WENDCOL% = 13
6800 FOR RFRAME% = 1 TO 3
6850 FOR CFRAME% = 1 TO 3
6900 IF LOOK$ = "Y" THEN PRINT "BUILDING FRAME ("; RFRAME%; ","; CFRAME%; ")"
6950 FOR I% = WORK1ROW% TO WENDROW%
7000 FOR J% = WORK1COL% TO WENDCOL%
7050 RM$(K%) = RM$(K%) + WORK1$(I%, J%)
7100 IF (J% = 13) OR (J% = 26) OR (J% = 39) THEN K% = K% + 1
7150 NEXT J%
7200 NEXT I%
7250 WORK1COL% = WORK1COL% + 13: WENDCOL% = WENDCOL% + 13
7300 NEXT CFRAME%
7350 WORK1ROW% = WORK1ROW% + 13: WENDROW% = WENDROW% + 13: WORK1COL% = 1:
WENDCOL% = 13
7400 NEXT RFRAME%
7450 INPUT "CR FOR ANIMATION", A$
7500 CLS : FOR K% = 1 TO LUPE%: REM PRESENTS ANIMATED RELMO DEMONSTRATION
7550 C% = 0
7600 FOR P% = 1 TO 3
7650 LOCATE 6, 31: PRINT RM$(C% + 1); " FRAME"; P%; " LOOP"; K%
7700 LOCATE 7, 31: PRINT RM$(C% + 2)
7750 LOCATE 8, 31: PRINT RM$(C% + 3)
7800 LOCATE 9, 31: PRINT RM$(C% + 4)
7850 LOCATE 10, 31: PRINT RM$(C% + 5)
7900 LOCATE 11, 31: PRINT RM$(C% + 6)
7950 LOCATE 12, 31: PRINT RM$(C% + 7)
8000 LOCATE 13, 31: PRINT RM$(C% + 8)
8050 LOCATE 14, 31: PRINT RM$(C% + 9)
8100 LOCATE 15, 31: PRINT RM$(C% + 10)
8150 LOCATE 16, 31: PRINT RM$(C% + 11)
8200 LOCATE 17, 31: PRINT RM$(C% + 12)
8250 LOCATE 18, 31: PRINT RM$(C% + 13)
8300 GOSUB 16250
8350 IF CENTER% = 1 THEN GOSUB 16900: GOSUB 16250
8400 C% = C% + 13
8450 NEXT P%
8500 LOCATE 6, 31: PRINT RM$(66); " FRAME 4"
8550 LOCATE 7, 31: PRINT RM$(67)
8600 LOCATE 8, 31: PRINT RM$(68)
8650 LOCATE 9, 31: PRINT RM$(69)
8700 LOCATE 10, 31: PRINT RM$(70)
8750 LOCATE 11, 31: PRINT RM$(71)
8800 LOCATE 12, 31: PRINT RM$(72)
8850 LOCATE 13, 31: PRINT RM$(73)
8900 LOCATE 14, 31: PRINT RM$(74)
8950 LOCATE 15, 31: PRINT RM$(75)
9000 LOCATE 16, 31: PRINT RM$(76)
9050 LOCATE 17, 31: PRINT RM$(77)
9100 LOCATE 18, 31: PRINT RM$(78): GOSUB 16250
9150 IF CENTER% = 1 THEN GOSUB 16900: GOSUB 16250
9200 C% = 104
9250 FOR P% = 5 TO 7
9300 LOCATE 6, 31: PRINT RM$(C% + 1); " FRAME"; P%
9350 LOCATE 7, 31: PRINT RM$(C% + 2)
9400 LOCATE 8, 31: PRINT RM$(C% + 3)
9450 LOCATE 9, 31: PRINT RM$(C% + 4)
9500 LOCATE 10, 31: PRINT RM$(C% + 5)
9550 LOCATE 11, 31: PRINT RM$(C% + 6)
9600 LOCATE 12, 31: PRINT RM$(C% + 7)
9650 LOCATE 13, 31: PRINT RM$(C% + 8)
9700 LOCATE 14, 31: PRINT RM$(C% + 9)
9750 LOCATE 15, 31: PRINT RM$(C% + 10)
9800 LOCATE 16, 31: PRINT RM$(C% + 11)
9850 LOCATE 17, 31: PRINT RM$(C% + 12)
9900 LOCATE 18, 31: PRINT RM$(C% + 13)
9950 GOSUB 16250
10000 IF CENTER% = 1 THEN GOSUB 16900: GOSUB 16250
10050 C% = C% - 13
10100 NEXT P%
10150 LOCATE 6, 31: PRINT RM$(40); " FRAME 8"
10200 LOCATE 7, 31: PRINT RM$(41)
10250 LOCATE 8, 31: PRINT RM$(42)
10300 LOCATE 9, 31: PRINT RM$(43)
10350 LOCATE 10, 31: PRINT RM$(44)
10400 LOCATE 11, 31: PRINT RM$(45)
10450 LOCATE 12, 31: PRINT RM$(46)
10500 LOCATE 13, 31: PRINT RM$(47)
10550 LOCATE 14, 31: PRINT RM$(48)
10600 LOCATE 15, 31: PRINT RM$(49)
10650 LOCATE 16, 31: PRINT RM$(50)
10700 LOCATE 17, 31: PRINT RM$(51)
10750 LOCATE 18, 31: PRINT RM$(52): GOSUB 16250
10800 IF CENTER% = 1 THEN GOSUB 16900: GOSUB 16250
10850 NEXT K%
10900 INPUT ">>>CONTINUE"; A
10950 GOTO 11050
11000 GOTO 1350
11050 RETURN
11100 END
11150 RETURN
11200 REM DISPLAY AN IMAGE ----------------------------- (26 DECEMBER,1983)
11250 PRINT : INPUT ">>>ENTER IMAGE NUMBER (OR 99 TO CANCEL) ", IMAGE%
IF (IMAGE% < 1) OR (IMAGE% > 100) THEN PRINT "BAD IMAGE NUMBER": GOTO
11250 ELSE GET #1, IMAGE%
IF IMAGE% = 99 THEN GOTO 12300
11350 IMAGSAV% = IMAGE%
11450 IF ASC(IMAGE$) = 255 THEN PRINT "IMAGE MATRIX IS BLANK": GOTO 11250
11500 IF (FUNC% = 1) AND (LOOK$ = "Y") THEN GOTO 12300
11550 CLS
11600 PRINT " 12345678901": PRINT
11650 PRINT " 1 "; MID$(IMAGE$, 1, 11)
11700 PRINT " 2 "; MID$(IMAGE$, 12, 11)
11750 PRINT " 3 "; MID$(IMAGE$, 23, 11)
11800 PRINT " 4 "; MID$(IMAGE$, 34, 11)
11850 PRINT " 5 "; MID$(IMAGE$, 45, 11)
11900 PRINT " 6 "; MID$(IMAGE$, 56, 11)
11950 PRINT " 7 "; MID$(IMAGE$, 67, 11)
12000 PRINT " 8 "; MID$(IMAGE$, 78, 11)
12050 PRINT " 9 "; MID$(IMAGE$, 89, 11)
12100 PRINT "10 "; MID$(IMAGE$, 100, 11)
12150 PRINT "11 "; MID$(IMAGE$, 111, 11)
12200 IF (FUNC% = 1) THEN GOTO 12300
12250 PRINT : GOTO 11250
12300 RETURN
12325 INPUT ">>>DO YOU WANT TO WATCH THE PROCEDINGS (Y/N)"; LOOK$
RETURN
12350 REM PRINT:REM OPEN FILES -------------------------------26 DECEMBER,1983
12400 OPEN "R", #1, "IMAGE1.DAT", 122
12450 REM FIELD #1,11 AS R1$,11 AS R2$,11 AS R3$,11 AS R4$,11 AS R5$,11 AS
R6$,11 AS R7$,11 AS R8$,11 AS R9$,11 AS R10$,11 AS R11$
12500 FIELD #1, 121 AS IMAGE$, 1 AS SW$
12550 REM PRINT "FILE IMAGE1.DAT OPENED"
12600 RETURN
12650 CLS : REM PRINTS NEWLY-PRODUCED WORKING IMAGE
12700 PRINT "12345678901 "; : PRINT "IMAGE "; IMAGSAV%: PRINT
12750 FOR I% = 1 TO 11
12800 FOR J% = 1 TO 11
12850 PRINT WORK.I$(I%, J%);
12900 IF J% = 11 THEN PRINT USING " ## "; I%; : PRINT CHR$(9)
12950 NEXT J%
13000 NEXT I%
13050 PRINT : INPUT "CONTINUE"; A$
13100 RETURN
13150 CLS : REM PRINTS NEWLY-PRODUCED WORKING MIRROR IMAGE
13200 PRINT "12345678901 "; : PRINT "MIRROR-IMAGE "; IMAGSAV%: PRINT
13250 FOR I% = 1 TO 11
13300 FOR J% = 1 TO 11
13350 PRINT WORK.M$(I%, J%);
13400 IF J% = 11 THEN PRINT USING " ## "; I%; : PRINT CHR$(9)
13450 NEXT J%
13500 NEXT I%
13550 PRINT : INPUT "CONTINUE"; A$
13600 RETURN
13650 CLS : REM PRINTS NEWLY-PRODUCED WORKING MASK
13700 PRINT "1234567890123 "; : PRINT "MASK "; MASK%: PRINT
13750 FOR I% = 1 TO 13
13800 FOR J% = 1 TO 13
13850 REM PRINT ASYM$(I%,J%);
13900 IF J% = 13 THEN PRINT USING " ## "; I%; : PRINT CHR$(9)
13950 NEXT J%
14000 NEXT I%
14050 PRINT : INPUT "CONTINUE"; A$
14100 RETURN
14150 REM QUERY FREE SPACE
14200 PRINT : PRINT "NUMBER OF FREE BYTES "; FRE(0): PRINT
INPUT "CONTINUE"; A$
14250 RETURN
14300 CLS : REM PRINTS NEWLY-PRODUCED RELATIVE MOTION TABLE
14350 IF TABLFLAG% = 0 THEN PRINT "TABLE MUST FIRST BE CREATED USING FUNCTION
1": GOTO 14900
14400 PRINT "1234567890123 4567890123456 7890123456789 "; : PRINT "IMAGE
"; IMAGSAV%: PRINT
14450 FOR I% = 1 TO 39
14500 IF I% = 14 OR I% = 27 THEN PRINT : INPUT "CONTINUE"; A$: CLS : PRINT
"1234567890123 4567890123456 7890123456789 "; : PRINT "IMAGE "; IMAGSAV%:
PRINT
14550 FOR J% = 1 TO 39
14600 PRINT WORK1$(I%, J%);
14650 IF J% = 13 OR J% = 26 THEN PRINT " ";
14700 IF J% = 39 THEN PRINT USING " ##"; I%; : PRINT CHR$(9)
14750 NEXT J%
14800 NEXT I%
14850 PRINT : INPUT "CONTINUE"; A$
14900 RETURN
14950 REM 12:04 AM, 1 JANUARY, 1984 - HAPPY NEW YEAR!
15000 IF TABLFLAG% = 0 THEN PRINT "TABLE MUST FIRST BE CREATED USING FUNCTION
1": GOTO 15700
15050 INPUT "WANT A PRINT"; A$: IF A$ <> "Y" THEN GOTO 15700
15100 PRINT : PRINT "PRINTING RELATIVE MOTION TABLE": INPUT ">>>SELECT PRINTER
NOW ---------- SECOND TABLE"; A$
15150 IF A$ = "Y" THEN GOSUB 15750: T% = 70 ELSE T% = 0
15200 PRINT : LPRINT CHR$(27); "Q"; CHR$(27); "B"; CHR$(27); "$": REM 132 CPI
PRINTER
15250 LPRINT TAB(T%); "1234567890123 4567890123456 7890123456789 "; :
LPRINT "IMAGE "; IMAGSAV%: LPRINT : LPRINT TAB(T%);
15300 FOR I% = 1 TO 39
15350 IF I% = 14 OR I% = 27 THEN LPRINT : LPRINT : LPRINT TAB(T%);
"1234567890123 4567890123456 7890123456789 "; : LPRINT "IMAGE "; IMAGSAV%:
LPRINT : LPRINT TAB(T%);
15400 FOR J% = 1 TO 39
15450 LPRINT WORK1$(I%, J%);
15500 IF J% = 13 OR J% = 26 THEN LPRINT " ";
15550 IF J% = 39 THEN LPRINT USING " ##"; I%; : LPRINT CHR$(9); : LPRINT
TAB(T%);
15600 NEXT J%
15650 NEXT I%
15700 RETURN
15750 REM REVERSE LINE FEEDS PRINTER FOR OUTPUTTING OF THE NEXT RELMO TABLE
15800 LPRINT CHR$(27); CHR$(114)
15850 FOR I% = 1 TO 50
15900 LPRINT
15950 NEXT I%
16000 LPRINT CHR$(27); CHR$(102)
16050 RETURN
16100 REM SETS NUMBER OF LOOPS FOR RELMO DEMO ------------------ (2 JAN,1984)
16150 INPUT "HOW MANY TIMES DO YOU WANT THE RELATIVE MOTION DEMONSTRATION TO
LOOP (10)"; LUPE%
IF LUPE% < 1 THEN LUPE% = 10
16200 RETURN
16250 REM TIMER FOR THE DISPLAY OF FRAMES IN RELMO DEMO -------- (2 JAN,1984)
' DELAY TYME
START! = TIMER
WHILE ENDTYME! - TYME! <= START!
ENDTYME! = TIMER
WEND
16450 RETURN
16500 REM SETS PARAMETERS FOR THE "TIMER" ABOVE ---------------- (2 JAN,1984)
16550 INPUT "ENTER NUMBER OF SECONDS TO WAIT BETWEEN SNAPSHOTS (0.001)"; TYME!
16600 IF TYME! = 0 THEN TYME! = .001
16800 INPUT ">>>ENTER 1 TO TURN CENTER IMAGE ON, 0 TO TURN IT OFF"; CENTER%
16850 RETURN
16900 REM PRINTS THE CENTER FRAME DURING THE RELATIVE MOTION DEMO (5 JAN, 84)
16950 LOCATE 6, 31: PRINT RM$(53); " FRAME 9"
17000 LOCATE 7, 31: PRINT RM$(54)
17050 LOCATE 8, 31: PRINT RM$(55)
17100 LOCATE 9, 31: PRINT RM$(56)
17150 LOCATE 10, 31: PRINT RM$(57)
17200 LOCATE 11, 31: PRINT RM$(58)
17250 LOCATE 12, 31: PRINT RM$(59)
17300 LOCATE 13, 31: PRINT RM$(60)
17350 LOCATE 14, 31: PRINT RM$(61)
17400 LOCATE 15, 31: PRINT RM$(62)
17450 LOCATE 16, 31: PRINT RM$(63)
17500 LOCATE 17, 31: PRINT RM$(64)
17550 LOCATE 18, 31: PRINT RM$(65)
17600 RETURN
'e n d o r e l m o . b a s -----------------------------------------------
More information about the Neur-sci
mailing list
Send comments to us at biosci-help [At] net.bio.net
