Atari 8-bit Source code

15 REM 
16 RESTORE 17:​READ U0,​U1,​U2,​U3,​U4,​U5,​U6,​U7,​U8,​U9,​UA,​UB,​UC,​UJ,​UK,​UM,​UN,​UO,​US,​UT,​UX,​UY
17 DATA 0,​1,​2,​3,​4,​5,​6,​11,​8,​9,​10,​256,​12,​53248,​764,​30,​31,​360,​22,​20,​756,​136
20 GRAPHICS U2:​SETCOLOR U2,​U0,​U0
25 SOUND U0,​235,​UC,​U8
26 REM 
27 POKE 559,​0
28 GOSUB 27000
29 POKE 559,​34
30 POKE 752,​U1
35 FOR I=235 TO U2 STEP -U1
40 SOUND U0,​I,​U8,​U8
45 NEXT I
50 SOUND U0,​U0,​U0,​U0
55 SRF=PEEK(88)+PEEK(89)*UB+U3
60 RESTORE 110
65 FOR K=SRF TO SRF+U7
70 READ A:​LICZ=U0
75 FOR L=U0 TO 180 STEP UT
80 POKE K+L,​A:​SOUND U0,​L,​UA,​U6
85 FOR Z=U0 TO U5:​NEXT Z
90 IF LICZ=U0 THEN LICZ=U1:​NEXT L
95 POKE K+L-UT,​U0
100 NEXT L
105 NEXT K
110 DATA 36,​37,​44,​43,​33,​0,​58,​41,​54,​47,​52,​33
115 SOUND U0,​U0,​U0,​U0:​POKE 82,​U1:​?
120 ? " upravil S.HAVELEK ":​? "BILOVEC ";:​POKE 82,​U2
125 G=U6:​FOR I=U0 TO 119
130 FOR Z=U0 TO U7:​NEXT Z
135 A=RND(U0)*UB:​SOUND U0,​A,​UA,​G
140 G=G-0.05:​NEXT I
145 SOUND U0,​U0,​U0,​U0
199 DIM A$(59),​B$(76),​C$(37),​V$(78),​V1$(55)
200 GRAPHICS 0:​SETCOLOR 2,​8,​2:​SETCOLOR 1,​0,​12:​POKE 756,​STYPE:​POKE 752,​1
205 REM 
210 POKE 82,​0:​A$=" Tento program byl vytvoen na zklad vdeckho vzkumu."
215 B$=" Je-li v vk v rozmez 20-65 let,​ pak vm pota ATARI podle odpovd na "
216 C$=" zadan otzky pedpov dlku ivota."
220 POSITION 0,​10:​FOR I=1 TO 59:​? A$(I,​I);:​SOUND 0,​20,​10,​8:​FOR Z=1 TO 10:​NEXT Z:​SOUND 0,​0,​0,​0:​NEXT I
221 FOR Z=1 TO 100:​NEXT Z
225 POSITION 0,​13:​FOR I=1 TO 76:​? B$(I,​I);:​SOUND 0,​50,​10,​8:​FOR Z=1 TO 10:​NEXT Z:​SOUND 0,​0,​0,​0:​NEXT I
230 FOR I=1 TO 10:​NEXT I:​POSITION 0,​15:​FOR I=1 TO 37:​? C$(I,​I);:​SOUND 0,​50,​10,​8:​FOR Z=1 TO 10:​NEXT Z:​SOUND 0,​0,​0,​0:​NEXT I
235 FOR Z=1 TO 500:​NEXT Z
240 ?:​?:​?:​? " Mte zjem o test? (ANO/NE)":​? ""
245 OPEN #1,​4,​0,​"K:​":​GET #1,​X:​IF X=65 THEN 255
250 GRAPHICS 0:​NEW:​END
255 A=72:​X=0:​? "":​POSITION 0,​10:​? " Jste mu?  - ANO  - NE"
260 GET #1,​X:​IF X=49 THEN A=A-3:​GOTO 270
265 A=A+4
270 ? "":​POSITION 0,​10:​? " ijete v mst s potem obyvatel vtmne jeden milion?  - ANO "
271 ? "  - NE"
275 GET #1,​X:​IF X=49 THEN A=A-2:​GOTO 290
280 ? "":​POSITION 0,​10:​? " ijete v mst,​ kter m mn ne desettisc obyvatel?  - ANO"
281 ? "  - NE"
285 GET #1,​X:​IF X=49 THEN A=A+2
290 ? "":​POSITION 0,​10:​? " Jestlie pracujete v kanceli,​ stisk- nte "
295 ?:​? " jestlie vae prce vyaduje velk fy- zick vypt,​ stisknte "
300 ?:​? " pokud dn z tchto extrm nen v pklad,​ pak stisknte "
305 GET #1,​X:​IF X=49 THEN A=A-3:​GOTO 315
310 IF X=50 THEN A=A+3
315 ? "":​POSITION 0,​10:​? " Cvite intenzvn vce ne ptkrt tdn po dobu alespo pl hodiny?"
320 ? " Pokud ano,​ stisknte "
325 ?:​? " jestlie cvite dva a tikrt tdn,​ stisknte "
330 ?:​? " pokud vak cvite mn asto,​ nebo dokonce necvite vbec,​ stisknte "
335 GET #1,​X:​IF X=49 THEN A=A+4:​GOTO 345
340 IF X=50 THEN A=A+2
345 ? "":​POSITION 0,​10:​? " Jste enat(vdan)?  - ANO  - NE"
350 GET #1,​X:​IF X=49 THEN A=A+5:​GOTO 365
355 ? "":​POSITION 0,​10:​? " Kolik desetilet ijete sm(sama)? Berte v vahu a dobu po dovren 25 let"
360 GET #1,​X:​X=X-48:​A=A-X
365 ? "":​POSITION 0,​10:​? " Spte dle ne 10 hodin denn?  - ANO  - NE"
370 GET #1,​X:​IF X=49 THEN A=A-4
375 ? "":​POSITION 0,​10:​? " Jestlie mte agresivn povahu,​ ijete intenzvn,​ stisknte "
380 ?:​? " mte-li povahu mrnou,​ vyrovnanou,​ pak stisknte "
385 GET #1,​X:​IF X=49 THEN A=A-3:​GOTO 395
390 IF X=50 THEN A=A+3
395 ? "":​POSITION 0,​10:​? " Jestli se ctte astn(astn),​ stisknte ,​ v opanm ppad "
400 GET #1,​X:​IF X=49 THEN A=A+1:​GOTO 410
405 A=A-2
410 ? "":​POSITION 0,​10:​? " Dostal(a) jste v minulm roce pokutu za pekroen rychlosti jzdy?  - ANO"
415 ? "  - NE"
420 GET #1,​X:​IF X=49 THEN A=A-1
425 ? "":​POSITION 0,​10:​? " Je v ron pjem vy ne 50 000 korun?  - ANO"
430 ? "  - NE"
435 GET #1,​X:​IF X=49 THEN A=A-2
440 ? "":​POSITION 0,​10:​? " Pokud jste absolvoval(a) stedn kolu,​stisknte "
445 ?:​? " pokud mte vysokokolsk vzdln,​ stisknte "
450 ?:​? " v ppad zkladnho vzdln stiskntetlatko "
455 GET #1,​X:​IF X=49 THEN A=A+1:​GOTO 465
460 IF X=50 THEN A=A+2
465 ? "":​POSITION 0,​10:​? " il nkter z vaich prarodi 85 let?  - ANO"
470 ? "  - NE"
475 GET #1,​X:​IF X=1 THEN A=A+2
480 ? "":​POSITION 0,​10:​? " Doili se vichni vai prarodie 80 let?  - ANO"
485 ? "  - NE"
490 GET #1,​X:​IF X=49 THEN A=A+6
495 ? "":​POSITION 0,​10:​? " Zemel nkter z vaich rodi na moz- kovou mrtvici nebo srden infarkt ped"
500 ? "dosaenm 50 let?  - ANO  - NE"
505 GET #1,​X:​IF X=49 THEN A=A-4
510 ? "":​POSITION 0,​10:​? " Ml nkdo z vaich rodi nebo pbuz- nch nemocn srdce,​ rakovinu nebo cuk-"
515 ? "rovku ped dosaenm 50 let?  - ANO  - NE"
520 GET #1,​X:​IF X=49 THEN A=A-3
525 ? "":​POSITION 0,​10:​? " Jestlie koute:​ -vce ne 2 balky za den-stisknte "
530 ? " -1 a 2 balky za den-stisknte  -pl a 1 balek denn-stisknte "
535 ? " -mn ne pl balku denn nebo nekoute-stisknte "
540 GET #1,​X:​IF X=49 THEN A=A-8:​GOTO 555
545 IF X=50 THEN A=A-6:​GOTO 555
550 IF X=51 THEN A=A-3
555 ? "":​POSITION 0,​10:​? " Pijete denn vce ne 100 gram alkoho-lu?  - ANO"
560 ? "  - NE"
565 GET #1,​X:​IF X=49 THEN A=A-1
570 ? "":​POSITION 0,​10:​? " Jestlie mte nadvhu:​ -vce ne 25 kg,​ stisknte "
575 ? " -15 a 25 kg,​ stisknte  -5 a 15 kg,​ stisknte "
580 ? " -mn ne 5 kg,​ stisknte "
585 GET #1,​X:​IF X=49 THEN A=A-8:​GOTO 600
590 IF X=50 THEN A=A-4:​GOTO 600
595 IF X=51 THEN A=A-2
600 ? "":​POSITION 0,​10:​? " Podrobujete se jednou ron celkov lkask prohldce?  - ANO"
605 ? "  - NE"
610 GET #1,​X:​IF X=49 THEN A=A+2
615 ? "":​POSITION 0,​10:​? " Jestlie mte:​ 25-29 let,​ stisknte  30-39 let,​ stisknte "
620 ? " 40-49 let,​ stisknte  50-59 let,​ stisknte "
625 ? " 60 a vce,​ stisknte "
630 GET #1,​X:​X=X-49:​A=A+X+1
634 ZZ=0
635 ? "":​POSITION 11,​6:​? "VSLEDEK TESTU":​SOUND 0,​10,​2,​8:​FOR Z=1 TO 20:​NEXT Z:​SOUND 0,​0,​0,​0:​FOR Z=1 TO 14:​NEXT Z
640 POSITION 11,​6:​? "":​SOUND 0,​0,​4,​8:​FOR Z=1 TO 20:​NEXT Z:​SOUND 0,​0,​0,​0:​FOR Z=1 TO 20:​NEXT Z
645 ZZ=ZZ+1
650 IF ZZ<4 THEN 635
655 FOR Z=1 TO 20:​NEXT Z
660 V$=" Jestlie si zachovte svj ivotn styl a nepotk vs njak nepedvdateln"
665 V1$="nehoda,​ je dlka vaeho ivota odhadnuta na "
670 POSITION 0,​10:​FOR I=1 TO 78:​? V$(I,​I);:​SOUND 0,​20,​10,​8:​FOR Z=1 TO 5:​NEXT Z:​SOUND 0,​0,​0,​0:​NEXT I
675 POSITION 0,​12:​FOR I=1 TO 55:​? V1$(I,​I);:​SOUND 0,​20,​10,​8:​FOR Z=1 TO 5:​NEXT Z:​SOUND 0,​0,​0,​0:​NEXT I
680 POSITION 16,​13:​? "";A;" let."
685 SOUND 0,​30,​6,​8:​FOR Z=1 TO 100:​NEXT Z:​SOUND 0,​0,​0,​0
699 R=0
700 SOUND 0,​158,​10,​8:​SOUND 1,​156,​10,​8:​FOR I=1 TO 22:​NEXT I:​SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0
705 R=R+1:​IF R<3 THEN 700
710 FOR I=1 TO 7:​NEXT I:​SOUND 0,​202,​10,​8:​SOUND 1,​200,​10,​6:​FOR I=1 TO 60:​NEXT I:​SOUND 0,​202,​10,​6:​SOUND 1,​200,​10,​4
715 FOR I=1 TO 88:​NEXT I:​SOUND 0,​202,​10,​4:​SOUND 1,​200,​10,​2:​FOR I=1 TO 40:​NEXT I:​SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0
720 FOR I=1 TO 15:​NEXT I
724 R=0
725 SOUND 0,​182,​10,​8:​SOUND 1,​180,​10,​8:​FOR I=1 TO 22:​NEXT I:​SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0
730 R=R+1:​IF R<3 THEN 725
735 FOR I=1 TO 7:​NEXT I:​SOUND 0,​217,​10,​8:​SOUND 1,​216,​10,​6:​FOR I=1 TO 60:​NEXT I:​SOUND 0,​217,​10,​6:​SOUND 1,​216,​10,​4
740 FOR I=1 TO 90:​NEXT I:​SOUND 0,​217,​10,​4:​SOUND 1,​216,​10,​2:​FOR I=1 TO 40:​NEXT I:​SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0
991 POSITION 7,​20:​? "OPAKOVN TESTU ? (A/N)":​? ""
992 GET #1,​X:​IF X=65 THEN 255
993 GOTO 250
26998 DATA 104,​160,​0,​132,​203,​132,​205,​169,​224,​133,​204,​104,​104,​133,​206,​141,​244,​2
26999 DATA 162,​8,​177,​203,​145,​205,​200,​208,​249,​230,​204,​230,​206,​202,​208,​242,​96
27000 REM 
27001 STYPE=144:​DIM Z$(35):​RESTORE 26998:​FOR Q=1 TO 35:​READ A:​Z$(Q,​Q)=CHR$(A):​NEXT Q:​A=USR(ADR(Z$),​STYPE)
27002 RESTORE 27005:​TRAP 27004
27003 READ ZN:​FOR SA=1 TO 8:​READ A:​POKE STYPE*256+ZN*8+SA-1,​A:​NEXT SA:​GOTO 27003
27004 POKE 756,​STYPE:​RETURN
27005 DATA 86,​102,​60,​102,​96,​96,​102,​60,​0
27006 DATA 81,​12,​24,​60,​102,​102,​126,​102,​0
27007 DATA 96,​12,​126,​96,​124,​96,​96,​126,​0
27008 DATA 123,​12,​126,​24,​24,​24,​24,​126,​0
27009 DATA 80,​12,​60,​102,​102,​102,​102,​60,​0
27010 DATA 72,​24,​88,​102,​102,​102,​102,​126,​0
27011 DATA 75,​12,​102,​102,​102,​102,​102,​126,​0
27012 DATA 70,​102,​124,​102,​102,​124,​108,​102,​0
27013 DATA 66,​102,​60,​96,​60,​6,​6,​60,​0
27014 DATA 71,​102,​126,​24,​24,​24,​24,​24,​0
27015 DATA 88,​51,​126,​12,​24,​48,​96,​126,​0
27016 DATA 64,​51,​126,​96,​124,​96,​96,​126,​0
27017 DATA 76,​12,​102,​102,​60,​24,​24,​24,​0
27018 DATA 77,​51,​124,​108,​102,​102,​108,​120,​0
27019 DATA 87,​54,​28,​60,​102,​126,​96,​60,​0
27020 DATA 82,​108,​56,​124,​102,​96,​96,​96,​0
27021 DATA 84,​27,​22,​126,​24,​24,​24,​14,​0
27022 DATA 89,​12,​24,​102,​102,​102,​62,​12,​120
27023 DATA 85,​24,​52,​90,​102,​102,​102,​62,​0
27024 DATA 74,​12,​24,​102,​102,​102,​102,​62,​0
27025 DATA 73,​12,​24,​0,​56,​24,​24,​60,​0
27026 DATA 79,​12,​24,​60,​102,​102,​102,​60,​0
27027 DATA 65,​12,​24,​60,​6,​62,​102,​62,​0
27028 DATA 83,​54,​28,​62,​96,​60,​6,​124,​0
27029 DATA 68,​106,​54,​6,​62,​102,​102,​62,​0
27030 DATA 90,​54,​28,​126,​12,​24,​48,​126,​0
27031 DATA 67,​54,​28,​60,​96,​96,​96,​60,​0
27032 DATA 78,​108,​56,​124,​102,​102,​102,​102,​0
27033 DATA 69,​12,​24,​60,​102,​126,​96,​60,​0	

• Download link 1
• Download link 2