home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib23b.dsk / COMTAB.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  28 lines
  1. 10  REM  **********************
  2. 20  REM  *    COMTAB.DEMO     *
  3. 30  REM  *  BY  TIM KENDRICK  *
  4. 40  REM  * COPYRIGHT (C) 1985 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80 D$ =  CHR$(4): PRINT D$"BLOAD COMTAB"
  9. 90  HOME 
  10. 100 G = 4: GOSUB 190
  11. 110  PRINT : PRINT : PRINT "DO YOU HAVE A PRINTER? (Y/N)";: GET K$: IF K$ < >"Y"  THEN  END 
  12. 120  PRINT : PRINT "ENTER SLOT NUMBER FOR PRINTER CARD:";: GET K$:K =  VAL(K$): IF K <1  OR K >7  THEN 120
  13. 130  PRINT : PRINT D$"PR#"K: PRINT  CHR$(9)"80N":G = 8
  14. 140  GOSUB 190
  15. 150  CALL 879
  16. 160  PRINT D$"PR#0"
  17. 170  END 
  18. 180  REM  PRINTING ROUTINE
  19. 190  PRINT : PRINT "COMTAB DEMO": FOR I = 1 TO G: FOR J = 0 TO 9: PRINT (J +1) *(J <9);: NEXT : NEXT : PRINT 
  20. 200  CALL 768,8
  21. 210  PRINT "WOW! IT ACTUALLY WORKS",1,1,1,1,1,1,1
  22. 220 A$ = "FREDDIE"
  23. 230  PRINT : PRINT ,,, MID$ (A$,2,1),,"AND IT SORTS OUT THE RIGHT COMMAS"
  24. 240  PRINT : PRINT 
  25. 250  CALL 768,4: FOR I = 1 TO 10: PRINT "#"I,;: NEXT : PRINT 
  26. 260  FOR I = 1 TO 10: PRINT "---",;: NEXT 
  27. 270  PRINT 
  28. 280  RETURN