home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib27b.dsk / CONFIG.ED.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  20 lines
  1. 10  REM  **********************
  2. 20  REM  *    CONFIG.ED       *
  3. 30  REM  * BY KEVIN MCCLANEY  *
  4. 40  REM  * COPYRIGHT 1986     *
  5. 50  REM  * BY MICROSPARC,INC  *
  6. 60  REM  * CONCORD, MA 01754  *
  7. 70  REM  **********************
  8. 80 V(0) = 110146:V(1) = 110125:V(2) = 110955:V(3) = 110934: HIMEM: 29952: PRINT  CHR$(4)"BLOAD MR.ED.OBJ"
  9. 90  HOME : VTAB 3: HTAB 5: PRINT "MR.ED CONFIGURATION PROGRAM": VTAB 7: IF  PEEK(64435) = 6  THEN  PRINT "APPLE //E //C VERSION":T = 0: GOTO 110
  10. 100 T = 1: PRINT "APPLE II+ VERSION"
  11. 110  VTAB 9: IF  PEEK(48896) = 76  THEN  PRINT "PRODOS ":S = 0:B = 32965:L = 827: GOTO 130
  12. 120  PRINT "DOS 3.3 ":S = 1:B = 32961:L = 831
  13. 130  VTAB 11: PRINT "NOW CHECKING OBJECT CODE..."
  14. 140  IF T = 0  THEN  POKE 33294,33
  15. 150  IF S = 0  THEN  FOR N = 0 TO 62: READ A: POKE B +N,A: NEXT : FOR N = 0 TO 27: READ A: POKE 33123 +N,A: NEXT : FOR N = 0 TO 35: READ A: POKE 33000 +A, PEEK(33000 +A) -3: NEXT : POKE 33776,0: POKE 33777,190
  16. 160 A = 0: FOR N = B TO 33791:A = A + PEEK(N): NEXT : VTAB 11: IF A < >V(T +2 *S)  THEN  PRINT  CHR$(7)"ERROR IN OBJECT CODE; CHECK OBJECT CODE AND THIS PROGRAM AND CORRECT MISTAKES": END 
  17. 170  PRINT  CHR$(7);: POKE  -16368,0: PRINT "PUT DISK TO RECEIVE CONFIGURED PROGRAM IN DRIVE AND PRESS <RETURN>": WAIT  -16384,128: POKE  -16368,0: PRINT  CHR$(4)"BSAVE MR.ED,A"B",L"L: HOME 
  18. 180  DATA  169,3,32,245,190,169,151,133,67,141,51,190,169,4,141,50,190,133,60,133,66,169,153,141,49,190,169,150,141,48,190,160,255,132,62,200,162,129,134,61,232,232,134,63,32,44,254,169,223,141,242,3,169,153,141,243,3,32,111,251,76,0,154
  19. 190  DATA  0,133,111,133,115,169,150,133,112,133,116,169,0,141,242,3,169,190,141,243,3,32,111,251,76,98,250,234
  20. 200  DATA  52,57,60,68,80,88,101,105,108,153,162,184,202,292,368,371,386,400,403,418,478,494,499,502,531,643,680,703,706,709,718,763,771,774,789,791