home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35b.dsk / LONG.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  21 lines
  1. 1  REM  ************************
  2. 2  REM  * LONG                 *
  3. 3  REM  * BY ROBERT STONG      *
  4. 4  REM  * COPYRIGHT(C) 1989    *
  5. 5  REM  * MICROSPARC, INC.     *
  6. 6  REM  * CONCORD, MA 01742    *
  7. 7  REM  ************************
  8. 10 TV =  PEEK(105) +256 * PEEK(106): IF TV >24576 GOTO 60
  9. 20  IF  PEEK(TV) < >171  THEN TV = TV -1: GOTO 20
  10. 30  POKE 103,1: POKE 104,96: POKE 24576,0: POKE TV -4,1: POKE TV -3,96: PRINT  CHR$(4);"RUN LONG.PT2"
  11. 40  REM  THE PREVIOUS INSTRUCTIONS MUST BE THE FIRST LINES OF THE FIRST SEGMENT. THEY LOAD THE SECOND SEGMENT AND LINK THE PARTS
  12. 50  REM  YOUR PROGRAM FOLLOWS THOSE LINES
  13. 60  TEXT : HOME : PRINT "EASY PROGRAM SPLITTING DEMO": PRINT "BY ROBERT STONG": PRINT "COPYRIGHT(C) 1989 MICROSPARC, INC.": VTAB 23: PRINT "PRESS RETURN TO CONTINUE ";: POKE  -16368,0: GET A$
  14. 70  PRINT  CHR$(21);: FOR D = 1 TO 2000: NEXT 
  15. 80  HGR : HOME : HCOLOR= 2: HPLOT 0,0: CALL 62454
  16. 90  VTAB 22: PRINT "THIS IS THE FIRST PROGRAM SEGMENT"
  17. 100  PRINT "IT IS LOADED BELOW THE SCREENS"
  18. 110  PRINT "PRESS RETURN  TO GO TO THE SECOND PART";: GET A$: PRINT A$
  19. 120  GOTO 10030
  20. 9980  REM  THE FOLLOWING LINE MUST BE THE LAST LINE OF THE FIRST SEGMENT. IT IS USED TO LINK THE PARTS
  21. 9990  GOTO 10000