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
|
|
Listing 1
1 POKE 559,%0:EXEC INIT:GO# TIT 2 EXEC GR:EXEC SF:EXEC AN 3 DO:IF PEEK(53279)=%3 THEN GO# TIT 4 S=STICK(%0):IF NOT STRIG(%0) 5 HI=-15:ENDIF:EXEC BW:LOOP 6 PROC RE 7 FOR Z=%1 TO 16:A2=A2+%1:BW=BW+0.625 8 POKE 53248,A2:MOVE BS,ZS+B2+BW,13 9 NEXT Z:ENDPROC 10 PROC LI:FOR Z=%1 TO 16 11 A2=A2-%1:BW=BW+0.625:POKE 53248,A2 12 MOVE BS,ZS+B2+BW,13:NEXT Z:ENDPROC 13 PROC RU:FOR Z=%1 TO 12 14 A2=A2-%1:B2=B2+QW:BW=BW+0.8300000000000001 15 POKE 53248,A2:MOVE BS,ZS+B2+BW,13 16 NEXT Z:ENDPROC 17 PROC RA:FOR Z=%1 TO 12 18 A2=A2+%1:B2=B2-QW:BW=BW+0.8300000000000001 19 POKE 53248,A2:MOVE BS,ZS+B2+BW,13 20 NEXT Z:ENDPROC 21 PROC TOT:BAL=BAL-%1:POSITION 25,22 22 ? #6;"0";BAL:POKE 623,4:SOUND 23 WHILE B2<178:B2=B2+%1 24 MOVE BS,ZS+B2+BW,13 25 SOUND %1,RAND(50),10,4 26 SOUND %2,RAND(50),10,4:WEND 27 POKE 20,%0:REPEAT 28 IF A2>5 AND A2<251:B2=B2-%1 29 IF A2<128 THEN A2=A2-%1 30 IF A2>=128 THEN A2=A2+%1 31 POKE 53248,A2:MOVE BS,ZS+B2+BW,13 32 ENDIF:SOUND %1,250-PEEK(20),10,4 33 SOUND %2,250-PEEK(20)+10,10,4 34 UNTIL PEEK(20)>130 35 IF NOT BAL THEN GO# SCH 36 SOUND:EXEC AN:ENDPROC 37 PROC AN 38 A2=XPO:B2=YPO:PLAT=PLA:POKE 623,%1 39 BW=5:V2=%1:POKE 704,14:POKE 559,62 40 V2=%1:MOVE 1536,ZS,256:HI=%0 41 MOVE ADR(BI$),DPEEK(88),800 42 FOR Z=%0 TO B2+4 43 SOUND %1,Z,10,6:POKE 53248,A2 44 NEXT Z:SOUND:POKE 77,%0:ENDPROC 45 MOVE BS,ZS+Z,13 46 NEXT Z:SOUND:POKE 77,%0:ENDPROC 47 PROC BW:BW=BW+V2 48 IF BW>10:V2=-%1 49 POKE 53248,A2:MOVE BS,ZS+B2+BW,13 50 X=INT((A2-46)/4) 51 Y=INT((B2-26)/8)+%2 52 IF X<%0 OR X>39 THEN Z=%1:GOTO 54 53 LOCATE X,Y,Z 54 IF Z<>%2 THEN EXEC TOT 55 ENDIF:IF BW<HI:V2=%1:HI=%0 56 IF S<15:LOCATE X,Y,Z 57 IF Z=%2:Q=RAND(4):IF Q=%0 58 POSITION (X-%1),Y:? #6;" " 59 ELSE:POSITION (X-%1),Y:? #6;" " 60 ENDIF:PLAT=PLAT-%1 61 SOUND %0,220,10,6:SOUND %3,221,10,6 62 POKE 53768,%1:PAUSE %3:SOUND 63 IF NOT PLAT THEN GO# WEI 64 ENDIF:ENDIF 65 IF S=13 THEN EXEC RU 66 IF S=14 THEN EXEC RA 67 IF S=7 THEN EXEC RE 68 IF S=11 THEN EXEC LI 69 ENDIF:POKE 53248,A2 70 MOVE BS,ZS+B2+BW,13:ENDPROC 71 PROC SF 72 TRAP #SCH:RESTORE 186+LEV:PLA=%0 73 BI$(%1)="":BI$(800)="" 74 BI$(%2)=BI$:READ E$,XPO,YPO 75 FOR B=%0 TO 8 76 A=DEC(E$(B*%2+%1,B*%2+%2)) 77 T$(%1)="":T$(36)="":T$(%2)=T$ 78 FOR E=%1 TO 8 79 IF A&%2^(E-%1):PLA=PLA+%1 80 T$(33-E*4,36-E*4)="ABCD":ENDIF 81 NEXT E 82 BI$((B+9)*40-39+B,(B+9)*40)=T$ 83 NEXT B:POSITION %3,22:LE=LEV+%1 84 ? #6;"PUNKTE ";PU$:POSITION 29,22 85 ? #6;"EBENE ";:IF LEV<9:? #6;"0"; 86 ? #6;LE:ELSE:? #6;LE:ENDIF 87 FOR Z=%1 TO 40:Y=RAND(19)+%1 88 X=Y*40+Z:IF BI$(X,X)="" 89 BI$(X,X)="F":ENDIF:NEXT Z:ENDPROC 90 PROC GR:MOVE 35000,DPEEK(88),800 91 POKE 53248,%0:ENDPROC 92 # WEI 93 LEV=LEV+%1:FOR Z=9 TO %0 STEP -%1 94 PUN=PUN+10*LEV 95 PU$(7-LEN(STR$(PUN)))=STR$(PUN) 96 POSITION 10,22:? #6;PU$ 97 FOR Q=150 TO 50 STEP -1.4000000000000001 98 SOUND %1,Q,10,Z:NEXT Q:NEXT Z 99 GOTO 2 100 # TIT:GRAPHICS %0:POKE 752,%1:? 101 POKE 53248,%0:SOUND:POKE 53774,64 102 POKE 756,112:POKE 709,%0:POKE 711,0 103 DP=DPEEK(560):POKE 709,%0:LEV=%0 104 POKE 710,%0:POKE DP+7,6:POKE 16,64 105 POKE DP+9,7:POSITION 27,%3 106 ? #6;"":POSITION 7,8 107 ? #6;"Q 1988 BEI TH. NIEDERBUEHL" 108 POSITION 13,14:? "STARTEBENE 01" 109 POSITION 13,16:? "START DRUECKEN" 110 POKE 709,14:DO:POKE 711,PEEK(20) 111 P=PEEK(53279):IF P=6 THEN 118 112 IF P=5:FOR Z=%1 TO 100 113 POKE 711,PEEK(20):NEXT Z 114 LEV=LEV+%1:ENDIF 115 IF LEV=16 THEN LEV=%0 116 POSITION 25,14:IF LEV<9 THEN ? "0"; 117 ? LEV+%1:LOOP 118 GRAPHICS 28:POKE 559,%0:POKE 16,64 119 POKE 708,148:POKE 709,154 120 POKE 710,%0:POKE 711,150:COLOR 133 121 POKE 756,112:POKE 53774,64 122 COLOR 133:PLOT %0,21:DRAWTO 39,21 123 PLOT %0,23:DRAWTO 39,23 124 POKE DPEEK(560)+27,%2 125 POSITION 18,22:? #6;"BAELLE 09" 126 PU$="000000":BAL=9:GOTO 2 127 # SCH:MOVE 35000,DPEEK(88)+22*40,40 128 POSITION 10,22:SOUND:IF NOT BAL 129 ? #6;"DEIN SPIEL IST AUS J":ELSE 130 ? #6;" ALLE EBENEN KLAR J":ENDIF 131 SOUND %1,250,10,4:SOUND %2,251,10,4 132 POKE 53768,%1:WHILE STRIG(%0):WEND 133 GO# TIT 134 PROC INIT 135 COM B$(13),T$(36),BI$(800),E$(18) 136 COM PU$(6):B$="6o_" 137 RESTORE 155:QW=%1-4/12 138 MOVE 256*224,256*112,1024 139 FOR C=%1 TO 6:FOR B=%0 TO 7 140 READ A:POKE 112*256+64*8+B+C*8,A 141 NEXT B:NEXT C 142 FOR Z=16 TO 25:FOR X=%0 TO 7 143 READ A:POKE 28672+Z*8+X,A 144 NEXT X:NEXT Z 145 FOR Z=33 TO 53:FOR X=%0 TO 7 146 READ A:POKE 28672+Z*B+X,A 147 NEXT X:NEXT Z 148 BS=ADR(B$):POKE 704,%0 149 Z=PEEK(106)-40:POKE 54279,Z 150 ZS=Z*256+1024:POKE 623,%1 151 POKE 53277,%3:POKE 53256,%0 152 POKE 53248,%0:MOVE 1536,ZS,256 153 POKE 53278,255:ENDPROC 154 ------------------------------ 155 DATA 0,0,0,0,0,1,5,42,0,1,5,21,85 156 DATA 85,85,170,0,85,85,85,86,88,96 157 DATA 128,0,88,96,128,0,0,0,0,0,85 158 DATA 255,170,170,255,85,0,0,0,0,8 159 DATA 0,0,0,0,28,54,99,99,99,99,54 160 DATA 28,12,28,60,108,12,12,12,12,62 161 DATA 99,3,6,12,24,48,63,127,3,6,12 162 DATA 6,3,3,126,6,12,24,48,102,127,6 163 DATA 6,127,96,96,62,3,3,6,124,30,48 164 DATA 96,110,99,99,54,28,127,3,6,12 165 DATA 24,24,24,24,62,99,99,62,99,99 166 DATA 99,62,28,54,99,99,59,3,6,60,28 167 DATA 54,99,99,127,99,99,99,126,99 168 DATA 99,99,110,99,99,126,30,51,96 169 DATA 96,96,96,51,30,124,102,99,99 170 DATA 99,99,102,124,127,96,96,120,96 171 DATA 96,96,127,127,96,96,120,96,96 172 DATA 96,96,30,51,96,103,99,99,51,30 173 DATA 99,99,99,127,99,99,99,99,60,24 174 DATA 24,24,24,24,24,60,24,24,24,24 175 DATA 24,24,0,24,99,102,108,120,120 176 DATA 108,102,99,96,96,96,96,96,96 177 DATA 96,127,99,119,127,107,99,99,99 178 DATA 99,99,99,115,123,127,111,103 179 DATA 99,28,54,99,99,99,99,54,28,124 180 DATA 102,99,99,102,124,96,96,60,66 181 DATA 153,161,161,153,66,60,124,102 182 DATA 99,99,102,124,102,99,63,96,96 183 DATA 62,3,3,3,126,126,24,24,24,24 184 DATA 24,24,24,99,99,99 185 DATA 99,99,99,54,28 186 DATA F810207E040813267C,100,81 187 DATA E74AF40972E44FFA1C,164,113 188 DATA F8077A0438607F006E,98,145 189 DATA FF02040F023C2060C0,84,81 190 DATA 05384AF43B16EC70F7,196,145 191 DATA 1F2E40FF96204EDCE0,84,145 192 DATA 73F4B3267C0373F22C,164,81 193 DATA 3605F6E0F708DBC2AC,180,113 194 DATA 3600EE50086B200C80,84,145 195 DATA 3640AB00DB120048D0,172,97 196 DATA 2C0FD2370AF03B43D8,72,121 197 DATA ED002D02ED0A343BF6,68,81 198 DATA 381BA648BB42DF70DF,148,145 199 DATA 37DAC02E44B8257AF0,56,89 200 DATA 58DBC0ACFB067C79DA,84,113 201 DATA 3640DE140DFE006E00,160,137 202 DATA 6CBF10047F10075AB6,84,145 203 DATA 0F022008FB027F03F0,100,145 204 DATA E76A77F6C3DF1661F6,68,81 205 DATA 70F7F62847E254A810,144,137 206 DATA 040E0C3D5EEC7F3834,132,81 207 DATA 2C6A2C05C3D3A20008,146,145 208 DATA 2E00DBE303D02C00E0,100,145 209 DATA 7FFE035EE83B14ECD0,68,81 210 DATA 0103040B1676B465AA,168,89 211 DATA 102043AC0550F4A06D,88,89 212 DATA 6CBD3A745BDF2E48D0,116,113 213 DATA 78DB2044BF002558EC,180,113 214 DATA 2B0BD0045BD42C0DD2,180,145 215 DATA 0B10044D0B362BFCFC,80,105 216 DATA 7DF264EE146FFEFDBE,164,145 217 DATA 7FDEFFCEFF7BFF5BFE,100,113
References
Listing downloads
Copyright holder