Try This

See all articles from SYNC v4 n1

“Try This” features short programs to show off your computer, impress your family and friends, and tickle your imagination when SYNC arrives at your place. Send your contributions to: Try This, SYNC, 39 E. Hanover Ave., Morris Plains, NJ 07950.


Type in the following lines.

TS1000:

10 SCROLL
20 IF INKEY$<>"" THEN PRINT TA
B CODE INKEY$;"[graphic]"
30 RUN

Put the computer in SLOW mode. Press RUN and ENTER. Then press various keys. Can you control the site of the launch pad? Our thanks to:

Hung Ton
Richmond, VA

Screen display of a criss-cross lattice pattern
Screen display of a criss-cross lattice pattern

Type in the following lines.

TS1000:

10 LET L=INT (RND*21)+1
11 LET L1=INT (RND*19)+1
12 LET J=INT (RND*255)+1
20 FOR F=0 TO L
30 PRINT AT L1,F;CHR$ J
40 NEXT F
50 PRINT AT L1,L;CHR$ J
60 FOR F=(L-1) TO 0 STEP -1
70 PRINT AT L1,F;" "
80 NEXT F
90 RUN

TS2068: Make these changes:

12 LET J=INT (RND*223)+33
90 GO TO 10

Press RUN and ENTER. Observe the results. Our thanks to:

Robert Hewson
Detroit, MI


Type in the following lines:

TS1000:

20 LET L=1
30 LET L=L+150
40 DIM U$(L)
70 PRINT AT 10,15;"X"
72 PRINT AT 10,15;"[inv X]"
80 IF L>15E3 THEN PRINT AT 15,
6;"OVER 15K"
90 GOTO 30

TS2068: Make these changes:

70 PRINT AT 10,15;"x": PAUSE 7
80 IF l>35E3 THEN PRINT AT 15,
6;"over 35K"

Press RUN and ENTER. Observe the progressive slowing down. This demonstrates the use of a time/memory comparison. Our thanks to:

Robert A. Manion
Pittsburgh, PA

Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.