Try This

4K ROM

Type in the program listing below. Then RUN the program and watch the results. The program takes about 15 seconds to finish RUNning. Then try different values for lines 50 and 70. The values 8 and 136 produce an interesting display.

Our thanks to:

Joseph Ho
[address omitted]
Fredericton, N.B.
Canada

  10 FOR Y=-10 TO 10
  20 FOR X=-10 TO 10
  30 IF ABS(Y)=(ABS(Y)/2)*2 AND# ABS(X)<ABS(Y)+1 THEN GOTO 70
  40 IF ABS(X)=(ABS(X)/2)*2 AND# ABS(Y)<ABS(X)+1 THEN GOTO 70
  50 PRINT CHR$(0);
  60 GOTO 80
  70 PRINT CHR$(128);
  80 NEXT X
  90 PRINT
 100 NEXT Y

---

8K ROM

In this issue we have two little programs that are similar in the results, but different in the method of achieving them.

Type in the following line:

   1 REM Y GOSUB X PRINT ▒▒ LN P? LET W/ NEXT

Graphics line note:

1: 1, S

Then type in:

POKE 16517,71

If you want to save this program, do it now because you will not be able to BREAK and save it after RUNNING. Then type in:

RAND USR 16514

and observe the results.

Our thanks to:

Scott Laska
[address omitted]
New Holstein, WI

---

8K ROM

Type in the listing below. The REM statement must be entered exactly as shown.

Line notes:

1: TAN on the E key

50: inverse space (22)

80: A (12)

After the program has been entered, hit SLOW and ENTER and then RUN and ENTER. Observe the results. To exit the program hold the M key down and hit the BREAK key. You can exit the program by just hitting the BREAK key, but the screen display will “fall apart.”

Our thanks to:

Tom Jury
[address omitted]
Lancaster, PA

  10 REM Y000TAN
  20 POKE 16516,237
  30 POKE 16517,71
  40 FOR Y=5 TO 17
  50 PRINT AT Y,5;"[inv space x22]"
  60 NEXT Y
  70 FOR Y=8 TO 14
  80 PRINT AT Y,10;"▒▒▒▒▒▒▒▒▒▒▒▒"
  90 NEXT Y
 100 LET L=USR 16514
 110 LET K=RND*29
 120 IF INKEY$="M" THEN LET K=30
 130 POKE 16515,K
 140 GOTO 100