home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / KEYSOFT.HELLO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  39 lines
  1. 10  REM  **********************
  2. 20  REM  *    KEYSOFT.HELLO   *
  3. 30  REM  *  BY GARY C. JAMES  *
  4. 40  REM  * COPYRIGHT (C) 1984 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80 A = 0
  9. 90 WE =  -16255
  10. 100 RE =  -16256
  11. 110  REM  RAM CARD FINDER ROUTINE
  12. 120  POKE 768,0: POKE 769,173: POKE 770,0: POKE 771,224: POKE 772,72: POKE 773,173: POKE 774,129: POKE 775,192: POKE 776,104:
  13. 130  POKE 777,72: POKE 778,205: POKE 779,0: POKE 780,224: POKE 781,208: POKE 782,35: POKE 783,173: POKE 784,131: POKE 785,192:
  14. 140  POKE 786,173: POKE 787,131: POKE 788,192: POKE 789,169: POKE 790,165: POKE 791,141: POKE 792,0: POKE 793,208: POKE 794,205:
  15. 150  POKE 795,0: POKE 796,208: POKE 797,208: POKE 798,19: POKE 799,74: POKE 800,141: POKE 801,0: POKE 802,208: POKE 803,205:
  16. 160  POKE 804,0: POKE 805,208: POKE 806,208: POKE 807,10: POKE 808,173: POKE 809,129: POKE 810,192: POKE 811,173: POKE 812,129:
  17. 170  POKE 813,192: POKE 814,169: POKE 815,1: POKE 816,208: POKE 817,2: POKE 818,169: POKE 819,0: POKE 820,141: POKE 821,0:
  18. 180  POKE 822,3: POKE 823,104: POKE 824,205: POKE 826,224: POKE 827,240: POKE 828,3: POKE 829,173: POKE 830,128:
  19. 190  POKE 831,192: POKE 832,96:
  20. 200  CALL 769
  21. 210  IF  PEEK(768) < >1  THEN 360
  22. 220  TEXT : HOME 
  23. 230  IF  PEEK( -1101) = 6  THEN  FOR I = 48336 TO 48341: READ A: POKE I,A: NEXT : POKE 1010,208: POKE 1011,188: CALL  -1169: DATA  173,128,192,76,191,157
  24. 240  PRINT "LOADING FPBASIC INTO RAM CARD...": PRINT 
  25. 250  PRINT  CHR$(4);"BLOAD FPBASIC"
  26. 260 A =  PEEK(WE):A =  PEEK(WE)
  27. 270  PRINT "LOADING RAM BASIC ENHANCER...": PRINT 
  28. 280  PRINT  CHR$(4);"BRUN RAM BASIC ENHANCER"
  29. 290  PRINT "LOADING RAM BASIC OVERLAYS"
  30. 300  PRINT  CHR$(4);"BRUN RAM BASIC OVERLAYS"
  31. 310  PRINT "LOADING DOS MODIFICATION..."
  32. 320  PRINT  CHR$(4);"BRUN DOS OVERLAYS"
  33. 330  PRINT : PRINT : PRINT "KEYSOFT SYSTEM INSTALLED."
  34. 340 A =  PEEK(RE)
  35. 350  END 
  36. 360  TEXT : HOME 
  37. 370  PRINT "YOU DO NOT HAVE A RAM CARD IN YOUR": PRINT 
  38. 380  PRINT "APPLE.    THIS WILL PREVENT YOU FROM": PRINT 
  39. 390  PRINT "USING THE KEYSOFT SYSTEM.": PRINT