home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_89-04_1989_-_de_Side_B.d64 / seq-reader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  71 lines
  1. 10 input"dateiname ";d$
  2. 20 :
  3. 30 open2,8,2,"winner"+d$+",s,r"
  4. 40 input#2,n$
  5. 50 input#2,v$
  6. 60 input#2,s$
  7. 70 input#2,w$
  8. 75 z$="":fori=1to7:get#2,a$:z$=z$+a$:next
  9. 80 close2
  10. 90 :
  11. 100 poke53280,0:poke53281,0
  12. 110 print"[147][152]       [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][174]"
  13. 120 print"       [221]                        [221]"
  14. 130 print"       [221] springreiten-datei ";d$;" [221]"
  15. 140 print"       [221]                        [221]"
  16. 150 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][189]"
  17. 160 print"        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  18. 170 print"        [221]                      [221]"
  19. 180 print"        [221]  gewinner (";z$;")  [221]"
  20. 190 print"[176][192][192][192][192][192][192][192][179]                      [171][192][192][192][192][192][192][192][174]";
  21. 200 print"[221]       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]       [221]";
  22. 210 print"[221] nachname :                           [221]";
  23. 220 print"[221]                                      [221]";
  24. 230 print"[221]  vorname :                           [221]";
  25. 240 print"[221]                                      [221]";
  26. 250 print"[221]  strasse :                           [221]";
  27. 260 print"[221]                                      [221]";
  28. 270 print"[221]  wohnort :                           [221]";
  29. 280 print"[221]                                      [221]";
  30. 290 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][192][192][192][192][192][192][192][189]";
  31. 300 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][174]"
  32. 310 print"      [221]                          [221]"
  33. 320 print"      [221] bitte [155]leertaste[152] druecken [221]"
  34. 330 print"      [221]                          [221]"
  35. 340 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][189]"
  36. 350 :
  37. 360 gosub1000
  38. 370 geta$:ifa$=""then370
  39. 380 :
  40. 390 z=1:z$="0000"
  41. 400 print""spc(10)"teilnehmer nr.: 0001":gosub1300
  42. 410 open2,8,2,d$+",s,r"
  43. 420 :
  44. 430 gosub1300
  45. 440 gosub1200
  46. 450 gosub1100
  47. 460 gosub1000
  48. 470 geta$:ifa$=""then470
  49. 480 z=z+1
  50. 490 ifst=0then430
  51. 500 print""spc(8)"     ende der datei[152]     "
  52. 510 close2
  53. 520 goto520
  54. 1000 print""spc(13);n$
  55. 1010 printspc(13);v$
  56. 1020 printspc(13);s$
  57. 1030 printspc(13);w$
  58. 1040 return
  59. 1100 input#2,n$
  60. 1110 input#2,v$
  61. 1120 input#2,s$
  62. 1130 input#2,w$
  63. 1140 return
  64. 1200 print""spc(26)left$(z$,3-int(log(z)/log(10)));mid$(str$(z),2,4)
  65. 1210 return
  66. 1300 print""spc(13);"                          "
  67. 1310 printspc(13);"                          "
  68. 1320 printspc(13);"                          "
  69. 1330 printspc(13);"                          "
  70. 1340 return
  71.