home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / HELLO.bas < prev    next >
BASIC Source File  |  2000-01-01  |  3KB  |  67 lines
  1. 50  REM THIS PROGRAM WILL LOAD FLEX TYPE BETWEEN DOS & THE BUFFERS
  2. 100 CS$(1) = "ASCII.70"
  3. 110 CS$(2) = "ASCII.56"
  4. 120 CS$(3) = "ASCII.40"
  5. 130 CS$(4) = ""
  6. 140 CS$(5) = ""
  7. 150 CS$(6) = ""
  8. 160 CS$(7) = ""
  9. 170 CS$(8) = ""
  10. 180 CS$(9) = ""
  11. 190  FOR I = 1 TO 9: IF  LEN(CS$(I))  THEN NCS = NCS +1: NEXT 
  12. 200  TEXT : HOME : PRINT  CHR$(4)"NOMONICO"
  13. 205  FOR I = 768 TO 856: READ V: POKE I,V: NEXT : CALL 768
  14. 210  PRINT "<CTRL-M>FLEX TYPE   V2.1B              11/15/84<CTRL-M>70/56/40/20 COLUMN<CTRL-M>HI-RES TEXT UTILITY<CTRL-M>BY  MARK S. SIMONSEN<CTRL-M>(C) 1982  BEAGLE BROS<CTRL-M><CTRL-M>"
  15. 220  PRINT "LOADING: RELOCATOR"
  16. 230  PRINT  CHR$(4)"BLOAD RELOCATOR"
  17. 240 LNGTH = 8 +3 *NCS
  18. 250  IF  PEEK(978) >189  THEN B =  PEEK(116) -1:DM = 1: HIMEM: ((B -LNGTH) +1) *256: GOTO 290
  19. 260 B =  PEEK(40193)
  20. 270  IF B = 150  THEN B = B -1
  21. 280  POKE 40193,B -LNGTH: CALL 42964
  22. 290 B = ((B -LNGTH) +1) *256
  23. 300  PRINT  TAB( 10)"FLEX TYPE"
  24. 310  PRINT  CHR$(4)"BLOAD FLEX TYPE,A"B
  25. 320 C =  INT(B/256):D = B -(C *256): POKE 965,D: POKE 966,C
  26. 330  CALL 768
  27. 340 A = B +2048
  28. 350  FOR I = 1 TO NCS
  29. 360  PRINT  TAB( 10)"CHARACTER SET "I
  30. 370  PRINT  CHR$(4)"BLOAD "CS$(I)",A"A +((I -1) *768)
  31. 380 TYPE = 1
  32. 390  IF  RIGHT$(CS$(I),3) = ".70"  THEN TYPE = 3
  33. 400  IF  RIGHT$(CS$(I),3) = ".56"  THEN TYPE = 2
  34. 410  POKE (A -10) +I,TYPE
  35. 420  NEXT I
  36. 430  POKE A -10,NCS
  37. 440  POKE A -11,32: REM DISPLAY HI-RES PAGE 1
  38. 450  POKE 973,76: POKE 974,D: POKE 975,C
  39. 460  IF  PEEK(1014) = 88  AND  PEEK(1015) = 255  THEN  POKE 1014,D: POKE 1015,C
  40. 470  IF   NOT DM  THEN 500
  41. 480  FOR I = 768 TO 818: READ V: POKE I,V: NEXT : CALL 769: IF  PEEK(768)  THEN  PRINT "THIS VERSION OF DOS NOT RECOGNIZED!": STOP 
  42. 490  POKE B +205,10: REM DM FIX
  43. 500  CALL B: HOME 
  44. 510  REM *****************************************************
  45. 520  PRINT  CHR$(4)"BLOAD LOGO.PIC,A$4000"
  46. 530 T70$ =  CHR$(20) +"1"
  47. 540 T56$ =  CHR$(20) +"2"
  48. 550 T40$ =  CHR$(20) +"3"
  49. 560 WIDE$ =  CHR$(23)
  50. 570  HCOLOR= 3: HPLOT 0,0 TO 279,0: HPLOT  TO 279,182
  51. 580  HPLOT  TO 0,182: HPLOT  TO 0,0
  52. 590  PRINT T40$;WIDE$;: VTAB 2: HTAB 6: PRINT "FLEX TYPE"
  53. 600  PRINT WIDE$;: HTAB 15: PRINT "FLEX  TYPE"
  54. 610  PRINT T56$;: HTAB 23: PRINT "FLEX  TYPE"
  55. 620  PRINT T70$;: HTAB 30: PRINT "FLEX TYPE"
  56. 630  CALL 16384
  57. 640  PRINT T40$;: VTAB 17: HTAB 7
  58. 650  PRINT "Hi-Res Character Generator"
  59. 660  HTAB 10: PRINT "By  Mark S. Simonsen"
  60. 670  INVERSE : PRINT 
  61. 680  HTAB 6: PRINT " FOR A DEMONSTRATION, TYPE: ": HTAB 10: PRINT " RUN FLEX TYPE DEMO ": PRINT 
  62. 690  HPLOT 5 *7,19 *8 -1 TO 33 *7 -1,19 *8 -1
  63. 700  REM *****************************************************
  64. 710  NORMAL : PRINT T70$;: VTAB 23: END 
  65. 715  DATA 173,0,224,72,173,237,3,201,1,208,14,173,3,141,201,76,208,5,169,127,141,0,141,104,96,201,2,208,31,44,139,192,44,139,192,173,3,208,201,76,208,5,169,127,141,0,208
  66. 717  DATA 104,44,129,192,205,0,224,240,3,44,128,192,96,201,3,208,23,44,139,192,44,139,192,173,3,208,201,76,208,5,169,127,141,0,208,104,44,129,192,96,104,96
  67. 720  DATA 0,173,255,191,201,190,208,12,173,207,3,141,255,191,169,0,141,254,191,96,201,243,240,6,169,1,141,0,3,96,44,131,192,44,131,192,173,207,3,141,90,247,169,0,141,87,247,44,130,192,96