home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 February / 64er_Magazin_89-02_1989_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / auto-input (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  901b  |  43 lines
  1. 100 rem * auto-input * 11/88
  2. 110 :
  3. 120 rem ---------------------------
  4. 130 rem  simuliertes hauptprogramm
  5. 140 rem ---------------------------
  6. 150 :
  7. 160 print "[147]name    : ";
  8. 170 tm=1 : vo$="matthias ullmann"
  9. 180 gosub 1000
  10. 190 :
  11. 200 print "strasse : ";
  12. 210 tm=3 : vo$="helmholtzstr. 53"
  13. 220 gosub 1000
  14. 230 :
  15. 240 print "plz/ort : ";
  16. 250 tm=5 : vo$="6200 wiesbaden 1"
  17. 260 gosub 1000
  18. 270 :
  19. 280 print "telefon : ";
  20. 290 tm=3 : vo$="" : rem keine vorgabe
  21. 300 gosub 1000
  22. 310 :
  23. 320 print "codenr. : ";
  24. 330 tm=1 : vo$="640815" : rem zahl
  25. 340 gosub 1000 : na=val(na$)
  26. 350 :
  27. 360 end
  28. 370 :
  29. 380 :
  30. 390 rem ---------------
  31. 400 rem  unterprogramm
  32. 410 rem ---------------
  33. 420 :
  34. 1000 na$=""
  35. 1010 print" [146]"; : ti$="000000"
  36. 1020 get a$ : if a$="" then a$=chr$(0) : if ti/60<tm then 1020
  37. 1030 a=asc(a$) : if a=0 or a=13 then 1070
  38. 1040 if a=20 and na$<>"" then na$=left$(na$,len(na$)-1) : print a$;
  39. 1050 if a<32 or a>90 then print"[157]"; : goto 1010
  40. 1060 na$=na$+a$ : print"[157]";a$; : goto 1010
  41. 1070 print chr$(20); : if na$="" then na$=vo$ : print na$;
  42. 1080 print : return
  43.