home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / ?-AmigaCorner5-92.DMS / ?-AmigaCorner5-92.adf / Joytest (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1988-11-19  |  579 b   |  16 lines
  1. '----- JOY-TEST ------  Jo.Mueller 
  2. WINDOW 1," Joytest ",(0,0)-(617,186),15 : COLOR 2,3:CLS
  3. LOCATE 1,1: PRINT "    5    0    5    0    5    0    5    0    5    0    5    0    5";
  4. FOR i=2 TO 23 :LOCATE i,1:PRINT i;:NEXT : x=10:y=10
  5. jo:  IF STRIG(3)=0 THEN LOCATE x-1,y:PRINT "   ";
  6.      IF STRIG(3)=0 THEN LOCATE x+1,y:PRINT "   ";
  7.      LOCATE x,y:PRINT " * ";:x=STICK(3)+x:y=STICK(2)+y
  8.      IF x<3 THEN x = 2  :ELSE  IF x>23 THEN x=23
  9.      IF y<3 THEN y = 2  :ELSE  IF y>75 THEN y=75
  10.      LOCATE 22,10:PRINT STRIG(3):LOCATE 23,10:PRINT STRIG(2);
  11.      y$=INKEY$:IF y$="" THEN jo
  12. COLOR 1,0:CLS:END
  13.      
  14.      
  15.  
  16.