home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 43
/
64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_B.d64
/
auto-input
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
901b
|
43 lines
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