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)