home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / FORTH / FORTHSCRN (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1995-07-06  |  510 b   |  15 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  PRINT  CHR$(4)"PR#3"
  2. 10  PRINT "THIS PROGRAM MAKES A FILE FROM FORTH SCREENS": PRINT "BETWEEN THE 2 SCREEN #S YOU SPECIFY": PRINT : PRINT 
  3. 15  INPUT "NAME OF TEXTFILE TO CREATE:";T$
  4. 20  INPUT "START AT SCREEN# :";S1
  5. 30  INPUT "END AT SCREEN#   :";S2
  6. 40  IF S2 <S1  THEN  PRINT "TRY AGAIN- START MUST BE < END": PRINT : GOTO 20
  7. 50  IF S1 <0  OR S1 >139  OR S2 <0  OR S2 >139  THEN  PRINT "TRY AGAIN - SCRN #'S OUT OF RANGE": PRINT : GOTO 20
  8. 80  PRINT  CHR$(4)"BLOAD FORTHSCR.OBJ"
  9. 90  PRINT  CHR$(4)"OPEN "T$: PRINT  CHR$(4)"WRITE "T$
  10. 110 SB = S1 *2:EB = S2 *2
  11. 120  FOR I = SB TO EB  STEP 2
  12. 130  POKE 768 +7,I - INT(I/256) *256
  13. 140  POKE 768 +8, INT(I/256)
  14. 150  CALL 768
  15. 160  NEXT I: PRINT  CHR$(4)"CLOSE": END