100 REM * AUTO-INPUT * 11/88
110 :
120 REM ---------------------------
130 REM  SIMULIERTES HAUPTPROGRAMM
140 REM ---------------------------
150 :
160 PRINT "[147]NAME    : ";
170 TM=1 : VO$="MATTHIAS ULLMANN"
180 GOSUB 1000
190 :
200 PRINT "STRASSE : ";
210 TM=3 : VO$="HELMHOLTZSTR. 53"
220 GOSUB 1000
230 :
240 PRINT "PLZ/ORT : ";
250 TM=5 : VO$="6200 WIESBADEN 1"
260 GOSUB 1000
270 :
280 PRINT "TELEFON : ";
290 TM=3 : VO$="" : REM KEINE VORGABE
300 GOSUB 1000
310 :
320 PRINT "CODENR. : ";
330 TM=1 : VO$="640815" : REM ZAHL
340 GOSUB 1000 : NA=VAL(NA$)
350 :
360 END
370 :
380 :
390 REM ---------------
400 REM  UNTERPROGRAMM
410 REM ---------------
420 :
1000 NA$=""
1010 PRINT" [146]"; : TI$="000000"
1020 GET A$ : IF A$="" THEN A$=CHR$(0) : IF TI/60<TM THEN 1020
1030 A=ASC(A$) : IF A=0 OR A=13 THEN 1070
1040 IF A=20 AND NA$<>"" THEN NA$=LEFT$(NA$,LEN(NA$)-1) : PRINT A$;
1050 IF A<32 OR A>90 THEN PRINT"[157]"; : GOTO 1010
1060 NA$=NA$+A$ : PRINT"[157]";A$; : GOTO 1010
1070 PRINT CHR$(20); : IF NA$="" THEN NA$=VO$ : PRINT NA$;
1080 PRINT : RETURN