home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / W95SPCOD.ZIP / WINNERS / SURP-KLF / SURP_KLF.BAS < prev    next >
BASIC Source File  |  1995-11-05  |  620b  |  45 lines
  1. ; tiny codi :    r0k [Keen like Frogs]
  2. ;        chicken [Surprise!Prod.]
  3. ;        Hotblack [Keen like Frogs]
  4. ;        Stone [Dust]
  5.  
  6. ; we had fun doing it, try to beat it ;)
  7.  
  8. .MODEL tiny
  9. .186
  10.  _code SEGMENT 'code'
  11. start:
  12.     pop     bx
  13.     pop        di
  14.     pop        es
  15.     int        16h         ; getch
  16.     and        ax,0Fh
  17.     mov        cl,al
  18.     mov        al,13h     ; set 320x200
  19.     int        10h
  20.     jcxz    SHORT exit
  21.     mov        ax,6464h
  22.     mov        dx,317
  23. @@:
  24.     stosw
  25.     stosb
  26.     add        di,dx
  27.     stosb
  28.     inc        di
  29.     stosb
  30.     add        di,dx
  31.     stosw
  32.     stosb
  33.     inc        di
  34.     loop    @B
  35. exit:
  36.     xchg    ax,cx
  37.     int        16h
  38.     mov        ax,3     ; back to textmode
  39.     int        10h
  40.     mov        ax,1112h
  41.     int        10h
  42.     int        20h
  43. _code ENDS
  44. END start
  45.