home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / hotel.victory (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  36 lines
  1. 1 ifpeek(51456)=255goto5
  2. 2 poke646,peek(53281):print"load"chr$(34)"hotel"chr$(34)",8"
  3. 3 print"run[145][145][145][145][145][145][145][145]":poke631,13:poke632,13:poke198,2:end
  4. 4 poke53280,0:poke53281,0
  5. 5 fora=1topeek(51457):forb=0to14:c=peek(51447+b+15*a)
  6. 7 na$(a)=na$(a)+chr$(c):nextb,a
  7. 10 fora=52001to52020:b=peek(a):au%(b)=au%(b)+1:nexta:poke53280,0:poke53281,0
  8. 20 print"[147]  [213][154][192][201][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][201]"
  9. 30 print"  [202][203][154][145]":fora=1to18:printtab(4)"[221]"spc(29)"[221]":nexta
  10. 40 printtab(35)"[145][213][201][154]":print"    [202][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][202][192][203]"
  11. 55 b=1:fora=1to4:ifau%(a)>au%(b)thenc=a:b=a:goto60
  12. 57 ifau%(a)<au%(b)thenc=b
  13. 60 nexta:print"[158]"
  14. 65 g$="er ":ifleft$(na$(c),4)="frau"theng$="sie"
  15. 70 reada$:ifa$="xxx"thenpoke198,0:wait198,1:goto500
  16. 80 ifa$="name"thenprinttab(11)"[145]"na$(c)chr$(141)tab(6)"[158]"g$"[157][157][157][157][157][157][145]";:goto70
  17. 90 print"";:fora=1tolen(a$)
  18. 100 printmid$(a$,a,1)"*[157]";
  19. 110 forb=1to30:nextb,a:print" ":goto70
  20. 200 :
  21. 300 data"der gewinner  dieses spiels":data"ist:","name"
  22. 310 data"[144][158] kann sich zu den besten"
  23. 320 data"finanziers   unserer   zeit"
  24. 330 data"zaehlen, glueckwunsch."
  25. 340 data"[144][158]die  anderen  spieler haben"
  26. 350 data"sich auch gut  durch dieses"
  27. 360 data"spiel gekaempft,  doch fuer"
  28. 370 data"den  1. platz hat  es nicht"
  29. 380 data"gereicht."
  30. 390 data"[144][158]vielleicht  haben sie  beim"
  31. 400 data"versuch meht glueck..."
  32. 410 data"xxx"
  33. 500 print"[147]"tab(12)"bitte warten..."
  34. 510 print"[144]load"chr$(34)"hotel"chr$(34)",8"chr$(141)"run[145][145][145][145][145][145][145][145]"
  35. 520 poke631,19:poke632,13:poke633,13:poke198,3:end
  36.