1 IFPEEK(51456)=255GOTO5
2 POKE646,PEEK(53281):PRINT"LOAD"CHR$(34)"HOTEL"CHR$(34)",8"
3 PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13:POKE632,13:POKE198,2:END
4 POKE53280,0:POKE53281,0
5 FORA=1TOPEEK(51457):FORB=0TO14:C=PEEK(51447+B+15*A)
7 NA$(A)=NA$(A)+CHR$(C):NEXTB,A
10 FORA=52001TO52020:B=PEEK(A):AU%(B)=AU%(B)+1:NEXTA:POKE53280,0:POKE53281,0
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]"
30 PRINT"  [202][203][154][145]":FORA=1TO18:PRINTTAB(4)"[221]"SPC(29)"[221]":NEXTA
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]"
55 B=1:FORA=1TO4:IFAU%(A)>AU%(B)THENC=A:B=A:GOTO60
57 IFAU%(A)<AU%(B)THENC=B
60 NEXTA:PRINT"[158]"
65 G$="ER ":IFLEFT$(NA$(C),4)="FRAU"THENG$="SIE"
70 READA$:IFA$="XXX"THENPOKE198,0:WAIT198,1:GOTO500
80 IFA$="NAME"THENPRINTTAB(11)"[145]"NA$(C)CHR$(141)TAB(6)"[158]"G$"[157][157][157][157][157][157][145]";:GOTO70
90 PRINT"";:FORA=1TOLEN(A$)
100 PRINTMID$(A$,A,1)"*[157]";
110 FORB=1TO30:NEXTB,A:PRINT" ":GOTO70
200 :
300 DATA"DER GEWINNER  DIESES SPIELS":DATA"IST:","NAME"
310 DATA"[144][158] KANN SICH ZU DEN BESTEN"
320 DATA"FINANZIERS   UNSERER   ZEIT"
330 DATA"ZAEHLEN, GLUECKWUNSCH."
340 DATA"[144][158]DIE  ANDEREN  SPIELER HABEN"
350 DATA"SICH AUCH GUT  DURCH DIESES"
360 DATA"SPIEL GEKAEMPFT,  DOCH FUER"
370 DATA"DEN  1. PLATZ HAT  ES NICHT"
380 DATA"GEREICHT."
390 DATA"[144][158]VIELLEICHT  HABEN SIE  BEIM"
400 DATA"VERSUCH MEHT GLUECK..."
410 DATA"XXX"
500 PRINT"[147]"TAB(12)"BITTE WARTEN..."
510 PRINT"[144]LOAD"CHR$(34)"HOTEL"CHR$(34)",8"CHR$(141)"RUN[145][145][145][145][145][145][145][145]"
520 POKE631,19:POKE632,13:POKE633,13:POKE198,3:END