This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:LOGITrumps Atari 800
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2020 (NOMAM 2020)
-
Year:2020
Listing 1
10 DIM T$(100):T$="zx80 a500 c64 c16 a][ a400 cpc464c128 ":R=4:E=4:DIM A(10,3):DIM C(10):DIM P(10)
20 ? CHR$(125);"LogiTrumps":FOR I=1 TO 8:READ X,Y,Z:A(I,1)=X:A(I,2)=Y:A(I,3)=Z:P(I)=0:C(I)=0:NEXT I:I=0:U=1:K=1
30 P=INT(RND(1)*8)+1:X= NOT (C(P)+P(P)):P(P*X)=(K)*(K<5):C(P*X)=(K-4)*(K>4):K=K+X:IF K<9 THEN GOTO 30
40 N=N+1:PP=0:CC=0:FOR I=1 TO 8:CC=CC+(C(I)=N)*I:PP=PP+(P(I)=N)*I:NEXT I:B=1+(A(CC,2)>16)*2:? R;":";E:Z=PP:GOSUB 100
50 IF U THEN ? "1-3:";:INPUT B
60 Z=CC:GOSUB 100:? B:P(PP)=N+R:C(CC)=N+E:IF A(PP,B)>A(CC,B) THEN ? ":-)":P(CC)=N+R+1:C(CC)=0:R=R+1:E=E-1:U=1
70 IF A(PP,B)<A(CC,B) THEN ? ":-(":C(PP)=N+E+1:P(PP)=0:R=R-1:E=E+1:U=0
80 IF E<>0 AND R<>0 THEN GOTO 40
90 ? "*** GAME OVER ***":END:DATA 10,1,2, 3,512,4096, 8,64,16, 6,16,121, 13,4,15, 11,8,128, 6,64,27, 5,128,16
100 PRINT ">";T$(Z*6-5,Z*6):PRINT 1990-A(Z,1):PRINT A(Z,2);" kb ":PRINT A(Z,3);" cols":RETURN
References
Listing downloads
Copyright holder