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