epbas.lgb.hu :: Enterprise-128 EXOS file analyzer, lister and disassembler

File name: /tmp/phpSlokV1 (16877 bytes) Options: bin=None cset='UK' html='' info='' out='/tmp/phpSlokV1.out' EP-ASCII: UK EXOS header pos/serial: #0 at 0x0 EXOS type/header: 0x4 [00 04 CD 41 00 00 00 00 00 00 00 00 00 00 00 00] EXOS type determined: IS-BASIC program (single)
Program: 0x0, size: 0x41cd bytes.
10 LET UN$="try" 20 LET SPC=7685 30 LET SZ=SPC+LEN(UN$) 40 IF VERNUM=2THEN 50 LET T=PEEK(544)+256*PEEK(545)-SZ 60 FOR X=1TOLEN(UN$) 70 IF PEEK(X+T-1)<>ORD(UN$(X:X))THEN 80 ALLOCATE SZ 90 POKE 542,PEEK(544) 100 POKE 543,PEEK(545) 110 CODE ="try" 120 RUN 130 END IF 140 NEXT 150 LET X=X+T 160 POKE 540,XBAND255 170 POKE 541,X/256 180 ELSE 190 ALLOCATE SPC 191 END IF 192 DATA 8,84,65,80,69,58,65,66,67,62,99,17,167,48,247,1,62,99,1,224,29,17,197,18,247,6,62,99,247,3,201 193 FOR N=12455TO12485 194 READ A 195 POKE N,A 196 NEXT N 197 CALL USR(12464,0) 199 SET STATUSOFF:SET #102:PALETTE135,0 200 SET BORDER112:SET VIDEOMODE15:SET VIDEOY24:OPEN #101:"video:" 201 SET PALETTE0,27,10,32,14,3,120,31:SET BIAS128 202 SET #101:PAPER15:CLEAR SCREEN:DISPLAY #101:AT2FROM1TO24 203 SET INK0:PRINT #101,AT10,5:"Please wait while the magician":PRINT #101,AT11,5:"chooses a game for you." 300 CALL TUNE 460 LET BM=4929:LET BR=6420:LET BO=6510:LET BG=6525:LET D=0:LET JK=0:LET KK=0:LET CT=0:LET O=0 461 STRING *10N$(14),J$(2),I$*20 462 DATA "spider","broomstick","lamp","bowl","wand","boots","apple","milk","tarts","bone","book","pencil","spade","clock" 463 RESTORE 462 464 FOR N=1TO14 465 READ N$(N) 466 NEXT N 468 RANDOMIZE 469 SET KEYDELAY0 470 NUMERIC G(9),F(9),K(7,2),C(14),RO(14),QQ(2),S(6) 471 FOR X=1TO7 472 FOR Z=1TO2 473 LET K(X,Z)=0 474 NEXT Z 475 NEXT X 476 LET G(1)=9 477 FOR N=1TO14 478 LET C(N)=0 479 NEXT N 480 IF 1+INT(RND*2)=2THENLET X=1+INT(RND*8):LET G(3)=X:LET C(X)=1:LET G(2)=9:GOTO 485 481 LET X=1+INT(RND*8) 482 IF C(X)=1THEN 481 483 LET G(2)=X:LET C(X)=1:LET G(3)=9 485 LET X=1+INT(RND*8) 486 IF C(X)=1THEN 485 487 LET C(X)=1:LET G(4)=X 489 IF 1+INT(RND*2)=2THEN 495 490 LET X=1+INT(RND*8) 491 IF C(X)=1THEN 490 492 LET C(X)=1:LET G(5)=X:LET G(6)=9:GOTO 500 495 LET X=1+INT(RND*8) 496 IF C(X)=1THEN 495 497 LET C(X)=1:LET G(6)=X:LET G(5)=9 500 LET X=1+INT(RND*8) 501 IF C(X)=1THEN 500 502 IF 1+INT(RND*2)=2THEN 505 503 LET G(7)=X:LET C(X)=1:LET G(8)=9:GOTO 510 505 LET G(8)=X:LET C(X)=1:LET G(7)=9 510 LET G(9)=1+INT(RND*8) 511 IF C(G(9))=1THEN 510 515 FOR N=1TO9 516 POKE (BG+(N-1)*2),G(N):POKE (BG+1+(N-1)*2),0 517 NEXT N 520 FOR N=1TO14 521 LET C(N)=0 522 NEXT N 525 IF G(3)=9THENLET K(2,2)=G(2):LET C(G(2))=1 526 IF G(2)=9THENLET K(3,2)=G(3):LET C(G(3))=1 530 LET X=1+INT(RND*5) 531 IF G(6)=9THENLET K(X,1)=G(5):LET C(G(5))=1:GOTO 535 532 IF X=5THENLET X=7 533 LET K(X,1)=G(6):LET C(G(6))=1 535 FOR X=1TO7 536 FOR Z=1TO2 537 LET Y=1+INT(RND*14) 538 IF K(X,Z)>0THEN 541 539 IF C(Y)=1THEN 537 540 LET K(X,Z)=Y:LET C(Y)=1 541 NEXT Z 542 NEXT X 550 FOR N=1TO14 551 LET C(N)=0 552 NEXT N 553 LET F(1)=1:LET F(8)=8:LET C(1)=1 555 FOR N=2TO7 556 LET X=1+INT(RND*7) 557 IF C(X)=1THEN 556 558 LET F(N)=X:LET C(X)=1 559 NEXT N 565 FOR N=1TO8 566 POKE (BR+(N-1)*11),F(N) 567 NEXT N 570 FOR J=1TO14 571 FOR N=1TO7 572 IF K(N,1)=JTHENPOKE (BO+J-1),N 573 IF K(N,2)=JTHENPOKE (BO+J-1),N 574 NEXT N 575 NEXT J 580 CALL FI:LET R=1 582 LET RM=PEEK(BR+(R-1)*11) 584 IF R=1THENLET RM=1 586 IF R=8THENLET RM=8 588 CLEAR SCREEN 589 ON RMGOSUB 1100, 2000, 3000, 4000, 5000, 6000, 7000, 8000 590 IF R=8THEN 680 592 CALL TL 594 LET E=PEEK(BR+11*(R-1)+2*D+1) 596 IF E=0THENCALL BUB:PRINT #101,AT20,4:"You can't go that way.":GOTO 675 598 CALL CLP(11):LET L=PEEK(BG+2*(E-1)) 600 IF L=9THEN 670 602 IF PEEK(BG+2*(E-1)+1)=1THEN 604 LET M=23+L 606 CALL ME(M,0,12,4) 608 CALL KEY 610 GOTO 670 612 END IF 614 CALL ME(15+L,0,12,4) 618 LET A$=INKEY$ 619 IF A$=""THEN 618 620 IF A$="n"ORA$="N"THEN 675 622 IF A$<>"y"ANDA$<>"Y"THEN 618 624 IF RO(L)=0THEN 626 CALL ME(36,0,19,4) 628 LET RO(L)=10 630 POKE (BO+L-1),10:POKE (BG+2*(E-1)+1),1 632 CALL KEY 634 GOTO 670 636 END IF 638 CALL BUB:CALL ME(37,0,19,4):GOTO 675 670 LET R=PEEK(BR+11*(R-1)+2*D):LET CR=R:GOTO 582 675 CALL KEY:CALL CLP(11):GOTO 590 680 SET PAPER15:SET INK0 681 IF PEEK(BO+8)=0THEN 690 682 CALL BUB:PRINT #101,AT14,3:"Oh dear!":PRINT #101,AT15,3:"You have come to the palace":PRINT #101,AT16,3:"without the tarts and ":PRINT #101,AT17,3:"the queen is very cross indeed." 684 PRINT #101,AT18,3:"She sends you back to the":PRINT #101,AT19,3:"yellow brick road to find them.":CALL KEY:LET R=1:GOTO 582 690 PRINT #101,AT14,4:"Well done!":PRINT #101,AT15,3:"You have brought the tarts back":PRINT #101,AT16,3:"to the queen and she is very pleased." 691 CALL TUNE 692 CALL KEY 696 CALL CLP(14):PRINT #101,AT14,3:"But..........":PRINT #101,AT15,3:"Oh no! The Knave of Hearts has just":PRINT #101,AT16,3:"come in and stolen them again" 698 PRINT #101,AT18,3:"If you press a key you will be":PRINT #101,AT19,3:"sent off to find them all over again." 700 LET A$=INKEY$ 702 IF A$=""THEN 700 703 PING 704 CALL CLP(18):PRINT #101,AT18,3:"The wicked magician is going to":PRINT #101,AT19,3:"muddle everything up":PRINT #101,AT20,3:"to make it difficult for you,":PRINT #101,AT21,3:"so you must wait a minute." 714 GOTO 471 750 DEF ME(MN,ZM,YLN,XCOL) 751 POKE 4805,MN:POKE 4808,ZM:POKE 4811,(YLN+32):POKE 4812,(XCOL+32) 752 POKE 4806,65:POKE 4807,19 753 CALL USR(4813,0) 754 END DEF 755 DEF FI 756 FOR N=1TO14 758 LET RO(N)=PEEK(BO+N-1) 760 NEXT N 762 END DEF 770 DEF KEY 771 PRINT #101,AT24,9:"Any key to continue" 772 SOUND PITCH50,DURATION2 774 LET A$=INKEY$ 776 IF A$=""THEN 774 778 END DEF 780 DEF RMOBJ(G) 782 LET J=0:LET J$(1)="":LET J$(2)="":LET QQ(1)=0:LET QQ(2)=0 784 FOR N=1TO14 786 IF PEEK(BO+N-1)=GTHENLET J=J+1:LET J$(J)=N$(N):LET QQ(J)=N 788 NEXT N 789 IF J=0THENLET J$(1)="nothing":GOTO 799 791 ! 799 END DEF 800 DEF INP(Y,X) 802 LET I$="" 804 PRINT #101,ATY,X:"";I$ 806 LET A$=INKEY$ 808 IF A$=""THEN 806 809 LET KG=ORD(A$) 810 IF KG=164ANDLEN(I$)=0THEN 806 811 IF KG=13THEN 830 812 IF KG=164THEN 814 LET LL=LEN(I$)-1 816 LET I$=I$(1:LL) 817 PRINT #101,ATY,X+LL+1:" " 818 GOTO 804 819 END IF 820 IF KG<>32AND(KG<97ORKG>122)THEN 806 822 LET I$=I$&A$ 824 IF LEN(I$)>20THEN 830 826 GOTO 804 830 END DEF 840 DEF CLP(LNS) 841 SET PAPER15 842 FOR N=LNSTO24 844 PRINT #101,ATN,1:" " 846 NEXT N 848 END DEF 850 DEF CL(X,Y) 852 FOR N=XTO40 854 PRINT #101,ATY,X:" " 856 NEXT N 858 END DEF 860 DEF CHIN(LO) 861 LET CT=0 862 IF F$="nothing"ORF$=""THENLET CT=1:GOTO 879 864 LET F$=RTRIM$(F$) 866 LET F$=LTRIM$(F$) 868 FOR N=1TO14 870 IF F$=N$(N)THENLET O=N:LET N=14:LET CT=2:GOTO 876 876 NEXT N 878 IF CT<>2THENLET CT=4 879 END DEF 880 DEF PROBJ 881 FOR N=1TO2 882 LET PZ=7+(N-1)*21 883 IF QQ(N)=0THENLET QQ(N)=15 885 ON NGOSUB 9180, 9190 887 ON QQ(N)GOSUB 9000, 9010, 9020, 9030, 9040, 9050, 9060, 9070, 9080, 9090, 9100, 9110, 9120, 9130, 9140 889 LET EZ=0 890 FOR M=9TO10 892 FOR QZ=PZTOPZ+2 893 LET EZ=EZ+1 894 READ P 896 READ I 900 SET PAPERP:SET INKI:PRINT #101,ATM,QZ:CHR$(S(EZ)) 906 NEXT 907 NEXT 908 NEXT N 909 SET INK0:SET PAPER15 910 END DEF 912 DEF TL 914 CALL CLP(11):SET PAPER15:SET INK0 916 PRINT #101,AT12,4:"Exits: " 918 LET M=PEEK(BR+11*(R-1)+10):CALL ME(M,0,12,11) 919 GOTO 921 920 CALL CLP(14) 921 LET GG=R:CALL RMOBJ(GG) 922 PRINT #101,AT14,4:"You can see: ";J$(1);", ";J$(2) 923 CALL PROBJ:LET JK=0 924 LET GG=0:CALL RMOBJ(GG) 926 PRINT #101,AT15,4:"You have: ";J$(1);", ";J$(2) 928 PRINT #101,AT17,4:"What do you want to do? " 929 CALL CLK 930 CALL INP(18,4) 932 IF LEN(I$)<3THEN 938 934 IF I$(1:3)="go "THENLET I$=I$(4:LEN(I$)) 938 IF LEN(I$)<4THENLET G$=I$(1:1):GOTO 942 940 LET G$=I$(1:4) 942 IF G$="nort"ORG$="n"THENLET D=1:GOTO 960 944 IF G$="sout"ORG$="s"THENLET D=2:GOTO 960 946 IF G$="east"ORG$="e"THENLET D=3:GOTO 960 948 IF G$="west"ORG$="w"THENLET D=4:GOTO 960 950 IF G$="take"THENCALL TK:GOTO 920 952 IF G$="leav"THENCALL LE:GOTO 920 954 IF G$="swap"THENCALL SW:GOTO 920 956 CALL CLP(18):GOTO 920 960 END DEF 962 DEF TK 964 IF JK=2THEN 974 965 LET CC=0 966 FOR N=1TO14 967 IF RO(N)=0THENLET CC=CC+1 968 NEXT N 970 IF CC=2THENCALL ME(32,0,21+JK,4):CALL KEY:CALL CLP(21+JK):GOTO 990 972 IF LEN(I$)>5THENLET F$=I$(6:LEN(I$)):GOTO 980 974 PRINT #101,AT19+JK,4:"What do you want to take?" 976 CALL CLK:CALL INP(20+JK,4):LET F$=I$:LET KK=5 980 CALL CHIN(1) 981 IF CT=1THEN 990 982 IF CT=4THENCALL ME(33,0,21+JK,4):CALL KEY:CALL CLP(21+JK):GOTO 990 984 IF RO(O)=RTHENLET RO(O)=0:POKE (BO+O-1),0:LET KK=0:GOTO 990 986 CALL ME(34,0,21+JK,4):CALL KEY:LET CT=4 990 END DEF 992 DEF LE 994 IF JK=2THEN 1004 996 LET CC=0 997 FOR N=1TO14 998 IF RO(N)=RTHENLET CC=CC+1 999 NEXT N 1000 IF CC=2THENCALL ME(38,0,21,4):CALL KEY:GOTO 1030 1002 IF LEN(I$)>6THENLET F$=I$(7:LEN(I$)):GOTO 1010 1004 PRINT #101,AT19,4:"What do you want to leave?" 1006 CALL CLK:CALL INP(20,4):LET F$=I$ 1010 CALL CHIN(1) 1011 IF CT=1THEN 1030 1014 IF CT=4THENCALL ME(33,0,21,4):CALL KEY:GOTO 1030 1016 IF RO(O)=0THENLET RO(O)=R:POKE (BO+O-1),R:GOTO 1030 1018 CALL ME(35,0,21,4):CALL KEY 1030 END DEF 1032 DEF SW 1034 LET JK=2:LET KK=0:CALL LE 1036 IF CT<>2ANDCT<>3THEN 1050 1038 LET GC=O:CALL TK 1040 IF KK=5THENLET RO(GC)=0:POKE (BO+GC-1),0 1050 END DEF 1060 DEF CLK 1062 SOUND PITCH70,DURATION1 1064 END DEF 1070 DEF BUB 1072 FOR N=1TO5 1074 SOUND PITCH30,DURATION4 1076 SOUND PITCH50,DURATION4 1078 NEXT 1079 END DEF 1100 PRINT #101,AT1,9:"THE YELLOW BRICK ROAD" 1105 POKE 12308,158:POKE 12309,25:POKE 12310,252:POKE 12311,0 1110 CALL USR(12318,0) 1120 RETURN 2000 PRINT #101,AT1,13:"THE OLD BOOT" 2105 POKE 12308,128:POKE 12309,28:POKE 12310,8:POKE 12311,1 2110 CALL USR(12318,0) 2120 RETURN 3000 PRINT #101,AT1,12:"ALADDIN'S CAVE" 3105 POKE 12308,110:POKE 12309,31:POKE 12310,204:POKE 12311,0 3110 CALL USR(12318,0) 3120 RETURN 4000 PRINT #101,AT1,10:"THE GIANT BEANSTALK" 4105 POKE 12308,32:POKE 12309,34:POKE 12310,204:POKE 12311,0 4110 CALL USR(12318,0) 4120 RETURN 5000 PRINT #101,AT1,10:"THE QUEEN'S GARDEN" 5105 POKE 12308,210:POKE 12309,36:POKE 12310,228:POKE 12311,0 5110 CALL USR(12318,0) 5120 RETURN 6000 PRINT #101,AT1,9:"THE ENCHANTED FOREST" 6105 POKE 12308,156:POKE 12309,39:POKE 12310,56:POKE 12311,1 6110 CALL USR(12318,0) 6120 RETURN 7000 PRINT #101,AT1,12:"MISTY MOUNTAINS" 7105 POKE 12308,186:POKE 12309,42:POKE 12310,156:POKE 12311,0 7110 CALL USR(12318,0) 7120 RETURN 8000 PRINT #101,AT1,10:"THE QUEEN'S PALACE" 8105 POKE 12308,60:POKE 12309,45:POKE 12310,240:POKE 12311,0 8110 CALL USR(12318,0) 8120 RETURN 9000 RESTORE 9007 9001 SET CHARACTERS(1),0,0,0,24,36,66,137,20,35 9002 SET CHARACTERS(2),0,68,56,124,68,56,125,254,255 9003 SET CHARACTERS(3),0,0,0,48,72,132,34,80,136 9004 SET CHARACTERS(4),65,137,23,33,64,135,4,8,24 9005 SET CHARACTERS(5),255,255,255,254,255,56,0,0 9006 SET CHARACTERS(6),4,48,200,8,4,196,66,32,48 9007 DATA 15,0,15,0,15,0,15,0,15,0,15,0 9009 RETURN 9010 RESTORE 9017 9011 SET CHARACTERS(1),0,0,0,0,0,0,0,0,255 9012 SET CHARACTERS(2),0,0,0,0,0,0,3,7,255 9013 SET CHARACTERS(3),0,0,0,0,0,31,224,0,255 9014 SET CHARACTERS(4),255,0,0,0,0,0,0,0,0 9015 SET CHARACTERS(5),255,7,0,0,0,0,0,0,0 9016 SET CHARACTERS(6),0,224,31,0,0,0,0,0,0 9017 DATA 15,0,15,0,15,0,15,0,15,0,15,0 9019 RETURN 9020 RESTORE 9027 9021 SET CHARACTERS(1),0,0,0,0,0,32,64,64,64 9022 SET CHARACTERS(2),0,0,0,0,0,0,0,0,0 9023 SET CHARACTERS(3),0,0,0,0,60,99,67,65,97 9024 SET CHARACTERS(4),0,255,127,63,15,7,0,0 9025 SET CHARACTERS(5),255,255,255,255,255,255,255,254,0 9026 SET CHARACTERS(6),49,139,254,254,252,240,192,0,0 9027 DATA 15,5,15,0,15,0,15,0,15,0,15,0 9029 RETURN 9030 RESTORE 9037 9031 SET CHARACTERS(1),0,0,0,0,0,0,1,14,48 9032 SET CHARACTERS(2),0,0,0,0,0,0,255,0,0 9033 SET CHARACTERS(3),0,0,0,0,0,0,128,112,12 9034 SET CHARACTERS(4),48,63,63,63,31,15,3,0,0 9035 SET CHARACTERS(5),0,0,255,255,255,255,255,255 9036 SET CHARACTERS(6),12,252,252,252,248,240,192,0 9037 DATA 15,4,15,4,15,4,15,4,15,4,15,4 9039 RETURN 9040 RESTORE 9047 9041 SET CHARACTERS(1),0,0,0,0,0,0,0,0,0 9042 SET CHARACTERS(2),0,0,0,0,0,0,0,3,12 9043 SET CHARACTERS(3),0,0,16,68,56,238,56,68,16 9044 SET CHARACTERS(4),0,0,3,12,48,192,0,0,0 9045 SET CHARACTERS(5),48,192,0,0,0,0,0,0,0 9046 SET CHARACTERS(6),0,0,0,0,0,0,0,0,0 9047 DATA 15,0,15,0,15,7,15,0,15,0,15,0 9049 RETURN 9050 RESTORE 9057 9051 SET CHARACTERS(1),3,3,3,3,3,3,3,3,7 9052 SET CHARACTERS(2),231,231,231,231,231,231,231,231,231 9053 SET CHARACTERS(3),192,192,192,192,192,192,192,192,224 9054 SET CHARACTERS(4),63,127,255,255,252,0,0,0,0 9055 SET CHARACTERS(5),231,231,231,231,231,0,0,0,0 9056 SET CHARACTERS(6),252,254,255,255,63,0,0,0,0 9057 DATA 15,9,15,9,15,9,15,9,15,9,15,9 9059 RETURN 9060 RESTORE 9067 9061 SET CHARACTERS(1),0,0,0,0,7,15,31,30,60 9062 SET CHARACTERS(2),24,24,24,24,144,215,255,127,127 9063 SET CHARACTERS(3),0,0,0,0,0,128,192,224,240 9064 SET CHARACTERS(4),60,63,63,31,31,15,7,3,0 9065 SET CHARACTERS(5),255,255,255,255,255,255,255,255,254 9066 SET CHARACTERS(6),240,240,240,240,224,224,192,128,0 9067 DATA 15,9,15,9,15,9,15,9,15,9,15,9 9069 RETURN 9070 RESTORE 9077 9071 SET CHARACTERS(1),0,0,0,0,0,0,0,0,56 9072 SET CHARACTERS(2),56,36,36,66,66,129,129,129,129 9073 SET CHARACTERS(3),0,0,0,0,0,0,0,0,0 9074 SET CHARACTERS(4),198,186,130,130,68,68,68,68,124 9075 SET CHARACTERS(5),129,129,129,129,129,129,129,129,195 9076 SET CHARACTERS(6),0,0,0,0,0,0,0,0,0 9077 DATA 15,0,15,0,15,0,15,0,7,0,15,0 9079 RETURN 9080 RESTORE 9087 9081 SET CHARACTERS(1),0,0,0,1,15,127,127,225,204 9082 SET CHARACTERS(2),0,0,0,255,255,195,153,189,153 9083 SET CHARACTERS(3),0,0,0,128,240,254,254,135,51 9084 SET CHARACTERS(4),222,204,97,63,63,15,1,0,0 9085 SET CHARACTERS(5),195,153,189,153,195,255,255,0,0 9086 SET CHARACTERS(6),123,51,134,252,252,240,128,0,0 9087 DATA 7,9,7,9,7,9,7,9,7,9,7,9 9089 RETURN 9090 RESTORE 9097 9091 SET CHARACTERS(1),0,0,0,0,28,62,63,31,31 9092 SET CHARACTERS(2),0,0,0,0,0,0,255,255,255 9093 SET CHARACTERS(3),0,0,0,24,60,62,254,252,252 9094 SET CHARACTERS(4),31,63,63,63,30,0,0,0,0 9095 SET CHARACTERS(5),255,255,255,0,0,0,0,0 9096 SET CHARACTERS(6),254,254,254,124,28,0,0,0,0 9097 DATA 15,7,15,7,15,7,15,7,15,7,15,7 9099 RETURN 9100 RESTORE 9107 9101 SET CHARACTERS(1),12,3,12,15,15,15,15,15,15 9102 SET CHARACTERS(2),0,129,102,153,231,255,255,229,253 9103 SET CHARACTERS(3),48,192,48,240,240,208,80,112,240 9104 SET CHARACTERS(4),15,15,15,15,15,15,3,0,0 9105 SET CHARACTERS(5),231,255,231,255,239,255,255,126,24 9106 SET CHARACTERS(6),240,240,240,240,240,240,192,0,0 9107 DATA 15,3,15,3,15,3,15,3,15,3,15,3 9109 RETURN 9110 RESTORE 9117 9111 SET CHARACTERS(1),0,0,0,0,0,0,0,0,0 9112 SET CHARACTERS(2),0,0,0,0,1,3,7,15,31 9113 SET CHARACTERS(3),16,56,124,248,240,224,192,128,0 9114 SET CHARACTERS(4),0,0,0,1,3,5,8,9,14 9115 SET CHARACTERS(5),62,124,248,240,224,192,128,0,0 9116 SET CHARACTERS(6),0,0,0,0,0,0,0,0,0 9117 DATA 15,9,15,9,15,9,15,9,15,9,15,9 9119 RETURN 9120 RESTORE 9127 9121 SET CHARACTERS(1),2,5,9,7,1,0,0,0,0 9122 SET CHARACTERS(2),0,0,0,0,128,192,96,48,24 9123 SET CHARACTERS(3),0,0,0,0,0,0,0,0,128 9124 SET CHARACTERS(4),0,0,0,0,0,0,0,0,0 9125 SET CHARACTERS(5),13,7,7,15,7,3,1,0,0 9126 SET CHARACTERS(6),192,224,240,248,252,248,240,224,64 9127 DATA 15,0,15,0,15,0,15,0,15,0,15,0 9129 RETURN 9130 RESTORE 9137 9131 SET CHARACTERS(1),0,1,3,7,14,12,29,24,27 9132 SET CHARACTERS(2),126,255,195,8,74,36,129,66,36 9133 SET CHARACTERS(3),0,128,192,224,112,48,56,24,152 9134 SET CHARACTERS(4),24,24,29,12,14,7,3,1,0 9135 SET CHARACTERS(5),24,129,0,34,73,8,195,255,126 9136 SET CHARACTERS(6),24,24,184,48,112,224,192,128,0 9137 DATA 15,0,15,0,15,0,15,0,15,0,15,0 9139 RETURN 9140 RESTORE 9147 9141 FOR Z=1TO6 9142 SET CHARACTERS(Z),0,0,0,0,0,0,0,0,0 9143 NEXT 9147 DATA 15,0,15,0,15,0,15,0,15,0,15,0 9149 RETURN 9180 RESTORE 9181 9181 DATA 96,123,43,42,125,60 9182 FOR Z=1TO6 9183 READ CH 9184 LET S(Z)=CH 9185 NEXT 9186 RETURN 9190 RESTORE 9181 9191 DATA 62,124,158,128,157,156 9192 FOR Z=1TO6 9193 READ CH 9194 LET S(Z)=CH 9195 NEXT 9196 RETURN 9900 DEF TUNE 9901 RESTORE 9910 9910 DATA 50,6,52,6,54,10,127,2,54,6,57,6,55,10,127,2,55,6,59,6,57,10,127,2,57,6,55,6,54,10,127,2,54,6,57,6 9911 DATA 55,10,127,2,55,6,54,6,52,12,57,12,54,36,50,6,52,6,54,10,127,2,54,6,57,6,55,10,127,2,55,6,59,6 9912 DATA 57,10,127,2,57,6,55,6,54,10,127,2,54,6,57,6,55,10,127,2,55,6,54,6,52,12,57,12,50,36 9920 FOR N=1TO50 9922 READ PI,DU 9924 SOUND PITCHPI,DURATIONDU 9926 NEXT 9928 END DEF
EXOS header pos/serial: #1 at 0x41dd 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)