home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9203a.d64 / thinky (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 0 POKE648,192:A$=CHR$(34)+CHR$(34)+"[157]":PRINT"[201][146]LP[146]?[169][146]LE[187][146][202][202]X[165][187]*)[146][205]E[187])[217]E";
  2. 1 PRINT"[188][202][146]0E [161][192][208][184] [146]@1[187][146][200][200]1[187]HQ[187][200][192][146]N[208][181]H[146][168]Q[187] [146]D1[187]HQ[187] [146]I1[187]HQ[187][146][204]I[192]E[187][146][202][202]X[169][205]";
  3. 2 PRINT"[165][187]E[187])[217]E[188] [146]@1[187][146][200]"A$"[146]M [146](1[187] [146]@Q[187][146] [161][192][202][146]P[178]%[187][146]8[169][146](E[187][146][168]Q[187]"A$"[146]B";
  4. 3 PRINT"%[187][146]8[169][200]E[187]0[146]B[198][188] [146](1[187] [146]@Q[187][202][146]P[170])[146]@E[146]B)[146]BE[189])[146]BE[190]&[190])[146][205][202][146]0EX[169]E[208][184]E[187]";
  5. 4 PRINT")[217]E[188]&[189][202][146]0M%[187][146]X[169][200]E[187]P[180][166][188][208][176] [146]@1[187][146])OE[185]"A$"[146]C [146]C1[187][146])O[197][185][208][146]SH[146]P[181][146] [161]";
  6. 5 PRINT"[192][202][146]P[173][198][190][146]P;[198][189][146]P3[166][146]B[160]%[187][146]X[169](E[187]P[146]B[166][188][146][160]":O=10:POKE648,4:P$="R":GOSUB19
  7. 6 P=53265:FORB=1TOO:INPUT#1,A$(B),A(B):ON-(A(B)>0)GOTO7:A$(B)="TGS":A(B)=B*1E3
  8. 7 NEXT:CLOSE1:T=56320:POKE53281,B:POKE53280,B:PRINT"[147][144]"SPC(14)"TOP TEN"
  9. 8 N=16:L=49152:FORH=1TOO:PRINTSPC(10)LEFT$(A$(H),8)LEFT$(V$,12-LEN(A$(H)));
  10. 9 PRINTMID$(STR$(A(H)),2):NEXT:WAITT,N,N:POKEP,.:PRINT"[151][147][144]"SPC(14)"'THINKY!!!'"
  11. 10 PRINTSPC(48)"WRITTEN BY SVEN BASTROP":C=780:FORH=.TOB:FORG=.TOB:Q=INT(H/4)
  12. 11 K=(H+Q)*40:S=K+G+G/4:POKE1357+S,208:POKE55629+S,G/4+Q*3:NEXT:POKE1957+H+Q,30
  13. 12 POKE1372+K,31:NEXT:FORH=.TO99:POKEC,RND(1)*24:SYSL:NEXT:POKEP,27:TI$="000000"
  14. 13 N=Z-12:W=-(Z<12)*(INT(Z/4)+Z+56229)-(Z>11)*((INT(N/4)+N)*40+55644):POKEW,.
  15. 14 M=PEEK(T):ON-(M=127)GOTO14:IF(MAND16)=.THENPOKEC,Z:SYSL:X=1:ONPEEK(2)GOTO16
  16. 15 Z=Z+(M=123)-(M=119)-((Z=.ANDM=123)-(Z=23ANDM=119))*24:POKEW,B:P$="W":GOTO13
  17. 16 Y=VAL(TI$):PRINT"[147] TOLL!!!"CHR$(13)"  IHRE PUNKTE: "Y:IFY>=A(O)THENRUN
  18. 17 D=D+1:ON-(Y>A(D))GOTO17:FORH=OTODSTEP-1:A$(H)=A$(H-1):A(H)=A(H-1):NEXT:A(D)=Y
  19. 18 INPUT"[144]NAME";A$(D):GOSUB19:FORH=1TOO:PRINT#1,A$(H)","A(H)",":NEXT:CLOSE1:RUN
  20. 19 OPEN1,8,X,"@:SCORES/TGS,P,"+P$:V$="............":RETURN:REM  SVEN 04423/6962
  21.