home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 March
/
64er_Magazin_90-03_1990_Markt__Technik_de_Side_A.d64
/
maske-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
52 lines
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