5 POKE 53280,0:POKE53281,0:POKE 646,5
10 PRINT"[147][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
20 FOR I=0 TO 21:PRINT"[194]                                      [200]";:NEXT
30 PRINT"[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]";
40 PRINT"EINGABEMASKEN-BEISPIEL IN BASIC"
50 PRINT"--------------------------------------"
55 IF MM=1 THEN RETURN
60 PRINT"BITTE NAMEN ANGEBEN."
70 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
80 PRINT"[145][221]                     [221]"
90 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
100 POKE 646,7:IN$="20,07,04,1,":GOSUB 60000:NA$=S$
110 PRINT"BITTE STRASSE ANGEBEN."
120 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
130 PRINT"[145][221]                               [221]"
140 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
150 POKE 646,7:IN$="30,13,04,0,":GOSUB 60000:WE$=S$
160 PRINT"BITTE GEB. DATUM ANGEBEN."
170 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][174]"
180 PRINT"[145][221]           [221]"
190 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][189]"
200 POKE 646,7:IN$="10,19,04,2,":GOSUB 60000:GE$=S$
210 MM=1:GOSUB 5
220 PRINT"NAME.:"
230 PRINT"[158]";NA$
240 PRINT"STRASSE.:"
250 PRINT"[158]";WE$
260 PRINT"GEB. DATUM.:"
270 PRINT"[158]";GE$
280 WAIT 198,1:POKE 198,0:RUN
59000 END
60000 MAX=VAL(LEFT$(IN$,2)):X=VAL(MID$(IN$,4,5)):BR=VAL(MID$(IN$,7,8)):TEM=58640
60010 USB=VAL(MID$(IN$,10,10)):TXT$=MID$(IN$,12,LEN(IN$)):
60020 S$="":AMAX=MAX:Y=BR+LEN(TXT$):MAX=BR+MAX+LEN(TXT$):AY=Y+1
60030 FL$="                                                                        "
60040 IF JG=0 THEN JG=1:POKE 214,X:POKE 211,Y:SYSTEM:PRINT LEFT$(FL$,AMAX)
60050 POKE214,X:POKE211,BR:SYSTEM:PRINTTXT$:P$=CHR$(95):Q$=CHR$(20)
60060 IF Y=MAX THEN FL=1
60070 POKE214,X:POKE211,Y:SYSTEM:PRINT" [146]":GET A$:IF A$="" THEN 60070
60080 IFA$=Q$ANDY>=AYTHENY=Y-1:S$=LEFT$(S$,LEN(S$)-1):POKE214,X:POKE211,Y+1:SYSTEM:KK=1
60090 IFA$=Q$ AND KK=1 THEN PRINT" ":FL=0:KK=0:GOTO60060
60100 IFA$=P$THENPOKE214,X:POKE211,AY-1:SYSTEM:PRINT LEFT$(FL$,AMAX+1)
60110 IFA$=P$THENPOKE214,X:POKE211,AY-1:SYSTEM:PRINT" [146]":Y=AY-1:MAX=AMAX:FL=0:GOTO60000
60120 IFA$=CHR$(13)THENPOKE214,X:POKE211,Y:SYSTEM:PRINT" ":USB=0:FL=0:RETURN
60130 IF FL=1 THEN 60060
60140 CH=ASC(A$):IF USB=0 OR USB=1 THEN IF A$=CHR$(32) THEN 60190
60150 IFUSB=0ORUSB=1THENIFCH>64ANDCH<91THEN60190
60160 IFUSB=0ORUSB=1THENIFCH>192ANDCH<219THEN60190
60170 IFUSB=0ORUSB=2THENIFCH<33ORCH>65THEN60060
60180 IFUSB=1THEN60060
60190 POKE214,X:POKE211,Y:SYSTEM:PRINTA$:Y=Y+1:S$=S$+A$:GOTO60060