home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib36b.dsk / MS.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  36 lines
  1. 10  REM *********************
  2. 20  REM * MS.DEMO           *
  3. 30  REM * BY ANDREW FIELDS  *
  4. 40  REM * COPYRIGHT(C) 1989 *
  5. 50  REM * MICROSPARC, INC.  *
  6. 60  REM * CONCORD, MA 01742 *
  7. 70  REM *********************  
  8. 80  PRINT  CHR$(21): REM  SET 40.COL
  9. 90  PRINT  CHR$(4);"BRUN MS.BIN"
  10. 100  & 1: HOME : REM  SET PAGE 1
  11. 110  INVERSE : VTAB 3: HTAB 6: PRINT "A QUICK DEMO OF MULTISCREEN": NORMAL 
  12. 120  PRINT : PRINT "MULTISCREEN ALLOWS YOU TO HAVE FOUR": PRINT "TEXT PAGES EACH WORKING LIKE THE NORMAL": PRINT "TEXT SCREEN."
  13. 130  PRINT : PRINT "YOU CAN USE ALL THESE SCREENS TO STORE": PRINT "HELP SCREENS, MENUS, PROGRAM LINES,   ": REM  3 SPACES: PRINT "SHORT NOTES, IN FACT YOU CAN STORE      ANYTHING THAT APPEARS":REM 6 SPACES
  14. 140  PRINT "SHORT NOTES, IN FACT YOU CAN STORE      ANYTHING THAT APPEARS ON THE TEXT OR LO-RES GRAPHICS SCREENS"
  15. 150  PRINT : PRINT "THE PROGRAM IS EASY TO USE, AS IT SETS  THE AMPERSAND (&) VECTOR AND IT CAN BE  USED IN A PROGRAM OR IN IMMEDIATE MODE"
  16. 160  PRINT : PRINT : PRINT "PRESS ANY KEY TO CONTINUE";: GET A$: PRINT A$
  17. 170  VTAB 1: PRINT "PAGE 1"
  18. 180  & 2: HOME : PRINT "PAGE 2"
  19. 190  PRINT 
  20. 200  PRINT "TYPE THE NUMBER ( 1 TO 4 ) OF THE SCREENYOU WANT TO SEE."
  21. 210  PRINT : PRINT "PRESS <ESC> TO END"
  22. 220  & 3: HOME : GR : FOR J = 1 TO 32: COLOR= J: HLIN 0,39 AT J: PLOT J,J: NEXT 
  23. 230  VTAB 21: PRINT "PAGE 3"
  24. 240  PRINT "LO-RES GRAPHICS SCREENS CAN ALSO BE     STORED": REM  5 SPACES
  25. 250  TEXT 
  26. 260  & 4: HOME 
  27. 270  FOR J = 1 TO 11: PRINT : HTAB J *2: PRINT "PAGE 4": NEXT 
  28. 280  & 2
  29. 290  VTAB 23: GET A$: TEXT 
  30. 300  IF A$ =  CHR$(27)  THEN  & 1: HOME : PRINT "END": GOTO 360
  31. 310  IF A$ = "1"  THEN  & 1: GOTO 290
  32. 320  IF A$ = "2"  THEN  & 2: GOTO 290
  33. 330  IF A$ = "3"  THEN  & 3: POKE  -16304,0: POKE  -16298,0: GOTO 290
  34. 340  IF A$ = "4"  THEN  & 4: GOTO 290
  35. 350  CALL  -198: GOTO 290
  36. 360  PRINT : PRINT "LIST THIS PROGRAM TO SEE HOW EASY IT IS TO USE MULTISCREEN"