home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8410.d64
/
licht-tele(4baud
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
179 lines
0 REM ********************************* ** **
1 REM ** L I C H T T E L E F O N ** ** **
2 REM ** ** ** **
3 REM ** ** ** BY M&T **
4 REM ** ** *********************************
5 :
6 IX=828
7 PRINT"[147]":POKE53280,0:POKE53281,0:FORI=49152TO49172:READA:POKEI,A:NEXT
8 GOSUB14000
10 DIMX$(255)
11 IX=828
13 PRINT"[147]":POKE53280,0:POKE53281,0
20 POKE56,145:POKE650,128
28 FORI=54272TO54296:POKEI,0:NEXT
30 POKE54272,1:POKE54273,0:POKE54277,100:POKE54278,100:POKE54276,17
31 POKE54279,1:POKE54280,0:POKE54284,100:POKE54285,100:POKE54283,33
40 IFPEEK(IX)=3THENPOKEIX,0:GOTO300
42 IFPEEK(IX)=7THEN10000
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]";
101 PRINT" H A U P T M E N U E "
104 PRINT"[154]'KLINGELN' [155]==> [150]< K >"
105 PRINT"[154]SENDEN [155]==> [150]< S >"
106 PRINT"[154]EMPFANGEN [155]==> [150]< E >"
107 PRINT"[154]ENDE [155]==> [150]< F8 >"
110 GETA$:IFA$=""THEN110
111 IFA$="K"THEN20000
112 IFA$="S"THEN10000
113 IFA$="E"THEN305
114 IFA$="[140]"THENPRINT:END
115 GOTO110
300 REM---- EMPFANG --------------------
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]";
306 PRINT" E M P F A N G "
307 PRINT"[159]* BEI FEHLERN _ [146][145][157][157][157][164][164][164] DRUECKEN *"
310 LE=10:PP=38000:GOSUB500
320 L=0:FORJ=0TO4
321 IFPEEK(PP+J)=1THENL=L+2^(4-J)
322 NEXTJ
330 H=0:FORJ=5TO9
331 IFPEEK(PP+J)=1THENH=H+2^(9-J)
332 NEXTJ
340 PRINT"[154]DIE NACHRICHT ENTHAELT"H*32+L"ZEICHEN."
350 LE=5*(H*32+L):GOSUB500
400 PRINT"[147]":ADD=0:PP=38000
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]";
403 PRINT" T E X T A U S G A B E "
404 PRINT"[154]FOLGENDES WURDE AUS DEM AETHER GEFISCHT:"
408 A$=" ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789()'&+-*/.,:;><=?!#^ "
410 FORJ=1TOLESTEP5
415 X$="":FORJJ=0TO4:X$=X$+RIGHT$(STR$(PEEK(PP+J-1+JJ)),1):NEXTJJ
420 X=0:FORK=1TO5:IFMID$(X$,K,1)="1"THENX=X+2^(5-K)
421 NEXTK
422 IFX=31THENX=0
425 IFX=27ANDADD=0THENADD=32:NEXTJ
430 PRINTMID$(A$,1+X+ADD,1);:ADD=0:NEXTJ:GOTO470
470 FORI=0TO700:NEXTI:POKE54296,0
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]";
472 PRINT" ZUR FORTSETZUNG BITTE 'F1' DRUECKEN! [146]";
473 FORI=0TO120:GETA$:IFA$<>"[133]"THENNEXTI:GOTO480
474 RUN10
480 PRINT"[145][145] ";
481 PRINT" ZUR FORTSETZUNG BITTE 'F1' DRUECKEN! ";
482 FORI=0TO120:GETA$:IFA$<>"[133]"THENNEXTI:GOTO471
483 RUN10
500 REM---- EMPFANGSSCHLEIFE -----------
510 IF(PEEK(56320)AND16)=0THEN518
512 IFPEEK(197)=57THENPOKEIX,7:RUN10
514 GOTO510
518 PRINT"[150]L A E U F T"
520 IF(PEEK(56320)AND16)=0THEN520
530 TI$="000000"
540 IFTI<54THEN540
550 Z$=""
560 FORL=1TOLE
562 IFPEEK(197)=57THENPOKEIX,7:RUN10
565 TI$="000000"
570 IF(PEEK(56320)AND16)=0THENA=TI:GOTO600
580 IFTI<14THEN570
590 POKEPP-1+L,0:NEXTL:RETURN
600 IF(PEEK(56320)AND16)=0THEN600
610 B=TI
620 X=(12-B+A)/2
630 POKEPP-1+L,1:TI$="000000"
640 IFTI<X-6THENGOTO640
650 NEXTL:RETURN
10000 REM---- SENDEN -------------------
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]";
10002 PRINT" S E N D E N "
10005 PRINT"[154]IHR TEXT?"
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"
10010 A$="":FORI=1TO5:INPUTA$:T$=T$+A$:A$="":NEXTI
10011 IFLEN(T$)=0THENPOKEIX,0:RUN10
10020 PP=38000:POKE54296,15
10030 B$="11111000010001000011001000010100110001110100001001010100101101100"
10032 B$=B$+"011010111001111100001000110010100111010010101101101011111000"
10034 B$=B$+"1100111010110111110011101111101111100000"
10036 C$="0123456789()'&+-*/.[166][;><=?!#^ "
10050 ADD=0:FORI=1TOLEN(T$)
10060 M$=MID$(T$,I,1)
10070 IFM$=" "THENX$=MID$(B$,1,5):GOTO10100
10080 IFASC(M$)>64ANDASC(M$)<91THENX$=MID$(B$,(ASC(M$)-64)*5+1,5):GOTO10100
10085 FORII=1TOLEN(C$)
10086 IFMID$(C$,II,1)=M$THENX$="11011"+MID$(B$,(II-1)*5+1,5):ADD=ADD+1:GOTO10100
10087 NEXTII:X$="00000"
10100 FORJ=1TOLEN(X$)
10110 POKEPP,(ASC(MID$(X$,J,1))-48)
10120 PP=PP+1
10130 NEXTJ:X$(I)=X$
10140 NEXTI
10200 REM---- LAENGE FESTSTELLEN -------
10205 L=LEN(T$)+ADD
10206 PRINT"DIE NACHRICHT ENTHAELT"L"ZEICHEN."
10210 H=INT(L/32):L=L-H*32
10300 L$=MID$(B$,(L*5)+1-160*(L=0),5)+MID$(B$,(H*5)+1-160*(H=0),5)
12000 REM---- KONTROLLBYTES SENDEN -----
12100 PRINT"[159]* SENDUNG LAEUFT *[154]"
12105 POKE54273,100:TI$="000000"
12106 IFTI$<>"000003"THEN12106
12107 IFPEEK(IX)=7THENIFTI$<>"000010"THEN12107
12108 POKE54273,0:IFPEEK(IX)=7THENPOKEIX,0
12110 TI$="000000"
12120 IFTI<60THEN12120
12200 FORI=1TOLEN(L$)
12210 TI$="000000"
12215 SYS49152:IFPEEK(54280)<>0THENPOKEIX,3:FORI=0TO2000:NEXT:RUN10
12220 IFMID$(L$,I,1)="0"THEN12300
12230 IFTI<3THEN12230
12235 POKE54273,100
12240 IFTI<11THEN12240
12245 POKE54273,0
12300 IFTI<15THEN12300
12320 NEXTI
12330 FORI=0TO3000:NEXTI
12400 REM---- HAUPTSENDESCHLEIFE -------
12405 POKE54273,100:TI$="000000"
12406 IFTI$<>"000003"THEN12406
12407 POKE54273,0
12420 TI$="000000"
12430 IFTI<60THEN12430
12510 FORZR=38000TO38000+5*LEN(T$)+5*ADD-1
12520 TI$="000000"
12525 SYS49152:IFPEEK(54280)<>0THENPOKEIX,3:FORI=0TO2000:NEXT:RUN10
12530 IFPEEK(ZR)=0THEN12600
12540 IFTI<3THEN12540
12545 POKE54273,100
12550 IFTI<11THEN12550
12555 POKE54273,0
12600 IFTI<15THEN12600
12620 NEXTZR
12650 POKEIX,3:RUN10
14000 REM---- BEREITSCHAFT MELDEN ------
14001 PRINT"[147][159]EMPFANGSBEREITSCHAFT MELDEN (J/N)?"
14010 GETA$:IFA$="J"THEN14020
14011 IFA$<>"N"THEN14010
14012 RETURN
14020 PRINT"[154]* MELDUNG WIRD GESENDET *"
14030 POKE54296,15:POKE54273,100:TI$="000000"
14032 IFTI$<>"000004"THEN14032
14034 POKE54273,0:POKEIX,3:RETURN
20000 REM---- KLINGELN -----------------
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]";
20002 PRINT" ' K L I N G E L N ' [154]"
20010 POKE54296,15
20020 TI$="000000"
20030 POKE54273,100
20040 IFTI$<>"000002"THEN20040
20050 POKE54273,0:TI$="000000"
20052 IFTI$<>"000001"THEN20052
20054 TI$="000000"
20060 IF(PEEK(56320)AND16)=0THEN20100
20062 IFTI$<>"000001"THEN20060
20070 GOTO20020
20100 PRINT"MARK IST JETZT EMPFANGSBEREIT!"
20110 TI$="000000"
20112 IFTI$<>"000004"THEN20112
20120 GOTO10000:REM SENDEN
21000 REM---- DATEN FUER MC-ROUTINE ----
21010 DATA173,0,220,201,111,208,13,232,138,201,20,208,7,162,0,169,152,141,8,212,96