home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 July / 64er_Magazin_85-07_1985_Markt__Technik_de.d64 / fensterdemo.c16 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  329b  |  21 lines
  1. 100 rem fenster-demo
  2. 110 :
  3. 120 (NULL) 0,1 : (NULL) 4,1 : (NULL)
  4. 130 :
  5. 140 (NULL)
  6. 150 : az = int(rnd(ti)*12)+1
  7. 160 : ez = az*2+1
  8. 170 : as = int(rnd(ti)*20)+1
  9. 180 : es = as*2
  10. 190 :
  11. 200 : fenster az,as,ez,es
  12. 210 :
  13. 220 : print"[147]";
  14. 230 : (NULL) 1,rnd(ti)*15+2,rnd(ti)*8
  15. 240 : e = (es-as+1)*(ez-az+1)-1
  16. 250 : for i=1 to e
  17. 260 :   print" [146]";
  18. 270 : next
  19. 280 : print"[157]";chr$(148);" [146]";
  20. 290 (NULL)
  21.