home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib40a.dsk / APRIL.1991 / SEARCH.MOD.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 1  REM  **************************
  2. 2  REM  * SEARCH.MOD.DEMO        *
  3. 3  REM  * BY LEE REYNOLDS        *
  4. 4  REM  * COPYRIGHT (C) 1991     *
  5. 5  REM  * MINDCRAFT PUBL. CORP.  *
  6. 6  REM  * CONCORD, MA 01742      *
  7. 7  REM  **************************
  8. 10  HOME : PRINT "DEMO PROGRAM FOR": PRINT "APPLESOFT SEARCH AND MODIFY": PRINT "BY LEE REYNOLDS": PRINT "COPYRIGHT(C) 1991, MINDCRAFT PUBL. CORP.": PRINT 
  9. 20  PRINT "THIS PROGRAM DEMONSTRATES HOW": PRINT "APPLESOFT SEARCH AND MODIFY CAN BE USED": PRINT "TO CHANGE A 'GOTO XXXX' STATEMENT SO": PRINT "THAT YOU CAN GO TO ANY LINE YOU WANT."
  10. 30  PRINT  CHR$(4)"BLOAD SEARCH.MOD": PRINT : CALL 768(ADDR,100,171)
  11. 40  REM  171 IS THE TOKEN NUMBER FOR "GOTO"
  12. 50  PRINT "INSTRUCTIONS:": PRINT "ENTER 1 IF YOU WANT TO SEE LINE 1000": PRINT "EXECUTED, ENTER 2 FOR LINE 2000, OR": PRINT "ANY OTHER NUMBER TO STOP THE PROGRAM.": PRINT 
  13. 60  INPUT "YOUR CHOICE? ";CHOICE
  14. 70  IF CHOICE <1  OR CHOICE >2  THEN  PRINT "THAT'S ALL FOLKS!": END 
  15. 80 LINE = 1000: IF CHOICE = 2  THEN LINE = 2000
  16. 90  GOSUB 110
  17. 100  GOTO 1000
  18. 110  FOR I = 1 TO 4
  19. 120 NUM = LINE/(10 ^(4 -I)): POKE ADDR +I, ASC( STR$(NUM))
  20. 130 LINE = LINE -NUM *(10 ^(4 -I))
  21. 140  NEXT I
  22. 150  RETURN 
  23. 1000  PRINT  CHR$(7)"WE'RE AT LINE 1000!": GOTO 60
  24. 2000  PRINT  CHR$(7)"WE'RE AT LINE 2000!": GOTO 60