From 7b00545f7ea6b0b8d72928bd238232eafb41d42b Mon Sep 17 00:00:00 2001
From: Adema <h.adema@rug.nl>
Date: Thu, 3 Feb 2022 13:55:17 +0100
Subject: [PATCH] Delete 'HID.bas'

---
 HID.bas | 146 --------------------------------------------------------
 1 file changed, 146 deletions(-)
 delete mode 100644 HID.bas

diff --git a/HID.bas b/HID.bas
deleted file mode 100644
index 318fa12..0000000
--- a/HID.bas
+++ /dev/null
@@ -1,146 +0,0 @@
-'Free basic Address Event Representation
-
-#include once "libusb-1.0.bi"
-#include once "hidlib.bas"
-#include once "HID_info.bas"
-#include once "comlinepar.bas"
-
-counter = 0
-
-For i as integer = 0 To 63
-	databuffer(i) = 100+i
-Next i
-
-'#include once "caerdeviceinfo.bas"
-
-
-returnvalue = libusb_init(NULL)
-If returnvalue < 0 Then
-   End returnvalue
-End If
-
-cnt = libusb_get_device_list(NULL, @ppList)
-If (cnt < 0) then
-    End cnt
-End if
-
-'? "Found ";cnt ;" usb devices"
-'?
-? "Looking for "; Hex(Vendor,4); ":"; Hex(Product,4)
-?
-
-for i as integer = 0 to cnt-1
-    pDevice = ppList[i]
-    returnvalue = libusb_get_device_descriptor(pDevice, @desc) 
-    '? Hex(desc.idVendor,4); ":"; Hex(desc.idProduct,4)
-    If Hex(desc.idVendor,4) = Hex(Vendor,4) And Hex(desc.idProduct,4) = Hex(Product,4) Then
-		?
-		? "Found the device    "; pDevice
-		DHandle(counter) = open_device(pDevice)
-		
-		returnvalue = print_device_descriptor(desc, sup_out)
-		returnvalue = print_vendor_info(DHandle(counter), desc, 0)
-		
-		returnvalue = libusb_get_config_descriptor(pDevice, 0, @Dconfig)
-		If returnvalue = 0 Then
-			returnvalue = print_config_descriptor(Dconfig, sup_out)			
-		    For ii as integer = 0 To Dconfig->bNumInterfaces - 1
-				inter = @Dconfig->interface[ii]
-				Print "Number of alternate settings: ";inter->num_altsetting
-				For j as integer = 0 To inter->num_altsetting - 1
-					interdesc = @inter->altsetting[j]
-					returnvalue = print_interface_descriptor(interdesc, sup_out)
-					returnvalue = print_interface_info(DHandle(counter), interdesc, sup_out)
-					? "number of endpoints: "; interdesc->bNumEndpoints
-					For k as integer = 0 To interdesc->bNumEndpoints - 1
-						epdesc = @interdesc->endpoint[k]
-						returnvalue = print_endpoint_descriptor(epdesc, sup_out)
-						if (sup_out = 0) then 
-							? ii;" ";j;" ";k
-						End If
-						If (epdesc->bEndpointAddress >= 128) then
-							in_endpoint(in_cnt) = epdesc->bEndpointAddress
-							in_packsize(in_cnt) = epdesc->wMaxPacketSize
-							in_cnt = in_cnt + 1
-						End if
-						If (epdesc->bEndpointAddress < 128) then
-							out_endpoint(out_cnt) = epdesc->bEndpointAddress
-							out_packsize(out_cnt) = epdesc->wMaxPacketSize
-							out_cnt = out_cnt + 1
-						End if
-						If (sup_out = 0) then
-							? "ep address "; epdesc->bEndpointAddress
-							? "in "; in_endpoint(in_cnt)
-							? "out "; out_endpoint(out_cnt)
-						End If
-					Next k
-				Next j
-			Next ii			
-		Else
-			? "Error getting config descriptor"
-			End returnvalue
-		End IF
-		
-		counter = counter + 1
-	
-    End If
-next i
-
-? "number of attached devices "; counter
-?
-
-If (counter>0) then
-
-
-
-	Print "press Esc to quit"
-	
-	? "in endpoint 0: "; in_endpoint(0)
-	? "in endpoint 1: "; in_endpoint(1)
-	? "out endpoint 0: "; out_endpoint(0)
-	? "out endpoint 1: "; out_endpoint(1)
-	
-	countbytes = 0
-	
-	Do
-	
-		returnvalues = bulk_tranfer(DHandle(counter-1), in_endpoint(0), dbuf, in_packsize(0), 1, 0)
-		If (returnvalues.B = -4) then 
-			Exit Do
-		End If
-		If (returnvalues.B <> -7) then
-			If (returnvalues.A>0) then
-				'? returnvalues.A; " bytes received"
-				'? "aantal * "; returnvalues.A; " = "; countbytes
-				countbytes = countbytes + returnvalues.A
-				For ii as integer = 0 To returnvalues.A - 1 Step 4
-					if (databuffer(ii) <> databuffer_oud1) or (databuffer(ii+1) <> databuffer_oud2) or (databuffer(ii+2) <> databuffer_oud3) or (databuffer(ii+3) <> databuffer_oud4 )then 
-						? databuffer(ii); ", "; databuffer(ii+1); ", "; databuffer(ii+2); ", "; databuffer(ii+3); ", " 
-					End If
-					databuffer_oud1 = databuffer(ii)
-					databuffer_oud2 = databuffer(ii+1)
-					databuffer_oud3 = databuffer(ii+2)
-					databuffer_oud4 = databuffer(ii+3)
-				Next ii
-			'?
-			'? "packet nr."; 256*databuffer(62)+databuffer(63)
-			End If
-		End If
-		key = Inkey
-		If (key <> "") then
-			? countbytes
-		'	? "key pressed: "; asc(key)
-		'	databuffer(0) = asc(key)
-		'	returnvalues = transfer_data(DHandle(counter-1), out_endpoint(0), dbuf, out_packsize(0), 100, 100)
-		End If
-
-	Loop Until key = chr$(27)
-	
-	returnvalue = close_device(DHandle(counter-1))
-End If
-
-
-returnvalue = exit_prog(ppList)
-
-sleep
-