home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / AEPC:MEG16 / PC.TRANSPORTER.bas < prev    next >
BASIC Source File  |  2020-08-13  |  869b  |  25 lines
  1. 10  TEXT : HOME 
  2. 20 D$ =  CHR$(4)
  3. 30  FOR S = 0 TO 7
  4. 40 CS = 12 *4096 +S *256
  5. 50  IF  PEEK(CS +5) < >3 *16 +8  OR  PEEK(CS +7) < >16 +8  OR  PEEK(CS +11) < >1  OR  PEEK(CS +12) < >3 *16 +1  THEN 100
  6. 60  IF  PEEK(CS +253) < >174  THEN 100
  7. 70  IF  PEEK(CS +254) = 209  THEN DL$ = "1200"
  8. 80  IF  PEEK(CS +254) = 210  THEN DL$ = "2400"
  9. 90 SLOT = S:S = 7
  10. 100  NEXT : VTAB 10
  11. 110  IF SLOT = 0  THEN 210
  12. 120  HTAB 10: PRINT "DataLink "DL$" in slot "SLOT
  13. 130  PRINT D$"PR#"SLOT: PRINT D$"IN#"SLOT
  14. 140  PRINT "ATS0=0": INPUT "";Q$
  15. 150  PRINT D$"PR#0": PRINT D$"IN#0"
  16. 160  VTAB 12: HTAB 10: PRINT "Auto-Answer is OFF"
  17. 200  FOR I = 1 TO 2500: NEXT 
  18. 205  POKE 12 *4096 +10 *16 +8,19: POKE 12 *4096 +10 *16 +8,17: REM  INITIALIZE MIDI INTERFACE
  19. 210  ONERR  GOTO 320
  20. 220  READ Q$
  21. 230  PRINT D$;Q$
  22. 300  REM ProDOS command below
  23. 310  DATA  "-startaepc"
  24. 320  POKE 216,0
  25. 330  HOME : NEW