home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35b.dsk / HELPER.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  3KB  |  37 lines

  1. 10  REM **********************
  2. 20  REM *    HELPER.DEMO     *
  3. 30  REM * By  Kenn Scribner  *
  4. 40  REM * Copyright (C) 1988 *
  5. 50  REM *  MicroSPARC, Inc.  *
  6. 60  REM * Concord, MA 01742  *
  7. 70  REM **********************
  8. 80 D$ =  CHR$(4)
  9. 90  IF  PEEK( -1) < >192  THEN  HOME : PRINT "NOT AN APPLE IIGS!": END 
  10. 100  PRINT D$;"PR#3"
  11. 110  PRINT D$;"BRUN HELPER"
  12. 120  PRINT : PRINT  TAB( 26);"HELPER Demonstration Program": PRINT : PRINT 
  13. 130  PRINT  TAB( 9);"With HELPER, you may perform several new tasks with your IIgs!": PRINT 
  14. 140  POKE 34,7: HOME : PRINT  TAB( 5);"Such as...changing text colors!"
  15. 150  PRINT : PRINT : FOR I = 1 TO 13: PRINT  TAB( 13);"ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz": NEXT I
  16. 160  VTAB 8: HTAB 38: PRINT "(Press Return to continue)";: POKE  -16368,0: GET A$
  17. 170 CL$ = "T": & _ READ  = CL$,TC: FOR I = 0 TO 15: & _ TEXT  = I: FOR J = 1 TO 800: NEXT J: NEXT I: & _ TEXT  = TC
  18. 180  PRINT : VTAB 8: HTAB 1: CALL  -868: PRINT  TAB( 5);"Or...the background colors!  (Press Return to continue)";: POKE  -16368,0: GET A$
  19. 190 CL$ = "B": & _ READ  = CL$,BC: FOR I = 0 TO 15: & _ COLOR= I: FOR J = 1 TO 800: NEXT J: NEXT I: & _ COLOR= BC
  20. 200  HOME : PRINT  TAB( 5);"You may even change the border colors!  (Press return to continue)";: POKE  -16368,0: GET A$
  21. 210 CL$ = "H": & _ READ  = CL$,HC: FOR I = 0 TO 15: & _ HCOLOR= I: FOR J = 1 TO 800: NEXT J: NEXT I: & _ HCOLOR= HC
  22. 220  HOME : PRINT " The IIGS is also capable of printing characters found in other languages..."
  23. 230  PRINT : PRINT "  These characters are replaced when a different language is selected..."
  24. 240  PRINT : PRINT  TAB( 26);"#  @  [  ]  \  `  {  }  |  ~"
  25. 250 CL$ = "L": & _ READ  = CL$,LA: PRINT : PRINT  TAB( 5);"They look like this for English in the USA  (Press Return to continue)  ";: & _ LOAD  = 0: POKE  -16368,0: GET A$
  26. 260  VTAB 14: HTAB 44: CALL  -868: PRINT "UK  (Press Return to continue)  ";: & _ LOAD  = 1: POKE  -16368,0: GET A$
  27. 270  VTAB 14: HTAB 25: CALL  -868: PRINT "in French  (Press Return to continue)  ";: & _ LOAD  = 2: POKE  -16368,0: GET A$
  28. 280  VTAB 14: HTAB 28: CALL  -868: PRINT "Danish  (Press Return to continue)  ";: & _ LOAD  = 3: POKE  -16368,0: GET A$
  29. 290  VTAB 14: HTAB 28: CALL  -868: PRINT "Spanish  (Press Return to continue)  ";: & _ LOAD  = 4: POKE  -16368,0: GET A$
  30. 300  VTAB 14: HTAB 28: CALL  -868: PRINT "Italian  (Press Return to continue)  ";: & _ LOAD  = 5: POKE  -16368,0: GET A$
  31. 310  VTAB 14: HTAB 28: CALL  -868: PRINT "German  (Press Return to continue)  ";: & _ LOAD  = 6: POKE  -16368,0: GET A$
  32. 320  VTAB 14: HTAB 28: CALL  -868: PRINT "Swedish  (Press Return to continue)  ";: & _ LOAD  = 7: POKE  -16368,0: GET A$
  33. 330  & _ LOAD  = LA: POKE 34,4: HOME 
  34. 340  PRINT  TAB( 5);"You may read values for the text, background, and border colors, as": PRINT : PRINT  TAB( 5);"well as read the current display language, the status of the"
  35. 350  PRINT : PRINT  TAB( 5);"Caps Lock key, Control key, Shift key, and a Numeric Keypad key.": PRINT : PRINT  TAB( 5);"You also have the capability of reading and changing the system's speed."
  36. 360  PRINT : PRINT  TAB( 5);"If you get totally lost, you have a master restore capability that": PRINT : PRINT  TAB( 5);"will reset the system to the way it was when you started!"
  37. 370  VTAB 24: HTAB 20: PRINT "Press Return to return to Applesoft...";: POKE  -16368,0: GET A$: POKE 34,0: & _ RESTORE : HOME : END