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 REM 2 REM 3 REM 4 REM 5 PMAX=51:REM ANZAHL BAUTEILE 10 DIM NAAM$(17),TOCY$(480),U$(40),NF$(14),F$(15),PPS$(4) 20 GRAPHICS 24 30 POKE 710,200:POKE 709,0:POKE 712,114:POKE 731,1 50 GOSUB 1000 55 TEXT 55,158,"" 70 X=10:Y=10:C=0:POKE 732,255 100 POKE 77,0 120 IF STICK(0)=7 AND X<313 THEN X=X+1 130 IF STICK(0)=11 AND X>5 THEN X=X-1 140 IF STICK(0)=14 AND Y>5 THEN Y=Y-1 150 IF STICK(0)=13 AND Y<153 THEN Y=Y+1 160 LOCATE X,Y,Z1:IF STRIG(0)=0 AND Z1=0 THEN COLOR 1:PLOT X,Y:PAUSE 2:GOTO 100 165 LOCATE X,Y,Z2:IF STRIG(0)=0 AND Z2=1 THEN COLOR 0:PLOT X,Y:PAUSE 2:GOTO 100 169 TRAP 6500 170 LOCATE X,Y,Z:COLOR 1:PLOT X,Y:PAUSE 1:COLOR Z:PLOT X,Y 180 IF PEEK(732)=17 THEN GOSUB 10000:POKE 732,255 190 IF PEEK(53279)=3 THEN CL=0:PS=-1:GOTO 4900 200 IF PEEK(53279)=6 THEN CL=0:PS=1:GOTO 4900 210 IF PEEK(53279)=5 AND CL=0 THEN TRAP 100:COLOR 1:GOSUB 5000+C*10:TRAP 40000 215 IF PEEK(53279)=5 AND CL=1 THEN GOSUB 3000 220 IF PEEK(53279)=5 AND CL=2 THEN GOSUB 6100 230 IF PEEK(53279)=5 AND CL=5 THEN GOSUB 7000 260 IF INKEY$="" THEN GOSUB 6000 290 GOTO 100 350 RETURN 1000 POKE 559,0 1020 COLOR 1 1030 PLOT 1,1:DRAWTO 318,1:DRAWTO 318,152:DRAWTO 1,152:DRAWTO 1,1 1040 PLOT 1,156:DRAWTO 40,156:DRAWTO 40,190:DRAWTO 1,190:DRAWTO 1,156 1045 PLOT 2,157:DRAWTO 39,157:DRAWTO 39,189:DRAWTO 2,189:DRAWTO 2,157 1050 PLOT 52,156:DRAWTO 176,156:DRAWTO 176,177:DRAWTO 52,177:DRAWTO 52,156 1055 PLOT 52,179:DRAWTO 176,179:DRAWTO 176,190:DRAWTO 52,190:DRAWTO 52,179 1060 PLOT 193,156:DRAWTO 318,156:DRAWTO 318,190:DRAWTO 193,190:DRAWTO 193,156 1070 FOR P=156 TO 190 STEP 2:PLOT 178,P:DRAWTO 190,P:PLOT 42,P:DRAWTO 50,P:NEXT P 1080 POKE 559,34 1100 TEXT 54,158,"" 1110 FOR P=158 TO 188 STEP 2:FOR Q=196 TO 316 STEP 3:PLOT Q,P:NEXT Q:NEXT P 1120 TEXT 220,164,"SCHEMA":TEXT 252,175,"DESING" 1180 POKE 559,34 1190 RETURN 3000 REM TEXT 3010 OPEN #1,4,0,"K:":COLOR 1:TEXT 55,181,"> TEXTMODUS <" 3020 GET #1,K:IF K=155 THEN CLOSE #1:TEXT 55,181," ":RETURN 3030 IF K<32 OR K>90 THEN 3020 3045 FOR P=15 TO 0 STEP -1:SOUND 0,20,2,P:NEXT P 3050 RESTORE 3500+K 3090 FOR P=Y TO Y+4:READ A 3100 IF A=15 THEN PLOT X,P:PLOT X+1,P:PLOT X+2,P:PLOT X+3,P 3110 IF A=14 THEN PLOT X,P:PLOT X+1,P:PLOT X+2,P 3120 IF A=13 THEN PLOT X,P:PLOT X+1,P:PLOT X+3,P 3130 IF A=12 THEN PLOT X,P:PLOT X+1,P 3140 IF A=11 THEN PLOT X,P:PLOT X+2,P:PLOT X+3,P 3150 IF A=10 THEN PLOT X,P:PLOT X+2,P 3160 IF A=9 THEN PLOT X,P:PLOT X+3,P 3170 IF A=8 THEN PLOT X,P 3180 IF A=7 THEN PLOT X+1,P:PLOT X+2,P:PLOT X+3,P 3190 IF A=6 THEN PLOT X+1,P:PLOT X+2,P 3200 IF A=5 THEN PLOT X+1,P:PLOT X+3,P 3210 IF A=4 THEN PLOT X+1,P 3220 IF A=3 THEN PLOT X+2,P:PLOT X+3,P 3230 IF A=2 THEN PLOT X+2,P 3240 IF A=1 THEN PLOT X+3,P 3260 NEXT P:X=X+5:IF X>310 THEN X=X-5 3270 GOTO 3020 3532 DATA 0,0,0,0,0 3533 DATA 2,2,2,0,2 3534 DATA 5,10,0,0,0 3535 DATA 5,15,5,15,5 3536 DATA 5,5,5,5,5 3537 DATA 0,9,2,4,9 3538 DATA 5,0,5,0,5 3539 DATA 2,4,0,0,0 3540 DATA 4,8,8,8,4 3541 DATA 2,1,1,1,2 3542 DATA 9,6,15,6,9 3543 DATA 0,2,7,2,0 3544 DATA 0,0,0,2,4 3545 DATA 0,0,7,0,0 3546 DATA 0,0,0,0,2 3547 DATA 0,1,2,4,8 3548 DATA 15,9,9,9,15 3549 DATA 2,6,2,2,7 3550 DATA 15,1,15,8,15 3551 DATA 15,1,7,1,15 3552 DATA 9,9,15,1,1 3553 DATA 15,8,15,1,15 3554 DATA 15,8,15,9,15 3555 DATA 15,1,2,4,8 3556 DATA 15,9,15,9,15 3557 DATA 15,9,15,1,15 3558 DATA 0,2,0,2,0 3559 DATA 0,2,0,2,4 3560 DATA 1,2,4,2,1 3561 DATA 0,15,0,15,0 3562 DATA 8,4,2,4,8 3563 DATA 15,15,15,15,15 3564 DATA 15,0,15,0,15 3565 DATA 15,9,15,9,9 3566 DATA 14,9,14,9,14 3567 DATA 15,9,8,9,15 3568 DATA 14,9,9,9,14 3569 DATA 15,8,14,8,15 3570 DATA 15,8,14,8,8 3571 DATA 15,8,11,9,15 3572 DATA 9,9,15,9,9 3573 DATA 7,2,2,2,7 3574 DATA 15,1,1,9,6 3575 DATA 9,10,12,10,9 3576 DATA 8,8,8,8,15 3577 DATA 9,15,9,9,9 3578 DATA 9,13,11,9,9 3579 DATA 15,9,9,9,15 3580 DATA 15,9,15,8,8 3581 DATA 15,9,15,1,1 3582 DATA 15,9,15,10,9 3583 DATA 15,8,15,1,15 3584 DATA 7,2,2,2,2 3585 DATA 9,9,9,9,15 3586 DATA 9,9,9,6,6 3587 DATA 9,9,9,15,9 3588 DATA 9,9,6,9,9 3589 DATA 9,9,15,1,15 3590 DATA 15,1,2,4,15 4900 REM 4910 C=C+PS:IF C<=0 THEN C=PMAX 4920 FOR P=15 TO 0 STEP -1:SOUND 0,60,10,P:NEXT P 4930 PPS$=STR$(C):PPS$(LEN(PPS$)+1)=" ":COLOR 1:TEXT 54,158,"":TEXT 55,168,PPS$ 4940 RESTORE 5000+C*10:READ NAAM$,X1,Y1:IF NAAM$="" THEN C=1:GOTO 4930 4945 TEXT 62,158,NAAM$ 4950 X2=X:Y2=Y:X=X1:Y=Y1:GOSUB 4995:GOSUB 5000+C*10 4960 X=X2:Y=Y2 4990 GOTO 100 4995 TEXT 4,158," ":TEXT 4,166," ":TEXT 4,174," ":TEXT 4,181," ":RETURN 5000 REM 5010 DATA ,8,172 5011 PLOT X,Y:DRAWTO X+6,Y:DRAWTO X+6,Y-2:DRAWTO X+16,Y-2:DRAWTO X+16,Y:DRAWTO X+23,Y 5012 PLOT X+6,Y:DRAWTO X+6,Y+2:DRAWTO X+16,Y+2:DRAWTO X+16,Y 5019 RETURN 5020 DATA ,20,161 5021 PLOT X,Y:DRAWTO X,Y+6:DRAWTO X-2,Y+6:DRAWTO X-2,Y+16:DRAWTO X,Y+16:DRAWTO X,Y+23 5022 PLOT X,Y+6:DRAWTO X+2,Y+6:DRAWTO X+2,Y+16:DRAWTO X,Y+16 5029 RETURN 5030 DATA ,20,161 5031 PLOT X,Y:DRAWTO X,Y+23:PLOT X-2,Y+6:DRAWTO X+2,Y+6:DRAWTO X+2,Y+16:DRAWTO X-2,Y+16:DRAWTO X-2,Y+6 5039 RETURN 5040 DATA ,8,172 5041 PLOT X,Y:DRAWTO X+23,Y:PLOT X+6,Y-2:DRAWTO X+16,Y-2:DRAWTO X+16,Y+2:DRAWTO X+6,Y+2:DRAWTO X+6,Y-2 5042 DRAWTO X+6,Y-2 5049 RETURN 5050 DATA ,8,172 5051 PLOT X,Y:DRAWTO X+8,Y:PLOT X+8,Y-4:DRAWTO X+8,Y+4:PLOT X+9,Y-4:DRAWTO X+9,Y+4 5052 PLOT X+14,Y-4:DRAWTO X+14,Y+4:PLOT X+15,Y-4:DRAWTO X+15,Y+4:PLOT X+16,Y:DRAWTO X+23,Y 5059 RETURN 5060 DATA ,20,161 5061 PLOT X,Y:DRAWTO X,Y+8:PLOT X-4,Y+9:DRAWTO X+4,Y+9:PLOT X-4,Y+10:DRAWTO X+4,Y+10 5062 PLOT X-4,Y+15:DRAWTO X+4,Y+15:PLOT X-4,Y+16:DRAWTO X+4,Y+16:PLOT X,Y+17:DRAWTO X,Y+23 5069 RETURN 5070 DATA ,8,172 5071 PLOT X,Y:DRAWTO X+8,Y:PLOT X+8,Y-4:DRAWTO X+8,Y+4:PLOT X+9,Y-4:DRAWTO X+9,Y+4 5072 PLOT X+16,Y:DRAWTO X+16,Y-4:DRAWTO X+13,Y-4:DRAWTO X+13,Y+4:DRAWTO X+16,Y+4:DRAWTO X+16,Y:DRAWTO X+23,Y 5079 RETURN 5080 DATA ,8,172 5081 PLOT X,Y:DRAWTO X+8,Y:DRAWTO X+8,Y-4:DRAWTO X+11,Y-4:DRAWTO X+11,Y+4:DRAWTO X+8,Y+4:DRAWTO X+8,Y 5082 PLOT X+15,Y-4:DRAWTO X+15,Y+4:PLOT X+16,Y-4:DRAWTO X+16,Y+4:PLOT X+17,Y:DRAWTO X+23,Y 5089 RETURN 5090 DATA ,20,161 5091 PLOT X,Y:DRAWTO X,Y+7:PLOT X-4,Y+8:DRAWTO X+4,Y+8:PLOT X-4,Y+9:DRAWTO X+4,Y+9 5092 PLOT X,Y+23:DRAWTO X,Y+16:DRAWTO X+4,Y+16:DRAWTO X+4,Y+13:DRAWTO X-4,Y+13:DRAWTO X-4,Y+16:DRAWTO X,Y+16 5099 RETURN 5100 DATA ,20,161 5101 PLOT X-4,Y+15:DRAWTO X+4,Y+15:PLOT X-4,Y+16:DRAWTO X+4,Y+16:PLOT X,Y+17:DRAWTO X,Y+23 5102 PLOT X,Y:DRAWTO X,Y+8:DRAWTO X+4,Y+8:DRAWTO X+4,Y+11:DRAWTO X-4,Y+11:DRAWTO X-4,Y+8:DRAWTO X,Y+8 5109 RETURN 5110 DATA ,8,172 5111 PLOT X,Y:DRAWTO X+23,Y:PLOT X+9,Y-4:DRAWTO X+9,Y+4:PLOT X+10,Y-4:DRAWTO X+10,Y+4:PLOT X+12,Y-1 5112 DRAWTO X+12,Y+1:PLOT X+13,Y-2:DRAWTO X+13,Y+2:PLOT X+14,Y-3:DRAWTO X+14,Y+3:PLOT X+15,Y-4:DRAWTO X+15,Y+4 5119 RETURN 5120 DATA ,8,172 5121 PLOT X,Y:DRAWTO X+23,Y:PLOT X+9,Y-4:DRAWTO X+9,Y+4:PLOT X+10,Y-3:DRAWTO X+10,Y+3:PLOT X+11,Y-2 5122 DRAWTO X+11,Y+2:PLOT X+12,Y-1:DRAWTO X+12,Y+1:PLOT X+14,Y-4:DRAWTO X+14,Y+4:PLOT X+15,Y-4:DRAWTO X+15,Y+4 5129 RETURN 5130 DATA ,20,161 5131 PLOT X,Y:DRAWTO X,Y+23:PLOT X-4,Y+9:DRAWTO X+4,Y+9:PLOT X-4,Y+10:DRAWTO X+4,Y+10:PLOT X-1,Y+12 5132 DRAWTO X+1,Y+12:PLOT X-2,Y+13:DRAWTO X+2,Y+13:PLOT X-3,Y+14:DRAWTO X+3,Y+14:PLOT X-4,Y+15:DRAWTO X+4,Y+15 5139 RETURN 5140 DATA ,20,161 5141 PLOT X,Y:DRAWTO X,Y+23:PLOT X-4,Y+9:DRAWTO X+4,Y+9:PLOT X-3,Y+10:DRAWTO X+3,Y+10:PLOT X-2,Y+11 5142 DRAWTO X+2,Y+11:PLOT X-1,Y+12:DRAWTO X+1,Y+12:PLOT X-4,Y+14:DRAWTO X+4,Y+14:PLOT X-4,Y+15:DRAWTO X+4,Y+15 5149 RETURN 5150 DATA ,15,160 5151 PLOT X,Y:DRAWTO X+10,Y:DRAWTO X+10,Y+25:DRAWTO X,Y+25:DRAWTO X,Y 5152 FOR P=Y+2 TO Y+23 STEP 3:PLOT X-1,P:PLOT X+11,P:NEXT P 5159 RETURN 5160 DATA ,8,168 5161 PLOT X,Y:DRAWTO X+25,Y:DRAWTO X+25,Y+10:DRAWTO X,Y+10:DRAWTO X,Y 5162 FOR P=X+2 TO X+23 STEP 3:PLOT P,Y-1:PLOT P,Y+11:NEXT P 5169 RETURN 5170 DATA ,14,168 5171 PLOT X,Y:DRAWTO X+13,Y:DRAWTO X+13,Y+10:DRAWTO X,Y+10:DRAWTO X,Y 5172 FOR P=X+2 TO X+11 STEP 3:PLOT P,Y-1:PLOT P,Y+11:NEXT P 5179 RETURN 5180 DATA ,15,166 5181 PLOT X,Y:DRAWTO X+10,Y:DRAWTO X+10,Y+13:DRAWTO X,Y+13:DRAWTO X,Y 5182 FOR P=Y+2 TO Y+11 STEP 3:PLOT X-1,P:PLOT X+11,P:NEXT P 5189 RETURN 5190 DATA ,6,173 5191 PLOT X,Y:DRAWTO X+12,Y:DRAWTO X+19,Y-7:DRAWTO X+19,Y-13:PLOT X+12,Y:DRAWTO X+19,Y+7:DRAWTO X+19,Y+13 5192 PLOT X+12,Y-4:DRAWTO X+12,Y+4:CIRCLE X+14,Y,8 5193 PLOT X+16,Y+5:PLOT X+15,Y+5:PLOT X+17,Y+3:PLOT X+17,Y+4 5199 RETURN 5200 DATA ,6,173 5201 PLOT X,Y:DRAWTO X+12,Y:DRAWTO X+19,Y-7:DRAWTO X+19,Y-13:PLOT X+12,Y:DRAWTO X+19,Y+7:DRAWTO X+19,Y+13 5202 PLOT X+12,Y-4:DRAWTO X+12,Y+4:CIRCLE X+14,Y,8 5203 PLOT X+15,Y+5:PLOT X+15,Y+4:PLOT X+16,Y+3:PLOT X+17,Y+3 5209 RETURN 5210 DATA ,8,172 5211 PLOT X,Y:DRAWTO X+6,Y:DRAWTO X+16,Y-5:PLOT X+17,Y:DRAWTO X+23,Y:CIRCLE X+6,Y,1:CIRCLE X+17,Y,1 5219 RETURN 5220 DATA ,20,161 5221 PLOT X,Y:DRAWTO X,Y+6:DRAWTO X-5,Y+16:PLOT X,Y+17:DRAWTO X,Y+23:CIRCLE X,Y+6,1:CIRCLE X,Y+17,1 5229 RETURN 5230 DATA ,8,177 5231 PLOT X,Y:DRAWTO X+6,Y:PLOT X+17,Y:DRAWTO X+23,Y:CIRCLE X+6,Y,1:CIRCLE X+17,Y,1:PLOT X+6,Y-6:DRAWTO X+17,Y-6 5232 PLOT X+6,Y-7:DRAWTO X+17,Y-7:PLOT X+12,Y-15:DRAWTO X+12,Y-7 5233 PLOT X+11,Y-9:DRAWTO X+13,Y-9:PLOT X+10,Y-10:DRAWTO X+14,Y-10 5239 RETURN 5240 DATA ,25,161 5241 PLOT X,Y:DRAWTO X,Y+6:PLOT X,Y+17:DRAWTO X,Y+23:CIRCLE X,Y+6,1:CIRCLE X,Y+17,1:PLOT X-6,Y+6:DRAWTO X-6,Y+17 5242 PLOT X-7,Y+6:DRAWTO X-7,Y+17:PLOT X-14,Y+12:DRAWTO X-8,Y+12 5243 PLOT X-10,Y+11:DRAWTO X-10,Y+13:PLOT X-11,Y+10:DRAWTO X-11,Y+14 5249 RETURN 5250 DATA ,8,165 5251 PLOT X,Y:DRAWTO X+5,Y:PLOT X,Y+14:DRAWTO X+5,Y+14:PLOT X+6,Y-5:DRAWTO X+6,Y+19:DRAWTO X+18,Y+7 5252 DRAWTO X+6,Y-5:PLOT X+18,Y+7:DRAWTO X+23,Y+7 5259 RETURN 5260 DATA ,8,172 5261 PLOT X,Y:DRAWTO X+6,Y:DRAWTO X+18,Y-12:DRAWTO X+18,Y+12:DRAWTO X+6,Y:PLOT X+18,Y-7:DRAWTO X+23,Y-7 5262 PLOT X+18,Y+7:DRAWTO X+23,Y+7 5269 RETURN 5270 DATA ,8,172 5271 PLOT X,Y:DRAWTO X+8,Y:PLOT X+8,Y-4:DRAWTO X+8,Y+4:PLOT X+9,Y-4:DRAWTO X+9,Y+4 5272 PLOT X+14,Y-4:DRAWTO X+14,Y+4:PLOT X+15,Y-4:DRAWTO X+15,Y+4:PLOT X+16,Y:DRAWTO X+23,Y 5273 PLOT X+1,Y+5:DRAWTO X+22,Y-6:PLOT X+22,Y-4:PLOT X+22,Y-5:PLOT X+21,Y-6:PLOT X+20,Y-6:PLOT X+19,Y-6 5279 RETURN 5280 DATA ,20,161 5281 PLOT X,Y:DRAWTO X,Y+8:PLOT X-4,Y+9:DRAWTO X+4,Y+9:PLOT X-4,Y+10:DRAWTO X+4,Y+10 5282 PLOT X-4,Y+15:DRAWTO X+4,Y+15:PLOT X-4,Y+16:DRAWTO X+4,Y+16:PLOT X,Y+17:DRAWTO X,Y+23 5283 PLOT X-5,Y+22:DRAWTO X+6,Y+1:PLOT X+4,Y+1:PLOT X+5,Y+1:PLOT X+6,Y+2:PLOT X+6,Y+3:PLOT X+6,Y+4 5289 RETURN 5290 DATA ,8,172 5291 PLOT X,Y:DRAWTO X+6,Y:DRAWTO X+6,Y-2:DRAWTO X+16,Y-2:DRAWTO X+16,Y:DRAWTO X+23,Y 5293 PLOT X+6,Y:DRAWTO X+6,Y+2:DRAWTO X+16,Y+2:DRAWTO X+16,Y 5295 PLOT X,Y-6:DRAWTO X+6,Y-6:DRAWTO X+18,Y+6:PLOT X+17,Y+6:PLOT X+16,Y+6:PLOT X+18,Y+5:PLOT X+18,Y+4 5299 RETURN 5300 DATA ,20,161 5301 PLOT X,Y:DRAWTO X,Y+6:DRAWTO X-2,Y+6:DRAWTO X-2,Y+16:DRAWTO X,Y+16:DRAWTO X,Y+23 5302 PLOT X,Y+6:DRAWTO X+2,Y+6:DRAWTO X+2,Y+16:DRAWTO X,Y+16 5305 PLOT X-6,Y:DRAWTO X-6,Y+6:DRAWTO X+6,Y+18:PLOT X+6,Y+17:PLOT X+6,Y+16:PLOT X+5,Y+18:PLOT X+4,Y+18 5309 RETURN 5310 DATA ,19,169 5311 PLOT X,Y:DRAWTO X-5,Y+5:PLOT X+7,Y:DRAWTO X+2,Y+5 5312 PLOT X-5,Y+4:PLOT X-5,Y+3:PLOT X-4,Y+5:PLOT X-3,Y+5:PLOT X+3,Y+5:PLOT X+4,Y+5:PLOT X+2,Y+4:PLOT X+2,Y+3 5319 RETURN 5320 DATA ,22,165 5321 PLOT X,Y:DRAWTO X-5,Y+5:PLOT X,Y+7:DRAWTO X-5,Y+12 5322 PLOT X-5,Y+4:PLOT X-5,Y+3:PLOT X-4,Y+5:PLOT X-3,Y+5:PLOT X-5,Y+11:PLOT X-5,Y+10:PLOT X-4,Y+12:PLOT X-3,Y+12 5329 RETURN 5330 DATA ,9,173 5331 FOR P=X+2 TO X+20 STEP 2:PLOT P,Y-1:PLOT P,Y-2:NEXT P:FOR P=X+3 TO X+19 STEP 4:PLOT P,Y-3:PLOT P-2,Y:NEXT P 5332 PLOT X,Y:PLOT X+21,Y:PLOT X+22,Y 5339 RETURN 5340 DATA ,20,162 5341 FOR P=Y+2 TO Y+20 STEP 2:PLOT X+1,P:PLOT X+2,P:NEXT P:FOR P=Y+3 TO Y+19 STEP 4:PLOT X+3,P:PLOT X,P-2:NEXT P 5342 PLOT X,Y:PLOT X,Y+21:PLOT X,Y+22 5349 RETURN 5350 DATA ,20,162 5351 FOR P=Y+2 TO Y+20 STEP 2:PLOT X-1,P:PLOT X-2,P:NEXT P:FOR P=Y+3 TO Y+19 STEP 4:PLOT X-3,P:PLOT X,P-2:NEXT P 5352 PLOT X,Y:PLOT X,Y+21:PLOT X,Y+22 5359 RETURN 5360 DATA ,9,173 5361 FOR P=X+2 TO X+20 STEP 2:PLOT P,Y+1:PLOT P,Y+2:NEXT P:FOR P=X+3 TO X+19 STEP 4:PLOT P,Y+3:PLOT P-2,Y:NEXT P 5362 PLOT X,Y:PLOT X+21,Y:PLOT X+22,Y 5369 RETURN 5370 DATA ,20,161 5371 PLOT X,Y:DRAWTO X,Y+8:PLOT X-3,Y+9:DRAWTO X+3,Y+9:PLOT X-5,Y+11:DRAWTO X+5,Y+11:DRAWTO X+5,Y+13 5372 DRAWTO X-5,Y+13:DRAWTO X-5,Y+11:PLOT X-3,Y+15:DRAWTO X+3,Y+15:PLOT X,Y+16:DRAWTO X,Y+23 5379 RETURN 5380 DATA ,8,172 5381 PLOT X,Y:DRAWTO X+8,Y:PLOT X+9,Y-3:DRAWTO X+9,Y+3:PLOT X+11,Y-5:DRAWTO X+13,Y-5:DRAWTO X+13,Y+5 5382 DRAWTO X+11,Y+5:DRAWTO X+11,Y-5:PLOT X+15,Y-3:DRAWTO X+15,Y+3:PLOT X+16,Y:DRAWTO X+23,Y 5389 RETURN 5390 DATA ,20,172 5391 FOR P=X-1 TO X+1:PLOT P,Y-1:PLOT P,Y:PLOT P,Y+1:NEXT P 5399 RETURN 5400 DATA ,20,161 5401 PLOT X,Y:DRAWTO X,Y+8:DRAWTO X+7,Y+8:DRAWTO X+7,Y+15:DRAWTO X-7,Y+15:DRAWTO X-7,Y+8:DRAWTO X,Y+8 5402 PLOT X,Y+16:DRAWTO X,Y+23:PLOT X+4,Y+8:DRAWTO X-4,Y+15 5409 RETURN 5410 DATA ,8,172 5411 PLOT X,Y:DRAWTO X+8,Y:DRAWTO X+8,Y-7:DRAWTO X+15,Y-7:DRAWTO X+15,Y+7:DRAWTO X+8,Y+7:DRAWTO X+8,Y 5412 PLOT X+16,Y:DRAWTO X+23,Y:PLOT X+8,Y-4:DRAWTO X+15,Y+4 5419 RETURN 5420 DATA ,17,168 5421 PLOT X,Y:DRAWTO X-4,Y:DRAWTO X-4,Y+8:DRAWTO X,Y+8:DRAWTO X,Y:DRAWTO X+8,Y-8:DRAWTO X+8,Y+16:DRAWTO X,Y+8 5422 PLOT X+1,Y-1:DRAWTO X+1,Y+9 5429 RETURN 5430 DATA ,20,172 5431 CIRCLE X,Y,5:PLOT X-4,Y+4:DRAWTO X+4,Y-4:PLOT X-4,Y-4:DRAWTO X+4,Y+4 5439 RETURN 5440 DATA ,20,172 5441 CIRCLE X,Y,7:PLOT X-3,Y+3:DRAWTO X+3,Y-3:PLOT X+2,Y-3:PLOT X+1,Y-3:PLOT X+3,Y-2:PLOT X+3,Y-1 5449 RETURN 5450 DATA ,10,173 5451 PLOT X,Y:DRAWTO X+11,Y-11:DRAWTO X+22,Y:DRAWTO X+11,Y+11:DRAWTO X,Y 5452 PLOT X+5,Y-9:DRAWTO X+9,Y-5:PLOT X+5,Y+9:DRAWTO X+9,Y+5:PLOT X+16,Y-2:DRAWTO X+20,Y-6:PLOT X+16,Y+2 5453 DRAWTO X+20,Y+6:PLOT X+2,Y-6 5454 DRAWTO X+6,Y-2:PLOT X+3,Y-6:DRAWTO X+6,Y-3:PLOT X+4,Y-6:DRAWTO X+6,Y-4:PLOT X+5,Y-6:DRAWTO X+6,Y-5 5455 PLOT X+13,Y-5:DRAWTO X+17,Y-5:PLOT X+14,Y-6:DRAWTO X+17,Y-6:PLOT X+15,Y-7:DRAWTO X+17,Y-7:PLOT X+16,Y-8 5456 DRAWTO X+17,Y-8:PLOT X+13,Y+5:DRAWTO X+17,Y+5:PLOT X+14,Y+6:DRAWTO X+17,Y+6:PLOT X+15,Y+7:DRAWTO X+17,Y+7 5457 PLOT X+16,Y+8:DRAWTO X+17,Y+8:PLOT X+17,Y-9:PLOT X+17,Y+9:PLOT X+6,Y+2:PLOT X+5,Y+3:DRAWTO X+6,Y+3 5458 PLOT X+4,Y+4:DRAWTO X+6,Y+4:PLOT X+3,Y+5:DRAWTO X+6,Y+5:PLOT X+2,Y+6:DRAWTO X+6,Y+6 5459 PLOT X-3,Y-3:DRAWTO X-1,Y-3:PLOT X+23,Y-3:DRAWTO X+25,Y-3:PLOT X+24,Y-4:DRAWTO X+24,Y-2:RETURN 5460 DATA ,13,165 5461 PLOT X,Y:DRAWTO X+15,Y:DRAWTO X+15,Y+15:DRAWTO X,Y+15:DRAWTO X,Y 5462 PLOT X-6,Y+7:DRAWTO X,Y+7:PLOT X-2,Y+6:PLOT X-2,Y+8:PLOT X-3,Y+5:DRAWTO X-3,Y+9 5463 PLOT X+16,Y+7:DRAWTO X+22,Y+7:PLOT X+20,Y+5:DRAWTO X+20,Y+9:PLOT X+21,Y+6:PLOT X+21,Y+8 5469 RETURN 5470 DATA ,12,162 5471 PLOT X,Y:DRAWTO X+15,Y:DRAWTO X+15,Y+20:DRAWTO X,Y+20:DRAWTO X,Y 5472 PLOT X+4,Y+4:DRAWTO X+10,Y+4:PLOT X+4,Y+10:DRAWTO X+10,Y+10:PLOT X+4,Y+16:DRAWTO X+10,Y+16 5473 PLOT X+3,Y+5:DRAWTO X+3,Y+9:PLOT X+3,Y+11:DRAWTO X+3,Y+15:PLOT X+11,Y+5:DRAWTO X+11,Y+9:PLOT X+11,Y+11 5474 DRAWTO X+11,Y+15:PLOT X+12,Y+17 5479 RETURN 5480 DATA ,10,164 5481 PLOT X,Y:DRAWTO X+20,Y:DRAWTO X+20,Y+20:DRAWTO X,Y+20:DRAWTO X,Y:CIRCLE X+10,Y+10,7:PAINT X+10,Y+10 5489 CL=2:RETURN 5490 DATA ,10,174 5491 PLOT X,Y:DRAWTO X+11,Y-5:DRAWTO X+5,Y+2:DRAWTO X+20,Y-5 5492 PLOT X+20,Y-5:DRAWTO X+20,Y-2:PLOT X+19,Y-5:DRAWTO X+19,Y-3:PLOT X+18,Y-5:DRAWTO X+18,Y-4:PLOT X+16,Y-5 5493 PLOT X+15,Y-5:PLOT X+17,Y-5 5499 RETURN 5500 DATA ,8,162 5501 TEXT X,Y,"":TEXT X,Y+8,"":TEXT X,Y+16,"" 5502 CL=1 5509 RETURN 5510 DATA ,8,162 5512 PLOT X,Y:DRAWTO X+22,Y+22 5515 CL=5 5519 RETURN 5590 DATA ,0,0 6000 POKE DPEEK(88),0:MOVE DPEEK(88),DPEEK(88)+1,6200 6030 COLOR 1:PLOT 1,1:DRAWTO 318,1:DRAWTO 318,152:DRAWTO 1,152:DRAWTO 1,1 6090 RETURN 6100 OPEN #1,4,0,"K:":COLOR 1 6120 TEXT 55,181,"RUH TV. YB. ":GET #1,K:IF K=155 THEN 6600 6130 IF K=75 THEN 6200 6140 IF K=67 THEN 6300 6150 IF K=86 THEN 6400 6160 GOTO 6120 6200 TEXT 55,181," KRUHY ":X3=1 6210 IF STICK(0)=7 THEN X3=X3+1 6220 IF STICK(0)=11 AND X3>0 THEN X3=X3-1 6230 IF STRIG(0)=0 THEN COLOR 1:CIRCLE X,Y,X3:TRAP 40000:GOTO 6600 6240 COLOR 1:CIRCLE X,Y,X3:COLOR 0:CIRCLE X,Y,X3:GOTO 6210 6300 TEXT 55,181," CTVERCE ":X3=X:Y3=Y:TRAP 6500 6310 IF STICK(0)=7 THEN X3=X3+1 6320 IF STICK(0)=11 THEN X3=X3-1 6330 IF STICK(0)=14 THEN Y3=Y3-1 6340 IF STICK(0)=13 THEN Y3=Y3+1 6350 IF STRIG(0)=0 THEN COLOR 1:PLOT X,Y:DRAWTO X3,Y:DRAWTO X3,Y3:DRAWTO X,Y3:DRAWTO X,Y:TRAP 40000:GOTO 6600 6360 COLOR 1:PLOT X,Y:DRAWTO X3,Y:DRAWTO X3,Y3:DRAWTO X,Y3:DRAWTO X,Y 6370 COLOR 0:PLOT X,Y:DRAWTO X3,Y:DRAWTO X3,Y3:DRAWTO X,Y3:DRAWTO X,Y 6390 GOTO 6310 6400 TEXT 55,181," VYBARVUJI ":PAINT X,Y:GOTO 6600 6500 COLOR 1:TEXT 55,181,"MIMO OKRAJ!":SOUND 0,20,2,6:PAUSE 50:SOUND 0,0,0,0:TEXT 55,181," " 6600 TEXT 55,181," ":CLOSE #1:GOTO 100 7000 X5=X:Y5=Y 7040 IF STICK(0)=7 THEN X5=X5+1 7050 IF STICK(0)=11 THEN X5=X5-1 7060 IF STICK(0)=14 THEN Y5=Y5-1 7070 IF STICK(0)=13 THEN Y5=Y5+1 7080 COLOR 1:PLOT X,Y:DRAWTO X5,Y5:COLOR 0:PLOT X,Y:DRAWTO X5,Y5 7085 IF PEEK(764)=28 THEN POKE 764,255:GOTO 100 7090 IF STRIG(0)=0 THEN COLOR 1:PLOT X,Y:DRAWTO X5,Y5:X=X5:Y=Y5:GOTO 100 7099 GOTO 7040 10000 REM 10002 OPEN #1,4,0,"K:":COLOR 1 10004 TEXT 55,181,"OAD AVE" 10005 GET #1,K:IF K=155 THEN TEXT 55,181," ":CLOSE #1:RETURN 10007 IF K=76 THEN 10020 10008 IF K=83 THEN CLOSE #1:GOTO 11000 10009 IF K=68 THEN CLOSE #1:GOTO 10015 10010 GOTO 10005 10015 GOSUB 6000:V=10:H=20:TRAP 10019:OPEN #1,6,0,"D:*.*" 10016 INPUT #1,NAAM$:TEXT V,H,NAAM$:H=H+10:IF H>130 THEN V=V+155:H=20 10017 GOTO 10016 10019 CLOSE #1:GOTO 10000 10020 TEXT 55,181,"":NF$="":H=78 10022 GET #1,K:IF K=155 THEN 10030 10024 TEXT H,181,CHR$(K+128):H=H+8 10026 NF$(LEN(NF$)+1)=CHR$(K) 10028 GOTO 10022 10030 CLOSE #1:TRAP 10100 10040 F$(1,3)="C :":F$(4)=NF$ 10060 OPEN #1,4,0,F$:BGET #1,DPEEK(88),6200:CLOSE #1 10080 TEXT 55,181," " 10090 TRAP 40000:RETURN 10100 TEXT 55,181," CHYBI DISKETA ":CLOSE #1:PAUSE 50:GOTO 10000 11000 REM 11010 OPEN #1,4,0,"K:":H=78 11020 COLOR 1:TEXT 55,181,"":NF$="" 11022 GET #1,K:IF K=155 THEN 11030 11024 TEXT H,181,CHR$(K+128):H=H+8 11026 NF$(LEN(NF$)+1)=CHR$(K) 11028 GOTO 11022 11030 CLOSE #1:TRAP 10100 11040 F$(1,3)="C :":F$(4)=NF$ 11060 OPEN #1,8,0,F$:BPUT #1,DPEEK(88),7680:CLOSE #1 11080 TEXT 55,181," " 11090 TRAP 40000:RETURN
References
Listing downloads
Copyright holder