Swarm

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Gallery

Swarm

Source Code

   5 REM "SWARM"
  10 LET A=10
  20 LET B=15
  30 LET C=20
  40 PRINT AT C,RND*30;"*"
  50 PRINT AT A,B;" "
  60 SCROLL 
  70 IF INKEY$="Z" THEN LET B=B-1
  80 IF INKEY$="M" THEN LET B=B+1
  90 PRINT AT A,B;"\:.\.:"
 100 GOTO 40
 105 SAVE "1022%2"
 110 RUN 

People

No people associated with this content.

Scroll to Top