home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib28a.dsk / JUNE.1986 / ZOT.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  13 lines
  1. 10  REM  **********************
  2. 20  REM  *        ZOT         *
  3. 30  REM  *  BY TIM KENDRICK   *
  4. 40  REM  * COPYRIGHT (C) 1986 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  HOME : CLEAR : POKE 768,1: POKE 769,0: POKE 770,4: POKE 771,0: POKE 772,4: POKE 773,0: POKE 232,0: POKE 233,3:K = .1255:DY = .97:B = 180: HCOLOR= 3:GX = 140:GY = 190:LE = 0:RE = 279:BE = 191:SU = 6:SG = 20:SZ = 190:SB = 255:RB = 16:RS = 48
  9. 90  FOR NG = 1 TO 10: HGR2 :X = 267:RN =  RND(1) *20 -10:DX = RN +1 * SGN(RN) *(RN <1):Y = 1 + RND(1) *170:UY = Y:KY = ( RND(1) *2 <1): IF DX >0  THEN X = 1
  10. 100  ROT= RB: SCALE= SB: DRAW 1 AT LE +12,BE: SCALE= SU: DRAW 1 AT X,UY: FOR I = 0 TO 1:Z =  PEEK( -16336): ROT= RB: SCALE= SU: XDRAW 1 AT X,UY:Y = Y *DY:UY = Y +KY *(B -2 *Y):X = X +DX: IF ((X +6) >RE)  OR (X <LE)  THEN DX =  -DX:X = X +DX
  11. 110 RG = RS + PDL(0) *K: ROT= RG: SCALE= SG: XDRAW 1 AT GX,GY:I = ( PEEK( -16287) >127): SCALE= SU: ROT= RB: DRAW 1 AT X,UY: SCALE= SG: ROT= RG: XDRAW 1 AT GX,GY:Z =  PEEK( -16336): NEXT 
  12. 120  SCALE= SZ: DRAW 1 AT GX,GY: IF  PEEK(234) >0  THEN  PRINT  CHR$(7):NH = NH +1: FOR I = 4 TO 64  STEP 4: ROT= I: SCALE= 1 + RND(1) *25: DRAW 1 AT X,UY:Z =  PEEK( -16336): NEXT 
  13. 130  NEXT : TEXT : HOME : VTAB 10: PRINT "YOU HIT "NH" OUT OF TEN": PRINT " PRESS <RETURN> FOR ANOTHER GO": GET Z$: PRINT : GOTO 80