-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathruletti.txt
More file actions
167 lines (167 loc) · 8.89 KB
/
Copy pathruletti.txt
File metadata and controls
167 lines (167 loc) · 8.89 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
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