home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40a.dsk / MARCH.1991 / DD.DEMO.bas < prev    next >
Encoding:
BASIC Source File  |  1990-11-20  |  1.5 KB  |  21 lines
  1. 10  REM ***********************
  2. 20  REM *       DD.DEMO       *
  3. 30  REM * by James E. Trudeau *
  4. 40  REM * Copyright (C)  1991 *
  5. 50  REM * by MindCraft Publ.  *
  6. 60  REM * Concord, MA   01742 *
  7. 70  REM ***********************
  8. 80  PRINT  CHR$(4)"BLOAD DOUBLE.DUMP"
  9. 90  TEXT : HOME : FOR X = 160 TO 255:A$ = A$ + CHR$(X): NEXT 
  10. 100 F = F +( PEEK(49182) >127) +( PEEK(49183) >127): REM   0=40 COLUMN,1=80 COLUMN IN 40 COLUMN MODE,2=80 COLUMN MODE
  11. 110  POKE 49166,0: VTAB 2: PRINT "MAIN CHARACTER SET": PRINT : REM  TURN ON MAIN CHARACTER SET
  12. 120  PRINT A$: FLASH : PRINT  RIGHT$(A$,64): IF F = 0  THEN F = 0: INVERSE : PRINT  RIGHT$(A$,64): NORMAL : GOTO 200: REM  NO ALTERNATE CHARACTERS
  13. 130  IF F = 1  THEN  FOR X = 0 TO 39: POKE 1064 +X,X: NEXT : FOR X = 40 TO 63: POKE 1192 +X -40,X: NEXT : PRINT : PRINT : GOTO 150
  14. 140  FOR X = 0 TO 62  STEP 2:AUX =  PEEK(49237): POKE 1792 +X/2,X:MAIN =  PEEK(49236): POKE 1792 +X/2,X +1: NEXT : PRINT 
  15. 150  NORMAL : PRINT : PRINT "PRESS A KEY TO DUMP THE SCREEN.";: GET Z$: PRINT Z$: CALL 768: HOME 
  16. 160  POKE 49167,0: VTAB 2: PRINT "ALTERNATE CHARACTER SET": PRINT : PRINT A$: INVERSE : PRINT A$: NORMAL 
  17. 170  IF  PEEK(64899) + PEEK(64898) <420  THEN 200: REM  NOT //c OR ENHANCED //e
  18. 180  PRINT : PRINT "MOUSETEXT": PRINT : IF F = 1  THEN  FOR X = 0 TO 31: POKE 1576 +X,X +64: NEXT : PRINT : GOTO 200
  19. 190  FOR X = 0 TO 30  STEP 2:AUX =  PEEK(49237): POKE 1320 +X/2,X +64:MAIN =  PEEK(49236): POKE 1320 +X/2,X +65: NEXT : PRINT 
  20. 200  CALL 768: PRINT 
  21. 210  IF F = 0  THEN  VTAB 12: PRINT "TRY ME WITH THE 80 COLUMN CARD ON."