home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / licht-tele(4baud (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  5KB  |  179 lines
  1. 0 REM *********************************       **                             **
  2. 1 REM **   L I C H T T E L E F O N   **       **                             **
  3. 2 REM **                             **       **                             **
  4. 3 REM **                             **       **          BY M&T             **
  5. 4 REM **                             **       *********************************
  6. 5 :
  7. 6 IX=828
  8. 7 PRINT"[147]":POKE53280,0:POKE53281,0:FORI=49152TO49172:READA:POKEI,A:NEXT
  9. 8 GOSUB14000
  10. 10 DIMX$(255)
  11. 11 IX=828
  12. 13 PRINT"[147]":POKE53280,0:POKE53281,0
  13. 20 POKE56,145:POKE650,128
  14. 28 FORI=54272TO54296:POKEI,0:NEXT
  15. 30 POKE54272,1:POKE54273,0:POKE54277,100:POKE54278,100:POKE54276,17
  16. 31 POKE54279,1:POKE54280,0:POKE54284,100:POKE54285,100:POKE54283,33
  17. 40 IFPEEK(IX)=3THENPOKEIX,0:GOTO300
  18. 42 IFPEEK(IX)=7THEN10000
  19. 100 PRINT"[147][150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  20. 101 PRINT"          H A U P T M E N U E           "
  21. 104 PRINT"[154]'KLINGELN'   [155]==>   [150]< K >"
  22. 105 PRINT"[154]SENDEN      [155]==>   [150]< S >"
  23. 106 PRINT"[154]EMPFANGEN   [155]==>   [150]< E >"
  24. 107 PRINT"[154]ENDE        [155]==>   [150]< F8 >"
  25. 110 GETA$:IFA$=""THEN110
  26. 111 IFA$="K"THEN20000
  27. 112 IFA$="S"THEN10000
  28. 113 IFA$="E"THEN305
  29. 114 IFA$="[140]"THENPRINT:END
  30. 115 GOTO110
  31. 300 REM---- EMPFANG --------------------
  32. 305 PRINT"[147][150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  33. 306 PRINT"       E M P F A N G                    "
  34. 307 PRINT"[159]* BEI FEHLERN  _ [146][145][157][157][157][164][164][164] DRUECKEN *"
  35. 310 LE=10:PP=38000:GOSUB500
  36. 320 L=0:FORJ=0TO4
  37. 321 IFPEEK(PP+J)=1THENL=L+2^(4-J)
  38. 322 NEXTJ
  39. 330 H=0:FORJ=5TO9
  40. 331 IFPEEK(PP+J)=1THENH=H+2^(9-J)
  41. 332 NEXTJ
  42. 340 PRINT"[154]DIE NACHRICHT ENTHAELT"H*32+L"ZEICHEN."
  43. 350 LE=5*(H*32+L):GOSUB500
  44. 400 PRINT"[147]":ADD=0:PP=38000
  45. 402 PRINT"[150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  46. 403 PRINT"         T E X T A U S G A B E          "
  47. 404 PRINT"[154]FOLGENDES WURDE AUS DEM AETHER GEFISCHT:"
  48. 408 A$=" ABCDEFGHIJKLMNOPQRSTUVWXYZ     0123456789()'&+-*/.,:;><=?!#^ "
  49. 410 FORJ=1TOLESTEP5
  50. 415 X$="":FORJJ=0TO4:X$=X$+RIGHT$(STR$(PEEK(PP+J-1+JJ)),1):NEXTJJ
  51. 420 X=0:FORK=1TO5:IFMID$(X$,K,1)="1"THENX=X+2^(5-K)
  52. 421 NEXTK
  53. 422 IFX=31THENX=0
  54. 425 IFX=27ANDADD=0THENADD=32:NEXTJ
  55. 430 PRINTMID$(A$,1+X+ADD,1);:ADD=0:NEXTJ:GOTO470
  56. 470 FORI=0TO700:NEXTI:POKE54296,0
  57. 471 PRINT"[150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  58. 472 PRINT"  ZUR FORTSETZUNG BITTE 'F1' DRUECKEN!  [146]";
  59. 473 FORI=0TO120:GETA$:IFA$<>"[133]"THENNEXTI:GOTO480
  60. 474 RUN10
  61. 480 PRINT"[145][145]                                        ";
  62. 481 PRINT"  ZUR FORTSETZUNG BITTE 'F1' DRUECKEN!  ";
  63. 482 FORI=0TO120:GETA$:IFA$<>"[133]"THENNEXTI:GOTO471
  64. 483 RUN10
  65. 500 REM---- EMPFANGSSCHLEIFE -----------
  66. 510 IF(PEEK(56320)AND16)=0THEN518
  67. 512 IFPEEK(197)=57THENPOKEIX,7:RUN10
  68. 514 GOTO510
  69. 518 PRINT"[150]L A E U F T"
  70. 520 IF(PEEK(56320)AND16)=0THEN520
  71. 530 TI$="000000"
  72. 540 IFTI<54THEN540
  73. 550 Z$=""
  74. 560 FORL=1TOLE
  75. 562 IFPEEK(197)=57THENPOKEIX,7:RUN10
  76. 565 TI$="000000"
  77. 570 IF(PEEK(56320)AND16)=0THENA=TI:GOTO600
  78. 580 IFTI<14THEN570
  79. 590 POKEPP-1+L,0:NEXTL:RETURN
  80. 600 IF(PEEK(56320)AND16)=0THEN600
  81. 610 B=TI
  82. 620 X=(12-B+A)/2
  83. 630 POKEPP-1+L,1:TI$="000000"
  84. 640 IFTI<X-6THENGOTO640
  85. 650 NEXTL:RETURN
  86. 10000 REM---- SENDEN -------------------
  87. 10001 PRINT"[147][150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  88. 10002 PRINT"              S E N D E N               "
  89. 10005 PRINT"[154]IHR TEXT?"
  90. 10006 PRINT"BITTE NACH JEDER ZEILE [159] RETURN [146][145][157][157][157][157][157][157][157][157][164][164][164][164][164][164][164][164][154] DRUECKEN"
  91. 10010 A$="":FORI=1TO5:INPUTA$:T$=T$+A$:A$="":NEXTI
  92. 10011 IFLEN(T$)=0THENPOKEIX,0:RUN10
  93. 10020 PP=38000:POKE54296,15
  94. 10030 B$="11111000010001000011001000010100110001110100001001010100101101100"
  95. 10032 B$=B$+"011010111001111100001000110010100111010010101101101011111000"
  96. 10034 B$=B$+"1100111010110111110011101111101111100000"
  97. 10036 C$="0123456789()'&+-*/.[166][;><=?!#^ "
  98. 10050 ADD=0:FORI=1TOLEN(T$)
  99. 10060 M$=MID$(T$,I,1)
  100. 10070 IFM$=" "THENX$=MID$(B$,1,5):GOTO10100
  101. 10080 IFASC(M$)>64ANDASC(M$)<91THENX$=MID$(B$,(ASC(M$)-64)*5+1,5):GOTO10100
  102. 10085 FORII=1TOLEN(C$)
  103. 10086 IFMID$(C$,II,1)=M$THENX$="11011"+MID$(B$,(II-1)*5+1,5):ADD=ADD+1:GOTO10100
  104. 10087 NEXTII:X$="00000"
  105. 10100 FORJ=1TOLEN(X$)
  106. 10110 POKEPP,(ASC(MID$(X$,J,1))-48)
  107. 10120 PP=PP+1
  108. 10130 NEXTJ:X$(I)=X$
  109. 10140 NEXTI
  110. 10200 REM---- LAENGE FESTSTELLEN -------
  111. 10205 L=LEN(T$)+ADD
  112. 10206 PRINT"DIE NACHRICHT ENTHAELT"L"ZEICHEN."
  113. 10210 H=INT(L/32):L=L-H*32
  114. 10300 L$=MID$(B$,(L*5)+1-160*(L=0),5)+MID$(B$,(H*5)+1-160*(H=0),5)
  115. 12000 REM---- KONTROLLBYTES SENDEN -----
  116. 12100 PRINT"[159]* SENDUNG LAEUFT *[154]"
  117. 12105 POKE54273,100:TI$="000000"
  118. 12106 IFTI$<>"000003"THEN12106
  119. 12107 IFPEEK(IX)=7THENIFTI$<>"000010"THEN12107
  120. 12108 POKE54273,0:IFPEEK(IX)=7THENPOKEIX,0
  121. 12110 TI$="000000"
  122. 12120 IFTI<60THEN12120
  123. 12200 FORI=1TOLEN(L$)
  124. 12210 TI$="000000"
  125. 12215 SYS49152:IFPEEK(54280)<>0THENPOKEIX,3:FORI=0TO2000:NEXT:RUN10
  126. 12220 IFMID$(L$,I,1)="0"THEN12300
  127. 12230 IFTI<3THEN12230
  128. 12235 POKE54273,100
  129. 12240 IFTI<11THEN12240
  130. 12245 POKE54273,0
  131. 12300 IFTI<15THEN12300
  132. 12320 NEXTI
  133. 12330 FORI=0TO3000:NEXTI
  134. 12400 REM---- HAUPTSENDESCHLEIFE -------
  135. 12405 POKE54273,100:TI$="000000"
  136. 12406 IFTI$<>"000003"THEN12406
  137. 12407 POKE54273,0
  138. 12420 TI$="000000"
  139. 12430 IFTI<60THEN12430
  140. 12510 FORZR=38000TO38000+5*LEN(T$)+5*ADD-1
  141. 12520 TI$="000000"
  142. 12525 SYS49152:IFPEEK(54280)<>0THENPOKEIX,3:FORI=0TO2000:NEXT:RUN10
  143. 12530 IFPEEK(ZR)=0THEN12600
  144. 12540 IFTI<3THEN12540
  145. 12545 POKE54273,100
  146. 12550 IFTI<11THEN12550
  147. 12555 POKE54273,0
  148. 12600 IFTI<15THEN12600
  149. 12620 NEXTZR
  150. 12650 POKEIX,3:RUN10
  151. 14000 REM---- BEREITSCHAFT MELDEN ------
  152. 14001 PRINT"[147][159]EMPFANGSBEREITSCHAFT MELDEN (J/N)?"
  153. 14010 GETA$:IFA$="J"THEN14020
  154. 14011 IFA$<>"N"THEN14010
  155. 14012 RETURN
  156. 14020 PRINT"[154]* MELDUNG WIRD GESENDET *"
  157. 14030 POKE54296,15:POKE54273,100:TI$="000000"
  158. 14032 IFTI$<>"000004"THEN14032
  159. 14034 POKE54273,0:POKEIX,3:RETURN
  160. 20000 REM---- KLINGELN -----------------
  161. 20001 PRINT"[147][150][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  162. 20002 PRINT"          ' K L I N G E L N '           [154]"
  163. 20010 POKE54296,15
  164. 20020 TI$="000000"
  165. 20030 POKE54273,100
  166. 20040 IFTI$<>"000002"THEN20040
  167. 20050 POKE54273,0:TI$="000000"
  168. 20052 IFTI$<>"000001"THEN20052
  169. 20054 TI$="000000"
  170. 20060 IF(PEEK(56320)AND16)=0THEN20100
  171. 20062 IFTI$<>"000001"THEN20060
  172. 20070 GOTO20020
  173. 20100 PRINT"MARK IST JETZT EMPFANGSBEREIT!"
  174. 20110 TI$="000000"
  175. 20112 IFTI$<>"000004"THEN20112
  176. 20120 GOTO10000:REM SENDEN
  177. 21000 REM---- DATEN FUER MC-ROUTINE ----
  178. 21010 DATA173,0,220,201,111,208,13,232,138,201,20,208,7,162,0,169,152,141,8,212,96
  179.