home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9206b.d64 / rohrbruch (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 5 PRINT"[147]":POKE53280,11:POKE53281,.:POKE211,33:POKE214,11:SYS58640:PRINT"[155]SCORE:"
  2. 6 PRINT"[159]ROHRBRUCH                       [146][145][157][157](C)[213][219][215][215][192][192][157][157][157][157][157][157][157][180] [219][213][201][176][201][157][157][157][157][157][157][157][180][202]"
  3. 7 PRINT"[157][157][157][157][157][157][203][202][203][177][202][157][157][157][157][157][157][157][180][213][192][201][213][219][157][157][157][157][157][157][157][180][202][201][213][201][219][194][157][157][157][157][157][157][157][180][192][203][202][203][194][202][157][157][157][157][157][157][157][180] G.P.[157][157][157][157][157]";
  4. 8 FORP=.TO17:PRINT"[157][180]";:NEXT:POKE211,.:POKE214,24:SYS58640:FORP=.TO31:PRINT"[155][166]";:NEXT
  5. 10 V=53248:POKEV,24:POKEV+1,221:POKEV+39,9:POKEV+40,6:POKE2040,13:POKE2041,14
  6. 20 POKEV+27,3:J=56320:POKEV+28,1:POKEV+37,5:POKEV+38,10
  7. 21 FORP=.TO41:POKE896+P,.:NEXT:FORN=.TO20:READQ:POKE938+N,Q:NEXT
  8. 22 FORN=.TO62:READQ:POKE832+N,Q:NEXT:POKEV+21,3:W$="[146][146][146][146][146][146][146][175][146][146][146][162][146][146][183][146][146] [146][145][175][146][145][162][145][183]"
  9. 23 W=INT(30+RND(1)*(255-30)):POKEV+2,W:FORY=50TO221STEP4:POKEV+21,3:POKEV+3,Y
  10. 24 IFPEEK(J)=123THENX=X-5:DATA.,16,.,.,16,.,.,56,.,.,56,.,.,124,.,.,124,.
  11. 25 IFPEEK(J)=119THENX=X+5:DATA.,56,.,.,5,85,8,5,85,42,5,85,175,5,85,190,197,85
  12. 26 IFX<24THENX=24:DATA191,197,85,175,5,85,47,13,85,12,29,85,21,81,84,21,81,84
  13. 27 IFX>255THENX=255:DATA21,64,.,21,64,.,21,64,.,42,128,.,21,64,.,21,64,.,21,64
  14. 28 IFY=206ANDX>W-12ANDX<W+2THENPOKEV+21,1:S=S+1:POKE211,33:POKE214,13:SYS58640:PRINT"[146]"S:GOTO23
  15. 98 POKEV,X:NEXTY:W$=RIGHT$(W$,LEN(W$)-4):POKE211,.:POKE214,23:SYS58640
  16. 99 FORT=.TO31:PRINT""LEFT$(W$,4);:NEXT:IFW$=""GOTO500:DATA.,80,80,.,80,80,.,168
  17. 100 GOTO23:DATA168,.
  18. 500 POKE211,.:POKE214,23:SYS58640:FORT=.TO31:PRINT"[145] ";:NEXT:POKE211,(X-24)/8
  19. 501 POKE214,18:SYS58640:PRINT"[146][213][192][192][192][192][192][192][201][157][157][157][157][157][157][157][157][194]GLUCKS[194][157][157][157][157][157][157][157][157][202][178][192][192][192][192][192][203]"
  20. 502 POKEV+21,.:WAIT56320,16,16:RUN
  21.