home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / f / ftlogo.zip / FTLOGO2.LF < prev    next >
Text File  |  1989-09-25  |  1KB  |  49 lines
  1. PPROP "REFRESH "PROCPKG "FTLOGO
  2. PPROP "BLOAD "PROCPKG "FTLOGO
  3. PPROP "MOTOR "PROCPKG "FTLOGO
  4. PPROP "INIT "PROCPKG "FTLOGO
  5. PPROP "SWITCH "PROCPKG "FTLOGO
  6. PPROP "POTI "PROCPKG "FTLOGO
  7. PPROP "MOTSTATUS "PROCPKG "FTLOGO
  8. PPROP ".SYSTEM "BURY "TRUE
  9. TO REFRESH 
  10. .CALL :BASE 135
  11. END
  12.  
  13. TO BLOAD 
  14. .BLOAD "FTLOGO.BIN :BASE 0
  15. .DEPOSIT :BASE 6 (.EXAMINE 4 * 16 10)
  16. .DEPOSIT :BASE 7 (.EXAMINE 4 * 16 11)
  17. .DEPOSIT :BASE 8 (1 + (.EXAMINE 4 * 16 10))
  18. .DEPOSIT :BASE 9 (.EXAMINE 4 * 16 11)
  19. END
  20.  
  21. TO MOTOR :NUM :DIR
  22. .DEPOSIT :BASE 0 :NUM
  23. .DEPOSIT :BASE 1 :DIR
  24. .CALL :BASE 33
  25. END
  26.  
  27. TO INIT 
  28. .CALL :BASE 10
  29. END
  30.  
  31. TO SWITCH :NUM
  32. .DEPOSIT :BASE 4 :NUM
  33. .CALL :BASE 155
  34. OUTPUT (.EXAMINE :BASE 4) = 1
  35. END
  36.  
  37. TO POTI :NUM
  38. .DEPOSIT :BASE 2 :NUM
  39. .CALL :BASE 245
  40. OUTPUT (.EXAMINE :BASE 2) + 256 * (.EXAMINE :BASE 3)
  41. END
  42.  
  43. TO MOTSTATUS :NUM
  44. OUTPUT REMAINDER (QUOTIENT (.EXAMINE :BASE 5) POWER 4 (:NUM - 1)) 4
  45. END
  46.  
  47. MAKE "BASE 30000
  48. MAKE "STARTUP [BLOAD INIT PACKAGE "FTLOGO [BLOAD REFRESH MOTSTATUS MOTOR POTI SWITCH INIT] BURY "FTLOGO]
  49.