home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Telecom / CXTERM-FOR-TAPE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  8KB  |  156 lines
  1. 1 POKE45,148:POKE46,37:POKE248,39:POKE250,38:POKE56,38:POKE644,38:CLR
  2. 2 POKE157,128:PRINT"[144]":POKE53281,12
  3. 3 PRINT"[147]":POKE53280,6:CLR
  4. 4 A$=" **************************************"
  5. 5 PRINTA$
  6. 6 PRINT"   [195][216][212][197][210][205] [214]ERSION 1.04 BY [194]OBBY [211]MITH"
  7. 7 PRINT"     [208]UNTER & [216]MODEM [198]ILE [212]RANSFERS"
  8. 8 PRINT"         FOR USE WITH DATASETTE"
  9. 9 PRINTA$:CLR
  10. 10 PRINT"     <[212]>ERMINAL MODE"
  11. 11 PRINT"     <[204]>OAD FILE TO UPLOAD"
  12. 12 PRINT"     <[213]>PLOAD PREVIOUSLY LOADED FILE"
  13. 13 PRINT"     <[196]>OWNLOAD A FILE"
  14. 14 PRINT"     <[211]>AVE DOWNLOADED FILE"
  15. 16 PRINT"     <[210]>EAD SEQUENTIAL FILE"
  16. 17 PRINT"     <[209]>UIT":PRINT"     ";
  17. 18 CO$="TLU[184]DS[188]RQ":GOSUB87:POKE53280,12:ONJGOTO19,24,43,113,57,74,103,128,125
  18. 19 PRINT"[147]"
  19. 20 PRINT"** [212]ERMINAL MODE. **   ";
  20. 21 IFPEEK(5824)=6THENPRINT"(300 BAUD)":GOTO23
  21. 22 PRINT"(OPTIONAL BAUD)"
  22. 23 SYS5828:GOTO3
  23. 24 PRINT"[147]** [204]OAD A FILE. **"
  24. 25 FI$="":INPUT"[198]ILENAME";FI$
  25. 26 IFFI$=""THEN3
  26. 27 PRINT"[198]ILE TYPE:"
  27. 28 GOSUB118:ONJGOTO29,34,3
  28. 29 PRINT"[208]ROGRAM.":POKE2,80
  29. 30 POKE679,LEN(FI$)
  30. 31 FORI=1TOLEN(FI$):POKE679+I,ASC(MID$(FI$,I,1)):NEXT
  31. 32 SYS5490
  32. 33 PRINT:GOTO39
  33. 34 PRINT"[211]EQUENTIAL.":POKE2,83
  34. 35 OPEN1,1,0,FI$
  35. 36 PRINT:PRINT"LOADING";
  36. 37 SYS5627
  37. 38 CLOSE1:PRINT
  38. 39 PRINT"[200]IT <[210][197][212][213][210][206]> TO CONTINUE."
  39. 40 POKE198,0
  40. 41 GETA$:IFA$<>CHR$(13)THEN41
  41. 42 GOTO3
  42. 43 PRINT"[147]** [213]PLOAD A FILE. **"
  43. 44 E=0:GOSUB114
  44. 45 IFETHENPRINT"[206]OTHING TO UPLOAD.":GOTO39
  45. 46 PRINT"[208]ROTOCOL:"
  46. 47 PRINT"  <[216]>MODEM"
  47. 48 PRINT"  <[208]>UNTER"
  48. 49 PRINT"  <[193]>BORT"
  49. 50 CO$="XPA":GOSUB87:ONJGOTO51,54,3
  50. 51 PRINT"[216]MODEM."
  51. 52 GOSUB122:SYS7460
  52. 53 GOTO3
  53. 54 PRINT"[208]UNTER."
  54. 55 GOSUB122:SYS8901
  55. 56 GOTO3
  56. 57 PRINT"[147]** [196]OWNLOAD A FILE. **"
  57. 58 PRINT"[208]ROTOCOL:"
  58. 59 PRINT"  <[216]>MODEM"
  59. 60 PRINT"  <[208]>UNTER"
  60. 61 PRINT"  <[193]>BORT"
  61. 62 CO$="XPA":GOSUB87:ONJGOTO63,70,3
  62. 63 PRINT"[216]MODEM."
  63. 64 PRINT"[212]YPE OF FILE BEING DOWNLOADED."
  64. 65 GOSUB118:ONJGOTO66,67,3
  65. 66 PRINT"[208]ROGRAM.":POKE2,80:GOTO68
  66. 67 PRINT"[211]EQUENTIAL.":POKE2,83
  67. 68 SYS6886
  68. 69 GOTO3
  69. 70 PRINT"[208]UNTER."
  70. 71 PRINT"[198]ILETYPE: ";
  71. 72 SYS8152
  72. 73 GOTO3
  73. 74 PRINT"[147]** [211]AVE A FILE. **"
  74. 75 E=0:GOSUB114
  75. 76 IFE=1THENPRINT"[206]OTHING TO SAVE.":GOTO39
  76. 77 FI$="":INPUT"[198]ILENAME";FI$
  77. 78 IFFI$=""THEN3
  78. 79 PRINT"[211]AVE AS:"
  79. 80 GOSUB118:ONJGOTO98,81,3
  80. 81 PRINT"[211]EQUENTIAL."
  81. 82 OPEN1,1,1,FI$
  82. 83 PRINT:PRINT"SAVING "FI$
  83. 84 SYS5717
  84. 85 CLOSE1:PRINT"DONE":GOTO39
  85. 86 END
  86. 87 PRINT"[211]ELECTION? ";
  87. 88 PRINT" [146][157]";
  88. 89 FORI=1TO50
  89. 90 GETA$:IFA$<>""THENGOSUB96:IFJ<=LEN(CO$)THENRETURN
  90. 91 NEXT
  91. 92 PRINT" [157]";
  92. 93 FORI=1TO50
  93. 94 GETA$:IFA$<>""THENGOSUB96:IFJ<=LEN(CO$)THENRETURN
  94. 95 NEXT:GOTO88
  95. 96 FORJ=1TOLEN(CO$):IFA$<>MID$(CO$,J,1)THENNEXT
  96. 97 RETURN
  97. 98 PRINT"[208]ROGRAM."
  98. 99 POKE679,LEN(FI$)
  99. 100 FORI=1TOLEN(FI$):POKE679+I,ASC(MID$(FI$,I,1)):NEXT
  100. 101 SYS5676
  101. 102 PRINT:PRINT"DONE":GOTO39
  102. 103 PRINT"[147]** [195]HANGE OPTIONAL BAUDRATE. **"
  103. 104 PRINT"[197]NTER THE VALUES FOR CONTROL, COMMAND,"
  104. 105 PRINT"OPT LOW, AND OPT HIGH.  [211]EPARATE"
  105. 106 PRINT"WITH COMMAS."
  106. 107 PRINT"[197]XAMPLES:  110 BAUD = 3,0,0,0"
  107. 108 PRINT"           450 BAUD = 0,0,12,4"
  108. 109 INPUTA,B,C,D:E=9426:F=5824
  109. 110 POKEE,A:POKEE+1,B:POKEE+2,C:POKEE+3,D
  110. 111 POKEF,A:POKEF+1,B:POKEF+2,C:POKEF+3,D:PRINT:GOTO3
  111. 113 POKE2,83:GOTO43
  112. 114 IF(PEEK(2)<>80ANDPEEK(2)<>83)THENE=1
  113. 115 IF(PEEK(251)+256*PEEK(252))<10240THENE=1
  114. 116 IF(PEEK(253)+256*PEEK(254))<=(PEEK(251)+256*PEEK(252))THENE=1
  115. 117 RETURN
  116. 118 PRINT"  <[208]>ROGRAM"
  117. 119 PRINT"  <[211]>EQUENTIAL"
  118. 120 PRINT"  <[193]>BORT"
  119. 121 CO$="PSA":GOSUB87:RETURN
  120. 122 PRINT"[198]ILETYPE: ";
  121. 123 IFPEEK(2)=80THENPRINT"[208]ROGRAM.":RETURN
  122. 124 PRINT"[211]EQUENTIAL.":RETURN
  123. 125 PRINT"[147]"
  124. 126 POKE248,159:POKE250,158:POKE56,158:POKE644,158:CLR
  125. 127 PRINT"[199]OODBYE...":END
  126. 128 PRINT"[147]"
  127. 129 PRINT"** [210]EAD SEQUENTIAL FILE. **"
  128. 130 A=6498:PRINT"[198]ROM:"
  129. 131 PRINT"  <[205]>EMORY"
  130. 132 PRINT"  <[212]>APE"
  131. 133 PRINT"  <[193]>BORT"
  132. 134 E=0:CO$="MTA":GOSUB87:ONJGOTO135,144,3
  133. 135 PRINT"[205]EMORY.":GOSUB115
  134. 136 IFPEEK(2)<>83THENE=1
  135. 137 IFETHENPRINT"[206]O SEQUENTIAL FILE IN MEMORY TO READ.":GOTO39
  136. 138 S=PEEK(251)+256*PEEK(252)
  137. 139 F=PEEK(253)+256*PEEK(254)-1
  138. 140 FORI=STOF
  139. 141 PRINTCHR$(PEEK(A+PEEK(I)));
  140. 142 GOSUB152:IFETHENI=F
  141. 143 NEXT:PRINT:GOTO39
  142. 144 PRINT"[212]APE."
  143. 145 F$="":INPUT"[198]ILENAME";F$
  144. 146 IFF$=""THEN3
  145. 147 OPEN1,1,0,F$:PRINT""
  146. 148 GET#1,A$:PRINTCHR$(PEEK(A+ASC(A$)));
  147. 149 GOSUB152:IFETHEN151
  148. 150 IFST=0THEN148
  149. 151 CLOSE1:PRINT:GOTO39
  150. 152 POKE212,0:GETA$:IFA$=""THENRETURN
  151. 153 IFA$=" "THEN156
  152. 154 IFA$="A"THENE=1
  153. 155 RETURN
  154. 156 GETA$:IFA$<>" "THEN156
  155. 157 RETURN
  156.