home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9008a.d64 / zentrum (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 1 CP$="[144]         [146][157][157][157][157][157][157][157][157][157] [151]       [144] [157][157][157][157][157][157][157][157][157][144] [151] [152]     [151] [144] [157][157][157][157][157][157][157][157][157]"
  2. 2 CP$=CP$+" [151] [152] [155]   [152] [151] [144] [157][157][157][157][157][157][157][157][157][144] [151] [152] [155]  [155] [152] [151] [144] [157][157][157][157][157][157][157][157][157] [151] [152] [155]   [152] [151] "
  3. 3 CP$=CP$+"[144] [157][157][157][157][157][157][157][157][157] [151] [152]     [151] [144] [157][157][157][157][157][157][157][157][157] [151]       [144] [157][157][157][157][157][157][157][157][157][144]         [146]"
  4. 4 FORI=832TO896:POKEI,0:NEXTI:FORI=832TO853STEP3:DATA0,60,126,126,126,126,60,0
  5. 5 READA:POKEI,A:NEXTI:POKE53280,6:POKE53281,5:PRINT"[147]";TAB(15);CP$;""
  6. 6 PRINTTAB(10)CHR$(14)CHR$(8)"[218][197][206][212][210][213][205] -[202]ENS [203]UENZL":POKE198,0:WAIT198,1:GETA$
  7. 7 PRINT"[145]"TAB(10)"                    ":V=53248:POKEV+39,2:POKE2040,13:H=110
  8. 8 POKEV+21,1:X=180:Y=126:TI$="000000"
  9. 9 PRINT""TAB(16)RIGHT$(TI$,2)" [211]EKUNDEN ":POKEV,X:POKEV+1,Y:IFX>208THENX=208
  10. 10 C=INT(RND(0)*8):U1=176-X:U2=122-Y:E=SQR(U1*U1+U2*U2):SC=SC+20-E:IFY<HTHENY=H
  11. 11 IFPEEK(56320)=123THENX=X-15:IFX<154THENX=154
  12. 12 IFPEEK(56320)=126THENY=Y-15:IFY<90THENY=90
  13. 13 IFPEEK(56320)=119THENX=X+15:IFX>208THENX=208
  14. 14 IFPEEK(56320)=125THENY=Y+15:IFY>154THENY=154
  15. 15 IFY>140THENY=140
  16. 16 X=X-(U1/3):Y=Y-(U2/3):IFX<154THENX=154
  17. 17 PRINT"[211]CORE :";INT(SC);"[157]  [193]BWEICHUNG :";INT(E);"[157] [208]IXELS  "
  18. 18 IFTI$<="000030"THEN9
  19. 19 PRINT"[147][199]ESAMTPUNKTE NACH 30 [211]EKUNDEN : ";INT(SC)
  20. 20 PRINT"[206]OCH EINMAL [211]PIELEN (J/N) ?[146]":WAIT198,1:GETA$:IFA$="J"THENRUN
  21.