home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_A.d64 / m.y.v. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  852b  |  19 lines
  1. 0 rem* make yor vote.1995 by spike/tc *
  2. 1 print"[149][147]":poke53280,0:poke53281,0:print"make your vote"
  3. 2 print"[153]1= daten eingeben"       :print"2= daten ausgeben"
  4. 3 print"3= daten loeschen"
  5. 4 geta$:onval(a$)gosub5,9,18:goto1
  6. 5 input"[147][154]name      : [149]";n$:input"[154]pseudo    : [149]";n$(0)
  7. 6 input"[154]strasse   : [149]";n$(1):input"[154]wohnort   : [149]";n$(2)
  8. 7 input"[154]game 1    : [149]";n$(3):input"[154]game 2     : [149]";n$(4)
  9. 8 z$=n$+",s,w":open2,8,2,z$:fori=0to4:print#2,n$(i):next:close2:gosub19:goto13
  10. 9 input"[147]name:[149]";n$:z$=n$+"*"+",s,r":open2,8,2,z$:an$=n$
  11. 10 fori=0to4:input#2,n$(i):nexti:close2:gosub19:print"[154]pseudo    : [149]"n$(0)
  12. 11 print"[154]strasse   : [149]"n$(1):print"[154]wohnort   : [149]"n$(2)
  13. 12 print"[154]game 1    : [149]"n$(3):print"[154]game 2    : [149]"n$(4):ifa=1thena=0:return
  14. 13 geta$:ifa$=""then13
  15. 14 run
  16. 18 input"[147]name ";n$:z$="s:"+n$:open15,8,15,z$:close15:gosub19:gosub13
  17. 19 v=peek(214):open15,8,15:input#15,n,f$:close15:poke214,24:sys58640
  18. 20 print"[158]    disk-status  :  [149]"f$"[145]":poke214,v:sys58640:return
  19.