home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / rtty3.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  50 lines
  1. 0 'RTTY3.BA Bob Scott
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 SCREEN0,1:GOTO100
  4. 5 F=0:OUT186,INP(186)AND127:PRINT:IFPTHENLPRINT CHR$(10)
  5. 10 CALL VARPTR(ML(0)),0,VARPTR(X(0)):IFX(0)=0THENGOTO10ELSEIFX(1)>31THENGOTO10
  6. 20 IFX(1)=0THENGOTO10
  7. 25 IFX(1)=27THENF=-1:GOTO10
  8. 30 IFX(1)=31THENF=0:GOTO10
  9. 35 IF(X(1)=4ANDU)THENF=0
  10. 40 IFFTHENR$=MID$(F$,X(1)+1,1)ELSER$=MID$(L$,X(1)+1,1)
  11. 45 CALL19268,ASC(R$):IFPTHENCALL27967,ASC(R$)
  12. 50 GOTO10
  13. 100 DEFINT A-Z:DIM L$(31),F$(31),ML%(11),X(1)
  14. 105 CALL23161:KEY1," 60":KEY2,"uos":KEY5,"LABL":KEY6,"LTRS":KEY7,"list":KEY8,"MENU":Z=1
  15. 110 L$=" E"+CHR$(10)+"A SIU"+CHR$(13)+"DRJNFCKTZLWHYPQOBG MXV"
  16. 120 F$=" 3"+CHR$(10)+"-  "+"87"+CHR$(13)+"$4',!:(5"+CHR$(34)+")2#6019?8 ./;"
  17. 130 K=-1:A=0:F=0:T=0:S=0:U=0:FORI=0TO11:READML(I):NEXTI
  18. 140 CALL16969
  19. 150 OPEN"COM:28N1D"FORINPUTAS1
  20. 160 OUT186,37:OUT216,4:OUT188,52:OUT189,77:OUT184,195
  21. 165 POKE65421,31
  22. 170 ONKEYGOSUB500,550,,,260,240,250,300
  23. 175 KEYON
  24. 180 GOTO5
  25. 200 GOSUB 350:OUT188,52:OUT89,77:OUT184,195:RETURN:
  26. 210 GOSUB 350:OUT188,0:OUT189,76:OUT184,195:RETURN
  27. 220 GOSUB 350:OUT188,139:OUT189,74:OUT184,195:RETURN
  28. 230 GOSUB 350:OUT188,22:OUT189,72:OUT184,195:RETURN
  29. 240 F=0:PRINT:IFPTHENLPRINT CHR$(10)
  30. 245 RETURN
  31. 250 IFPTHENP=0:LPRINTCHR$(10):KEY7,"list"ELSEIF(INP(187)AND6)<>2THENPRINT"LST not ready!":ELSEP=1:KEY7,"LIST"
  32. 255 RETURN
  33. 260 IFKTHENSCREEN0,0ELSESCREEN0,1
  34. 265 K=NOT(K):RETURN
  35. 300 CALL23164,0,23366:CALL27795:MENU
  36. 350 SOUND15000,1
  37. 355 IFZ=1THENKEY1," 60"
  38. 360 IZ=2THENKEY1," 67"
  39. 365 IFZ=3THENKEY1," 75"
  40. 370 IFZ=4THENKEY1," 100"
  41. 390 RETURN
  42. 400 DATA 54,28109,-14227,9012,35,32461,30573,13859,-14080,-13056,4073,-13961
  43. 500 Z=Z+1:IFZ=5THENZ=1
  44. 510 IFZ=1THENGOTO200
  45. 520 IFZ=2THENGOTO210
  46. 530 IFZ=3THENGOTO220
  47. 540 GOTO230
  48. 550 U=NOT(U):IF(U)THENKEY2,"UOS"ELSEKEY2,"uos"
  49. 560 RETURN
  50.