Created
March 2, 2026 06:04
-
-
Save ssg/b55a2b223639c5107a1c1e7d6c2dd0f3 to your computer and use it in GitHub Desktop.
BASIC color cycling intro I made in 1989
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 10 MODE 0 | |
| 20 BORDER 0 | |
| 30 FOR f=0 TO 13:INK f,0:NEXT:g=0:i=1:G=INT(RND*5)+1 | |
| 40 FOR f=148 TO 230 STEP 2 | |
| 50 g=g+1:IF g=1 THEN g=0:i=i+1:G=INT(RND*5)+1:IF i=13 THEN i=1 | |
| 60 MOVE 160-(6*16),f:DRAWR 640-(8*16),0,i | |
| 70 NEXT:PL=0 | |
| 80 INK 15,25:GOSUB 190 | |
| 90 FOR q=15 TO 15 | |
| 100 FOR r=1 TO 20 | |
| 110 FOR f=1 TO 13 | |
| 120 i=i+1:IF i>q THEN i=0 | |
| 130 PL=PL+1:IF INKEY$<>"" THEN RUN"!" | |
| 140 IF PL=2000 THEN RUN"!" | |
| 150 INK f,i | |
| 160 NEXT f | |
| 170 NEXT r | |
| 180 NEXT q:GOTO 90 | |
| 190 PRINT CHR$(22)CHR$(1);:PEN 15:LOCATE 7,12:PRINT " S S G":LOCATE 4,15:PRINT "SOFTWARE GROUP" | |
| 200 LOCATE 1,1:PRINT CHR$(22)CHR$(0);:RETURN |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment