home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / ANNMIDI.BAS next >
BASIC Source File  |  2020-08-13  |  438b  |  13 lines
  1. 1  POKE 49246,0: POKE 49244,0: POKE 49242,0: POKE 49241,0: REM  RESET AN3-1, SET AN0
  2. 5 AD = 6 *4096 +5 *16 +1
  3. 10  PRINT  CHR$(4)"BLOAD ANNMIDI.OBJ"
  4. 15  PRINT "SEPARATE BITS BY COMMAS"
  5. 20  INPUT "ENTER 8 BITS OF DATA:";B(0),B(1),B(2),B(3),B(4),B(5),B(6),B(7)
  6. 30  GOSUB 60
  7. 40  GOTO 20
  8. 50  REM  *** TRANSMIT BITS THRU ANNUNCIATORS ***
  9. 60  FOR IX = 0 TO 42  STEP 6
  10. 70  POKE AD -IX,88 +(B(IX/6) < >0)
  11. 80  NEXT IX
  12. 90  CALL 24576 +32
  13. 99  RETURN