Content
Image Gallery
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
Note: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.