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