home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IMPERIUM.DSK / VECTOR.bas < prev   
BASIC Source File  |  2014-09-09  |  452b  |  12 lines
  1. 10  HOME : GOTO 100
  2. 20  &  RECALL "LIB",25600: RETURN 
  3. 100 Z =  PEEK(22288): ON Z +1 GOSUB 200,300,400,500,600
  4. 110  HOME : GOTO 100
  5. 200  GOSUB 20: &  RECALL "IMTRD.OBJ",27904: CALL 27904: RETURN 
  6. 300  POP : &  RUN "IMPROD",25600
  7. 400  GOSUB 20: &  RECALL "IMNEG.OBJ",27904: CALL 27904: RETURN 
  8. 500  GOSUB 20: &  RECALL "IMMOV.OBJ",27904: CALL 27904: RETURN 
  9. 600  POP : &  RUN "IMCOM",26112
  10. 700  STOP 
  11. 59999  END 
  12. 60000  &  DEL "VECTOR": &  SAVE "VECTOR"