home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib37b.dsk / AMPER.PEEK.DEMO.bas next >
BASIC Source File  |  2023-02-26  |  1KB  |  28 lines
  1. 10  REM  ************************
  2. 20  REM  * AMPER.PEEK.DEMO      *
  3. 30  REM  * BY CHRIS MEYER       *
  4. 40  REM  * COPYRIGHT(C) 1989    *
  5. 50  REM  * MINDCRAFT PUBL. CORP.*
  6. 60  REM  * CONCORD, MA 01742    *
  7. 70  REM  ************************
  8. 90  PRINT  CHR$(4)"BRUN AMPER.PEEKER": GOSUB 200
  9. 100  DIM A%(24,40)
  10. 110  GOSUB 250
  11. 120  FOR B = 1 TO 24: FOR C = 1 TO 40
  12. 130 B% = B:C% = C: & A%,C%,B%
  13. 140 A%(B%,C%) = A%
  14. 150  NEXT C,B
  15. 160  PRINT  CHR$(4): PRINT  CHR$(4)"PR#1"
  16. 165  PRINT  CHR$(9)"80N"
  17. 170  FOR B = 1 TO 24: FOR C = 1 TO 40: PRINT  CHR$(A%(B,C));: NEXT C
  18. 180  PRINT "": NEXT B
  19. 190  PRINT  CHR$(4)"PR#0": END 
  20. 200  PRINT  CHR$(21): HOME : PRINT : PRINT : PRINT : PRINT 
  21. 210  PRINT "THIS ROUTINE WILL USE AMPER.PEEKER": PRINT "TO READ THE TEXT SCREEN AND PRINT IT TO THE PRINTER."
  22. 220  VTAB 23: PRINT "PRESS RETURN TO CONTINUE."
  23. 230  IF  PEEK( -16384) <128  THEN 220
  24. 240  RETURN 
  25. 250  HOME : FOR X = 1 TO 950: IF  INT( RND(1) *2) = 0  THEN  PRINT " ";: GOTO 270
  26. 260 A =  INT( RND(1) *25) +193: PRINT  CHR$(A);
  27. 270  NEXT X
  28. 280  RETURN