90 GOSUB 4500:REM ALKUPARAMETRIT 100 GOSUB 4000:REM KUVA 120 : 130 GOSUB 1000:REM VALINNAT 140 GOSUB 2000:REM PYORITYS 150 GOSUB 3000:REM VOITOT 160 IF RA>0 THEN 130 170 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}RAHAT LOPPU..." 180 PRINT"{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'F1' - UUSI PELI" 190 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'F3' - LOPETUS" 200 GET A$:IF A$=""THEN 200 210 IF A$="{F1}"THEN RUN 220 IF A$<>"{F3}"THEN 200 230 PRINT"{CLR}":POKE 53280,14:POKE 53281,6 240 END 250 1000 REM ***** VALINNAT ***** 1010 POKE 650,128:PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}ASETA PANOKSESI." 1015 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'F1' = VALMIS" 1020 PA=0:SN=0:FOR T=0 TO 26:SI(T)=0:NEXT T 1025 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT} " 1030 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}RAHAA :";RA;"MK." 1035 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT} " 1040 PRINT"{UP}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}SIJOITETTU :";PA;"MK." 1045 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}----------------------" 1047 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT} " 1050 PRINT"{UP}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'"; 1055 IF SN<23 THEN PRINT SN;:GOTO 1100 1060 IF SN=23 THEN PRINT"{RVON}{GRY1} HARMAA {RVOF}{GRN}"; 1070 IF SN=24 THEN PRINT"{RVON}{RED} PUNAINEN {RVOF}{GRN}"; 1075 IF SN=25 THEN PRINT"1-11"; 1080 IF SN=26 THEN PRINT"12-22"; 1100 PRINT"' -";SI(SN);"MK." 1120 GET A$:IF A$=""THEN 1120 1130 IF A$<>"{F1}"THEN 1150 1140 IF PA>0 THEN 1200 1145 GOTO 1120 1150 IF A$="@"AND SN>0 THEN SN=SN-1:GOTO 1025 1160 IF A$="/"AND SN<26 THEN SN=SN+1:GOTO 1025 1170 IF A$="+"AND RA>0 THEN SI(SN)=SI(SN)+1:RA=RA-1:PA=PA+1:GOTO 1025 1180 IF A$="-"AND SI(SN)>0 THEN RA=RA+1:SI(SN)=SI(SN)-1:PA=PA-1:GOTO 1025 1190 GOTO 1120 1200 GOSUB 4700:POKE 650,0 1240 FOR T=0 TO 22 1250 IF SI(N(T))>0 THEN POKE 1024+X(T)+Y(T)*40,170 1260 NEXT T 1265 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}ODOTA..." 1270 RETURN 1990 2000 REM ***** PYORITYS ***** 2015 R=INT(RND(0)*23)+40 2030 T=0:K=0:VI=1 2050 POKE 781,Y(T):POKE 780,0:POKE 782,0:SYS 65520 2055 IF INT(T/2)=T/2 THEN V1=2:V2=10:GOTO 2060 2057 V1=11:V2=12 2060 IF T=0 THEN V1=5:V2=13 2065 IF K>R THEN VI=VI*1.5 2070 POKE 646,V2 2080 PRINT TAB(X(T))"{RGHT}{RVON} {CBM-M}{RVOF}" 2085 PRINT TAB(X(T))"{RVON} {RGHT}{RGHT}{CBM-M}{RVOF}" 2090 PRINT TAB(X(T))"{RVON}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{RVOF}{UP}{UP}{UP}" 2095 POKE 646,V1:FOR TT=1 TO VI:NEXT TT 2097 IF VI>800 THEN 2160 2100 PRINT TAB(X(T))"{RGHT}{RVON} {CBM-M}{RVOF}" 2105 PRINT TAB(X(T))"{RVON} {RGHT}{RGHT}{CBM-M}{RVOF}" 2110 PRINT TAB(X(T))"{RVON}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{RVOF}" 2120 T=T+1:IF T=23 THEN T=0 2130 K=K+1 2150 GOTO 2050 2160 T=N(T) 2170 VV=T 2190 RETURN 2990 : 3000 REM ***** VOITOT ***** 3030 GOSUB 4700 3040 PRINT"{GRN}{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}VOITOT:" 3050 VO=0:PRINT:FOR T=0 TO 22 3060 IF T<>VV THEN 3070 3062 IF SI(T)=0 THEN 3070 3065 VO=VO+SI(T)*22:PRINT"{GRN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}NO.";VV;" VOIT."SI(T)*22"MK." 3070 NEXT T 3075 IF VV>12 OR SI(25)<1 THEN 3082 3080 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'1-11' VOIT. "SI(25)*2"MK.":VO=VO+SI(25)*2:GOTO 3090 3082 IF SI(26)<1 THEN 3090 3085 IF VV>11 THEN PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'12-22' VOIT."SI(26)*2"MK.":VO=VO+SI(26)*2 3090 IF VV=0 THEN 3120 3092 IF INT(VV/2)<>VV/2 THEN 3100 3093 IF SI(23)=0 THEN 3120 3095 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RVON}{GRY1}HARMAA{RVOF}{GRN} VOIT.";SI(23)*2"MK.":VO=VO+SI(23)*2 3097 GOTO 3120 3100 IF SI(24)=0 THEN 3120 3110 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RVON}{RED}PUNAINEN{RVOF}{GRN} VOIT.";SI(24)*2"MK.":VO=VO+SI(24)*2 3120 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}VOITOT YHT. :";VO;"MK." 3130 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}SIJOITUKSET :";PA 3150 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}TULOS :";VO-PA"MK." 3160 RA=RA+VO 3170 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}RAHAA :";RA 3180 PRINT"{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT} PAINA 'F1'" 3185 POKE 198,0 3190 GET A$:IF A$<>"{F1}"THEN 3190 3195 R=1:GOSUB 4085:GOSUB 4700:PRINT"{GRN}" 3200 RETURN 3990 : 4000 REM **** KUVA **** 4010 PRINT"{CLR}":POKE 53281,0:POKE 53280,0 4020 PRINT"{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ORNG}" 4030 PRINT" {CBM-C}{RVON}{CBM-D}{CBM-F}{RVOF}{CBM-F}{RVON}{CBM-F}{RVOF}{CBM-V}{RVON}{CBM-F}{RVOF}{CBM-V}{RVON}{CBM-F}{RVOF}{CBM-V} {RVON}{CBM-F}{CBM-I}{RVOF}{CBM-K}{RVON}{CBM-D}{CBM-D}{RVOF}{CBM-K}{RVON}{CBM-D}{CBM-D}{RVOF}{CBM-K}{RVON}{CBM-F}{RVOF}{CBM-V}" 4040 PRINT" {CBM-K}{CBM-D}{CBM-K}{RVON}{CBM-K}{RVOF} {RVON}{CBM-K}{RVOF} {RVON}{CBM-K}{RVOF} {RVON}{CBM-K}{RVOF}{CBM-D} {CBM-K} {CBM-K}{RVOF} {RVON}{CBM-K}{RVOF}{BRN}" 4050 PRINT" {CBM-C}{RVON}{CBM-D}{CBM-D}{RVOF} {RVON}{CBM-F}{RVOF}{CBM-V}{RVON}{CBM-F}{RVOF}{CBM-V}{RVON}{CBM-F}{RVOF}{CBM-V} {RVON}{CBM-F}{CBM-F}{RVOF} {CBM-C}{RVON}{CBM-D}{RVOF} {CBM-C}{RVON}{CBM-D}{RVOF} {RVON}{CBM-F}{RVOF}{CBM-V}" 4060 PRINT" {RGHT} {CBM-K}{RVON}{CBM-F}{RVOF} {RVON}{CBM-K}{RVOF}{CBM-F}{RVON}{CBM-V}{RVOF} {RVON}{CBM-K}{RVOF} {CBM-F}{RVON}{CBM-K}{RVOF} {CBM-F} {CBM-K} {CBM-K} {RVON}{CBM-K}{RVOF}" 4070 PRINT" {CBM-C}{RVON}{CBM-I}{RVOF}{CBM-C}{CBM-V} {RVON}{CBM-I}{RVOF}{CBM-V} {RVON}{CBM-I}{CBM-I}{RVOF}{CBM-V}{RVON}{CBM-I}{CBM-I}{RVOF}{CBM-V}{CBM-C}{RVON}{CBM-I}{RVOF} {CBM-C}{RVON}{CBM-I}{RVOF} {RVON}{CBM-I}{RVOF}{CBM-V}" 4080 FOR T=1 TO 19:PRINT:FOR TT=1 TO 20:NEXT TT:NEXT T 4082 GOSUB 4700 4085 FOR T=0 TO 22:POKE 781,Y(T):POKE 780,0:POKE 782,0:SYS 65520 4090 V=11:IF T=0 THEN V=5:GOTO 4110 4100 IF INT(T/2)=T/2 THEN V=2:GOTO 4110 4110 POKE 646,V:A$=STR$(N(T)):A$="{RVON}"+A$ 4120 PRINT TAB(X(T))"{RVON} {CBM-M}{RVOF}" 4130 PRINT TAB(X(T))"{RVON} {CBM-M}{RVOF}" 4140 PRINT TAB(X(T))"{RVON}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{RVOF}" 4150 PRINT"{UP}{UP}";TAB(X(T))A$ 4170 NEXT T 4195 IF R=1 THEN R=0:RETURN 4200 M=1:POKE 198,0 4210 M$=MID$(TX$,M,22) 4220 PRINT"{GRN}{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}";M$ 4225 FOR T=1 TO 50:NEXT T 4230 GET A$:IF A$="{F1}"THEN 4300 4240 M=M+1:IF M=115 THEN RUN 4250 GOTO 4210 4300 : 4400 GOSUB 4700:POKE 650,128 4410 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}PALJONKO RAHAA ?" 4415 PRINT"{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}'F1' = VALMIS" 4420 RA=10 4425 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT} " 4430 PRINT"{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}{RGHT}RAHAA :";RA;"MK." 4440 GET A$:IF A$=""THEN 4440 4450 IF A$="{F1}"THEN GOSUB 4700:RETURN 4460 IF A$="+"THEN RA=RA+1 4470 IF A$="-"THEN RA=RA-1 4475 IF RA=0 THEN RA=1 4477 IF RA=101 THEN RA=100 4480 GOTO 4425 4500 4510 REM **** PARAMETRIT **** 4520 TX$=" RULETIN ON TEHNYT ROBERT BROTHERUS 17.4 - 1987." 4530 TX$=TX$+"..........PAINA 'F1' ALOITTAAKSESI PELIN. " 4540 DIM N(23),X(23),Y(23),SI(27) 4550 FOR T=0 TO 22:READ N(T),X(T),Y(T):NEXT T 4560 DATA 0,17,5,8,23,5,1,27,5,16,31,5 4565 DATA 5,31,8,10,31,11,7,31,14 4570 DATA 20,31,17,3,31,20,12,27,20 4575 DATA 17,23,20,14,19,20,19,15,20 4580 DATA 6,11,20,9,7,20,2,3,20 4585 DATA 21,3,17,22,3,14,11,3,11 4590 DATA 18,3,8,15,3,5,4,7,5,13,11,5 4640 RETURN 4650 4700 REM ****** TYHJENNYS ***** 4710 PRINT"{GRY3}{HOME}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}"; 4720 PRINT TAB(7)"UCCCCCCCCCCCCCCCCCCCCCCI" 4730 PRINT TAB(7)"B B" 4740 PRINT TAB(7)"{CBM-Q}CCCCCCCCCCCCCCCCCCCCCC{CBM-W}" 4750 FOR T=1 TO 8:PRINT TAB(7)"B B":NEXT T 4760 PRINT TAB(7)"JCCCCCCCCCCCCCCCCCCCCCCK{GRN}" 4770 RETURN