home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / gitter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  242b  |  11 lines

  1. 0 REM      GITTER
  2. 10 (null):(null)1:(null)1,6:(null)1:(null):(null)1
  3. 20 FORI=0TO200STEP10:(null)I:NEXT:(null)319
  4. 30 FORI=0TO320STEP10:(null)I:NEXT:(null)199
  5. 50 FORX1=229TO5STEP-50:X2=X1+42
  6. 60 FORY1=29TO140STEP50:Y2=Y1+42
  7. 80 FORI=1TORND(1)*25:A=I-1
  8. 90 (null)X1+A,Y1-A,X2+A,Y2-A,X1+I,Y1-I
  9. 100 NEXTI,Y1,X1
  10. 190 FORI=0TO10000:NEXT:RUN
  11.