home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 October / 64er_Magazin_91-10_1991_Markt__Technik_de_Side_C.d64 / dirty (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  25 lines
  1. 10 gosub1000:print"[144][147]load"chr$(34)"d.start"chr$(34)",8"chr$(13)"run"
  2. 20 poke631,19:poke632,13:poke633,13:poke198,3:new
  3. 1000 co$="[149][129][158]":poke53280,0:poke53281,0:print"[147][158]   ";
  4. 1005 t$="r der [212]ag 29.[207]2.89.[197]r kam aus dem  [199]efaengnis,atmete tief ein und sah"
  5. 1006 t$=t$+" sich um. -[201]n zwei [202]ahren bin ich der [200]err der[215]elt- sagte er ":c=0
  6. 1007 t$=t$+"zu sich selbst.[197]r sah    sich ein [211]chaufenster an und starrte auf"
  7. 1008 t$=t$+"eine [194]ierdose.[196]iese begann zu zittern   und sprang "
  8. 1010 printchr$(14)chr$(8);:a$="       [197]s wa":j=1
  9. 1020 b$="[157][157][157]":fori=4to1step-1:b$=b$+mid$(co$,5-i,1)+mid$(a$,len(a$)-i,1):next
  10. 1025 getty$:ifty$<>""thenprint"[147]":goto1120
  11. 1030 printb$;:b$=mid$(t$,j,1):j=j+1::a$=right$(a$+b$,8):ifj<247andc=0then1020
  12. 1035 ifc=1andj>200then1100
  13. 1037 ifc=1then1020
  14. 1040 c=1:j=1:t$="durch das [198]enster in seine   [200]and.[196]as [199]eraeusch der [199]lasscheib"
  15. 1041 t$=t$+"en     verebbte langsam. [197]r trank das [194]ier,warfdie [196]ose auf de"
  16. 1042 t$=t$+"n [194]oden und ging weiter. [196]ie [196]ose fing an zu rollen und folgte"
  17. 1043 t$=t$+"   ihm...       "
  18. 1050 goto1020
  19. 1100 print"":i=0
  20. 1110 geta$:ifa$=""then1110
  21. 1120 poke214,7:poke211,i:sys58732:print" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] "
  22. 1130 poke214,7:poke211,39-i:sys58732:print" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] "
  23. 1140 i=i+1:ifi<20then1120
  24. 1150 return
  25.