home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / SHAPE.MECH1.SHK / SHAPE.MECHANIC / HI.WRITER.DEMO.bas < prev    next >
BASIC Source File  |  2000-01-01  |  5KB  |  65 lines
  1. 1  IF  PEEK(103) + PEEK(104) *256 < >2049  THEN  POKE 2048,0: POKE 103,1: POKE 104,8: PRINT  CHR$(4)"RUN HI.WRITER.DEMO"
  2. 2  SPEED= 255: NOTRACE 
  3. 3  PRINT  CHR$(21)
  4. 10  REM GOTO 40
  5. 30  PRINT  CHR$(4)"BRUN HI.WRITER"
  6. 31  &  LOAD (1) = "F.BLOCK"
  7. 32  &  LOAD (2) = "F.ASCII.SMALL"
  8. 33  &  LOAD (3) = "F.APPLE"
  9. 40 UL$ = "@"
  10. 50  ONERR  GOTO 450
  11. 170 RT = 0:G$ =  CHR$(7)
  12. 180  GOTO 500
  13. 450  POKE TXT,0: VTAB 21: POKE 216,0: RESUME 
  14. 499  REM <CTRL-J><CTRL-J>TEXT<CTRL-J>
  15. 500  & INIT: HGR : & FULL: REM STARTING DEFAULTS
  16. 510  &  ON : & CASE$ = UL$
  17. 520  & FT = 3: PRINT "THIS IS A DEMO OF"
  18. 530  PRINT "BEAGLE BROS'"
  19. 540  PRINT "HI-WRITER PROGRAM."
  20. 550  PRINT : PRINT "LIST LINES ";: & FT = 1: PRINT "500-1000"
  21. 560  & FT = 3: PRINT "TO SEE HOW IT"
  22. 570  PRINT "WAS PROGRAMMED."
  23. 580  GOSUB 999
  24. 590  & FT = 2: & Y = 0: PRINT "THE FOLLOWING TYPEFACES, ALL CREATED WITH"
  25. 600  PRINT "THE FONT EDITOR, ARE NOW IN MEMORY:": GOSUB 1010
  26. 610 T$ = ":  ABCabc123": & FT = 1: PRINT : PRINT "#1. BLOCK"T$
  27. 620  & FT = 2: PRINT "#2. SMALL STANDARD"T$
  28. 630  & FT = 3: PRINT "#3. apple"T$
  29. 640  GOSUB 1010
  30. 650  & FT = 2: PRINT : PRINT : PRINT "FONT #3 MAY BE REPLACED AT ANY TIME BY": PRINT "LOADING A NEW ONE FROM THE DISK. STAND BY...": PRINT 
  31. 660  &  LOAD (3) = "F.STENCIL": &  ON 
  32. 670  & FT = 3: PRINT "#3. STENCIL"T$: & FT = 2: PRINT : PRINT "^ NOW THERE IS A NEW FONT #3. ^"
  33. 680  GOSUB 999
  34. 690  & FT = 1: & Y = 0: & CENTER = 1:T$ = "--------------": PRINT T$: PRINT "SCREEN COPY MAY": PRINT "AUTOMATICALLY BE": PRINT "> CENTERED <": PRINT T$
  35. 700  PRINT "OR PRINTED": & CENTER = 0: & X = 63: & Y = 116: PRINT "E";: & Y = 114: PRINT "X";: & Y = 112: PRINT "A";: & Y = 114: PRINT "C";: & Y = 116: PRINT "T";: & Y = 118: PRINT "L";: & Y = 120: PRINT "Y";
  36. 710  & Y = 116: PRINT " WHERE": & CENTER = 1: & Y = 138: PRINT "YOU WANT IT.": PRINT T$
  37. 720  GOSUB 999: & CENTER = 0
  38. 730  & FT = 2: & Y = 0: & X = 112: PRINT "WITH HI-WRITER, YOU CAN": & X = 112: PRINT "PRINT LARGE CHARACTERS": & X = 112: PRINT "IN ANY HI-RES COLOR."
  39. 740  HCOLOR= 3: FOR Y = 0 TO 15: HPLOT 0,Y TO 105,Y: NEXT : FOR Y = 72 TO 87: HPLOT 0,Y TO 105,Y: NEXT 
  40. 750  & FT = 1: & Y = 0: & X = 0: FOR J = 0 TO 7: &  HCOLOR= J: PRINT " COLOR #" STR$(J): NEXT : &  HCOLOR= 3
  41. 760  & FT = 2: & X = 112: & Y = 40: PRINT "YOU CAN ALSO PRINT": & X = 112: PRINT "IN ";: &  INVERSE  = 1: PRINT " INVERSE ";: &  INVERSE  = 0: PRINT " TYPE."
  42. 770  & FT = 3: & X = 112: &  INVERSE  = 1: PRINT " INVERSE ": & X = 112: & FT = 1: PRINT " INVERSE "
  43. 780  &  INVERSE  = 0: & FT = 2: FOR J = 1 TO 6: &  HCOLOR= 0: & X = 112: PRINT "FLASH";: FOR I = 1 TO 500: NEXT : & X = 112: &  HCOLOR= 3: PRINT "FLASHING IS POSSIBLE TOO!";: FOR I = 1 TO 500: NEXT : NEXT 
  44. 790  & Y = 172: & X = 112: &  ROT= 3: PRINT "NOT TO": & Y = 172: PRINT "MENTION": & Y = 172: PRINT "SIDEWAYS": & Y = 172: PRINT "TYPE."
  45. 800  PRINT : PRINT : & Y = 112: &  ROT= 1: PRINT "(BOTH WAYS)"
  46. 810  & X = 279: & Y = 172: &  ROT= 2: PRINT "AND UPSIDE": PRINT "DOWN!!": PRINT "(BIG DEAL)"
  47. 820 RT = 2: GOSUB 999:RT = 0: &  ROT= RT
  48. 840  & X = 0: & Y = 0: & FT = 1: PRINT "Lower Case is easiest": PRINT "to produce if you can": PRINT "enter it in your programs"
  49. 850  PRINT "directly from the keyboard.": & FT = 2: PRINT "(The Apple //e and //c let you do this.)": PRINT 
  50. 860  & FT = 3: PRINT "LIST L@INE 860 TO SEE": PRINT "HOW @LOWER CASE @TYPE IS": PRINT "CREATED ON AN @A@PPLE @][+."
  51. 865  & FT = 2: PRINT : PRINT "(Use the AT-SIGN as an Upper/Lower-Case": PRINT "toggle.)"
  52. 870  &  LOAD (3) = "F.APPLE": &  ON 
  53. 875  GOSUB 999
  54. 880  & FT = 2: & Y = 0: PRINT "LET'S SEE NOW... WHAT HAVEN'T WE COVERED?": GOSUB 1010
  55. 890  PRINT : PRINT "Oh, yes! Our type is PROPORTIONALLY SPACED": PRINT : GOSUB 1010: & FT = 1:T$ = "Hello Sid. How's your sister?": PRINT T$: GOSUB 1010: & FT = 2: PRINT : PRINT "Brand X type is restricted by htabs & vtabs": PRINT 
  56. 900 T$ =  LEFT$(T$,20): & FT = 1: FOR J = 1 TO  LEN(T$):A$ =  MID$ (T$,J,1): & X = (J -1) *14 +6 *(A$ = "l"  OR A$ = "i"  OR A$ = "."  OR A$ = "'"): PRINT A$;: NEXT : PRINT 
  57. 910  & CASE$ = "": GOSUB 1010: & FT = 2: PRINT : PRINT "And we should point out how you can utilize": & CENTER = 1: PRINT "Apple's split screen:": & FT = 1: PRINT "@ @ @ @ @ @ @"
  58. 920  & OFF: HOME : & SPLIT: FOR I = 21 TO 24: VTAB I: HTAB I -17: PRINT "THIS IS NORMAL TEXT AT VTAB ";I;":";: FLASH : PRINT " ";: NORMAL : NEXT : &  ON 
  59. 930  & CENTER = 0: & FT = 2: PRINT : PRINT : & X = 56: PRINT "AND THIS IS ";: &  INVERSE  = 1: PRINT " HI-RES ";: &  INVERSE  = 0: PRINT " TEXT !": GOSUB 1010
  60. 940  FOR I = 1 TO 8: & SPLIT: FOR J = 1 TO (999 +999 *(I = 1))/I: NEXT : & FULL: FOR J = 1 TO (999 +999 *(I = 1))/I: NEXT : NEXT : &  CLEAR  = 0
  61. 950  & FT = 3: FOR J = 1 TO 3: & Y = 32: & CENTER = 1: &  HCOLOR= J: PRINT "For more information...": NEXT : & CENTER = 0: & Y = 56: & X = 14: PRINT "telephone this number>": & FT = 1: FOR J = 77 TO 91  STEP 2: & Y = J: & X = J: &  HCOLOR= 5: PRINT "SO LONG!": NEXT 
  62. 960  &  HCOLOR= 7: & X = J +2: & Y = J +2: PRINT "SO LONG!": HOME : & SPLIT: & Y = 56: & X = 241: &  HCOLOR= 3: PRINT "411": PRINT G$: & OFF: VTAB 23: END 
  63. 999  GOSUB 1010: & Y = 184 +7 *(RT = 2): & X = 0 +279 *(RT = 2): & FT = 2: PRINT "Press ANY KEY to Continue, or Q to Quit:" CHR$(127): POKE  -16368,0: GET A$: IF A$ < >"Q"  AND A$ < >"q"  THEN  &  CLEAR  = 0: RETURN 
  64. 1000  HOME : & SPLIT: & OFF: VTAB 23: END 
  65. 1010  FOR I = 1 TO 999: NEXT : RETURN : REM PAUSE