Try This

See all articles from SYNC v3 n4

8K ROM

Type in the following lines:

  1 REM 12345
10 POKE 16514,62
20 POKE 16515,101
30 POKE 16516,237
40 POKE 16517,71
50 POKE 16518,201
60 PRINT AT 11,9;"[inv [illegible] MAGAZIN
E]"
70 RAND USR 16514
80 POKE 16515,30
90 RAND USR 16514
100 GOTO 10

Put the computer in SLOW mode. Press RUN and ENTER. After the program is run once, you can remove lines 10, 30, 40, and 50 and change line 100 to GOTO 20.

Graphics notes:

60: Inverse “SYNC MAGAZINE”. Any message can be put here, but use the inverse for best effect.

Our thanks to:
Raymond Marasa
[address omitted]
Coquitlam, B.C.
Canada


Type in the following lines:

 5 PRINT " (32 inverse spaces) "
10 PRINT AT 20, RND*30;"."
20 SCROLL
30 RUN

Press RUN and ENTER.

Graphics notes:

5: 32 inverse spaces.

10: Inverse period.

Our thanks to:
Scott Brodsky
[address omitted]
Lowell, MA


Type in the following lines:

20 FOR N=1 TO 5
30 PRINT CHR$ (36+INT (RND*26+.5));
40 NEXT N
50 PRINT "###";
60 GOTO 20

Press RUN and ENTER; press CONT and ENTER for another screen.

Line notes:

20: 5 letters.

30: A random letter A-Z.

50: 3 spaces after each word (8 * 4 = 32 = a full line).

Author’s comment: This is the first Basic program I wrote. It is a simple one to produce a screen full of 5 letter “words” made up of letters picked at random. I ran the program and then stared at it and the screen for a long time. Then I decided to send by ZX81 back to be fixed. Then I stared at the screen some more . . .

Our thanks to:
Eric Chandler
[address omitted]
Lynchburg, VA

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