Brotikasten/BROTCD01.iso/games/dis1013.d64/einkaufszettel

Commodore BASIC | 1995-07-31 | 6KB | 168 lines

1 PRINT"[147][159]":POKE53280,0:POKE53281,0:GOSUB10000:PRINT"[147]"
2 PRINT" [196]U,EIN UNTER DEN [208]ANTOFFEL GENOMMENER"
3 PRINT" [197]HEMANN EINER VOM [210]AETZELTICK BEFAL-"
4 PRINT" LENEN [197]MANZIPIERTEN [198]RAU,MUSST MAL"
5 PRINT" WIEDER DIE ALLJAEHRLICHEN [213]RLAUBSEIN-"
6 PRINT" KAEUFE MACHEN.[193]BER DIES IST NICHT SO "
7 PRINT" EINFACH,DA IHR EINE UEBERNEUGIERIGE"
8 PRINT" [206]ACHBARIN , DIE DIE [213]RLAUBSVORBE-"
9 GOTO1000
10 POKE 53280,0:PRINT"[159][147]        [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
11 PRINT"     12[146] [221][152][203] [212] [211] [194] [208] [207] [210] [212] [203] [200] [193] [213][159][221]"
12 PRINT"     11[146] [221][152][211] [193] [210] [201] [201] [195] [200] [193] [204] [210] [196] [211][159][221]"
13 PRINT"     10[146] [221][152][214] [206] [211] [201] [208] [210] [201] [205] [197] [204] [197] [197][159][221]"
14 PRINT"      9[146] [221][152][210] [206] [212] [212] [204] [212] [203] [210] [197] [211] [211] [197][159][221]"
15 PRINT"      8[146] [221][152][197] [197] [213] [206] [193] [206] [197] [197] [201] [207] [201] [211][159][221]"
16 PRINT"      7[146] [221][152][193] [211] [204] [195] [212] [206] [200] [210] [210] [206] [204] [193][159][221]"
17 PRINT"      6[146] [221][152][203] [215] [208] [197] [193] [197] [201] [206] [199] [206] [197] [210][159][221]"
18 PRINT"      5[146] [221][152][197] [197][160][197][160][201][160][206][160][204][160][197][160][197][160][198][160][197][160][213][160][215][159][221]"
19 PRINT"      4[146] [221][152][204][160][201][160][204][160][201][160][197][160][203][160][193][160][211][160][196][160][206][160][204][160][211][159][221]"
20 PRINT"      3[146] [221][152][197][160][196][160][197][160][210][160][195][160][197][160][194][160][206][160][193][160][200][160][205][160][204][159][221]"
21 PRINT"      2[146] [221][152][201][160][197][160][204][160][197][160][218][160][200][160][201][160][215][160][197][160][213] [197] [201][159][221]"
22 PRINT"      1[146] [221][152][205] [193][160][200][160][206][160][206][160][204][160][197][160][218][160][197][160][212][160][204][160][212][159][221]"
23 PRINT"        [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
24 PRINT"         [193][160][194][160][195][160][196][160][197][160][198][160][199][160][200][160][201][160][202][160][203][160][204][146]"
25 INPUT"     --->..[193]NFANGS-[198]ELD ";A$
26 INPUT"     --->......[197]ND-[198]ELD ";B$
27 IFA$="A12"ANDB$="H5"THEN100
28 IFA$="A7"ANDB$="A2"THEN210
29 IFA$="B6"ANDB$="B2"THEN220
30 IFA$="A4"ANDB$="E4"THEN230
31 IFA$="B12"ANDB$="B8"THEN110
32 IFA$="K5"ANDB$="K2"THEN240
33 IFA$="H5"ANDB$="K5"THEN250
34 IFA$="D12"ANDB$="H8"THEN120
35 IFA$="E10"ANDB$="J10"THEN260
36 IFA$="I12"ANDB$="I9"THEN130
37 IFA$="G9"ANDB$="L9"THEN200
38 IFA$="C5"ANDB$="G1"THEN300
39 IFA$="F1"ANDB$="J5"THEN310
40 IFA$="C1"ANDB$="L10"THEN330
41 IFA$="J9"ANDB$="J1"THEN340
42 IFA$="C9"ANDB$="C5"THEN400
43 IFA$="G6"ANDB$="J9"THEN410
44 IFA$="F7"ANDB$="F3"THEN420
45 IFA$="C4"ANDB$="G8"THEN460
46 IFA$="E10"ANDB$="E4"THEN450
47 IFA$="00"ANDB$="00"THEN7400
48 IFA$="H"ORA$="[200]"THEN2000
49 IFB$="H"ORB$="[200]"THEN2000
50 IFA$="PA"ANDB$="A3DSF"THENPRINT"[147]":LIST
51 IFA$="Z"THEN1
52 IFB$="Z"THEN1
53 IFA$="SPORTHAUSRICHARDSVIRTENNISSCHLAEGERWASSERBALLZWEIMANNZELT"THEN3000
54 IFA=1ANDB=1ANDC=1ANDD=1ANDE=1ANDF=1ANDG=1ANDH=1ANDI=1ANDJ=1ANDK=1ANDL=1THEN56
55 GOTO60
56 IFM=1ANDN=1ANDO=1ANDP=1ANDQ=1ANDR=1ANDS=1ANDT=1ANDU=1THEN7000
60 PRINT"[145][145][145]                                       "
61 PRINT"                                       "
62 PRINT"[145][145][145][145][145]":GOTO25
63 PRINT"":A=1:GOTO60
100 PRINT"[203][146][193][146][211][146][212][146][193][146][206][146][201][146][197][146]":B=1:GOTO63
110 PRINT"[212][146][157][193][146][157][206][146][157][206][146][157][197][146]":C=1:GOTO63
120 PRINT"[194][146][201][146][210][146][203][146][197][146]":D=1:GOTO63
130 PRINT"[203][146][157][204][146][157][197][146][157][197][146]"E=1:GOTO63
200 PRINT"[203] [210] [197] [211] [211] [197][146]":F=1:GOTO63
210 PRINT"[193][146][157][203][146][157][197][146][157][204][146][157][197][146][157][201][146]":G=1:GOTO63
220 PRINT"[215][146][157][197][146][157][201][146][157][196][146][157][197][146]":H=1:GOTO63
230 PRINT"[204] [201] [204] [201] [197][146]":I=1:GOTO63
240 PRINT"[213][146][157][204][146][157][205][146][157][197][146]":J=1:GOTO63
250 PRINT"[197] [198] [197] [213][146]":K=1:GOTO63
260 PRINT"[208] [210] [201] [205] [197] [204][146]":L=1:GOTO63
300 PRINT"[197][146][201][146][195][146][200][146][197][146]":M=1:GOTO63
310 PRINT"[204][146][145][201][146][145][206][146][145][196][146][145][197][146]"::N=1:GOTO63
330 PRINT"[200][145][197][145][195][145][203][145][197][145][206][145][210][145][207][145][211][145]E[146]":O=1:GOTO63
340 PRINT"[211][157][207][157][206][157][206][157][197][157][206][157][200][157][213][157][212][146]":GOTO60000
400 PRINT"[212][157][213][157][204][157][208][157][197][146]":Q=1:GOTO63
410 PRINT"[201][145][210][145][201][145][211][146]":R=1:GOTO63
420 PRINT"[206][157][197][157][204][157][203][157][197][146]":S=1:GOTO63
450 PRINT"[208][157][204][157][193][157][212][157][193][157][206][157][197][146]":T=1:GOTO63
460 PRINT"[204][145][201][145][193][145][206][145][197][146]":U=1:GOTO63
1000 PRINT" REITUNGEN STINKNORMALER DEUTSCHER "
1001 PRINT" [194]UERGER AN DIE [211]OWJETISCHE [210]EGIERUNG,"
1002 PRINT" UM DEREN [211]PIONE AN DIE DEUTSCHEN "
1003 PRINT" [194]RAEUCHE ANZUPASSEN WEITERGEBEN WILL,"
1004 PRINT" HABT.[213]M DIESES [208]ROBLEM ZU UMGEHEN,HAT"
1005 PRINT" [196]EINE [198]RAU DEN [197]INKAUFSZETTEL VER-"
1006 PRINT" SCHLUESSELT."
1007 PRINT" [198]UER SIE KEIN [208]ROBLEM,UND FUER [196]ICH?"
1008 PRINT"        [200]ILFSMENUE MIT <[200]>             [186]":GOTO1011
1009 GETA$:IFA$=""THEN1009
1010 POKE53280,6 :POKE53281,0:GOTO9000
1011 PRINT"[145] [197]INKAUFSZETTEL WRITTEN BY [193].[204]EITNER   [186]":GOTO1009
2000 PRINT"[147] [197]INKAUFSZETTEL [200]ILFSMENUE             [186]":POKE53280,0:POKE53281,0
2001 PRINT" [198]OLGENDE [194]EFEHLE KOENNEN [211]IE IM [211]PIEL-"
2002 PRINT" [205]ODUS BENUTZEN :":PRINT:FORI=1TO20:PRINT"[154]--";:NEXT
2003 PRINT"     00 [186]    00 ->[146] [193]BBRUCH"
2004 PRINT"      H [186]     H ->[146] [196]IESES [205]ENUE"
2005 PRINT"      Z [186]     Z ->[146] [206]EUSTART"
2006 PRINT"     PA [186] ***** ->[146] [204]ISTE DES [211]PIELS"
2007 PRINT"                    *****=[211]PEZ.[195]ODE"
2008 PRINTSPC(30)"[154]-[212][193][211][212][197]-"
2009 GET F$:IFF$="" THEN 2009
2010 PRINT"[147][159]":POKE53281,0:POKE53280,6
2012 GOTO9000
6000 P=1:GOTO63
7000 FORI=1TO2333:NEXT:POKE53280,0
7001 PRINT"[147]  [197]INKAUFZETTEL - GELOEST              [186]"
7002 PRINT" [199]RATULIERE.[196]U HAST ES GESCHAFT!"
7003 PRINT" [206]UN KANNST DU ENDLICH EINKAUFEN GEHEN."
7004 PRINT" [196]U ,WIE DU NUN SCHON SICHER WEISST,IM"
7005 PRINT" [211]PORTHAUS [210]ICHARDS 4 [212]ENNISSCHLAEGER,"
7006 PRINT" [197]INEN [215]ASSERBALL UND EIN [218]WEIMANN-"
7007 PRINT" ZELT."
7008 PRINT" -[213]ND WAS SCHLIESST DU DARAUS-NATUER-"
7009 PRINT"  LICH,DASS DEINE [198]RAU MIT 4 [193]NDEREN"
7010 PRINT"  [212]ENNIS SPIELT, DOCH NICHT WASSER-"
7011 PRINT"  SCHEU IST UND MIT EINEM [193]NDEREN IN"
7012 PRINT"  DIE [215]ILDNIS ABHAUT UND DORT ZELTET."
7013 PRINT" [201]ST JA LOGISCH,DASS [196]U [196]IR SCHNEL-"
7014 PRINT" LSTENS EINE [211]CHROTFL