5 POKE198,0:PRINT"[147]"
10 OPEN2,2,3,CHR$(38)+CHR$(224)
20 Z1=56577:Z2=56579:POKE53281,1:Z3=10:FORA=54272TO54295:POKEA,0:NEXT
30 POKEZ1,98:PRINT"[147]"
40 PRINT""SPC(Z3)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINTSPC(Z3) "[144]       TINYTERM"
50 PRINTSPC(Z3)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":GOSUB230
60 ID$(1)="NAME":ID$(2)="ID":ID$(3)="PASS WORD"
70 GOTO300
80 PRINTCHR$(147)+CHR$(14)+"[207]N [204]INE":PRINTCHR$(187);
90 GET#2,A$:IFA$=""THEN130
100 IFI%(ASC(A$))=13THENPRINT"[157] "
110 PRINTCHR$(157);CHR$(I%(ASC(A$)));CHR$(187);:IFI%(ASC(A$))=34THENPOKE212,0
120 GOTO90
130 GETA$:IFA$=""THEN90
140 IFA$=CHR$(137)THENS=1:GOTO180
150 IFA$=CHR$(138)THENS=2:GOTO180
160 IFA$=CHR$(139)THENS=3:GOTO180
170 PRINT#2,CHR$(O%(ASC(A$)));:GOTO90
180 FORX=1TOLEN(ID$(S))
190 T$=MID$(ID$(S),X,1)
200 PRINT#2,CHR$(O%(ASC(T$)));
210 NEXT:PRINTCHR$(13):PRINT#2,CHR$(13)
220 GOTO90
230 DIMI%(255),O%(255)
240 FORZ=32TO64:O%(Z)=Z:NEXT:O%(13)=13:O%(20)=8:O%(160)=32
250 FORZ=65TO90:Y=Z+32:O%(Z)=Y:NEXT:FORZ=91TO95:O%(Z)=Z:NEXT
260 FORZ=193TO218:Y=Z-128:O%(Z)=Y:NEXT
270 O%(133)=3:O%(134)=19:O%(135)=17:O%(136)=16
280 FORZ=0TO255:Y=O%(Z):IFY<>0THENI%(Y)=Z
290 NEXT:RETURN
300 PRINTCHR$(147)+CHR$(14)
310 P$(1)="2126987875":P$(2)="9146683664":P$(3)="2125197653"
320 FORX=1TO3:PRINTX;+"-"+P$(X):NEXT
330 PRINT" 4 -[205]ANUAL [197]NTRY"
340 PRINT:PRINT" [211]ELECTION ?"
350 GETB$:IFB$=""ORB$<"1"ORB$>"4"THEN350
360 IFB$="1"THEN PH$=P$(1)
370 IFB$="2"THENPH$=P$(2)
380 IFB$="3"THENPH$=P$(3)
390 IFB$="4"THEN410
400 GOTO430
410 PRINT:PRINT"[197]NTER [208]HONE [206]UMBER":INPUTPH$
420 IFLEN(PH$)<7THEN410
430 POKEZ2,100
440 PRINT:PRINT"[196]IALING...":POKEZ1,32:FORX=1TO1000:NEXTX
450 FORPN=1TOLEN(PH$)
460 NN=VAL(MID$(PH$,PN,1))
470 GOSUB540:NEXTPN
480 FORDL=1TO300:POKEZ2,6:POKEZ1,100:IFPEEK(Z1)=45THEN570
490 IFPEEK(Z1)<>125THENPRINT" [166]":GOTO510
500 PRINT"  [146]"
510 NEXTDL
520 POKEZ1,0
530 PRINT:PRINT"NO CONNECTION FOR NR. ":PRINT""PH$:GOTO600
540 PRINTNN;:IFNN=0THENNN=10
550 FORX=1TONN:POKEZ1,0:FORXX=1TO45:NEXTXX:POKEZ1,32:FORXX=1TO24:NEXTXX:NEXTX
560 FORDL=1TO200:NEXTDL:RETURN
570 FORX=1TO3:FORRR=1TO20:C(X)=PEEK(Z1):NEXT:NEXT
580 IFC(1)+C(2)+C(3)=135THEN610
590 PRINT"NR. ";PH$" BUSY-"
600 FORX=1TO300:POKEZ2,32:POKEZ1,0  :NEXT:GOTO430
610 POKE54273,50:POKE54296,15:POKE54277,25:POKE54276,32:POKE54276,33:GOTO80