home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / QUICKC.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  1.3 KB  |  31 lines
  1. 10 '** QUICK.BAS **
  2. 11 'RELATED FILES:  QCLEAR.BIN   machine code for screen-clearing routine
  3. 12 '                QPRINT.BIN   machine code for quick print routine
  4. 13 '                QPRINTC.BIN  same, but for compiled programs
  5. 20 DEFINT A-Z: KEY OFF
  6. 40 '
  7. 45 DIM COMPILED(1): COMPILED(1)= -1:  ERASE COMPILED
  8. 46 IF COMPILED(1) THEN F1$="D:QPRINTC.BIN" ELSE F1$="D:QPRINT.BIN"
  9. 50 DEF SEG = 7936: QCLEAR=0: QPRINT=1000
  10. 60 BLOAD F1$,QPRINT
  11. 70 BLOAD "D:QCLEAR.BIN",QCLEAR : QCLLIN=0 : QCLFRM=5
  12. 80 ' CLEAR LINE TEST - - - -
  13. 90 GOSUB 180
  14. 100 IF COMPILED(1) THEN CALL ABSOLUTE(ROW,COL,QCLLIN) ELSE CALL QCLLIN(ROW,COL)
  15. 110 LOCATE 25,1 : INPUT;"CLEAR LINE TEST - PRESS ENTER TO CONTINUE";A$
  16. 120 ' CLEAR FRAME TEST - - - -
  17. 130 GOSUB 180
  18. 140 IF COMPILED(1) THEN CALL ABSOLUTE(ROW,COL,QCLFRM) ELSE CALL QCLFRM(ROW,COL)
  19. 150 LOCATE 25,1 : INPUT;"CLEAR FRAME TEST - PRESS ENTER TO CONTINUE",A$: RUN
  20. 170 ' THIS SUBROUTINE JUST PAINTS SOME STUFF ON THE SCREEN FOR CLEARING
  21. 180 '
  22. 190 CLS: A$=STRING$(80,"A"):  CLM=1
  23. 210   FOR I=1 TO 23
  24. 220 IF COMPILED(1) THEN CALL ABSOLUTE(A$,I,CLM,QPRINT) ELSE CALL QPRINT(A$,I,CLM)
  25. 230   NEXT
  26. 240 ROW=6:  COL=5
  27. 250 RETURN
  28. 
  29. 220 IF COMPILED(1) THEN CALL ABSOLUTE(A$,I,CLM,QPRINT) ELSE CALL QPRINT(A$,I,CLM)
  30. 230   NEXT
  31. 240 ROW=6:  CO