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 >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.9 KB  |  52 lines
  1. 5 poke 53280,0:poke53281,0:poke 646,5
  2. 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]";
  3. 20 for i=0 to 21:print"[194]                                      [200]";:next
  4. 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]";
  5. 40 print"eingabemasken-beispiel in basic"
  6. 50 print"--------------------------------------"
  7. 55 if mm=1 then return
  8. 60 print"bitte namen angeben."
  9. 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]"
  10. 80 print"[145][221]                     [221]"
  11. 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]"
  12. 100 poke 646,7:in$="20,07,04,1,":gosub 60000:na$=s$
  13. 110 print"bitte strasse angeben."
  14. 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]"
  15. 130 print"[145][221]                               [221]"
  16. 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]"
  17. 150 poke 646,7:in$="30,13,04,0,":gosub 60000:we$=s$
  18. 160 print"bitte geb. datum angeben."
  19. 170 print"[176][192][192][192][192][192][192][192][192][192][192][192][174]"
  20. 180 print"[145][221]           [221]"
  21. 190 print"[173][192][192][192][192][192][192][192][192][192][192][192][189]"
  22. 200 poke 646,7:in$="10,19,04,2,":gosub 60000:ge$=s$
  23. 210 mm=1:gosub 5
  24. 220 print"name.:"
  25. 230 print"[158]";na$
  26. 240 print"strasse.:"
  27. 250 print"[158]";we$
  28. 260 print"geb. datum.:"
  29. 270 print"[158]";ge$
  30. 280 wait 198,1:poke 198,0:run
  31. 59000 end
  32. 60000 max=val(left$(in$,2)):x=val(mid$(in$,4,5)):br=val(mid$(in$,7,8)):tem=58640
  33. 60010 usb=val(mid$(in$,10,10)):txt$=mid$(in$,12,len(in$)):
  34. 60020 s$="":amax=max:y=br+len(txt$):max=br+max+len(txt$):ay=y+1
  35. 60030 fl$="                                                                        "
  36. 60040 if jg=0 then jg=1:poke 214,x:poke 211,y:system:print left$(fl$,amax)
  37. 60050 poke214,x:poke211,br:system:printtxt$:p$=chr$(95):q$=chr$(20)
  38. 60060 if y=max then fl=1
  39. 60070 poke214,x:poke211,y:system:print" [146]":get a$:if a$="" then 60070
  40. 60080 ifa$=q$andy>=aytheny=y-1:s$=left$(s$,len(s$)-1):poke214,x:poke211,y+1:system:kk=1
  41. 60090 ifa$=q$ and kk=1 then print" ":fl=0:kk=0:goto60060
  42. 60100 ifa$=p$thenpoke214,x:poke211,ay-1:system:print left$(fl$,amax+1)
  43. 60110 ifa$=p$thenpoke214,x:poke211,ay-1:system:print" [146]":y=ay-1:max=amax:fl=0:goto60000
  44. 60120 ifa$=chr$(13)thenpoke214,x:poke211,y:system:print" ":usb=0:fl=0:return
  45. 60130 if fl=1 then 60060
  46. 60140 ch=asc(a$):if usb=0 or usb=1 then if a$=chr$(32) then 60190
  47. 60150 ifusb=0orusb=1thenifch>64andch<91then60190
  48. 60160 ifusb=0orusb=1thenifch>192andch<219then60190
  49. 60170 ifusb=0orusb=2thenifch<33orch>65then60060
  50. 60180 ifusb=1then60060
  51. 60190 poke214,x:poke211,y:system:printa$:y=y+1:s$=s$+a$:goto60060
  52.