home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib24b.dsk / FID.HELLO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  19 lines
  1. 1  REM  **********************
  2. 2  REM  * FID.HELLO          *
  3. 3  REM  * BY DONALD MILLER   *
  4. 4  REM  * COPYRIGHT (C) 1985 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * CONCORD, MA  01742 *
  7. 7  REM  **********************
  8. 10  REM  FID.RC HELLO PROGRAM
  9. 20  HOME : VTAB 9: FLASH : PRINT "INSTALLING FID.RC": NORMAL : PRINT : PRINT "** COPYRIGHT 1985 BY MICROSPARC, INC.**": PRINT : PRINT "TYPE 'FID' AT PROMPT TO ACCESS"
  10. 30  POKE 49281,0: POKE 49281,0: REM  ENABLE ROM WRITE ENABLE RAM
  11. 40  POKE 43249,70: POKE 43250,73: POKE 43251,196: REM  REPLACE INT WITH FID COMMAND
  12. 50  POKE 43247,64: REM  DISABLE FP
  13. 60 H$ = "A59E: 20 39 FB AD 83 C0 AD 83 C0 20 03 D0 AD 81 C0 4C D3 03 N F328G": GOSUB 120: CALL  -144: REM  FID.RC CONTROLLER
  14. 70 H$ = "300: A9 00 85 3C 85 42 A8 A9 FF 85 3E 85 3F A9 F8 85 43 85 3D 20 2C FE 60 N F328G": GOSUB 120: CALL  -144: REM  MONITOR MOVE
  15. 80  PRINT  CHR$(4)"BLOAD FID.RC,A$D003"
  16. 90  CALL 768: REM  MOVE MONITOR
  17. 100  REM  DON'T USE THESE POKES IF YOU HAVE A //E:POKE 64787,234:POKE 64788,234:POKE 49282,0:REM ADD NFC
  18. 110  HOME : NEW 
  19. 120  FOR I = 1 TO  LEN(H$): POKE 511 +I, ASC( MID$ (H$,I,1)) +128: NEXT : POKE 72,0: POKE 223, PEEK(248): RETURN