home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / SHAPE.MECH1.SHK / SHAPE.MECHANIC / STARTUP.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  24 lines
  1. 100 V$ = "12/07/85":D$ =  CHR$(4): NOTRACE 
  2. 110  PRINT  CHR$(21): TEXT : NORMAL : HOME : VTAB 9: PRINT " THIS IS SIDE 1 OF THE PRODOS VERSION": PRINT : HTAB 12: PRINT "OF SHAPE MECHANIC.": PRINT : HTAB 8: PRINT "(THE FONTS ARE ON SIDE 2.)": FOR I = 1 TO 5000: NEXT 
  3. 120  HOME : INVERSE : SPEED= 255: PRINT : PRINT "<CTRL-M>           SHAPE MECHANIC            ": NORMAL : VTAB 1
  4. 130  PRINT "          BEAGLE BROS, INC.<CTRL-M>-------------------------------------<CTRL-M><CTRL-M>-------------------------------------<CTRL-M>(C) 1985, BERT KERSEY & MARK SIMONSEN"
  5. 150  VTAB 5: PRINT "<CTRL-M><CTRL-M><A> SEE GREETINGS DEMO<CTRL-M><B> SEE SHAPE TABLE DEMO<CTRL-M><C> SEE HI.WRITER DEMO<CTRL-M><D> SEE FONT SAMPLES<CTRL-M><CTRL-M><E> RUN XTYPER<CTRL-M><F> RUN FONT.EDITOR<CTRL-M><G> RUN SHAPE.EDITOR<CTRL-M><H> RUN SHAPE.CAPTURE<CTRL-M><I> RUN SHAPE.APPEND"
  6. 160  PRINT "<J> RUN SONG.SUBROUTINES<CTRL-M><K> RUN TEXT.TRICKS<CTRL-M><L> RUN BEAGLE.NEWS"
  7. 170  PRINT "<CTRL-M><M> SEE NOTES ABOUT THIS DISK<CTRL-M><Q> QUIT": PRINT : PRINT "    SELECT:";: VTAB 21: HTAB 31: PRINT "("V$")"
  8. 180  VTAB 24: HTAB 12: GET A$:A$ =  CHR$( ASC(A$) -32 *(A$ >"_"))
  9. 190  IF A$ = "Q"  THEN  VTAB 23: HTAB 1: CALL  -958: END 
  10. 200  PRINT A$: HOME 
  11. 210  IF A$ = "A"  THEN  PRINT D$"RUN GREETINGS"
  12. 220  IF A$ = "B"  THEN  PRINT D$"RUN SHAPETABLE.DEMO"
  13. 230  IF A$ = "C"  THEN  PRINT D$"RUN HI.WRITER.DEMO"
  14. 240  IF A$ = "D"  THEN  HGR : POKE  -16302,0: PRINT D$"BLOAD PIC.SHAPE.MECH,A$2000": GET A$: PRINT A$: PRINT D$"BLOAD PIC.FONT.MECH,A$2000": GET A$: PRINT A$: RUN 
  15. 250  IF A$ = "E"  THEN  PRINT D$"RUN XTYPER"
  16. 260  IF A$ = "F"  THEN  PRINT D$"RUN FONT.EDITOR"
  17. 270  IF A$ = "G"  THEN  PRINT D$"RUN SHAPE.EDITOR"
  18. 280  IF A$ = "H"  THEN  PRINT D$"RUN SHAPE.CAPTURE"
  19. 285  IF A$ = "I"  THEN  PRINT D$"RUN SHAPE.APPEND"
  20. 290  IF A$ = "J"  THEN  PRINT D$"RUN SONG.SUBROUTINE"
  21. 300  IF A$ = "K"  THEN  PRINT D$"RUN TEXT.TRICKS"
  22. 310  IF A$ = "L"  THEN  PRINT D$"RUN BEAGLE.NEWS"
  23. 320  IF A$ = "M"  THEN  PRINT D$"RUN NOTES"
  24. 330  RUN