home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / Beispiele_2 / SCHRITT.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-06-04  |  962 b   |  55 lines
  1. '**************************************
  2. '
  3. ' C-Control/BASIC       SCHRITT.BAS
  4. '
  5. ' Aufgabe:
  6. '
  7. ' - Schrittmotor-Ansteuerung
  8. ' - Rechts/Linkslauf, Tastensteuerung
  9. '
  10. '**************************************
  11. ' --- Definitionen --------------------
  12.  
  13. define Ausgaenge byteport[1]
  14. define Links port[9]
  15. define Rechts port[10]
  16. define N byte
  17.  
  18. ' --- Programmoperationen -------------
  19.  
  20. #Loop
  21.   if (not Links) then gosub Linkslauf
  22.   if (not Rechts) then gosub Rechtslauf
  23. goto Loop              'Endlosschleife
  24.  
  25. #Linkslauf
  26.   for n = 1 to 25
  27.     Ausgaenge = &B00000001
  28.     pause 1
  29.     Ausgaenge = &B00000010
  30.     pause 1
  31.     Ausgaenge = &B00000100
  32.     pause 1
  33.     Ausgaenge = &B00001000
  34.     pause 1
  35.   next
  36.   return
  37.  
  38. #Rechtslauf
  39.   for n = 1 to 25
  40.     Ausgaenge = &B00000100
  41.     pause 1
  42.     Ausgaenge = &B00000010
  43.     pause 1
  44.     Ausgaenge = &B00000001
  45.     pause 1
  46.     Ausgaenge = &B00001000
  47.     pause 1
  48.   next
  49.   return
  50. end
  51.  
  52.  
  53.  
  54.  
  55.