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