A simple U.S.A. Flag with signature. Star bursts added later.
PROG : 16509
D-FILE: 17769
VARS : 18562
E-LINE: 18563
STKBOT: 18563
STKEND: 18563
9999 means line number
PRINT means treat as KEYWORD P
1 REM **USA FLAG**SLR/1984***
10 PRINT "÷óóóóóóóóóóóóóóóóóóó
óóóóóóóóóóó´"
20 FOR A=1 TO 6
30 PRINT "õ!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!µõ
µ"
40 NEXT A
50 PRINT "õ!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!µ²³³³³³³³³³³³³³³³³³³³
³³³³³³³³³³³±"
60 FOR A=1 TO 7 STEP 2
70 PRINT AT A,1;"* * * * * * *
* "
80 NEXT A
90 FOR A=2 TO 6 STEP 2
100 PRINT AT A,1;" * * * * * *
* *"
110 NEXT A
120 PRINT AT 15,0;"õ µ ±óó ·ó
ô ÷ó ±² ö¶ õ µ òó¶ µ³
õ ÷ñ ²± õ³ ¶³ö· ¶³ö· µ
õ· õ õµ ¶ö"
130 PRINT ,,"BY ±óó ÷ó²
÷óó ÷¶ òó¶ ²³÷
÷ñ õ õ ¶³ö· · õ¶ô
²³³ ²ö"
140 FOR A=0 TO 100
150 LET L=SIN PI+COS PI
160 IF RND>.9 THEN GOSUB 250
170 NEXT A
180 CLS
190 RUN
200 SAVE "USFLAG"
210 RUN
250 LET B=INT (RND*3)
260 LET X=(15 AND B=0)+(19 AND
B=1)+(17 AND B=2)
270 LET Y=(13 AND B=0)+(1 AND B
=1)+(28 AND B=2)
280 PRINT AT X+1,Y+1;"·"
290 LET L=SIN PI+COS PI+SIN PI
300 PRINT AT X+1,Y+1;"±ô";AT X+
2,Y+1;"ò"
310 LET L=SIN PI+COS PI+SIN PI
320 PRINT AT X,Y+1;"·";AT X+1,Y
;"·±³";AT X+2,Y+1;"µ"
330 LET L=SIN PI+COS PI+SIN PI
340 PRINT AT X,Y+1;" ";AT X+1,Y
;" ±ô";AT X+2,Y+1;"ò"
350 LET L=SIN PI+COS PI+SIN PI
360 PRINT AT X+1,Y+1;"· ";AT X+
2,Y+1;" "
370 LET L=SIN PI+COS PI+SIN PI
380 PRINT AT X+1,Y+1;" "
390 RETURN