home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / hotel.start (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  80 lines
  1. 10 ifpeek(828)=0thenpoke828,1:poke45,232:poke46,25:run
  2. 13 r$=chr$(141):b=0:fora=0to7:readx:ifpeek(49152+a)=xthenb=b+1
  3. 15 nexta:ifb=8goto20
  4. 17 poke646,peek(53281):print"load"chr$(34)"hotel"chr$(34)",8"r$"run[145][145][145][145][145][145][145][145]"
  5. 18 poke631,13:poke632,13:poke198,2:end
  6. 20 fora=828to848:readb:pokea,b:nexta
  7. 30 poke53272,48:poke56576,0:poke648,204
  8. 35 poke53280,2:poke53281,2:print"[147]"tab(5)"[213][192][201]"spc(24)"[213][192][201]"
  9. 40 printtab(5)"[194][154]$[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][154]$[194]"
  10. 50 printtab(5)"[202][192][179]"spc(24)"[171][192][203]"
  11. 60 fora=1to11:printtab(7)"[194]"spc(24)"[194]":nexta
  12. 70 printtab(5)"[213][192][179]"spc(24)"[171][192][201]"
  13. 80 printtab(5)"[194][154]$[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][154]$[194]"
  14. 90 printtab(5)"[202][192][203]"spc(24)"[202][192][203]":ew=.
  15. 100 print""tab(10)"[150]herzlich  willkommen":print""tab(18)"zu"
  16. 110 print""tab(12)"[159]'' h o t e l ''"
  17. 120 gosub465:printtab(10)"[150][145][145][145][145][145][145]wollen sie:":printtab(10)"[158][163][163][163][163][163][163][163][163][163][163][163][163]"
  18. 126 printtab(10)"[153]1.) [150]neu beginnen"
  19. 127 printtab(10)"[153]2.) [150]spiel fortsetzen"
  20. 128 poke649,1:geta$:ifa$<>"1"anda$<>"2"goto128
  21. 130 ifa$="2"thenew=1:goto500
  22. 135 gosub465:printtab(9)"[145][145][145][145][145][150]mitspieler:":printtab(9)"[158][163][163][163][163][163][163][163][163][163][163][163]"
  23. 140 printtab(9)"[158]wieviele ? (2-4) ^ [159] [146][157]";
  24. 150 poke649,1:geta$:a=val(a$):ifa<2ora>4goto150
  25. 160 printa$
  26. 180 ms=a:poke649,0:gosub465:printtab(10)"[145][145][145][145][145][145][150]namen:":printtab(10)"[158][163][163][163][163][163][163]"
  27. 190 forbb=1toms:printtab(10)""bb"[157][157][157]#: [153]";:za=9:kc=65:gc=90:poke649,10:gosub6900
  28. 200 na$(bb)=left$(a$+"          ",10):nextbb:poke649,0
  29. 310 gosub465:printtab(9)"[145][145][145][145][145][145][150](m)[nnlich/(w)eiblich[153]":printtab(9)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  30. 320 forbb=1toms:printtab(13)"[153]"bb"[157][157][157]#:";
  31. 330 poke649,1:geta$:ifa$=""goto330
  32. 350 poke649,0:ifa$="m"thenprint"[150]m[nnlich":na$(bb)="herr "+na$(bb):goto380
  33. 360 ifa$="w"thenprint"[150]weiblich":na$(bb)="frau "+na$(bb):goto380
  34. 370 goto330
  35. 380 nextbb
  36. 390 gosub465:print"[145][145][145][145][145][145]";
  37. 392 printtab(10)"[150]korrekt ? (j-n)":printtab(10)"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  38. 400 forbb=1toms:printtab(10)"[150]"bb"[157][157][150]:[158]"na$(bb):nextbb:poke649,1
  39. 410 poke649,1:geta$:ifa$=""goto410
  40. 420 poke649,0:ifa$="j"thenpoke52765,peek(52765)+128:fora=1to500:nexta:goto500
  41. 430 ifa$="n"thenpoke52767,peek(52767)+128:fora=1to500:nexta:run
  42. 440 goto410
  43. 465 print"";:fora=1to7:printtab(8)"                        ":nexta:return
  44. 500 print"[154][147]":b=0:x=55496:y=55535:poke53280,0:poke53281,0
  45. 501 fora=xtoy:pokea,1:nexta:b=b+1:ifb=1thenx=55736:y=55775:goto501
  46. 503 poke53272,21:poke56576,151:poke648,4
  47. 570 poke51456,ew:ifew=1goto590
  48. 580 poke51457,ms:fora=1toms:w=51445+15*a:a$=na$(a):gosub8000:nexta
  49. 590 fora=1to20:reada$:a$=left$(a$+"              ",20)
  50. 600 w=51530+a*20:gosub8000:nexta
  51. 610 poke51530,15:poke51531,46:poke51532,11:poke51533,46:poke51534,50:poke649,10
  52. 620 printtab(11)"[192]  loading  now  [192]"
  53. 640 print"[144]load "chr$(34)"hotel.main"chr$(34)",8"chr$(141)"run[145][145][145][145][145][145][145][145]"
  54. 700 poke631,13:poke632,13:poke198,2:end
  55. 2000 data 30,35,157,161,161,185,132,120
  56. 2010 data 169,102,162,0,157,0,204,157,0,205,157,0
  57. 2011 data 206,157,0,207,202,208,241,96,0
  58. 2100 data"golf g.t.i.","audi 80 quattro","audi 90","opel senator","ford taunus"
  59. 2101 data"ford granada","toyota corolla","bmw 850 i","bmw m3","mercedes 190d"
  60. 2102 data"porsche 911 turbo","porsche 944 cabrio","saab 2000"
  61. 2103 data"chevrolet corvette","lotus esprit turbo","ferrari tessarossa"
  62. 2104 data"jaguar xl","lamborghini countach","cadillac","roll's royce"
  63. 6900 a$="":ms$="":wl=0:print" [146][157]";
  64. 6920 getms$:ifms$=""goto6920
  65. 6930 ifms$=chr$(13)andwl=0goto6900
  66. 6940 ifms$=chr$(13)goto7000
  67. 6950 ifms$=chr$(20)thengosub7030
  68. 6960 ifwl>zagoto6920
  69. 6970 ifms$=" "orms$="["orms$="]"orms$="\"orms$="_"goto6990
  70. 6980 v=asc(ms$):ifv<kcorv>gcgoto6920
  71. 6990 printms$" [146][157]";:wl=wl+1:a$=a$+ms$:goto6920
  72. 7000 print" ":return
  73. 7010 :
  74. 7020 rem *** inst/del bei eingabe ***
  75. 7030 if(wl-1)<0thenreturn
  76. 7040 wl=wl-1:print"[157] [146] [157][157]";:ifwl=zathenprint"  [157][157]";
  77. 7050 a$=left$(a$,(len(a$)-1)):return
  78. 7999 rem === poken ===
  79. 8000 forb=1tolen(a$):c=asc(mid$(a$,b,1)):pokew+b,c:nextb:return
  80.