ZX81 Listing for usflag.p


ZX81 program listing for **USA FLAG**SLR/1984***

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17769
VARS  : 18562
E-LINE: 18563
STKBOT: 18563
STKEND: 18563

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

   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