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:TENGAL.BAS
-
Category:Games
-
Publisher/Developer:BELLCOM - Public Domain Library, Macomb Intermediate School District
-
Year:1980
Listing 1
0 REM (C) 1980 M.I.S.D. Macomb Intermediate School District 1 REM Programmer: Steven Raines 2 PRINT "HOW MANY HATS WOULD YOU LIKE?" 3 PRINT "(3-10)";:INPUT STAH:IF STAH<3 OR STAH>10 THEN 2 5 GOSUB 2000:BSEC=SEC+10 9 GRAPHICS 7:GOSUB 10:GOSUB 11:GOTO 12 10 POKE 708,52:POKE 709,204:POKE 712,0:POKE 710,0:RETURN 11 I=PEEK(560)+PEEK(561)*256:I1=PEEK(I+4)+PEEK(I+5)*256:G=16+PEEK(741)+PEEK(742)*256:RETURN 12 FOR A=47 TO 69:POKE G+A,172:NEXT A:POKE I1-100,7:POKE I1-101,7:POKE I1-102,7 15 DIM C(10),M$(52),A(4),L(26),W$(20),G$(10),U(255),S$(5) 16 ND=0:TRAP 19:RESTORE 32000 17 READ W$:ND=ND+1:IF LEN(W$)>9 THEN 900 18 GOTO 17 19 FOR X=1 TO ND:U(X)=0:NEXT X 20 RESTORE:C=1:FOR X=1 TO 9:READ N:C(X)=N:NEXT X 30 POKE 752,1:WU=0:H=0:B=9:GOTO 200 99 DATA 1,2,1,2,2,1,1,2,2 100 M$="F<4<4;4958798:;:;9;1<1>3?2A0B1B:C:G:H;I<I=I>H>G=G<G;":RETURN 110 M$=":=:A;B<C=CACBBCAC@C=<>=>@>A><@=A>A?A@AA@":RETURN 120 M$="=D=E<E7E8F:H:I:R;RCRCQCHDGFEEE@E@D@D;OBO>N?N":RETURN 130 M$="7F3J3K3S4S6S6R6K7J9I":RETURN 135 M$="FFJJJKJSISGSGRGKFJDI":RETURN 140 M$=":S5X5Y5a6a:a:`:[;Z>W>V>S":RETURN 145 M$="CSHXHYHaGaCaC`C[BZ?W?V?S":RETURN 150 M$="9b9f8f7f6e5e4f1f1e1d2d3d4c5b:e;d<e;f":RETURN 155 M$="DbDfEfFfGeHeIfLfLeLdKdJdIcHbAeBfBdCe":RETURN 200 ? "";:FOR X=10-B TO 9:ON X GOSUB 100,110,120,130,135,140,145,150,155 205 AD=-47:COLOR C(X):GOSUB 210:NEXT X:GOTO 219 210 FOR D=1 TO LEN(M$) STEP 4:FOR Z=0 TO 3:A(Z+1)=ASC(M$(D+Z,D+Z))+AD:NEXT Z:PLOT A(1),A(2):DRAWTO A(3),A(4) 211 NEXT D:RETURN 219 FOR X=1 TO 26:L(X)=1:NEXT X 220 P=3899:FOR X=1 TO 13:POKE I1+X+P,(X+64)+32:NEXT X:P=3919:FOR X=1 TO 13:POKE I1+X+P,(X+13+64)+32:NEXT X:B=1 221 RESTORE 32000:WU=WU+1:IF WU>ND THEN 219 222 N=INT(ND*RND(0))+1:IF U(N) THEN 222 223 U(N)=1:FOR X=1 TO N:READ W$:NEXT X:WL=LEN(W$):G$=W$:FOR X=1 TO WL:G$(X,X)=" ":NEXT X 225 OS=2560:FOR A=2 TO 18 STEP 2 226 IF A>WL*2 THEN K=32:GOTO 228 227 K=95 228 GOSUB 1000:NEXT A 230 LP=1:P=3899 235 POKE I1+P+LP,(LP+64)-32 243 IF NOT STRIG(0) THEN 360 244 GOSUB 2000:GOSUB 3000:S=STICK(0):IF S=15 THEN 243 245 SOUND 0,50,10,10:FOR L=1 TO 3:NEXT L:SOUND 0,0,0,0:IF S=5 OR S=6 OR S=7 THEN 300 246 IF S=9 OR S=10 OR S=11 THEN 350 248 GOTO 243 300 POKE I1+P+LP,(LP+64)+32 301 LP=LP+1:IF LP>26 THEN LP=1 302 IF NOT L(LP) THEN 301 303 IF LP>13 THEN P=3906:GOTO 305 304 P=3899 305 POKE I1+P+LP,(LP+64)-32:FOR Z=1 TO 15:NEXT Z:GOTO 243 350 POKE I1+P+LP,(LP+64)+32 351 LP=LP-1:IF LP<1 THEN LP=26:GOTO 352 352 IF NOT L(LP) THEN 351 353 IF LP<14 THEN P=3899:GOTO 305 354 P=3906:GOTO 305 360 SOUND 0,20,10,10:FOR L=1 TO 9:NEXT L:SOUND 0,0,0,0:L(LP)=0:POKE LP+P+I1,0 361 Q=1:FOR X=1 TO LEN(W$):IF CHR$(LP+64)=W$(X,X) THEN 370 362 NEXT X:IF Q THEN 400 363 GOTO 301 370 G$(X,X)=CHR$(LP+64):OS=2560:A=X*2:K=LP+64:GOSUB 1000:Q=0 371 IF G$=W$ THEN 600 372 GOTO 362 400 B=B+1:POKE 710,12:ON B-1 GOSUB 155,150,145,140,135,130,120,110,100 401 AD=-47:COLOR 3:GOSUB 210 402 FOR X=1 TO 10:POKE 710,0:SOUND 0,0,4,14:FOR Z=1 TO 10:NEXT Z:POKE 710,12:SOUND 0,0,0,0:FOR Z=1 TO 10:NEXT Z:NEXT X 403 POKE 710,0:COLOR 0:GOSUB 210 404 IF B=10 THEN 450 410 GOTO 301 450 ? "wrong: the correct" 451 POSITION 0,0:? "word is";W$; 455 BOO=1:FOR Z=1 TO 1000:NEXT Z:? "":COLOR 0:GOSUB 700:H=H-1 456 IF H<0 THEN H=0 457 GOTO 200 500 GOTO 500 600 BOO=0:COLOR 2:H=H+1:? "";H;" gallon hat" 605 IF H=STAH THEN 800 610 GOSUB 700 699 FOR Z=1 TO 500:NEXT Z:GOTO 200 700 GOSUB 100 702 IF H<4 THEN P2=0:Z=H:GOTO 705 703 IF H<7 THEN P2=20:Z=H-3:GOTO 705 704 P2=40:Z=H-6 705 ON Z+1 GOTO 750,706,707,708 706 P1=50:GOTO 710 707 P1=80:GOTO 710 708 P1=110 710 IF BOO THEN 760 720 FOR D=1 TO LEN(M$) STEP 4:FOR Z=0 TO 3:A(Z+1)=ASC(M$(D+Z,D+Z))+AD:SOUND 0,A(Z+1),10,10:FOR S=1 TO 5:NEXT S 721 SOUND 0,0,0,0:NEXT Z:PLOT A(1)+P1,A(2)+P2:DRAWTO A(3)+P1,A(4)+P2:NEXT D 750 RETURN 760 FOR D=1 TO LEN(M$) STEP 4:FOR Z=0 TO 3:A(Z+1)=ASC(M$(D+Z,D+Z))+AD:SOUND 0,A(Z+1)+150,10,10:FOR S=1 TO 5:NEXT S 770 SOUND 0,0,0,0:NEXT Z:PLOT A(1)+P1,A(2)+P2:DRAWTO A(3)+P1,A(4)+P2:NEXT D 780 RETURN 800 GRAPHICS 5:GOSUB 10:GOSUB 11:GOSUB 100:AD=-47:COLOR 1:POKE I1-4,23:POKE I1-5,23:POKE I1-6,23:POKE I,60:POKE 709,14 801 POKE I1-17,171:POKE I1-16,171:POKE I1-15,171:POKE I1-18,171:POKE I1-13,171:POKE I1-14,171:POKE 708,0 802 OS=644:FOR A=1 TO 5:K=ASC(S$(A,A)):GOSUB 1000:NEXT A 805 FOR D=1 TO LEN(M$) STEP 4:FOR Z=0 TO 3:A(Z+1)=(ASC(M$(D+Z,D+Z))+AD)*2:NEXT Z:PLOT A(1),A(2):DRAWTO A(3),A(4) 806 NEXT D 807 PLOT 10,25:PLOT 11,19:PLOT 17,21:PLOT 24,21:PLOT 25,4:PLOT 31,7:PLOT 37,3:PLOT 39,22:PLOT 49,23:PLOT 52,27:PLOT 51,30:PLOT 48,27 808 POKE 82,0:PRINT " very good you win the ";STAH;" GALLON HAT!"; 809 FOR X=1 TO 20:SETCOLOR 0,INT(14*RND(0))+1,8:FOR Z=1 TO 10:NEXT Z 810 FOR Q=20 TO 44:SOUND 0,Q,10,10:NEXT Q:SOUND 0,0,0,0 811 FOR Z=1 TO 25:NEXT Z:NEXT X 820 GOTO 820 900 GRAPHICS 0:? " - WORD LENGTH ERROR -":?:?:? "** ";W$;" ** CAN ONLY BE":? "9 CHARACTERS LONG. PLEASE CORRECT." 901 ?:PRINT "YOUR DATA IS LISTED BELOW AND CAN BE CORRECTED USING THE SCREEN EDITOR." 902 ? "______________________________________":LIST 32000,32767:END 1000 I3=(I1-1*40+A)+OS:I2=57088+K*8:FOR Z=0 TO 7:POKE I3+Z*20,PEEK(I2+Z):NEXT Z:RETURN 2000 SEC=INT((PEEK(18)*65536+PEEK(19)*256+PEEK(20))/60):RETURN 3000 S$=" 0:00":TIME=SEC-BSEC 3010 L=INT(TIME/60):IF L>9 THEN S$(1,2)=STR$(L):GOTO 3020 3015 S$(2)=STR$(L) 3020 T=TIME-(L*60) 3030 IF T>9 THEN S$(4,5)=STR$(T):GOTO 3050 3040 S$(5,5)=STR$(T) 3050 FOR X=1 TO 5:POKE I1+3934+X,ASC(S$(X,X))-32:NEXT X:RETURN 32000 DATA ARTOO,THREEPIO,LUKE,LEIA 32010 DATA SKYWALKER,PRINCESS,CHEWBACCA,CHEWIE,WOOKIEE 32020 DATA VADER,DENGAR,LOBOT,UGNAUGHT,BOSSK,BOBA,GREEDO 32030 DATA HAN,YODA,LANDO,JAWA,BEN 32040 DATA TATOOINE,ALDERAAN,HOTH,DAGOBAH 32050 DATA STARWARS,EMPIRE,GALAXY,ALLIANCE,REBEL,IMPERIAL,SOLDIER 32060 DATA TAUNTAUN,WAMPA,WALKERS,LASER 32070 DATA FALCON,FORCE,JEDI,XWING,DROID,COMMANDER
References
Listing downloads
Downloads
Copyright holder