home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / gitter (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.