home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / PULSE-TONE-BEEPER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  39 lines
  1. 10 REM LINE 20 IS THE BEEPER PHONE NR AND (XXXXXXX)
  2. 20 REM LINE 120 IS THE CALL BACK NR.(YYYYYY#) MY BEEPER REQUIRES A '#' AT THE END
  3. 30 OH=56577:HI=32:LO=255-32:POKE(OH+2),(PEEK(OH+2)ORHI):POKEOH,(PEEK(OH)ANDLO)
  4. 40 FORM=1TO1000:NEXT:A$="XXXXXXX":FORM=1TO7:X=VAL(MID$(A$,M,1)):IFX=0THENX=10
  5. 50 FORL=1TOX:POKEOH,(PEEK(OH)ORHI):FORK=1TO50:NEXT
  6. 60 POKEOH,(PEEK(OH)ANDLO):NEXT:FORZ=1TO800:NEXT:NEXT
  7. 70 FORL=1TO6:READC(L):NEXT:FORL=1TO8:READR(L):NEXT
  8. 80 DATA117,77,152,85,161,94:REMC
  9. 90 DATA168,44,85,49,150,54,74,60:REMR
  10. 100 SID=54272:POKESID+24,15:POKESID+4,16:POKESID+11,16:POKESID+5,0:POKESID+12,0
  11. 110 POKESID+6,15*16:POKESID+13,15*16:POKESID+23,0
  12. 120 TY=TI+(7*60)
  13. 130 GOSUB370
  14. 140 A$="YYYYYYYY":GOSUB150:L=0
  15. 150 FORL=1TOLEN(A$):A=VAL(MID$(A$,L,1)):IFA=0THENA=10
  16. 160 IFMID$(A$,L,1)="*"THENA=11
  17. 170 IFMID$(A$,L,1)="#"THENA=12
  18. 180 ONAGOSUB210,220,230,240,250,260,270,280,290,300,310,320
  19. 190 NEXT
  20. 200 FORL=1TO500:NEXT:POKEOH,(PEEK(OH)ORHI):PRINT"DONE":STOP
  21. 210 POKESID+7,R(1):POKESID+8,R(2):POKESID,C(1):POKESID+1,C(2):GOTO330
  22. 220 POKESID+7,R(1):POKESID+8,R(2):POKESID,C(3):POKESID+1,C(4):GOTO330
  23. 230 POKESID+7,R(1):POKESID+8,R(2):POKESID,C(5):POKESID+1,C(6):GOTO330
  24. 240 POKESID+7,R(3):POKESID+8,R(4):POKESID,C(1):POKESID+1,C(2):GOTO330
  25. 250 POKESID+7,R(3):POKESID+8,R(4):POKESID,C(3):POKESID+1,C(4):GOTO330
  26. 260 POKESID+7,R(3):POKESID+8,R(4):POKESID,C(5):POKESID+1,C(6):GOTO330
  27. 270 POKESID+7,R(5):POKESID+8,R(6):    
  28. 280 POKESID+7,R(5):POKESID+8,R(6):POKESID,C(3):POKESID+1,C(4):GOTO330
  29. 290 POKESID+7,R(5):POKESID+8,R(6):POKESID,C(5):POKESID+1,C(6):GOTO330
  30. 300 POKESID+7,R(7):POKESID+8,R(8):POKESID,C(3):POKESID+1,C(4):GOTO330
  31. 310 POKESID+7,R(7):POKESID+8,R(8):POKESID,C(1):POKESID+1,C(2):GOTO330
  32. 320 POKESID+7,R(7):POKESID+8,R(8):POKESID,C(5):POKESID+1,C(6)
  33. 330 POKESID+4,17:POKESID+11,17
  34. 340 FORK=1TO150:NEXT:
  35. 350 POKESID+4,16:POKESID+11,16
  36. 360 RETURN
  37. 370 IFTI<TYTHEN370
  38. 380 A$=TI$:RETURN
  39.