home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8908.d64 / apfel.hires (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 100 DATA169,32,133,252,169,,133,251,162,32,160,,145,251,200,208,251,230,252,202
  2. 110 DATA208,244,169,,133,251,169,4,133,252,169,11,162,4,160,0,145,251,200,208
  3. 120 DATA251,230,252,202,208,244,173,24,208,9,8,141,24,208,173,17,208,9,32,141
  4. 130 FORT=0TO61:READN:POKE49152+T,N:NEXT:DIMO(320),R(320),M(320):POKE49214,96
  5. 140 POKE44,8:PRINT"[147][193]PFELMAENNCHEN":POKE53281,0:INPUT"[200]OEHENLINIEN";H$
  6. 150 FOR T=0 TO 320:R(T)=8192+T+312*INT(T/8):IF H$="J" THEN O(T)=T/2<>INT(T/2)
  7. 160 M(T)=T*8:NEXT T:FORT=0TO7:B(T)=2^(7-T):NEXTT:INPUT"[204]INKER [210]AND";A
  8. 170 INPUT"[210]ECHTER [210]AND";E:INPUT"[213]NTERER [210]AND";U:INPUT"[207]BERER [210]AND";O
  9. 180 INPUT"[212]IEFE";F:IF F<5 OR F>254THENPRINT"[145][145]";:GOTO180
  10. 190 X=(E-A)/320:Y=(O-U)/199:P=A:Q=O:SYS49152:O(F)=-1:DATA17,208,165,198,240
  11. 200 FORZ=0TO199:FORS=0TO39:B=0:FORL=0TO7:T=0:H=0:I=0:J=0:K=0
  12. 210 IFT=F ORJ+K>=8GOTO230
  13. 220 I=I*H:I=I+I-Q:H=J-K-P:J=H*H:K=I*I:T=T+1:GOTO210
  14. 230 IFO(T)THENB=BORB(L)
  15. 240 P=P+X:NEXTL:POKER(Z)+M(S),B:NEXTS:P=A:Q=Q-Y:NEXTZ:DATA252,169,23,141,24,208
  16. 250 RESTORE:FORT=0TO80:READN:IFT>21THENPOKE16178+T,N
  17. 260 NEXTT:SYS16200:INPUT"[158][147][198]ARBKOMBINATION";F:POKE16209,F:SYS16200
  18. 270 INPUT"[147][206]AME ([210][197][212]=EXIT)";NA$:IFNA$=""THENEND
  19. 280 OPEN1,8,2,"@:"+NA$+",P,W":DATA169,27,141,17,208,169,,133,198,96
  20. 290 PRINT#1,CHR$(0)" ";:FORT=8192TO16260:PRINT#1,CHR$(PEEK(T));:NEXTT:CLOSE1
  21.