home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh69b.d64 / schachtel (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  458b  |  29 lines
  1. 1 REM VERSCHACHTELTE SCHLEIFEN
  2. 2 REM ------------------------
  3. 5 X=-5:Y=0:Y1=1:F=1
  4. 6 POKE53280,0:POKE53281,0:POKE646,F
  5. 7 PRINT"[147][142]"
  6. 20 FORI=1TO5:IFI>1THENX=X-5
  7. 30 FORJ=1TO7:IFJ>1THENX=X-5
  8. 40 PRINT"[207]";
  9. 50 FORK=1TO3
  10. 60 PRINT"[183]";
  11. 70 NEXTK
  12. 75 PRINT"[208]"
  13. 80 X=X+5:Y=Y1:GOSUB1000
  14. 85 FORK=1TO3:Y=Y+1:GOSUB1000
  15. 90 PRINT"[180]"TAB(X+4)"[167]"
  16. 95 NEXTK
  17. 100 GOSUB1000
  18. 110 PRINT"[204]";
  19. 120 FORK=1TO3
  20. 130 PRINT"[175]";
  21. 140 NEXTK
  22. 150 PRINT"[186]"
  23. 160 X=X+5:Y=Y-3:POKE646,INT(RND(0)*15)+1:GOSUB1000
  24. 170 NEXTJ
  25. 171 Y1=Y1+4:X=0:Y=Y1:GOSUB1000
  26. 190 NEXTI
  27. 999 END
  28. 1000 POKE211,X:POKE214,Y:SYS58640:RETURN
  29.