Latest Program

Whatever I am working on, at the moment.

Who knows what it is, or what it is for?

15 LET MAX=100
20 REM LOOP START
40 IF MA=0 THEN GOTO 9000
2000 REM OCCASIONAL LINE BREAK
2010 LET Y = 5
2020 RE = MA - (INT(MA/Y)*Y)
3000 REM COLOR SWITCH
3020 IF RE=1 THEN PRINT CHR$(150);
3030 IF RE=2 THEN PRINT CHR$(151);
3040 IF RE=3 THEN PRINT CHR$(159);
3050 IF RE=4 THEN PRINT CHR$(158);
3080 IF RE=0 THEN PRINT CHR$(153)
4000 REM WAVES
4010 PRINT CHR$(205.5 + RND(1));
4020 PRINT CHR$(166);
8000 REM NEXT ROW
8010 MA=MA-1
8020 GOTO 20
9000 REM END

BASIC program