home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23b.dsk / TEST.SPOOLER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  741b  |  16 lines
  1. 10  REM  ************************
  2. 20  REM  *     TEST.SPOOLERP<<<<6<CTRL-\>B<CTRL-T><CTRL-B><CTRL-\> RESTORE <6<<<<<^E<WYR<Q]RPE<<<<<6<CTRL-\>a<CTRL-T>4<CTRL-\> RESTORE <6<<<<<<<<<<<<<<<<<<<<<<6<CTRL-\> END <CTRL-T>.<CTRL-\> RESTORE <644WW(!*1?0,XP;QXIIHEPPZp/xLL SHLOAD X*  BY MICROSPARC, INC  *
  3. 70  REM  *  CONCORD, MA. 01742  *
  4. 80  REM  ************************
  5. 90 D$ =  CHR$(4)
  6. 100 F$ = ".": FOR I = 1 TO 70:F$ = F$ +" ": NEXT :F$ = F$ +"."
  7. 110  PRINT D$"PR#1"
  8. 120  FOR I = 1 TO 100
  9. 130  PRINT I;
  10. 140  PRINT F$
  11. 150  NEXT I
  12. 160  PRINT D$"PR#0"
  13. 170  FOR I = 1 TO 3: PRINT  CHR$(7): NEXT 
  14. 180  HOME : VTAB 12: PRINT "NOW COUNTING TO 1000 ON THE SCREEN ONLY"
  15. 190  FOR I = 1 TO 1000: VTAB 13: HTAB 18: PRINT I: NEXT 
  16. 200  PRINT  CHR$(7)"DONE"