home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / tuerme (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  480b  |  21 lines
  1. 0 REM   TUERME
  2. 10 (null)1:(null)1:(null)
  3. 20 (null):(null)1:(null)14,0:POKE53280,0
  4. 60 FORZ= 5TO1STEP-1:REM HINTEN => VORNE
  5. 70 FORS=15TO0STEP-1:REM RECHTS => LINKS
  6. 90 X=60+S*16-Z*8
  7. 100 Y=202-Z*8
  8. 120 H=(Z-1)*25+RND(1)*58
  9. 150 GOSUB10000
  10. 180 NEXT
  11. 190 NEXT
  12. 210 (null)0,0
  13. 9000 (null)
  14. 9020 FORI=0TO10000:NEXT:RUN
  15. 10000 AX=X+4:BX=X-12:CX=X+12:DX=X-4:EX=BX:FX=DX:GX=CX
  16. 10010 EY=Y-4:FY=Y+4:GY=FY:AY=EY-H:BY=AY:CY=FY-H:DY=FY-H
  17. 10020 (null)2:(null)AX,AY,BX,BY:(null)AX,AY,CX,CY:(null)BX,BY,DX,DY:(null)CX,CY,DX,DY
  18. 10030 (null)1:(null)BX,BY,EX,EY:(null)DX,DY,FX,FY:(null)CX,CY,GX,GY:(null)EX,EY,FX,FY
  19. 10040 (null)GX,GY,FX,FY
  20. 10050 RETURN
  21.