epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler
File name: /tmp/phpysXEdR (24119 bytes)
Options: bin=None cset='UK' html='' info='' out='/tmp/phpysXEdR.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x4 [00 04 17 5E 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x5e17 bytes.
1 PROGRAM "POKER.bas"
2 SET BORDERRED
3 DIM L(40),GL(5),JL(5),GS(5,1),JS(5,1),EG(5),EP(5),CSG(3),CSP(3)
4 LET PG=100:LET PP=100:LET TP=0:LET TG=0:LET CSEREP=0:LET CSEREG=0:LET POR=0
5 CLEAR TEXT:PING
6 SET #102:PALETTEBLUE,YELLOW,RED,RED
7 SET KEYCLICKOFF
8 SET STATUSOFF
9 SET VIDEOMODE1
10 SET VIDEOCOLOUR3
11 SET VIDEOX40:SET VIDEOY24
12 OPEN #1:"video:"
13 DISPLAY #1:AT1FROM1TO24
14 SET #1:INKRED
15 GOSUB 517
16 FOR H=1TO12
17 SET #1:INKH
18 PRINT #1,ATH,1:"ΣäöüåΣäöüå";
19 NEXT H
20 FOR E=1TO6
21 CALL ZENE(E)
22 NEXT E
23 DISPLAY TEXT
24 PRINT AT24,1:""
25 CLOSE #1
26 SET VIDEOMODE1
27 SET VIDEOCOLOUR1
28 SET VIDEOX40:SET VIDEOY23
29 OPEN #1:"video:"
30 DISPLAY #1:AT1FROM1TO23
31 SET VIDEOMODE1
32 SET VIDEOCOLOUR3
33 SET VIDEOX40:SET VIDEOY2
34 OPEN #3:"video:"
35 !SET £1:PALETTE BLUE,WHITE,RED,BLACK
36 SET #3:PAPERBLUE:CLEAR #3
37 CALL KEP
38 LET POR=0
39 SET #1:INK0
40 FOR H=1TO6
41 PRINT #1,ATH,1:"■■■■■■■■■■■■■■■■■■■■■■■■"
42 NEXT
43 FOR H=15TO21
44 PRINT #1,ATH,1:"■■■■■■■■■■■■■■■■■■■■■■■■"
45 NEXT
46 SET #1:INK1
47 GOSUB 298
48 SET #1:INK0:PRINT #1,AT23,1:"■■■■■■■■■■■■■■■■■■■■■■■■"
49 LET N=0
50 FOR H=1TO5
51 LET GL(H)=LAPOT(0)
52 CALL RAJZ(1,H*5-4,0)
53 LET JL(H)=LAPOT(0)
54 CALL RAJZ(16,H*5-4,JL(H))
55 NEXT H
56 LET CSEREG=4
57 SET #1:INK1:PRINT #1,AT11,24:"GONDOLKOZOM"
58 GOSUB 312
59 SET #1:INK0:PRINT #1,AT11,24:"■■■■■■■■■■■"
60 IF CSEREG=0THEN 139
61 ON ESET+1GOTO 62, 77, 96, 120
62 CALL PORGEG
63 IF RND(2)=1THEN 68
64 PRINT :PRINT "EZ A LAP NEM KELL : /SPACE/";
65 CALL SPACE
66 LET LAP=LAPOT(0)
67 GOTO 72
68 PRINT :PRINT "NEKEM EZ KELL : /SPACE/";
69 CALL SPACE
70 CALL PORGETORL
71 LET LAP=POR
72 FOR H=1TO5
73 IF REM(GL(H),5)=REM(POR,5)THENLET GL(H)=POR
74 NEXT H
75 LET POR=0
76 GOTO 139
77 PRINT :PRINT "EZ A LAP NEM KELL : /SPACE/";
78 CALL SPACE
79 LET LAP=LAPOT(0)
80 IF REM(POR,5)+1<>MIR1THEN 87
81 FOR H=1TO5
82 IF MIR1=REM(GL(H),5)+1THEN 84
83 LET G=H
84 NEXT H
85 LET GL(G)=POR
86 GOTO 139
87 IF REM(POR,5)+1<>MIR2THEN 92
88 FOR H=1TO5
89 IF REM(GL(H),5)+1=MIR3THENLET GL(H)=POR
90 NEXT H
91 GOTO 139
92 FOR H=1TO5
93 IF REM(GL(H),5)+1=MIR2THENLET GL(H)=POR
94 NEXT H
95 GOTO 139
96 CALL PORGEG
97 IF REM(POR,5)+1<>MIR1THEN 106
98 FOR H=1TO5
99 IF MIR1=REM(GL(H),5)+1THEN 101
100 LET G=H
101 NEXT H
102 LET GL(G)=POR
103 PRINT :PRINT "NEKEM EZ KELL : /SPACE/";
104 LET POR=0:CALL PORGETORL
105 GOTO 139
106 IF REM(POR,5)+1<>MIR2THEN 113
107 FOR H=1TO5
108 IF REM(GL(H),5)+1=MIR3THENLET GL(H)=POR
109 NEXT H
110 PRINT :PRINT "NEKEM EZ KELL : /SPACE/";
111 LET POR=0
112 GOTO 139
113 IF REM(POR,5)+1<>MIR3THEN 77
114 FOR H=1TO5
115 IF REM(GL(H),5)+1=MIR2THENLET GL(H)=POR
116 NEXT H
117 PRINT :PRINT "NEKEM EZ KELL : /SPACE/";
118 LET POR=0
119 GOTO 139
120 IF CSEREG>1THEN 136
121 CALL PORGEG
122 IF REM(POR,5)+1=MIR1ORREM(POR,5)+1=MIR2THEN 129
123 PRINT :PRINT "EZ A LAP NEM KELL : /SPACE/";
124 CALL SPACE
125 LET GL(MIT)=LAPOT(0)
126 GOTO 139
127 CALL SPACE
128 CALL PORGETORL
129 PRINT :PRINT "NEKEM EZ KELL : /SPACE/";
130 CALL SPACE
131 CALL PORGETORL
132 LET GL(MIT)=POR:LET POR=0:GOTO 135
133 CALL SPACE
134 CALL PORGETORL
135 GOTO 139
136 FOR H=1TOCSEREG
137 LET GL(CSG(H))=LAPOT(0)
138 NEXT H
139 GOSUB 312
140 PRINT :PRINT CSEREG;"LAPOT CSERELTEM /SPACE/";
141 CALL SPACE
142 SET #1:INK3:PRINT #1,AT7,34:"■■■"
143 SET #1:INK1:PRINT #1,AT7,34:CSEREG
144 ! JATEKOS J\N
145 PRINT :PRINT "HANYAT CSEREL ? /0;1;2;3;5/";
146 GET A$
147 IF A$="2"ORA$="3"THEN 165
148 IF A$="1"THEN 192
149 IF A$="5"THEN 153
150 IF A$<>"0"THEN 146
151 LET CSEREP=0:GOTO 225
152 GOTO 146
153 PRINT :PRINT "5 LAPOT CSEREL: HA OK:/I/ HA NEM:/N/";
154 GET A$
155 IF A$="i"THEN 158
156 IF A$="n"THEN 144
157 GOTO 154
158 FOR H=1TO5
159 LET JL(H)=LAPOT(0)
160 CALL RAJZ(16,H*5-4,JL(H))
161 NEXT H
162 LET CSEREP=5
163 GOTO 225
164 END
165 LET CSEREP=VAL(A$)
166 SET #1:INK0:PRINT #1,AT23,1:"■■■■■■■■■■■■■■■■■■■■■■■■"
167 PRINT :PRINT CSEREP;"LAPOT CSEREL MELYIK HELYETT ? SZAM";
168 FOR H=1TO3
169 LET CSP(H)=0
170 NEXT H
171 FOR H=1TOCSEREP
172 GET A$
173 LET POP=VAL(A$)
174 IF POP<1ORPOP>5THEN 172
175 LET N=0
176 FOR G=1TOH
177 IF POP=CSP(G)THENLET N=1
178 NEXT G
179 IF N=1THEN 166
180 LET CSP(H)=POP
181 SET #1:INK1:PRINT #1,AT23,POP*5-2:"■"
182 NEXT H
183 PRINT :PRINT "HA OK: /I/ HA NEM: /N/ ";
184 GET A$
185 IF A$="n"THEN 144
186 IF A$<>"i"THEN 184
187 FOR H=1TOCSEREP
188 LET JL(CSP(H))=LAPOT(0)
189 CALL RAJZ(16,CSP(H)*5-4,JL(CSP(H)))
190 NEXT H
191 GOTO 225
192 LET CSEREP=1
193 IF POR=0THEN 208
194 LET JEL=1
195 PRINT :PRINT "KERI AZ EN PORGETETT LAPOM ? /I:N/";
196 GET A$
197 IF A$="i"THEN 216
198 IF A$<>"n"THEN 196
199 LET POKOR=23:CALL PORGEJ
200 PRINT :PRINT "KERI A 2=IK PORGETETT LAPOT ? /I:N/";
201 GET A$
202 IF A$="i"THEN 216
203 IF A$<>"n"THEN 201
204 PRINT :PRINT "A CSUSZTATOTT LAPJAT ADOM : /SPACE/";
205 CALL SPACE
206 CALL CSUSZ
207 LET JEL=3:GOTO 216
208 CALL PORGEJ
209 PRINT :PRINT "KERI A PORGETETT LAPOT ? /I:N/";
210 LET JEL=1
211 GET A$
212 IF A$="i"THEN 216
213 IF A$<>"n"THEN 211
214 CALL CSUSZ
215 LET JEL=3
216 PRINT :PRINT "MIT DOB EL HELYETTE ? SZAM";
217 GET A$
218 LET IOP=VAL(A$)
219 IF IOP<1ORIOP>5THEN 217
220 SET #1:INK0:PRINT #1,AT23,1:"■■■■■■■■■■■■■■■■■■■■■■■■"
221 SET #1:INK1:PRINT #1,AT23,IOP*5-2:"■"
222 LET JL(IOP)=POR
223 CALL CLIR
224 CALL RAJZ(16,IOP*5-4,POR)
225 SET #1:INK3:PRINT #1,AT21,34:"■■■"
226 SET #1:INK1:PRINT #1,AT21,34:CSEREP
227 FOR JEL=1TO3
228 CALL CLIR
229 NEXT JEL
230 CALL MUSIC
231 GOSUB 432
232 FOR H=1TO5
233 CALL RAJZ(1,H*5-4,GL(H))
234 NEXT
235 IF LEVELP=LEVELGTHENGOSUB 285
236 IF LEVELP>LEVELGTHEN 240
237 IF LEVELP<LEVELGTHEN 252
238 CALL DON
239 GOTO 264
240 CALL ON
241 LET H=10
242 LET PG=PG-1:LET H=H-1:LET PP=PP+1
243 SET #1:INK3:PRINT #1,AT3,34:"■■■■"
244 SET #1:INK1:PRINT #1,AT3,34:PG
245 SET #1:INK3:PRINT #1,AT17,34:"■■■■"
246 SET #1:INK1:PRINT #1,AT17,34:PP
247 CALL BEEP
248 IF PG=0THEN 251
249 IF H<>0THEN 242
250 GOTO 264
251 GOTO 280
252 CALL EN
253 LET H=10
254 LET PP=PP-1:LET H=H-1:LET PG=PG+1
255 SET #1:INK3:PRINT #1,AT17,34:"■■■■"
256 SET #1:INK1:PRINT #1,AT17,34:PP
257 SET #1:INK3:PRINT #1,AT3,34:"■■■■"
258 SET #1:INK1:PRINT #1,AT3,34:PG
259 CALL BEEP
260 IF PP=0THEN 263
261 IF H<>0THEN 254
262 GOTO 264
263 GOTO 269
264 PRINT :PRINT " UJ KEVERES /SPACE/";
265 CALL SPACE
266 PRINT
267 DISPLAY #1:AT1FROM1TO23
268 GOTO 38
269 CLEAR #3
270 SET #3:INKRED
271 PRINT #3,AT1,1:"\NNEK VEGE"
272 DISPLAY #3:AT11FROM1TO2
273 CALL HANGOK
274 PRINT :PRINT " UJ JATSZMA ? /I:N/";
275 GET A$
276 IF A$="i"THENRUN
277 IF A$<>"n"THEN 275
278 CLEAR FONT
279 TEXT :STOP
280 CLEAR #3
281 SET #3:INKRED
282 PRINT #3,AT1,1:"KIFOSZTOTT"
283 DISPLAY #3:AT11FROM1TO2
284 GOTO 273
285 IF LEVELP=5THENRETURN
286 LET MED=1
287 IF LEVELP=4THENLET MED=2
288 IF LEVELP=6THENLET MED=2
289 FOR H=1TOMED
290 LET TIP=(6-GS(H,1))/(10^H)
291 IF GS(H,1)=1THENLET TIP=0
292 LET LEVELG=LEVELG+TIP
293 LET TIP=(6-JS(H,1))/(10^H)
294 IF JS(H,1)=1THENLET TIP=0
295 LET LEVELP=LEVELP+TIP
296 NEXT H
297 RETURN
298 RANDOMIZE
299 CALL BACH(1)
300 SET #1:INK1
301 PRINT #1,AT11,28:"KEVEREK"
302 FOR I=1TO40
303 LET L(I)=I
304 NEXT
305 FOR K=1TO160
306 LET V1=RND(40)+1:LET V2=RND(40)+1
307 LET B=L(V1):LET L(V1)=L(V2):LET L(V2)=B
308 NEXT
309 SET #1:INK0
310 PRINT #1,AT11,28:"■■■■■■■"
311 RETURN
312 !SET £1:INK 1:PRINT £1,AT 11,24:"GONDOLKOZOM"
313 FOR H=1TO5
314 LET EG(H)=0
315 NEXT H
316 FOR H=1TO5
317 LET EG(REM(GL(H),5)+1)=EG(REM(GL(H),5)+1)+1
318 NEXT H
319 FOR H=1TO5
320 LET GS(H,0)=EG(H)
321 NEXT H
322 FOR H=1TO4
323 FOR Q=4TOHSTEP-1
324 IF GS(Q+1,0)<=GS(Q,0)THEN 326
325 LET D=GS(Q+1,0):LET GS(Q+1,0)=GS(Q,0):LET GS(Q,0)=D
326 NEXT Q
327 NEXT H
328 LET H=1
329 LET D=1
330 IF GS(H,0)<>EG(D)THEN 333
331 LET GS(H,1)=D:LET EG(D)=EG(D)*10
332 GOTO 335
333 LET D=D+1
334 IF D<6THEN 330
335 LET H=H+1
336 IF H>5ORGS(H,0)=0THEN 338
337 GOTO 329
338 ! KIERTEKELES
339 ON GS(1,0)GOTO 340, 350, 353, 356, 357
340 FOR H=1TO5
341 IF REM(GL(H),5)=1THENLET U=GL(H)
342 NEXT H
343 LET Z=0
344 FOR H=1TO5
345 IF GL(H)<UORGL(H)>U+4THENLET Z=1
346 NEXT H
347 IF Z=0THENLET LEVELG=8
348 IF Z=1THENLET LEVELG=5
349 GOTO 358
350 IF GS(2,0)=2THEN 352
351 LET LEVELG=1:GOTO 358
352 LET LEVELG=2:GOTO 358
353 IF GS(2,0)=2THEN 355
354 LET LEVELG=3:GOTO 358
355 LET LEVELG=4:GOTO 358
356 LET LEVELG=6:GOTO 358
357 LET LEVELG=7
358 REM
359 IF CSEREG<>4THENRETURN
360 LET ESET=3
361 ON LEVELGGOSUB 363, 380, 394, 406, 416, 421, 428, 430
362 RETURN
363 IF RND(6)>1THEN 371
364 LET CSEREG=3
365 LET G=0
366 FOR H=1TO5
367 IF REM(GL(H),5)+1=GS(1,1)THEN 369
368 LET G=G+1:LET CSG(G)=H
369 NEXT H
370 RETURN
371 LET CSEREG=1
372 FOR H=1TO5
373 IF REM(GL(H),5)+1=GS(1,1)THENLET MIT=H
374 NEXT H
375 FOR H=1TO5
376 IF EG(H)=0THENLET MIR1=H
377 NEXT H
378 LET MIR2=MIR1
379 RETURN
380 IF RND(7)>1THEN 388
381 LET G=0
382 LET CSEREG=3
383 FOR H=1TO5
384 IF REM(GL(H),5)+1=GS(1,1)THEN 386
385 LET G=G+1:LET CSG(G)=H
386 NEXT H
387 RETURN
388 LET CSEREG=1
389 FOR H=1TO5
390 IF REM(GL(H),5)+1=GS(3,1)THENLET MIT=H
391 NEXT H
392 LET MIR1=GS(1,1):LET MIR2=GS(2,1)
393 RETURN
394 IF RND(5)>1THEN 402
395 LET CSEREG=2
396 LET G=0
397 FOR H=1TO5
398 IF REM(GL(H),5)+1=GS(1,1)THEN 400
399 LET G=G+1:LET CSG(G)=H
400 NEXT H
401 RETURN
402 LET CSEREG=1
403 LET MIR1=GS(1,1):LET MIR2=GS(2,1):LET MIR3=GS(3,1)
404 LET ESET=2
405 RETURN
406 IF RND(1)=1THEN 409
407 LET CSEREG=0
408 RETURN
409 LET CSEREG=1
410 LET MIR1=GS(1,1):LET MIR2=GS(2,1)
411 FOR H=1TO5
412 IF REM(GL(H),5)+1=GS(1,1)THEN 414
413 LET MIT=H
414 NEXT H
415 RETURN
416 IF RND(1)=1THEN 419
417 LET CSEREG=0
418 RETURN
419 LET ESET=0:LET CSEREG=1
420 RETURN
421 LET CSEREG=1
422 FOR H=1TO5
423 IF REM(GL(H),5)+1=GS(1,1)THEN 425
424 LET MIT=H
425 NEXT H
426 LET MIR1=GS(1,1):LET MIR2=MIR1
427 RETURN
428 LET CSEREG=0
429 RETURN
430 LET CSEREG=0
431 RETURN
432 !SET £1:INK 1:PRINT £1,AT 11,24:"GONDOLKOZOM"
433 FOR H=1TO5
434 LET EP(H)=0
435 NEXT H
436 FOR H=1TO5
437 LET EP(REM(JL(H),5)+1)=EP(REM(JL(H),5)+1)+1
438 NEXT H
439 FOR H=1TO5
440 LET JS(H,0)=EP(H)
441 NEXT H
442 FOR H=1TO4
443 FOR Q=4TOHSTEP-1
444 IF JS(Q+1,0)<=JS(Q,0)THEN 446
445 LET D=JS(Q+1,0):LET JS(Q+1,0)=JS(Q,0):LET JS(Q,0)=D
446 NEXT Q
447 NEXT H
448 LET H=1
449 LET D=1
450 IF JS(H,0)<>EP(D)THEN 453
451 LET JS(H,1)=D:LET EP(D)=EP(D)*10
452 GOTO 455
453 LET D=D+1
454 IF D<6THEN 450
455 LET H=H+1
456 IF H>5ORJS(H,0)=0THEN 458
457 GOTO 449
458 ! KIERTEKELES
459 ON JS(1,0)GOTO 460, 470, 473, 476, 477
460 FOR H=1TO5
461 IF REM(JL(H),5)=1THENLET U=JL(H)
462 NEXT H
463 LET Z=0
464 FOR H=1TO5
465 IF JL(H)<UORJL(H)>U+4THENLET Z=1
466 NEXT H
467 IF Z=0THENLET LEVELP=8
468 IF Z=1THENLET LEVELP=5
469 GOTO 478
470 IF JS(2,0)=2THEN 472
471 LET LEVELP=1:GOTO 478
472 LET LEVELP=2:GOTO 478
473 IF JS(2,0)=2THEN 475
474 LET LEVELP=3:GOTO 478
475 LET LEVELP=4:GOTO 478
476 LET LEVELP=6:GOTO 478
477 LET LEVELP=7
478 RETURN
479 STOP
480 DEF BEEP
481 ENVELOPE NUMBER13;0,63,63,1;0,-50,-50,4;0,-23,-23,30
482 SOUND PITCH70,LEFT255,RIGHT255,ENVELOPE13,DURATION10
483 END DEF
484 DEF DON
485 CLEAR #3
486 SET #3:INKCYAN
487 PRINT #3,AT1,1:"DONTETLEN"
488 DISPLAY #3:AT11FROM1TO2
489 END DEF
490 DEF ON
491 CLEAR #3
492 SET #3:INKYELLOW
493 PRINT #3,AT1,1:"ON GYOZOTT"
494 DISPLAY #3:AT11FROM1TO2
495 END DEF
496 DEF EN
497 CLEAR #3
498 SET #3:INKGREEN
499 PRINT #3,AT1,1:" GYOZTEM"
500 DISPLAY #3:AT11FROM1TO2
501 END DEF
502 DEF HANGOK
503 CALL BACH(2)
504 CALL BACH(2)
505 CALL HAPPY
506 CALL MUSIC
507 ENVELOPE NUMBER15;0,63,63,1;70,63,63,70
508 FOR H=1TO3
509 SOUND PITCH1,LEFT255,RIGHT255,DURATION71,ENVELOPE15
510 NEXT H
511 FOR J=0TO3
512 FOR H=0TO255
513 SET BORDERH
514 NEXT H
515 NEXT J
516 END DEF
517 FOR J=33TO46
518 READ A,B,C,D,E,F,G,H,I
519 SET CHARACTERJ,BIN(A),BIN(B),BIN(C),BIN(D),BIN(E),BIN(F),BIN(G),BIN(H),BIN(I)
520 NEXT J
521 FOR J=94TO125
522 READ A,B,C,D,E,F,G,H,I
523 SET CHARACTERJ,BIN(A),BIN(B),BIN(C),BIN(D),BIN(E),BIN(F),BIN(G),BIN(H),BIN(I)
524 NEXT J
525 FOR J=129TO149
526 READ A,B,C,D,E,F,G,H,I
527 SET CHARACTERJ,BIN(A),BIN(B),BIN(C),BIN(D),BIN(E),BIN(F),BIN(G),BIN(H),BIN(I)
528 NEXT J
529 RETURN
530 DATA 1001100,11010010,1010010,1010010,1010010,1010010,1001100,0,0
531 DATA 0,0,0110010,1001010,1001010,1001010,1001010,1001011,110010
532 DATA 0,0,111110,1100110,1100110,111110,1100110,1100110,1111110
533 DATA 111100,1100110,1100010,1011010,1000110,1100110,111100,0,0
534 DATA 0,0,111100,1100110,1100010,1011010,1000110,1100110,111100
535 DATA 0,0,1100110,110110,11110,1110,11110,110110,1100110
536 DATA 0,0,1100110,1100110,1111110,1100110,1100110,111100,11000
537 DATA 0,0,0,0,0,1111,111111,1111111,1111111
538 DATA 0,0,0,0,0,11110000,11111100,11111110,11111110
539 DATA 11111110,11111110,11111100,11110000,0,0,0,0,0
540 DATA 1111111,1111111,111111,1111,0,0,0,0,0
541 DATA 0,0,0,0,0,11111111,11111111,11111111,11111111
542 DATA 11111111,11111111,11111111,11111111,0,0,0,0,0
543 DATA 11001100,11001100,110011,110011,10101010,11001100,11001100,110011,110011
544 DATA 110110,1111111,1111111,111110,11100,11100,1000,0,0
545 DATA 0,0,10000,111000,111000,1111100,11111110,11111110,1101100
546 DATA 1000,11100,111110,1111111,111110,11100,1000,0,0
547 DATA 0,0,10000,111000,1111100,11111110,1111100,111000,10000
548 DATA 1000,11100,111110,1111111,1111111,110110,1000,1000,0
549 DATA 0,10000,10000,1101100,11111110,11111110,1111100,111000,10000
550 DATA 11100,11100,1000,1101011,1111111,1101011,1000,11100,0
551 DATA 0,111000,10000,11010110,11111110,11010110,10000,111000,111000
552 DATA 1001,101,11,10,1000111,1000010,1000011,1000011,1000101
553 DATA 1001000,1010000,11100000,10100000,1100000,1010000,101000,11010000,1011000
554 DATA 1000001,1000011,1000010,11100010,1111010,1111111,111111,111,11010
555 DATA 1100000,11110000,11111000,11101000,11111000,11101100,11010100,11101100,10010100
556 DATA 00101001,110111,101011,110111,11111,10111,11111,1111,110
557 DATA 1011000,11100000,11111100,11111110,1011110,1000111,1000010,11000010,10000010
558 DATA 11010,1011,10100,1010,110,101,111,1010,10010
559 DATA 10100010,11000010,11000010,1000010,11100010,1000000,11000000,10100000,10010000
560 DATA 1001,101,11,100,1110,10100,1101,110011,101
561 DATA 100000,1000000,10000000,1000000,11100000,1010000,1100000,10011000,1000101
562 DATA 11100,111000,1011111,1011101,1011010,1011101,1011010,10110101,10110110
563 DATA 01110010,110101,11111010,1110111,10111010,1110010,10111010,1111110,10111110
564 DATA 1111101,1111110,1011101,1001110,1011101,11101110,1011111,10101100,1001110
565 DATA 1101101,10101101,1011010,10111010,1011010,10111010,11111010,11100,111000
566 DATA 10100010,11001,110,1010,111,10,1,10,100
567 DATA 10100000,11001100,10110000,101000,1110000,100000,11000000,10100000,10010000
568 DATA 11,111,1111,10,11,110,1010,110,1001
569 DATA 1100000,11110000,11111000,100000,1100000,110000,10101000,111000,11011100
570 DATA 10,11110,10001,100000,100000,100000,100100,11001000,1111
571 DATA 1101010,1101010,10101010,1111111,1001001,1001001,1001001,1111111,11001001
572 DATA 10010011,11111110,10010010,10010010,10010010,11111110,1010101,1010110,1010110
573 DATA 11110000,10011,100100,100,100,100,1000,1111000,1000000
574 DATA 111011,11100,10101,1100,110,100,11111,1111,110
575 DATA 10010000,1100000,1010000,1100000,11000000,1000000,11110000,11100000,11000000
576 DATA 0,1,11,111,1111,11111,111111,1111111,11111111
577 DATA 0,10000000,11000000,11100000,11110000,11111000,11111100,11111110,11111111
578 DATA 11111111,1111111,111111,11111,1111,111,11,1,0
579 DATA 11111111,11111110,11111100,11111000,11110000,11100000,11000000,10000000,0
580 DATA 1,11,111,111,11,1,110001,1111001,11111111
581 DATA 10000000,11000000,11100000,11100000,11000000,10000000,10001100,10011110,11111111
582 DATA 11111111,1111001,110001,1,1,1,111,111,0
583 DATA 11111111,10011110,10001100,10000000,10000000,10000000,11100000,11100000,0
584 DATA 1,1,11,111,1111,11111,111111,1111111,1111111
585 DATA 10000000,10000000,11000000,11100000,11110000,11111000,11111100,11111110,11111110
586 DATA 11111111,11111111,1111111,1111111,111001,1,1,1,1
587 DATA 11111111,11111111,11111110,11111110,10011100,10000000,10000000,10000000,10000000
588 DATA 0,0,1100,111100,111110,1111110,11111111,11111111,11111111
589 DATA 0,0,11000,111110,1111110,1111111,11111111,11111111,11111111
590 DATA 1111111,111111,11111,1111,111,11,11,1,1
591 DATA 11111110,11111100,11111000,11110000,11100000,11000000,11000000,10000000,10000000
592 DATA 111,100,100,100,1000,1111,10000,10010000,01100000
593 DATA 11000000,100000,100000,100000,1001110,11110001,100001,1000001,111110
594 DATA 10000,10000,100000,100010,100100,1111000,11100001,1111001,10000110
595 DATA 0,0,0,10000,1101000,10001001,110001,11000001,11111110
596 DATA 0,0,0,10011110,11100001,101,010,0,0
597 DEF ZENE(SZ)
598 ON SZGOTO 599, 601, 603, 605, 607, 609
599 RESTORE 620
600 GOTO 611
601 RESTORE 624
602 GOTO 611
603 RESTORE 628
604 GOTO 611
605 RESTORE 629
606 GOTO 611
607 RESTORE 630
608 GOTO 611
609 RESTORE 631
610 !
611 ENVELOPE NUMBER1;0,43,43,1;0,-20,-20,10;0,-23,-23,50
612 FOR I=0TO22
613 READ M,H
614 IF M=0THEN 618
615 SOUND SOURCE0,DURATIONH*8,PITCHM+24,ENVELOPE1,LEFT255,RIGHT255
616 SOUND SOURCE1,DURATIONH*8,PITCHM+12,ENVELOPE1,LEFT255,RIGHT255
617 GOTO 619
618 SOUND SOURCE2,DURATIONH*8,LEFT0,RIGHT0
619 NEXT I
620 DATA 37,1,42,2,41,1,42,1,44,2,42,1,44,1
621 DATA 46,2,47,1,46,1,39,2,44,1,44,1
622 DATA 42,2,42,1,42,1,41,2,39,1,41,1,42,8
623 DATA 0,1,0,1,0,1
624 DATA 37,1,37,1,42,2,41,1,42,1,44,2,42,1,44,1
625 DATA 46,2,47,1,46,1,39,2,44,1,44,1
626 DATA 42,2,42,1,42,1,41,1,39,1,41,2,42,8
627 DATA 0,1,0,1
628 DATA 46,1,47,1,49,2,46,1,44,1,42,2,41,1,42,1,44,1,42,1,41,1,39,1,37,1,46,1,47,1,49,2,46,1,44,1,42,1,42,1,41,1,42,1,44,8
629 DATA 37,1,37,1,42,2,0,2,44,2,0,2,46,1,46,1,46,1,47,1,46,1,39,2,44,1,44,1,42,4,41,4,42,8,0,1,0,1,0,1,0,1,0,1,0,1
630 DATA 37,1,37,1,42,2,37,1,37,1,39,2,37,1,37,1,34,1,37,1,37,2,0,3,37,1,42,2,37,1,37,1,39,2,37,1,37,1,34,1,37,1,37,4,0,1
631 DATA 37,1,37,1,42,2,0,2,44,2,0,2,46,1,46,1,46,1,47,1,46,1,39,2,44,2,44,2,42,4,41,4,42,8,0,1,0,1,0,1,0,1,0,1,0,1
632 END DEF
633 DEF RAJZ(Y,X,M)
634 SET #1:INK1
635 PRINT #1,ATY,X:"(,,)"
636 FOR I=Y+1TOY+4
637 PRINT #1,ATI,X:"■■■■"
638 NEXT I
639 PRINT #1,ATI,X:"+--*"
640 IF M=0THEN 706
641 IF M>20THENLET M=M-20
642 LET A=INT((M+4)/5)
643 ON AGOSUB 686, 691, 696, 701
644 SET #1:INK3
645 LET A=REM(M,5)+1
646 ON AGOSUB 648, 671, 660, 666, 655
647 GOTO 710
648 SET #1:INK3:PRINT #1,ATY+1,X+3:"!"
649 SET #1:INKIN:PRINT #1,ATY+2,X+1:Y$;Y$
650 PRINT #1,ATY+3,X+1:Z$;Z$
651 SET #1:INK3:PRINT #1,ATY+4,X:CHR$(34)
652 RETURN
653 !
654 !
655 PRINT #1,ATY+1,X+1:"vw";"B"
656 PRINT #1,ATY+2,X+1:"xy"
657 PRINT #1,ATY+3,X+1:"z{"
658 PRINT #1,ATY+4,X:"£";"|}"
659 RETURN
660 PRINT #1,ATY+1,X+1:"fg";"K"
661 PRINT #1,ATY+2,X+1:"hi"
662 PRINT #1,ATY+3,X+1:"jk"
663 PRINT #1,ATY+4,X:"&";"lm"
664 RETURN
665 !
666 PRINT #1,ATY+1,X+1:"no";"$"
667 PRINT #1,ATY+2,X+1:"pq"
668 PRINT #1,ATY+3,X+1:"rs"
669 PRINT #1,ATY+4,X:"%";"tu"
670 RETURN
671 PRINT #1,ATY+1,X+3:"A"
672 PRINT #1,ATY+4,X:"'"
673 LET A=INT((M+4)/5)
674 ON AGOSUB 678, 680, 682, 684
675 SET #1:INKIN:PRINT #1,ATY+2,X+1:Y$
676 PRINT #1,ATY+3,X+1:Z$
677 RETURN
678 LET Y$="Ω▮":LET Z$="ƒπ":LET IN=2
679 RETURN
680 LET Y$="#Ä":LET Z$="ÖÜ":LET IN=2
681 RETURN
682 LET Y$="Çà":LET Z$="↑→":LET IN=3
683 RETURN
684 LET Y$="ÅØ":LET Z$="Æé":LET IN=3
685 RETURN
686 LET IN=2:SET #1:INKIN
687 PRINT #1,ATY+1,X:"^"
688 PRINT #1,ATY+4,X+3:"_"
689 LET Y$="^":LET Z$="_"
690 RETURN
691 LET IN=2:SET #1:INKIN
692 PRINT #1,ATY+1,X:"`"
693 PRINT #1,ATY+4,X+3:"a"
694 LET Y$="`":LET Z$="a"
695 RETURN
696 LET IN=3:SET #1:INKIN
697 PRINT #1,ATY+1,X:"b"
698 PRINT #1,ATY+4,X+3:"c"
699 LET Y$="b":LET Z$="c"
700 RETURN
701 LET IN=3:SET #1:INKIN
702 PRINT #1,ATY+1,X:"d"
703 PRINT #1,ATY+4,X+3:"e"
704 LET Y$="d":LET Z$="e"
705 RETURN
706 SET #1:INK3
707 FOR I=Y+1TOY+4
708 PRINT #1,ATI,X+1:".."
709 NEXT I
710 END DEF
711 DEF KEP
712 SET #1:PALETTEBLUE,BLUE,BLUE,BLUE
713 DISPLAY #1:AT1FROM1TO23
714 SET #1:INK3
715 FOR I=1TO8
716 PRINT #1,ATI,26:"■■■■■■■■■■■■■■■";
717 NEXT I
718 SET #1:INK1
719 PLOT #1:802,827;802,538;1279,538
720 SET #1:INK3
721 FOR I=15TO23
722 PRINT #1,ATI,26:"■■■■■■■■■■■■■■■";
723 NEXT I
724 SET #1:INK1
725 PLOT #1:802,0;802,328;1279,328
726 CALL RAJZ(9,36,0)
727 SET #1:INK1
728 PRINT #1,AT1,28:"Σäöüå MESTER"
729 PRINT #1,AT15,28:" JATEKOS "
730 SET #1:INK2
731 PRINT #1,AT3,27:" PENZ: ";PG
732 PRINT #1,AT17,27:" PENZ: ";PP
733 SET #1:INK0
734 PRINT #1,AT5,27:" TET : ";TG
735 PRINT #1,AT19,27:" TET : ";TP
736 SET #1:INK2
737 PRINT #1,AT7,27:" CSERE:";CSEREG
738 PRINT #1,AT21,27:" CSERE:";CSEREP
739 SET #1:INK2
740 FOR H=1TO5
741 PRINT #1,AT22,H*5-3:H
742 NEXT H
743 SET #1:PALETTEBLUE,WHITE,RED,BLACK
744 END DEF
745 DEF LAPOT(Q)
746 LET N=N+1
747 LET LAPOT=L(N)
748 END DEF
749 DEF SPACE
750 IF INKEY$<>" "THEN 750
751 END DEF
752 DEF PORGEG
753 LET POR=LAPOT(0)
754 CALL HAPPY
755 PRINT :PRINT "PORGETETTET KEREK : /SPACE/";
756 CALL RAJZ(9,30,POR)
757 CALL SPACE
758 END DEF
759 DEF PORGETORL
760 SET #1:INK0
761 PRINT #1,AT9,30:",,,,"
762 FOR H=1TO4
763 PRINT #1,AT9+H,30:"■■■■"
764 NEXT H
765 PRINT #1,AT14,30:"----"
766 END DEF
767 DEF HAPPY
768 RESTORE 776
769 ! CLEAR SOUND
770 ENVELOPE NUMBER10;0,63,63,1;0,-43,-43,4;0,0,0,100
771 FOR SA=1TO15
772 READ M1,H1
773 SOUND SOURCE2,PITCHM1+36,DURATIONH1*5,ENVELOPE10,LEFT200,RIGHT100
774 SOUND SOURCE0,PITCHM1+36,DURATIONH1*5,ENVELOPE10,LEFT100,RIGHT200,STYLE160
775 NEXT SA
776 DATA 49,1,51,2,49,1,46,2,54,2,51,2,49,1,49,4,49,1,51,1,49,1,51,1,49,2,54,2,53,4
777 END DEF
778 DEF PORGEJ
779 CALL HAPPY
780 IF POR=0THEN 783
781 LET POR=LAPOT(0):CALL RAJZ(9,24,POR)
782 GOTO 784
783 LET POR=LAPOT(0):CALL RAJZ(9,30,POR)
784 END DEF
785 DEF CSUSZ
786 LET POR=LAPOT(0)
787 CALL RAJZ(9,18,POR)
788 END DEF
789 DEF CLIR
790 ON JELGOSUB 791, 793, 794
791 CALL PORGETORL
792 GOTO 794
793 LET YA=24:GOTO 795
794 LET YA=18
795 SET #1:INK0
796 PRINT #1,AT9,YA:",,,,"
797 FOR H=10TO13
798 PRINT #1,ATH,YA:"■■■■"
799 NEXT H
800 PRINT #1,AT14,YA:"----"
801 END DEF
802 DEF MUSIC
803 RESTORE 811
804 ENVELOPE NUMBER6;0,63,63,1;0,-30,-30,2;0,-20,-20,5;0,0,0,30
805 ENVELOPE NUMBER4;0,63,63,1;0,-20,-20,1;0,0,0,30
806 FOR H=1TO5
807 READ M,G
808 SOUND PITCHM-12,DURATIONG*3,LEFT10,RIGHT150,ENVELOPE4
809 SOUND SOURCE2,DURATIONG*3,PITCHM-36,LEFT200,RIGHT50,ENVELOPE4,STYLE128
810 NEXT H
811 DATA 46,6,39,2,43,2,46,2,44,8
812 END DEF
813 DEF BACH(X)
814 IF X=1THEN 817
815 RESTORE 826
816 GOTO 818
817 RESTORE 829
818 ENVELOPE NUMBER8;0,60,60,1;0,-20,-20,2;0,-10,-10,1;0,-10,-10,10;0,0,0,20
819 ENVELOPE NUMBER9;0,60,60,1;0,-10,-10,2;0,0,0,1;0,-10,-10,10;0,0,0,30
820 READ H,ST,O1,O2,DU
821 FOR G=1TOH
822 READ M,H
823 SOUND PITCHM+O1,DURATIONH*DU,LEFT40,RIGHT200,ENVELOPE8
824 SOUND PITCHM+O2,DURATIONH*DU,LEFT200,RIGHT40,ENVELOPE9,SOURCE2,STYLEST
825 NEXT G
826 DATA 29,0,-24,-36,4
827 DATA 39,4,44,4,46,4,48,4,49,8,46,4,48,4,44,4,46,4,44,2,43,2,41,2,39,2,41,2,42,2
828 DATA 44,4,46,4,48,4,49,4,46,2,44,1,46,1,48,4,44,2,43,1,44,1,46,4,43,4,44,8
829 DATA 64,0,+24,-24,4
830 DATA 34,20,46,2,46,1,46,1,46,2,46,1,46,1,46,2,39,2,42,2,46,2
831 DATA 44,2,44,1,44,1,44,2,44,1,44,1,44,2,37,2,41,2,44,2
832 DATA 46,2,46,1,46,1,46,2,46,1,46,1,46,2,48,2,49,2,51,2
833 DATA 49,2,46,2,44,2,41,2,39,4,39,4,46,4,46,3,46,1
834 DATA 46,2,39,2,42,2,46,2,44,4,44,3,44,1
835 DATA 44,2,37,2,41,2,44,2,46,4,46,3,46,1
836 DATA 46,2,48,2,49,2,51,2,49,2,46,2,44,2,41,2,39,4,39,4
837 END DEF
EXOS header pos/serial: #1 at 0x5e27
EXOS type/header: 0xa [00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: End of module
End of FILE parsing, because: End-of-module header got (type=10)
Enterprise-128 EXOS file analyzer, lister and disassembler v0.5.8 ©2012,2013 "LGB" Gábor Lénárt (lgb at-sign lgb dot hu)