home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35b.dsk / LONG.PT2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  611b  |  10 lines
  1. 10000  IF  PEEK(104) = 96  THEN  POKE 104,8: GOTO 60
  2. 10010  REM  THE PREVIOUS LINE SHOULD BE THE FIRST LINE OF THE SECOND SEGMENT. IT SHOULD GOTO THE FIRST LINE OF YOUR PROGRAM
  3. 10020  REM  THE REMAINING INSTRUCTIONS OF THE SECOND SEGMENT ARE THE LAST PART OF YOUR PROGRAM
  4. 10030 : PRINT : PRINT "THIS IS THE SECOND SEGMENT"
  5. 10040  PRINT "IT IS LOADED ABOVE THE SCREENS"
  6. 10050  HCOLOR= 5: HPLOT 0,0: CALL 62454
  7. 10060  VTAB 24: POKE 36,0: PRINT "WANT TO RERUN THE FIRST PART? (Y/N)";: GET A$
  8. 10070  IF A$ = "Y"  OR A$ = "y"  THEN  GOTO 80
  9. 10080  IF A$ = "N"  OR A$ = "n"  THEN  TEXT : HOME : END 
  10. 10090  GOTO 10060