24000 GOSUB 30000¢24010 POSITION 3,10:? "TRITT EIN, FREMDER!"¢24020 POSITION 3,12:? "RUHE DICH AUS VON DEINER HARTEN"¢24030 POSITION 3,13:? "WANDERUNG. WAS DARF ES SEIN ..."¢24040 POSITION 3,15:? " דINFACHE UEBERNACHTUNG"¢24050 IF XX=2 AND YY=24 AND ROT=1 THEN PIC$="D:LEBENS.PIC":GOTO 26000¢24060 POSITION 3,17:? " שERLASSEN"¢24070 POSITION 3,18:? "WOMIT KOENNEN WIR DIR DIENEN ?"¢24080 GET #2,K¢24090 IF CHR$(K)="E" THEN A=10:GOTO 24100¢24092 IF CHR$(K)="U" THEN A=16:GOTO 24100¢24094 IF CHR$(K)="V" THEN GOSUB 32000:GOTO 1200¢24096 GOTO 24080¢24100 GOSUB 32020¢24101 IF A>GELD THEN POSITION 3,10:? "ZU WENIG GELD [TASTE]":GET #2,K:GOSUB 32000:GOTO 1200¢24105 GELD=GELD-A:POSITION 24,5:? GELD;" "¢24110 POSITION 3,10:? "SIE SCHLAFEN ..."¢24120 FOR I=3 TO 36¢24130 POSITION I,12:? "-"¢24140 FOR U=1 TO 20:NEXT U¢24150 IF PEEK(764)<>255 THEN GET #2,K:GOTO 24200¢24160 NEXT I¢24200 IF A=16 THEN POSITION 3,14:? "SIE BEKOMMEN IHR FRUESTUCK!"¢24210 IF I<>36 THEN A=A/2¢24220 LE=LE+INT(RND(0)*A)+1¢24230 POSITION 15,7:? LE¢24240 POSITION 3,18:? "[TASTE]":GET #2,K:GOSUB 32020:GOTO 24010¢
