home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib01.dsk / ASCII OVER-PRINT DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  625b  |  21 lines
  1. 2  REM  * ASCII OVER-PRINT DEMO *
  2. 3  REM  * MICRO-SPARC *
  3. 10  HOME 
  4. 100  PRINT "THIS PROGRAM OVER-PRINTS TWO ASCII ": PRINT "CHARACTERS OF YOUR CHOICE. ENTER THE": PRINT "ASCII DECIMAL NUMBER FOR EACH."
  5. 105  INPUT "ENTER 'A'";A: INPUT "ENTER 'B'";B
  6. 115 X = A
  7. 130  PR# 1: PRINT  CHR$(2); CHR$(30)
  8. 132  POKE 36,30
  9. 135  PRINT "A= ";A;" B= ";B;" ";
  10. 137  FOR L = 1 TO 5: PRINT  CHR$(A); CHR$(B);: NEXT L: PRINT 
  11. 140  FOR R = 1 TO 2
  12. 142  PRINT "<CTRL-I>K": REM  CTL I K
  13. 143  POKE 36,30
  14. 145  FOR P = 1 TO 20
  15. 150  PRINT  CHR$(X);
  16. 155  NEXT P
  17. 157  PRINT 
  18. 160  IF R = 1  THEN X = B
  19. 165  NEXT R
  20. 167  PRINT  CHR$(10)
  21. 180  PR# 0: GOTO 100