home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / MEGADZN1.ARJ / MEGADZN1.MSA / STOS.TUT / WORM1.BAS
BASIC Source File  |  1997-08-22  |  565b  |  17 lines
  1. 10 mode 1 : key off : clw : auto back off : hide 
  2. 20 dim A(80,24)
  3. 30 HGT=10 : DRC=40 : LR_FLAG=-1
  4. 40 colour 0,$0 : colour 1,$777 : pen 1
  5. 50 A$="" : A$=inkey$
  6. 60 if scancode=$48 then UD_FLAG=-1 : LR_FLAG=0
  7. 70 if scancode=$50 then UD_FLAG=1 : LR_FLAG=0
  8. 80 if scancode=$4B then LR_FLAG=-1 : UD_FLAG=0
  9. 90 if scancode=$4D then LR_FLAG=1 : UD_FLAG=0
  10. 100 if UD_FLAG=1 then inc HGT
  11. 110 if UD_FLAG=-1 then dec HGT
  12. 120 if LR_FLAG=1 then inc DRC
  13. 130 if LR_FLAG=-1 then dec DRC
  14. 140 locate DRC,HGT : print "o"
  15. 150 wait 2 : locate DRC,HGT : print " "
  16. 160 goto 50
  17.