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)