home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9110c.d64 / dirty (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.