home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / JANUARY.1992 / SCREEN.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  25 lines
  1. 10  REM ***********************
  2. 20  REM *    SCREEN.DEMO      *
  3. 30  REM *   by Paul Esser     *
  4. 40  REM * Copyright (C) 1991  *
  5. 50  REM * MindCraft Publ Corp *
  6. 60  REM *  Lincoln, MA 01773  *
  7. 70  REM ***********************
  8. 80  PRINT  CHR$(21): TEXT : HOME 
  9. 90 D$ =  CHR$(4)
  10. 100  LIST  -70: VTAB 1: FOR I = 1 TO 8: PRINT "        ": NEXT I: REM 8 SPACES
  11. 110  ONERR  GOTO 130
  12. 120  PRINT D$;"TLOAD": POKE 216,0: GOTO 160
  13. 130  ONERR  GOTO 150
  14. 140  PRINT  CHR$(4);"BRUN SCREEN.CMD": POKE 216,0: GOTO 160
  15. 150  POKE 216,0: PRINT  CHR$(7);"UNABLE TO LOAD SCREEN.CMD": PRINT "ERROR #"; PEEK(222): PRINT : END 
  16. 160  VTAB 15: CALL  -958: PRINT : PRINT "ENTER FILENAME OF SCREEN FILE TO TLOAD."
  17. 170  PRINT : PRINT "(AFTER FILE IS TLOADED AND DISPLAYED,": PRINT "YOU CAN DUMP IT TO PRINTER BY PRESSING": PRINT  CHR$(34);"D"; CHR$(34);".  PRESSING ANY OTHER KEY WILL END": PRINT "THE PROGRAM.)"
  18. 180  PRINT : INPUT F$: IF  LEN(F$) = 0  THEN 250
  19. 190  HOME : PRINT D$;"VERIFY";F$:TYPE =  PEEK(48824)
  20. 200  IF TYPE = 248  AND  PEEK( -1101) = 6  THEN  PRINT D$;"PR#3": PRINT 
  21. 210  PRINT D$;"TLOAD";F$: POKE  -16368,0
  22. 220 A =  PEEK( -16384): IF A <128  THEN 220
  23. 230 A = A -128: IF A < > ASC("D")  AND A < > ASC("D") +32  THEN 250
  24. 240  PRINT D$;"DUMP"
  25. 250  PRINT  CHR$(21): HOME : POKE  -16368,0: END