home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / FLEX.TYPE.SHK / FLEX.TYPE / OPTCHAR.bas < prev    next >
BASIC Source File  |  2000-01-01  |  891b  |  21 lines
  1. 10  REM THIS PROGRAM WILL LOAD AN ALTERNATE CHARACTER SET
  2. 20  & : HOME 
  3. 30  PRINT "CHARACTER SET YOU WOULD LIKE TO LOAD ?"
  4. 40  PRINT "(PRESSING <RETURN> WILL CAUSE THE DISK": PRINT "TO CATALOG.)"
  5. 50  INPUT "";CS$
  6. 60  IF CS$ = ""  THEN  PRINT  CHR$(4)"CATALOG": PRINT : PRINT "PRESS ANY KEY TO CONTINUE ";: GET CS$: GOTO 20
  7. 70  HOME 
  8. 80 ADDR =  PEEK(974) + PEEK(975) *256 +2048
  9. 90 NCS =  PEEK(ADDR -10)
  10. 100  PRINT "THERE ARE "NCS" CHARACTER SET(S) LOADED."
  11. 110  PRINT "TYPE NUMBER TO BE REPLACED (1-"NCS"). ";: GET X$
  12. 120 X =  ASC(X$) -48: IF X >NCS  OR X <1  THEN 70
  13. 130  PRINT 
  14. 140  HOME 
  15. 150 TYPE = 1
  16. 160  IF  RIGHT$(CS$,3) = ".56"  THEN TYPE = 2
  17. 170  IF  RIGHT$(CS$,3) = ".70"  THEN TYPE = 3
  18. 180  POKE ADDR -10 +X,TYPE
  19. 190  PRINT  CHR$(4)"BLOAD"CS$",A"ADDR +768 *(X -1)
  20. 200  PRINT  CHR$(20)X: FOR I = 32 TO 127: PRINT  CHR$(I)" ";: NEXT I: PRINT : PRINT 
  21. 210  PRINT "SUCCESSFULLY LOADED."