5 REM *** EIS-KAUF-PROGRAMM ***
10 PRINT "[147]"
20 PRINT "DER EISMANN IST DA"
30 PRINT "WILLST DU EIN EIS?"
40 INPUT E$
50 IF E$="N" THEN PRINT:PRINT"SCHADE":GOTO 200
60 PRINT:PRINT"HAST DU GELD?"
70 INPUT G$
80 IF G$="N" THEN PRINT"DU GEHST ERST GELD HOLEN"
90 PRINT:PRINT"DU GEHST VORSICHTIG UEBER DIE STRASSE"
100 PRINT:PRINT"DU KAUFST EIN EIS"
105 REM *** JETZT WIRD DAS EIS GEZAHLT ***
110 X=X+1
120 PRINT:PRINT"WILLST DU NOCH EINS?"
130 INPUT N$
140 IF N$="N" THEN 170
150 PRINT:PRINT"DU KAUFST EIS NUMMER ";X+1
160 GOTO 110
170 PRINT:PRINT"DU HAST BAUCHSCMERZEN BEKOMMEN"
180 IF X=1 THEN PRINT:PRINT"EIS BEKOMMT DIR NICHT":GOTO 200
190 PRINT:PRINT X;" EIS BEKOMMEN DIR NICHT"
200 END