Home » CEEFAX disks » telesoftware5.adl » 12-03-88/ORGAN

12-03-88/ORGAN

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware5.adl
Filename: 12-03-88/ORGAN
Read OK: ✔
File size: 2A63 bytes
Load address: FFFF1A00
Exec address: FFFF801F
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM **************************
   20REM *       MOUSE ORGAN      * 
   30REM * For use with BBC micro *
   40REM *      and AMX Mouse.    *
   50REM *   Geoff Turner  1985   *
   60REM *   (C) THE MICRO USER   *
   70REM **************************
   80ON ERROR GOTO 5680
   90MODE 4
  100PROCinitialise
  110PROCscreen
  120*SHOWPOINTER
  130REPEAT
  140REPEAT
  150*MOVEPOINTER
  160UNTIL NOT INKEY(-129)
  170PROCbutton
  180UNTIL FALSE
  190END
  200REM****************************
  210REM INITIALISE VARIABLES
  220DEFPROCinitialise
  230*POINTER 80,81
  240E%=1:D%=20:F%=1:T%=3:R%=0
  250note%=0:pb%=0:ed%=0:edit%=0
  260DIM F%(7),N%(999)
  270FOR I%=0 TO 6
  280READ F%(I%)
  290NEXT
  300DATA 1,5,13,21,25,33,41
  310DIM P%(4,13)
  320FOR J%=1 TO 4
  330FOR I%=1 TO 13
  340READ P%(J%,I%)
  350NEXT
  360NEXT
  370DATA 1,0,0,0,0,0,0,20,0,-10,-100,120,0
  380DATA 10,0,0,0,0,0,0,126,126,-20,-50,120,50
  390DATA 8,1,1,1,1,1,1,20,0,-10,-10,120,0
  400DATA 3,1,1,1,1,1,1,126,0,0,-50,100,100
  410DIM P$(13)
  420FOR I=2 TO 13
  430READ P$(I)
  440NEXT
  450DATA P1,P2,P3,N1,N2,N3,AA,AD,AS,AR,ALA,ALD
  460DIM min(13),max(13)
  470FOR I=2 TO 13
  480READ min(I)
  490NEXT
  500FOR I=2 TO 13
  510READ max(I)
  520NEXT
  530DATA -128,-128,-128,0,0,0,-127,-127,-127,-127,0,0
  540DATA 127,127,127,255,255,255,127,127,0,0,126,126
  550PROCenvelope
  560ENDPROC
  570REM****************************
  580REM SET UP SCREEN DISPLAY
  590DEFPROCscreen
  600*DESK
  610*WINDOW 1,24,38,19
  620FOR I%=32 TO 1272 STEP 32
  630MOVE I%,416
  640DRAW I%,224
  650NEXT
  660C%=0
  670GCOL0,128
  680FOR X%=76 TO 1224 STEP 32
  690C%=C%+1
  700IF C%=3 OR C%=7 THEN 770
  710IF C%=8 THEN C%=1
  720MOVE X%,416
  730DRAW X%,320
  740PLOT 85,X%+20,416
  750DRAW X%+20,320
  760PLOT 85,X%,320
  770NEXT
  780*WINDOW 1,26,38,26
  790VDU26
  800N$="BCDEFGA"
  810PRINT TAB(1,26);STRING$(5,N$);
  820PRINT"BCD";
  830*WINDOW 1,13,38,1
  840PRINTTAB(1,1)"ENVELOPE";
  850PRINTTAB(19,1);"STEP TIME";
  860PRINTTAB(2,4);P$(2)
  870PRINTTAB(8,4);P$(3)
  880PRINTTAB(14,4);P$(4)
  890PRINTTAB(20,4);P$(5)
  900PRINTTAB(26,4);P$(6)
  910PRINTTAB(32,4);P$(7)
  920PRINTTAB(2,9);P$(8)
  930PRINTTAB(8,9);P$(9)
  940PRINTTAB(14,9);P$(10)
  950PRINTTAB(20,9);P$(11)
  960PRINTTAB(26,9);P$(12)
  970PRINTTAB(32,9);P$(13)
  980VDU5
  990MOVE 48,975
 1000PROCiconstwo
 1010MOVE 48,879
 1020PROCicons
 1030MOVE 48,815
 1040PROCicons
 1050MOVE 48,719
 1060PROCicons
 1070MOVE 48,655
 1080PROCicons
 1090VDU4
 1100VDU26
 1110PROCparameters
 1120*WINDOW 1,17,38,15
 1130VDU5
 1140MOVE 48,527
 1150PROCiconstwo
 1160VDU4
 1170VDU26
 1180PRINT TAB(2,16);"DURATION";
 1190PRINT TAB(20,16);"EFFECT";
 1200PRINTTAB(16,16);D%
 1210PRINTTAB(34,16);F%
 1220PROCstore
 1230ENDPROC
 1240REM****************************
 1250REM DISPLAY ICONS
 1260DEFPROCicons
 1270FOR I=1 TO 6
 1280*ICON 77
 1290*ICON 78
 1300*ICON 79
 1310NEXT:ENDPROC
 1320REM****************************
 1330REM DISPLAY ICONS
 1340DEFPROCiconstwo
 1350FOR I=1 TO 2
 1360*ICON 77
 1370*ICON 78
 1380*ICON 78
 1390*ICON 78
 1400*ICON 78
 1410*ICON 79
 1420*ICON 77
 1430*ICON 78
 1440*ICON 79
 1450NEXT
 1460ENDPROC
 1470REM**************************
 1480REM DISPLAY MEMORY WINDOW
 1490DEFPROCstore
 1500*WINDOW 1,30,38,28
 1510VDU26
 1520PRINT TAB(2,29);"REC"
 1530PRINT TAB(6,29);note%
 1540PRINT TAB(10,29);"ERA"
 1550PRINT TAB(14,29);"P/B"
 1560PRINT TAB(18,29);pb%
 1570PRINT TAB(22,29);"EDIT"
 1580PRINT TAB(28,29);"LOAD-SAVE"
 1590PRINT TAB(33,29);"SAVE"
 1600VDU5
 1610MOVE 48,108
 1620FOR I=1 TO 5
 1630*ICON 77
 1640*ICON 79
 1650NEXT
 1660*ICON 77
 1670*ICON 78
 1680*ICON 79
 1690*ICON 77
 1700*ICON 78
 1710*ICON 78
 1720*ICON 78
 1730*ICON 79
 1740VDU4
 1750VDU23,1,0;0;0;0;
 1760ENDPROC
 1770REM****************************
 1780REM IDENTIFY FUNCTION
 1790DEFPROCbutton
 1800*UPDATE
 1810IF VPOS>18 AND VPOS<25 THEN PROCmusic:ENDPROC
 1820IF VPOS=2 AND POS>13 AND POS<19 THEN PROCchange:ENDPROC
 1830IF VPOS=2 AND POS>31 AND POS<37 THEN PROCstep:ENDPROC
 1840IF VPOS=7 OR VPOS=12 THEN PROCpitchamp:ENDPROC
 1850IF VPOS=16 AND POS>13 AND POS<19 THEN PROCduration:ENDPROC
 1860IF VPOS=16 AND POS>31 AND POS<37 THEN PROCeffect:ENDPROC
 1870IF VPOS=29 PROCmemory:ENDPROC
 1880ENDPROC
 1890REM****************************
 1900REM PLAY NOTE
 1910DEFPROCmusic
 1920IF POS<1 OR POS>38 ENDPROC
 1930P%=POS-1:V%=VPOS
 1940N%=48*(P% DIV 7)+F%(P% MOD 7)
 1950IF V%<22 THEN IF P% MOD 7<>3 AND P%MOD 7<>0 AND P%<>37 THEN N%=N%+4
 1960IF ed%=0 THEN IF R%=1 THEN IF note%<999 THEN note%=note%+1:N%(note%)=N%:PRINTTAB(6,29);note%
 1970IF ed%=1 THEN IF R%=1 THEN N%(edit%)=N%
 1980IF F%=1 SOUND &11,E%,N%,D%
 1990IF F%=2 SOUND &111,1,N%,D%:SOUND &112,2,N%,D%
 2000IF F%=3 SOUND &211,1,N%,D%:SOUND &212,2,N%,D%:SOUND &213,3,N%,D%
 2010IF R%=1 THEN REPEAT:UNTIL INKEY(-129)
 2020ENDPROC
 2030REM****************************
 2040REM DEFINE ENVELOPES
 2050DEFPROCenvelope
 2060ON E% GOTO 2070,2080,2090,2100
 2070ENVELOPE 1,P%(1,1),P%(1,2),P%(1,3),P%(1,4),P%(1,5),P%(1,6),P%(1,7),P%(1,8),P%(1,9),P%(1,10),P%(1,11),P%(1,12),P%(1,13):ENDPROC
 2080ENVELOPE 2,P%(2,1),P%(2,2),P%(2,3),P%(2,4),P%(2,5),P%(2,6),P%(2,7),P%(2,8),P%(2,9),P%(2,10),P%(2,11),P%(2,12),P%(2,13):ENDPROC
 2090ENVELOPE 3,P%(3,1),P%(3,2),P%(3,3),P%(3,4),P%(3,5),P%(3,6),P%(3,7),P%(3,8),P%(3,9),P%(3,10),P%(3,11),P%(3,12),P%(3,13):ENDPROC
 2100ENVELOPE 4,P%(4,1),P%(4,2),P%(4,3),P%(4,4),P%(4,5),P%(4,6),P%(4,7),P%(4,8),P%(4,9),P%(4,10),P%(4,11),P%(4,12),P%(4,13):ENDPROC
 2110REM****************************
 2120REM DISPLAY PARAMETERS
 2130DEFPROCparameters
 2140PRINTTAB(16,2);E%
 2150PRINTTAB(34,2);SPC(3);
 2160PRINTTAB(34,2);P%(E%,1)
 2170FOR I%=1 TO 6
 2180PRINTTAB(6*(I%-1)+2,7);SPC(5);
 2190PRINTTAB(6*(I%-1)+3,7);P%(E%,I%+1);
 2200PRINTTAB(6*(I%-1)+2,12);SPC(5);
 2210PRINTTAB(6*(I%-1)+3,12);P%(E%,I%+7);
 2220NEXT
 2230ENDPROC
 2240REM****************************
 2250REM CHANGE ENVELOPE
 2260DEFPROCchange
 2270*HIDEPOINTER
 2280COLOUR 129:COLOUR 0
 2290PRINTTAB(2,2);SPC(11);
 2300PRINTTAB(2,2);"ENVELOPE";
 2310PRINTTAB(14,2);SPC(5);
 2320PRINTTAB(16,2);E%;
 2330REPEAT:UNTIL INKEY(-129)
 2340REPEAT
 2350IF INKEY(-107) THEN E%=E%+1
 2360IF INKEY(-109) THEN E%=E%-1
 2370IF E%=5 THEN E%=1
 2380IF E%=0 THEN E%=4
 2390PRINTTAB(16,2);E%;
 2400FOR delay=1 TO 300:NEXT
 2410UNTIL INKEY(-108)
 2420COLOUR 128:COLOUR 1
 2430PRINTTAB(2,2);SPC(11);
 2440PRINTTAB(2,2);"ENVELOPE";
 2450PRINTTAB(14,2);SPC(5);
 2460PRINTTAB(16,2);E%;
 2470PROCenvelope
 2480PROCparameters
 2490*SHOWPOINTER
 2500REPEAT:UNTIL INKEY(-129)
 2510ENDPROC
 2520REM****************************
 2530REM CHANGE STEP
 2540DEFPROCstep
 2550*HIDEPOINTER
 2560COLOUR 129:COLOUR 0
 2570PRINTTAB(20,2);SPC(11);
 2580PRINTTAB(20,2);"STEP TIME";
 2590PRINTTAB(32,2);SPC(5);
 2600PRINTTAB(34,2);P%(E%,1);
 2610REPEAT:UNTIL INKEY(-129)
 2620REPEAT
 2630IF INKEY(-107) THEN P%(E%,1)=P%(E%,1)+1
 2640IF INKEY(-109) THEN P%(E%,1)=P%(E%,1)-1
 2650IF P%(E%,1)=256 THEN P%(E%,1)=1
 2660IF P%(E%,1)=0 THEN P%(E%,1)=255
 2670PRINTTAB(32,2);SPC(5);
 2680PRINTTAB(34,2);P%(E%,1);
 2690FOR delay=1 TO 300:NEXT
 2700UNTIL INKEY(-108)
 2710COLOUR 128:COLOUR 1
 2720PRINTTAB(20,2);SPC(11);
 2730PRINTTAB(20,2);"STEP TIME";
 2740PRINTTAB(32,2);SPC(5);
 2750PRINTTAB(34,2);P%(E%,1);
 2760PROCenvelope
 2770*SHOWPOINTER
 2780REPEAT:UNTIL INKEY(-129)
 2790ENDPROC
 2800REM****************************
 2810REM CHANGE PARAMETERS
 2820DEFPROCpitchamp
 2830IF VPOS=7 THEN P%=2 ELSE P%=8
 2840Q%=(POS+5)/6
 2850P%=P%+Q%-1
 2860IF P%<2 THEN P%=2
 2870IF P%>13 THEN P%=13
 2880*HIDEPOINTER
 2890COLOUR 129:COLOUR 0
 2900IF P%<8 PRINTTAB((P%-2)*6+2,VPOS-2);SPC(5);TAB((P%-2)*6+3,VPOS);P$(P%);
 2910IF P%>7 PRINTTAB((P%-8)*6+2,VPOS-2);SPC(5);TAB((P%-8)*6+3,VPOS);P$(P%);
 2920IF P%<8 PRINTTAB((P%-2)*6+2,VPOS+2);SPC(5);TAB((P%-2)*6+3,VPOS);P%(E%,P%);
 2930IF P%>7 PRINTTAB((P%-8)*6+2,VPOS+2);SPC(5);TAB((P%-8)*6+3,VPOS);P%(E%,P%);
 2940REPEAT:UNTIL INKEY(-129)
 2950REPEAT
 2960IF INKEY(-107) THEN P%(E%,P%)=P%(E%,P%)+1
 2970IF INKEY(-109) THEN P%(E%,P%)=P%(E%,P%)-1
 2980IF P%(E%,P%)<min(P%) THEN P%(E%,P%)=max(P%)
 2990IF P%(E%,P%)>max(P%) THEN P%(E%,P%)=min(P%)
 3000IF P%<8 PRINTTAB((P%-2)*6+2,VPOS);SPC(5);TAB((P%-2)*6+3,VPOS);P%(E%,P%);
 3010IF P%>7 PRINTTAB((P%-8)*6+2,VPOS);SPC(5);TAB((P%-8)*6+3,VPOS);P%(E%,P%);
 3020FOR DELAY=1 TO 300:NEXT
 3030UNTIL INKEY(-108)
 3040COLOUR 128:COLOUR 1
 3050IF P%<8 PRINTTAB((P%-2)*6+2,VPOS);SPC(5);TAB((P%-2)*6+3,VPOS);P%(E%,P%);
 3060IF P%>7 PRINTTAB((P%-8)*6+2,VPOS);SPC(5);TAB((P%-8)*6+3,VPOS);P%(E%,P%);
 3070IF P%<8 PRINTTAB((P%-2)*6+2,VPOS-2);SPC(5);TAB((P%-2)*6+3,VPOS);P$(P%);
 3080IF P%>7 PRINTTAB((P%-8)*6+2,VPOS-2);SPC(5);TAB((P%-8)*6+3,VPOS);P$(P%);
 3090PROCenvelope
 3100*SHOWPOINTER
 3110REPEAT:UNTIL INKEY(-129)
 3120ENDPROC
 3130REM****************************
 3140REM CHANGE DURATION
 3150DEFPROCduration
 3160*HIDEPOINTER
 3170COLOUR 129:COLOUR 0
 3180PRINTTAB(2,16);SPC(11);
 3190PRINTTAB(2,16);"DURATION";
 3200PRINTTAB(14,16);SPC(5);
 3210PRINTTAB(16,16);D%;
 3220REPEAT:UNTIL INKEY(-129)
 3230REPEAT
 3240IF INKEY(-107) THEN D%=D%+1
 3250IF INKEY(-109) THEN D%=D%-1
 3260IF D%=256 THEN D%=1
 3270IF D%=0 THEN D%=255
 3280PRINTTAB(14,16);SPC(5);
 3290PRINTTAB(16,16);D%;
 3300FOR DELAY=1 TO 300:NEXT
 3310UNTIL INKEY(-108)
 3320COLOUR 128:COLOUR 1
 3330PRINTTAB(2,16);SPC(11);
 3340PRINTTAB(2,16);"DURATION";
 3350PRINTTAB(14,16);SPC(5);
 3360PRINTTAB(16,16);D%;
 3370*SHOWPOINTER
 3380REPEAT:UNTIL INKEY(-129)
 3390ENDPROC
 3400REM****************************
 3410REM CHANGE EFFECTS
 3420DEFPROCeffect
 3430*HIDEPOINTER
 3440COLOUR 129:COLOUR 0
 3450PRINTTAB(20,16);SPC(11);
 3460PRINTTAB(20,16);"EFFECT";
 3470PRINTTAB(32,16);SPC(5);
 3480PRINTTAB(34,16);F%;
 3490REPEAT:UNTIL INKEY(-129)
 3500REPEAT
 3510IF INKEY(-107) THEN F%=F%+1
 3520IF INKEY(-109) THEN F%=F%-1
 3530IF F%=4 THEN F%=1
 3540IF F%=0 THEN F%=3
 3550PRINTTAB(32,16);SPC(5);
 3560PRINTTAB(34,16);F%;
 3570FOR DELAY=1 TO 300:NEXT
 3580UNTIL INKEY(-108)
 3590COLOUR 128:COLOUR 1
 3600PRINTTAB(20,16);SPC(11);
 3610PRINTTAB(20,16);"EFFECT";
 3620PRINTTAB(32,16);SPC(5);
 3630PRINTTAB(34,16);F%;
 3640*SHOWPOINTER
 3650REPEAT:UNTIL INKEY(-129)
 3660ENDPROC
 3670*****************************
 3680REM MEMORY FUNCTIONS
 3690DEFPROCmemory
 3700IF ed%=1 THEN 3750
 3710IF POS>1 AND POS<5 THEN PROCrecord
 3720IF POS>13 AND POS<17 THEN PROCplay
 3730IF POS>27 AND POS<32 THEN PROCload
 3740IF POS>32 AND POS<37 THEN PROCsave
 3750IF POS>9 AND POS<13 AND ed%=0 THEN PROCerase
 3760IF POS>9 AND POS<13 AND ed%=1 AND edit%>0 THEN PROCwipe
 3770IF POS>21 AND POS<26 THEN PROCedit
 3780ENDPROC
 3790REM**************************
 3800REM RECORD NOTES
 3810DEFPROCrecord
 3820*HIDEPOINTER
 3830IF R%=1 THEN COLOUR 128:COLOUR 1
 3840IF R%=0 THEN COLOUR 129:COLOUR 0
 3850IF R%=1 THEN R%=0 ELSE R%=1
 3860PRINTTAB(2,29);"REC"
 3870REPEAT:UNTIL INKEY(-129)
 3880COLOUR 128:COLOUR 1
 3890*SHOWPOINTER
 3900ENDPROC
 3910REM**************************
 3920REM PLAYBACK NOTES
 3930DEFPROCplay
 3940IF note%=0 ENDPROC
 3950IF R%=1 PROCrecord
 3960*HIDEPOINTER
 3970COLOUR 129:COLOUR 0
 3980PRINTTAB(14,29);"P/B"
 3990I=0
 4000REPEAT
 4010I=I+1
 4020N%=N%(I)
 4030COLOUR 128:COLOUR 1
 4040REPEAT:UNTIL INKEY(-129)
 4050REPEAT:UNTIL NOT INKEY(-129)
 4060IF I>note% THEN 4120
 4070IF F%=1 SOUND &11,E%,N%,D%
 4080IF F%=2 SOUND &111,1,N%,D%:SOUND &112,2,N%,D%
 4090IF F%=3 SOUND &211,1,N%,D%:SOUND &212,2,N%,D%:SOUND &213,3,N%,D%
 4100PRINTTAB(18,29);SPC(3)
 4110PRINTTAB(18,29);I
 4120UNTIL I=note%+1 OR INKEY(-108)
 4130PRINTTAB(14,29);"P/B"
 4140PRINTTAB(18,29);SPC(3)
 4150PRINTTAB(18,29);"0"
 4160REPEAT:UNTIL INKEY(-129)
 4170*FX15,0
 4180*SHOWPOINTER
 4190ENDPROC
 4200REM**************************
 4210REM ERASE NOTES
 4220DEFPROCerase
 4230IF note%=0 THEN ENDPROC
 4240*HIDEPOINTER
 4250COLOUR 129:COLOUR 0
 4260PRINTTAB(10,29);"ERA"
 4270FOR I=1 TO note%
 4280N%(I)=0
 4290NEXT
 4300note%=0
 4310COLOUR 128:COLOUR 1
 4320PRINTTAB(6,29);SPC(3);
 4330PRINTTAB(6,29);note%
 4340PRINTTAB(10,29);"ERA"
 4350*SHOWPOINTER
 4360ENDPROC
 4370REM**************************
 4380REM EDIT NOTES
 4390DEFPROCedit
 4400IF note%=0 THEN ed%=0:R%=0:ENDPROC
 4410IF ed%=1 THEN 4650 ELSE ed%=1
 4420IF R%=0 PROCrecord
 4430*HIDEPOINTER
 4440COLOUR 129:COLOUR 0
 4450PRINTTAB(22,29);"EDIT"
 4460REPEAT:UNTIL INKEY(-129)
 4470COLOUR 128:COLOUR 1
 4480PRINTTAB(18,29);"0";SPC(2)
 4490edit%=0
 4500REPEAT
 4510REPEAT:UNTIL NOT INKEY(-129)
 4520IF INKEY(-109) edit%=edit%-1
 4530IF INKEY(-107) edit%=edit%+1
 4540IF INKEY(-108) THEN 4610
 4550IF edit%<1 THEN edit%=note%
 4560IF edit%>note% THEN edit%=0
 4570PRINTTAB(18,29);SPC(3)
 4580PRINTTAB(18,29);edit%
 4590REPEAT:UNTIL  INKEY(-129)
 4600SOUND &11,E%,N%(edit%),D%
 4610UNTIL INKEY(-108)
 4620*SHOWPOINTER
 4630ENDPROC
 4640REM END EDITING
 4650*HIDEPOINTER
 4660PRINTTAB(18,29);SPC(3)
 4670PRINTTAB(18,29);"0"
 4680PRINTTAB(22,29);"EDIT"
 4690ed%=0
 4700REPEAT:UNTIL INKEY(-129)
 4710*SHOWPOINTER
 4720PROCrecord
 4730ENDPROC
 4740REM****************************
 4750REM LOAD DATAFILE
 4760DEFPROCload
 4770*WINDOW 1,30,38,28
 4780PRINT
 4790INPUT"FILE NAME (or RETURN) ? "F$
 4800IF F$="" THEN PROCstore:ENDPROC
 4810X=OPENUP(F$)
 4820INPUT#X,note%
 4830FOR I=1 TO note%
 4840INPUT#X,N%(I)
 4850NEXT
 4860CLOSE#X
 4870PROCstore
 4880ENDPROC
 4890REM****************************
 4900REM SAVE DATAFILE
 4910DEFPROCsave
 4920IF note%=0 THEN ENDPROC
 4930*WINDOW 1,30,38,28
 4940PRINT
 4950INPUT"FILE NAME (or RETURN) ? "F$
 4960IF F$="" THEN PROCstore:ENDPROC
 4970X=OPENOUT(F$)
 4980PRINT#X,note%
 4990FOR I=1 TO note%
 5000PRINT#X,N%(I)
 5010NEXT
 5020CLOSE#X
 5030PROCstore
 5040ENDPROC
 5050REM****************************
 5060REM EDIT/ERASE
 5070DEFPROCwipe
 5080*HIDEPOINTER
 5090wp%=1
 5100*WINDOW 1,30,38,28
 5110VDU26
 5120VDU5
 5130MOVE 48,108
 5140*ICON 77
 5150*ICON 78
 5160*ICON 78
 5170*ICON 78
 5180*ICON 78
 5190*ICON 78
 5200*ICON 78
 5210*ICON 79
 5220*ICON 77
 5230*ICON 78
 5240*ICON 78
 5250*ICON 78
 5260*ICON 78
 5270*ICON 78
 5280*ICON 78
 5290*ICON 78
 5300*ICON 78
 5310*ICON 79
 5320VDU4
 5330VDU23,1,0;0;0;0;
 5340PRINT
 5350PRINTTAB(2,29);"ERASE NOTE ";edit%;
 5360PRINTTAB(18,29);"ERASE  ";edit%;" TO ";note%
 5370*SHOWPOINTER
 5380REPEAT
 5390REPEAT
 5400*MOVEPOINTER
 5410UNTIL NOT INKEY(-129)
 5420*UPDATE
 5430UNTIL VPOS=29 AND POS>1 AND POS<37
 5440IF POS>1 AND POS<17 THEN PROCwipeone:GOTO 5460
 5450IF POS>17 AND POS<37 THEN PROCwipeend
 5460wp%=0
 5470*HIDEPOINTER
 5480PROCstore
 5490*SHOWPOINTER
 5500PROCedit
 5510ENDPROC
 5520REM****************************
 5530REM ERASE ONE NOTE
 5540DEFPROCwipeone
 5550FOR I=edit% TO note%-1
 5560N%(I)=N%(I+1)
 5570NEXT
 5580IF note%>0 THEN note%=note%-1
 5590ENDPROC
 5600REM***************************
 5610REM ERASE TO END
 5620DEFPROCwipeend
 5630FOR I=edit% TO note%
 5640N%(I)=0
 5650NEXT
 5660note%=edit%-1
 5670ENDPROC
 5680REM **************************
 5690REM ERROR HANDLING
 5700IF ERR=204 AND ERL=4810 PROCload:GOTO 120
 5710IF ERR=204 AND ERL=4970 PROCsave:GOTO 120
 5720IF ERR=222 AND ERL=4820 PROCload:GOTO 120
 5730ON ERROR OFF
 5740MODE 7
 5750REPORT
 5760PRINT" at ";ERL
 5770END


 � **************************
!� *       MOUSE ORGAN      * 
 � * For use with BBC micro *
( � *      and AMX Mouse.    *
2 � *   Geoff Turner  1985   *
< � *   (C) THE MICRO USER   *
F � **************************
P� � � �TpV
Z� 4
d�initialise
n�screen
x*SHOWPOINTER
��
��
�*MOVEPOINTER
�� � �(-129)
��button
�� �
��
�!�****************************
�� INITIALISE VARIABLES
���initialise
�*POINTER 80,81
�E%=1:D%=20:F%=1:T%=3:R%=0
�note%=0:pb%=0:ed%=0:edit%=0
� F%(7),N%(999)
� I%=0 � 6
� F%(I%)
"�
,� 1,5,13,21,25,33,41
6� P%(4,13)
@� J%=1 � 4
J� I%=1 � 13
T� P%(J%,I%)
^�
h�
r'� 1,0,0,0,0,0,0,20,0,-10,-100,120,0
|+� 10,0,0,0,0,0,0,126,126,-20,-50,120,50
�&� 8,1,1,1,1,1,1,20,0,-10,-10,120,0
�'� 3,1,1,1,1,1,1,126,0,0,-50,100,100
�� P$(13)
�� I=2 � 13
�� P$(I)
��
�+� P1,P2,P3,N1,N2,N3,AA,AD,AS,AR,ALA,ALD
�� min(13),max(13)
�� I=2 � 13
�� min(I)
��
�� I=2 � 13
�� max(I)
�
2� -128,-128,-128,0,0,0,-127,-127,-127,-127,0,0
1� 127,127,127,255,255,255,127,127,0,0,126,126
&
�envelope
0�
:!�****************************
D� SET UP SCREEN DISPLAY
N��screen
X	*DESK
b*WINDOW 1,24,38,19
l� I%=32 � 1272 � 32
v� I%,416
�� I%,224
��
�C%=0
�
�0,128
�� X%=76 � 1224 � 32
�C%=C%+1
�� C%=3 � C%=7 � �TBC
�� C%=8 � C%=1
�� X%,416
�� X%,320
�� 85,X%+20,416
�� X%+20,320
�� 85,X%,320
�
*WINDOW 1,26,38,26
�26
 N$="BCDEFGA"
*� �1,26);�5,N$);
4�"BCD";
>*WINDOW 1,13,38,1
H�1,1)"ENVELOPE";
R�19,1);"STEP TIME";
\�2,4);P$(2)
f�8,4);P$(3)
p�14,4);P$(4)
z�20,4);P$(5)
��26,4);P$(6)
��32,4);P$(7)
��2,9);P$(8)
��8,9);P$(9)
��14,9);P$(10)
��20,9);P$(11)
��26,9);P$(12)
��32,9);P$(13)
��5
�� 48,975
�
�iconstwo
�� 48,879
�
�icons
� 48,815

�icons
� 48,719
$
�icons
.� 48,655
8
�icons
B�4
L�26
V�parameters
`*WINDOW 1,17,38,15
j�5
t� 48,527
~
�iconstwo
��4
��26
�� �2,16);"DURATION";
�� �20,16);"EFFECT";
��16,16);D%
��34,16);F%
�
�store
��
�!�****************************
�� DISPLAY ICONS
���icons
�
� I=1 � 6
*ICON 77

*ICON 78
*ICON 79
�:�
(!�****************************
2� DISPLAY ICONS
<��iconstwo
F
� I=1 � 2
P*ICON 77
Z*ICON 78
d*ICON 78
n*ICON 78
x*ICON 78
�*ICON 79
�*ICON 77
�*ICON 78
�*ICON 79
��
��
��**************************
�� DISPLAY MEMORY WINDOW
���store
�*WINDOW 1,30,38,28
��26
�� �2,29);"REC"
�� �6,29);note%
� �10,29);"ERA"
� �14,29);"P/B"
� �18,29);pb%
"� �22,29);"EDIT"
,� �28,29);"LOAD-SAVE"
6� �33,29);"SAVE"
@�5
J� 48,108
T
� I=1 � 5
^*ICON 77
h*ICON 79
r�
|*ICON 77
�*ICON 78
�*ICON 79
�*ICON 77
�*ICON 78
�*ICON 78
�*ICON 78
�*ICON 79
��4
��23,1,0;0;0;0;
��
�!�****************************
�� IDENTIFY FUNCTION
���button
*UPDATE
� �>18 � �<25 � �music:�
#� �=2 � �>13 � �<19 � �change:�
&!� �=2 � �>31 � �<37 � �step:�
0� �=7 � �=12 � �pitchamp:�
:&� �=16 � �>13 � �<19 � �duration:�
D$� �=16 � �>31 � �<37 � �effect:�
N� �=29 �memory:�
X�
b!�****************************
l� PLAY NOTE
v��music
�� �<1 � �>38 �
�P%=�-1:V%=�
�N%=48*(P% � 7)+F%(P% � 7)
�7� V%<22 � � P% � 7<>3 � P%� 7<>0 � P%<>37 � N%=N%+4
�M� ed%=0 � � R%=1 � � note%<999 � note%=note%+1:N%(note%)=N%:�6,29);note%
�#� ed%=1 � � R%=1 � N%(edit%)=N%
�� F%=1 � &11,E%,N%,D%
�(� F%=2 � &111,1,N%,D%:� &112,2,N%,D%
�7� F%=3 � &211,1,N%,D%:� &212,2,N%,D%:� &213,3,N%,D%
�� R%=1 � �:� �(-129)
��
�!�****************************
�� DEFINE ENVELOPES
��envelope
� E% � �TVH,�T`H,�TjH,�TtH
u� 1,P%(1,1),P%(1,2),P%(1,3),P%(1,4),P%(1,5),P%(1,6),P%(1,7),P%(1,8),P%(1,9),P%(1,10),P%(1,11),P%(1,12),P%(1,13):�
 u� 2,P%(2,1),P%(2,2),P%(2,3),P%(2,4),P%(2,5),P%(2,6),P%(2,7),P%(2,8),P%(2,9),P%(2,10),P%(2,11),P%(2,12),P%(2,13):�
*u� 3,P%(3,1),P%(3,2),P%(3,3),P%(3,4),P%(3,5),P%(3,6),P%(3,7),P%(3,8),P%(3,9),P%(3,10),P%(3,11),P%(3,12),P%(3,13):�
4u� 4,P%(4,1),P%(4,2),P%(4,3),P%(4,4),P%(4,5),P%(4,6),P%(4,7),P%(4,8),P%(4,9),P%(4,10),P%(4,11),P%(4,12),P%(4,13):�
>!�****************************
H� DISPLAY PARAMETERS
R��parameters
\�16,2);E%
f�34,2);�(3);
p�34,2);P%(E%,1)
z� I%=1 � 6
��6*(I%-1)+2,7);�(5);
� �6*(I%-1)+3,7);P%(E%,I%+1);
��6*(I%-1)+2,12);�(5);
�!�6*(I%-1)+3,12);P%(E%,I%+7);
��
��
�!�****************************
�� CHANGE ENVELOPE
���change
�*HIDEPOINTER
�
� 129:� 0
��2,2);�(11);
��2,2);"ENVELOPE";
	�14,2);�(5);
	�16,2);E%;
	�:� �(-129)
	$�
	.� �(-107) � E%=E%+1
	8� �(-109) � E%=E%-1
	B� E%=5 � E%=1
	L� E%=0 � E%=4
	V�16,2);E%;
	`� delay=1 � 300:�
	j
� �(-108)
	t
� 128:� 1
	~�2,2);�(11);
	��2,2);"ENVELOPE";
	��14,2);�(5);
	��16,2);E%;
	�
�envelope
	��parameters
	�*SHOWPOINTER
	��:� �(-129)
	��
	�!�****************************
	�� CHANGE STEP
	�
��step
	�*HIDEPOINTER

� 129:� 0

�20,2);�(11);
�20,2);"STEP TIME";
�32,2);�(5);
(�34,2);P%(E%,1);
2�:� �(-129)
<�
F#� �(-107) � P%(E%,1)=P%(E%,1)+1
P#� �(-109) � P%(E%,1)=P%(E%,1)-1
Z� P%(E%,1)=256 � P%(E%,1)=1
d� P%(E%,1)=0 � P%(E%,1)=255
n�32,2);�(5);
x�34,2);P%(E%,1);
�� delay=1 � 300:�
�
� �(-108)
�
� 128:� 1
��20,2);�(11);
��20,2);"STEP TIME";
��32,2);�(5);
��34,2);P%(E%,1);
�
�envelope
�*SHOWPOINTER
��:� �(-129)
��
�!�****************************
�� CHANGE PARAMETERS
��pitchamp
� �=7 � P%=2 � P%=8
Q%=(�+5)/6
"P%=P%+Q%-1
,� P%<2 � P%=2
6� P%>13 � P%=13
@*HIDEPOINTER
J
� 129:� 0
T8� P%<8 �(P%-2)*6+2,�-2);�(5);�(P%-2)*6+3,�);P$(P%);
^8� P%>7 �(P%-8)*6+2,�-2);�(5);�(P%-8)*6+3,�);P$(P%);
h;� P%<8 �(P%-2)*6+2,�+2);�(5);�(P%-2)*6+3,�);P%(E%,P%);
r;� P%>7 �(P%-8)*6+2,�+2);�(5);�(P%-8)*6+3,�);P%(E%,P%);
|�:� �(-129)
��
�%� �(-107) � P%(E%,P%)=P%(E%,P%)+1
�%� �(-109) � P%(E%,P%)=P%(E%,P%)-1
�+� P%(E%,P%)<min(P%) � P%(E%,P%)=max(P%)
�+� P%(E%,P%)>max(P%) � P%(E%,P%)=min(P%)
�9� P%<8 �(P%-2)*6+2,�);�(5);�(P%-2)*6+3,�);P%(E%,P%);
�9� P%>7 �(P%-8)*6+2,�);�(5);�(P%-8)*6+3,�);P%(E%,P%);
�� DELAY=1 � 300:�
�
� �(-108)
�
� 128:� 1
�9� P%<8 �(P%-2)*6+2,�);�(5);�(P%-2)*6+3,�);P%(E%,P%);
�9� P%>7 �(P%-8)*6+2,�);�(5);�(P%-8)*6+3,�);P%(E%,P%);
�8� P%<8 �(P%-2)*6+2,�-2);�(5);�(P%-2)*6+3,�);P$(P%);
8� P%>7 �(P%-8)*6+2,�-2);�(5);�(P%-8)*6+3,�);P$(P%);

�envelope
*SHOWPOINTER
&�:� �(-129)
0�
:!�****************************
D� CHANGE DURATION
N��duration
X*HIDEPOINTER
b
� 129:� 0
l�2,16);�(11);
v�2,16);"DURATION";
��14,16);�(5);
��16,16);D%;
��:� �(-129)
��
�� �(-107) � D%=D%+1
�� �(-109) � D%=D%-1
�� D%=256 � D%=1
�� D%=0 � D%=255
��14,16);�(5);
��16,16);D%;
�� DELAY=1 � 300:�
�
� �(-108)
�
� 128:� 1

�2,16);�(11);

�2,16);"DURATION";

�14,16);�(5);

 �16,16);D%;

**SHOWPOINTER

4�:� �(-129)

>�

H!�****************************

R� CHANGE EFFECTS

\��effect

f*HIDEPOINTER

p
� 129:� 0

z�20,16);�(11);

��20,16);"EFFECT";

��32,16);�(5);

��34,16);F%;

��:� �(-129)

��

�� �(-107) � F%=F%+1

�� �(-109) � F%=F%-1

�� F%=4 � F%=1

�� F%=0 � F%=3

��32,16);�(5);

��34,16);F%;

�� DELAY=1 � 300:�

�
� �(-108)

� 128:� 1
�20,16);�(11);
�20,16);"EFFECT";
$�32,16);�(5);
.�34,16);F%;
8*SHOWPOINTER
B�:� �(-129)
L�
V!*****************************
`� MEMORY FUNCTIONS
j��memory
t� ed%=1 � �tfN
~� �>1 � �<5 � �record
�� �>13 � �<17 � �play
�� �>27 � �<32 � �load
�� �>32 � �<37 � �save
�!� �>9 � �<13 � ed%=0 � �erase
�*� �>9 � �<13 � ed%=1 � edit%>0 � �wipe
�� �>21 � �<26 � �edit
��
��**************************
�� RECORD NOTES
���record
�*HIDEPOINTER
�� R%=1 � � 128:� 1
� R%=0 � � 129:� 0

� R%=1 � R%=0 � R%=1
�2,29);"REC"
�:� �(-129)
(
� 128:� 1
2*SHOWPOINTER
<�
F�**************************
P� PLAYBACK NOTES
Z
��play
d� note%=0 �
n� R%=1 �record
x*HIDEPOINTER
�
� 129:� 0
��14,29);"P/B"
�I=0
��
�	I=I+1
�N%=N%(I)
�
� 128:� 1
��:� �(-129)
��:� � �(-129)
�� I>note% � �TXP
�� F%=1 � &11,E%,N%,D%
�(� F%=2 � &111,1,N%,D%:� &112,2,N%,D%
�7� F%=3 � &211,1,N%,D%:� &212,2,N%,D%:� &213,3,N%,D%
�18,29);�(3)
�18,29);I
� I=note%+1 � �(-108)
"�14,29);"P/B"
,�18,29);�(3)
6�18,29);"0"
@�:� �(-129)
J*FX15,0
T*SHOWPOINTER
^�
h�**************************
r� ERASE NOTES
|��erase
�� note%=0 � �
�*HIDEPOINTER
�
� 129:� 0
��10,29);"ERA"
�� I=1 � note%
�N%(I)=0
��
�note%=0
�
� 128:� 1
��6,29);�(3);
��6,29);note%
��10,29);"ERA"
�*SHOWPOINTER
�
�**************************
� EDIT NOTES
&
��edit
0� note%=0 � ed%=0:R%=0:�
:� ed%=1 � �TjR � ed%=1
D� R%=0 �record
N*HIDEPOINTER
X
� 129:� 0
b�22,29);"EDIT"
l�:� �(-129)
v
� 128:� 1
��18,29);"0";�(2)
�edit%=0
��
��:� � �(-129)
�� �(-109) edit%=edit%-1
�� �(-107) edit%=edit%+1
�� �(-108) � �TBR
�� edit%<1 � edit%=note%
�� edit%>note% � edit%=0
��18,29);�(3)
��18,29);edit%
��:�  �(-129)
�� &11,E%,N%(edit%),D%

� �(-108)
*SHOWPOINTER
�
 � END EDITING
**HIDEPOINTER
4�18,29);�(3)
>�18,29);"0"
H�22,29);"EDIT"
R	ed%=0
\�:� �(-129)
f*SHOWPOINTER
p�record
z�
�!�****************************
�� LOAD DATAFILE
�
��load
�*WINDOW 1,30,38,28
��
�!�"FILE NAME (or RETURN) ? "F$
�� F$="" � �store:�
�X=�(F$)
�
�#X,note%
�� I=1 � note%
�
�#X,N%(I)
��
��#X

�store
�
!�****************************
$� SAVE DATAFILE
.
��save
8� note%=0 � �
B*WINDOW 1,30,38,28
L�
V!�"FILE NAME (or RETURN) ? "F$
`� F$="" � �store:�
jX=�(F$)
t
�#X,note%
~� I=1 � note%
�
�#X,N%(I)
��
��#X
�
�store
��
�!�****************************
�� EDIT/ERASE
�
��wipe
�*HIDEPOINTER
�	wp%=1
�*WINDOW 1,30,38,28
��26
�5

� 48,108
*ICON 77
*ICON 78
(*ICON 78
2*ICON 78
<*ICON 78
F*ICON 78
P*ICON 78
Z*ICON 79
d*ICON 77
n*ICON 78
x*ICON 78
�*ICON 78
�*ICON 78
�*ICON 78
�*ICON 78
�*ICON 78
�*ICON 78
�*ICON 79
��4
��23,1,0;0;0;0;
��
� �2,29);"ERASE NOTE ";edit%;
�)�18,29);"ERASE  ";edit%;" TO ";note%
�*SHOWPOINTER
�
�
*MOVEPOINTER
"� � �(-129)
,*UPDATE
6� �=29 � �>1 � �<37
@"� �>1 � �<17 � �wipeone:� �DTU
J� �>17 � �<37 � �wipeend
T	wp%=0
^*HIDEPOINTER
h
�store
r*SHOWPOINTER
|	�edit
��
�!�****************************
�� ERASE ONE NOTE
�
��wipeone
�� I=edit% � note%-1
�N%(I)=N%(I+1)
��
�� note%>0 � note%=note%-1
��
� �***************************
�� ERASE TO END
�
��wipeend
�� I=edit% � note%
N%(I)=0
�
note%=edit%-1
&�
0 � **************************
:� ERROR HANDLING
D!� �=204 � �=4810 �load:� �Dx@
N!� �=204 � �=4970 �save:� �Dx@
X!� �=222 � �=4820 �load:� �Dx@
b	� � �
l� 7
v�
�
�" at ";�
��
�
00000000  0d 00 0a 20 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |... . **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  0d 00 14 21 f4 20 2a 20  20 20 20 20 20 20 4d 4f  |...!. *       MO|
00000030  55 53 45 20 4f 52 47 41  4e 20 20 20 20 20 20 2a  |USE ORGAN      *|
00000040  20 0d 00 1e 20 f4 20 2a  20 46 6f 72 20 75 73 65  | ... . * For use|
00000050  20 77 69 74 68 20 42 42  43 20 6d 69 63 72 6f 20  | with BBC micro |
00000060  2a 0d 00 28 20 f4 20 2a  20 20 20 20 20 20 61 6e  |*..( . *      an|
00000070  64 20 41 4d 58 20 4d 6f  75 73 65 2e 20 20 20 20  |d AMX Mouse.    |
00000080  2a 0d 00 32 20 f4 20 2a  20 20 20 47 65 6f 66 66  |*..2 . *   Geoff|
00000090  20 54 75 72 6e 65 72 20  20 31 39 38 35 20 20 20  | Turner  1985   |
000000a0  2a 0d 00 3c 20 f4 20 2a  20 20 20 28 43 29 20 54  |*..< . *   (C) T|
000000b0  48 45 20 4d 49 43 52 4f  20 55 53 45 52 20 20 20  |HE MICRO USER   |
000000c0  2a 0d 00 46 20 f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |*..F . *********|
000000d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000000e0  2a 0d 00 50 0e ee 20 85  20 e5 20 8d 54 70 56 0d  |*..P.. . . .TpV.|
000000f0  00 5a 07 eb 20 34 0d 00  64 0f f2 69 6e 69 74 69  |.Z.. 4..d..initi|
00000100  61 6c 69 73 65 0d 00 6e  0b f2 73 63 72 65 65 6e  |alise..n..screen|
00000110  0d 00 78 10 2a 53 48 4f  57 50 4f 49 4e 54 45 52  |..x.*SHOWPOINTER|
00000120  0d 00 82 05 f5 0d 00 8c  05 f5 0d 00 96 10 2a 4d  |..............*M|
00000130  4f 56 45 50 4f 49 4e 54  45 52 0d 00 a0 0f fd 20  |OVEPOINTER..... |
00000140  ac 20 a6 28 2d 31 32 39  29 0d 00 aa 0b f2 62 75  |. .(-129).....bu|
00000150  74 74 6f 6e 0d 00 b4 07  fd 20 a3 0d 00 be 05 e0  |tton..... ......|
00000160  0d 00 c8 21 f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...!.***********|
00000170  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000180  2a 0d 00 d2 1a f4 20 49  4e 49 54 49 41 4c 49 53  |*..... INITIALIS|
00000190  45 20 56 41 52 49 41 42  4c 45 53 0d 00 dc 10 dd  |E VARIABLES.....|
000001a0  f2 69 6e 69 74 69 61 6c  69 73 65 0d 00 e6 12 2a  |.initialise....*|
000001b0  50 4f 49 4e 54 45 52 20  38 30 2c 38 31 0d 00 f0  |POINTER 80,81...|
000001c0  1d 45 25 3d 31 3a 44 25  3d 32 30 3a 46 25 3d 31  |.E%=1:D%=20:F%=1|
000001d0  3a 54 25 3d 33 3a 52 25  3d 30 0d 00 fa 1f 6e 6f  |:T%=3:R%=0....no|
000001e0  74 65 25 3d 30 3a 70 62  25 3d 30 3a 65 64 25 3d  |te%=0:pb%=0:ed%=|
000001f0  30 3a 65 64 69 74 25 3d  30 0d 01 04 13 de 20 46  |0:edit%=0..... F|
00000200  25 28 37 29 2c 4e 25 28  39 39 39 29 0d 01 0e 0e  |%(7),N%(999)....|
00000210  e3 20 49 25 3d 30 20 b8  20 36 0d 01 18 0c f3 20  |. I%=0 . 6..... |
00000220  46 25 28 49 25 29 0d 01  22 05 ed 0d 01 2c 18 dc  |F%(I%).."....,..|
00000230  20 31 2c 35 2c 31 33 2c  32 31 2c 32 35 2c 33 33  | 1,5,13,21,25,33|
00000240  2c 34 31 0d 01 36 0e de  20 50 25 28 34 2c 31 33  |,41..6.. P%(4,13|
00000250  29 0d 01 40 0e e3 20 4a  25 3d 31 20 b8 20 34 0d  |)..@.. J%=1 . 4.|
00000260  01 4a 0f e3 20 49 25 3d  31 20 b8 20 31 33 0d 01  |.J.. I%=1 . 13..|
00000270  54 0f f3 20 50 25 28 4a  25 2c 49 25 29 0d 01 5e  |T.. P%(J%,I%)..^|
00000280  05 ed 0d 01 68 05 ed 0d  01 72 27 dc 20 31 2c 30  |....h....r'. 1,0|
00000290  2c 30 2c 30 2c 30 2c 30  2c 30 2c 32 30 2c 30 2c  |,0,0,0,0,0,20,0,|
000002a0  2d 31 30 2c 2d 31 30 30  2c 31 32 30 2c 30 0d 01  |-10,-100,120,0..|
000002b0  7c 2b dc 20 31 30 2c 30  2c 30 2c 30 2c 30 2c 30  ||+. 10,0,0,0,0,0|
000002c0  2c 30 2c 31 32 36 2c 31  32 36 2c 2d 32 30 2c 2d  |,0,126,126,-20,-|
000002d0  35 30 2c 31 32 30 2c 35  30 0d 01 86 26 dc 20 38  |50,120,50...&. 8|
000002e0  2c 31 2c 31 2c 31 2c 31  2c 31 2c 31 2c 32 30 2c  |,1,1,1,1,1,1,20,|
000002f0  30 2c 2d 31 30 2c 2d 31  30 2c 31 32 30 2c 30 0d  |0,-10,-10,120,0.|
00000300  01 90 27 dc 20 33 2c 31  2c 31 2c 31 2c 31 2c 31  |..'. 3,1,1,1,1,1|
00000310  2c 31 2c 31 32 36 2c 30  2c 30 2c 2d 35 30 2c 31  |,1,126,0,0,-50,1|
00000320  30 30 2c 31 30 30 0d 01  9a 0c de 20 50 24 28 31  |00,100..... P$(1|
00000330  33 29 0d 01 a4 0e e3 20  49 3d 32 20 b8 20 31 33  |3)..... I=2 . 13|
00000340  0d 01 ae 0b f3 20 50 24  28 49 29 0d 01 b8 05 ed  |..... P$(I).....|
00000350  0d 01 c2 2b dc 20 50 31  2c 50 32 2c 50 33 2c 4e  |...+. P1,P2,P3,N|
00000360  31 2c 4e 32 2c 4e 33 2c  41 41 2c 41 44 2c 41 53  |1,N2,N3,AA,AD,AS|
00000370  2c 41 52 2c 41 4c 41 2c  41 4c 44 0d 01 cc 15 de  |,AR,ALA,ALD.....|
00000380  20 6d 69 6e 28 31 33 29  2c 6d 61 78 28 31 33 29  | min(13),max(13)|
00000390  0d 01 d6 0e e3 20 49 3d  32 20 b8 20 31 33 0d 01  |..... I=2 . 13..|
000003a0  e0 0c f3 20 6d 69 6e 28  49 29 0d 01 ea 05 ed 0d  |... min(I)......|
000003b0  01 f4 0e e3 20 49 3d 32  20 b8 20 31 33 0d 01 fe  |.... I=2 . 13...|
000003c0  0c f3 20 6d 61 78 28 49  29 0d 02 08 05 ed 0d 02  |.. max(I).......|
000003d0  12 32 dc 20 2d 31 32 38  2c 2d 31 32 38 2c 2d 31  |.2. -128,-128,-1|
000003e0  32 38 2c 30 2c 30 2c 30  2c 2d 31 32 37 2c 2d 31  |28,0,0,0,-127,-1|
000003f0  32 37 2c 2d 31 32 37 2c  2d 31 32 37 2c 30 2c 30  |27,-127,-127,0,0|
00000400  0d 02 1c 31 dc 20 31 32  37 2c 31 32 37 2c 31 32  |...1. 127,127,12|
00000410  37 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 31 32  |7,255,255,255,12|
00000420  37 2c 31 32 37 2c 30 2c  30 2c 31 32 36 2c 31 32  |7,127,0,0,126,12|
00000430  36 0d 02 26 0d f2 65 6e  76 65 6c 6f 70 65 0d 02  |6..&..envelope..|
00000440  30 05 e1 0d 02 3a 21 f4  2a 2a 2a 2a 2a 2a 2a 2a  |0....:!.********|
00000450  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000460  2a 2a 2a 2a 0d 02 44 1b  f4 20 53 45 54 20 55 50  |****..D.. SET UP|
00000470  20 53 43 52 45 45 4e 20  44 49 53 50 4c 41 59 0d  | SCREEN DISPLAY.|
00000480  02 4e 0c dd f2 73 63 72  65 65 6e 0d 02 58 09 2a  |.N...screen..X.*|
00000490  44 45 53 4b 0d 02 62 16  2a 57 49 4e 44 4f 57 20  |DESK..b.*WINDOW |
000004a0  31 2c 32 34 2c 33 38 2c  31 39 0d 02 6c 17 e3 20  |1,24,38,19..l.. |
000004b0  49 25 3d 33 32 20 b8 20  31 32 37 32 20 88 20 33  |I%=32 . 1272 . 3|
000004c0  32 0d 02 76 0c ec 20 49  25 2c 34 31 36 0d 02 80  |2..v.. I%,416...|
000004d0  0c df 20 49 25 2c 32 32  34 0d 02 8a 05 ed 0d 02  |.. I%,224.......|
000004e0  94 08 43 25 3d 30 0d 02  9e 0a e6 30 2c 31 32 38  |..C%=0.....0,128|
000004f0  0d 02 a8 17 e3 20 58 25  3d 37 36 20 b8 20 31 32  |..... X%=76 . 12|
00000500  32 34 20 88 20 33 32 0d  02 b2 0b 43 25 3d 43 25  |24 . 32....C%=C%|
00000510  2b 31 0d 02 bc 18 e7 20  43 25 3d 33 20 84 20 43  |+1..... C%=3 . C|
00000520  25 3d 37 20 8c 20 8d 54  42 43 0d 02 c6 11 e7 20  |%=7 . .TBC..... |
00000530  43 25 3d 38 20 8c 20 43  25 3d 31 0d 02 d0 0c ec  |C%=8 . C%=1.....|
00000540  20 58 25 2c 34 31 36 0d  02 da 0c df 20 58 25 2c  | X%,416..... X%,|
00000550  33 32 30 0d 02 e4 12 f0  20 38 35 2c 58 25 2b 32  |320..... 85,X%+2|
00000560  30 2c 34 31 36 0d 02 ee  0f df 20 58 25 2b 32 30  |0,416..... X%+20|
00000570  2c 33 32 30 0d 02 f8 0f  f0 20 38 35 2c 58 25 2c  |,320..... 85,X%,|
00000580  33 32 30 0d 03 02 05 ed  0d 03 0c 16 2a 57 49 4e  |320.........*WIN|
00000590  44 4f 57 20 31 2c 32 36  2c 33 38 2c 32 36 0d 03  |DOW 1,26,38,26..|
000005a0  16 07 ef 32 36 0d 03 20  10 4e 24 3d 22 42 43 44  |...26.. .N$="BCD|
000005b0  45 46 47 41 22 0d 03 2a  14 f1 20 8a 31 2c 32 36  |EFGA"..*.. .1,26|
000005c0  29 3b c4 35 2c 4e 24 29  3b 0d 03 34 0b f1 22 42  |);.5,N$);..4.."B|
000005d0  43 44 22 3b 0d 03 3e 15  2a 57 49 4e 44 4f 57 20  |CD";..>.*WINDOW |
000005e0  31 2c 31 33 2c 33 38 2c  31 0d 03 48 15 f1 8a 31  |1,13,38,1..H...1|
000005f0  2c 31 29 22 45 4e 56 45  4c 4f 50 45 22 3b 0d 03  |,1)"ENVELOPE";..|
00000600  52 18 f1 8a 31 39 2c 31  29 3b 22 53 54 45 50 20  |R...19,1);"STEP |
00000610  54 49 4d 45 22 3b 0d 03  5c 10 f1 8a 32 2c 34 29  |TIME";..\...2,4)|
00000620  3b 50 24 28 32 29 0d 03  66 10 f1 8a 38 2c 34 29  |;P$(2)..f...8,4)|
00000630  3b 50 24 28 33 29 0d 03  70 11 f1 8a 31 34 2c 34  |;P$(3)..p...14,4|
00000640  29 3b 50 24 28 34 29 0d  03 7a 11 f1 8a 32 30 2c  |);P$(4)..z...20,|
00000650  34 29 3b 50 24 28 35 29  0d 03 84 11 f1 8a 32 36  |4);P$(5)......26|
00000660  2c 34 29 3b 50 24 28 36  29 0d 03 8e 11 f1 8a 33  |,4);P$(6)......3|
00000670  32 2c 34 29 3b 50 24 28  37 29 0d 03 98 10 f1 8a  |2,4);P$(7)......|
00000680  32 2c 39 29 3b 50 24 28  38 29 0d 03 a2 10 f1 8a  |2,9);P$(8)......|
00000690  38 2c 39 29 3b 50 24 28  39 29 0d 03 ac 12 f1 8a  |8,9);P$(9)......|
000006a0  31 34 2c 39 29 3b 50 24  28 31 30 29 0d 03 b6 12  |14,9);P$(10)....|
000006b0  f1 8a 32 30 2c 39 29 3b  50 24 28 31 31 29 0d 03  |..20,9);P$(11)..|
000006c0  c0 12 f1 8a 32 36 2c 39  29 3b 50 24 28 31 32 29  |....26,9);P$(12)|
000006d0  0d 03 ca 12 f1 8a 33 32  2c 39 29 3b 50 24 28 31  |......32,9);P$(1|
000006e0  33 29 0d 03 d4 06 ef 35  0d 03 de 0c ec 20 34 38  |3).....5..... 48|
000006f0  2c 39 37 35 0d 03 e8 0d  f2 69 63 6f 6e 73 74 77  |,975.....iconstw|
00000700  6f 0d 03 f2 0c ec 20 34  38 2c 38 37 39 0d 03 fc  |o..... 48,879...|
00000710  0a f2 69 63 6f 6e 73 0d  04 06 0c ec 20 34 38 2c  |..icons..... 48,|
00000720  38 31 35 0d 04 10 0a f2  69 63 6f 6e 73 0d 04 1a  |815.....icons...|
00000730  0c ec 20 34 38 2c 37 31  39 0d 04 24 0a f2 69 63  |.. 48,719..$..ic|
00000740  6f 6e 73 0d 04 2e 0c ec  20 34 38 2c 36 35 35 0d  |ons..... 48,655.|
00000750  04 38 0a f2 69 63 6f 6e  73 0d 04 42 06 ef 34 0d  |.8..icons..B..4.|
00000760  04 4c 07 ef 32 36 0d 04  56 0f f2 70 61 72 61 6d  |.L..26..V..param|
00000770  65 74 65 72 73 0d 04 60  16 2a 57 49 4e 44 4f 57  |eters..`.*WINDOW|
00000780  20 31 2c 31 37 2c 33 38  2c 31 35 0d 04 6a 06 ef  | 1,17,38,15..j..|
00000790  35 0d 04 74 0c ec 20 34  38 2c 35 32 37 0d 04 7e  |5..t.. 48,527..~|
000007a0  0d f2 69 63 6f 6e 73 74  77 6f 0d 04 88 06 ef 34  |..iconstwo.....4|
000007b0  0d 04 92 07 ef 32 36 0d  04 9c 18 f1 20 8a 32 2c  |.....26..... .2,|
000007c0  31 36 29 3b 22 44 55 52  41 54 49 4f 4e 22 3b 0d  |16);"DURATION";.|
000007d0  04 a6 17 f1 20 8a 32 30  2c 31 36 29 3b 22 45 46  |.... .20,16);"EF|
000007e0  46 45 43 54 22 3b 0d 04  b0 0f f1 8a 31 36 2c 31  |FECT";......16,1|
000007f0  36 29 3b 44 25 0d 04 ba  0f f1 8a 33 34 2c 31 36  |6);D%......34,16|
00000800  29 3b 46 25 0d 04 c4 0a  f2 73 74 6f 72 65 0d 04  |);F%.....store..|
00000810  ce 05 e1 0d 04 d8 21 f4  2a 2a 2a 2a 2a 2a 2a 2a  |......!.********|
00000820  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000830  2a 2a 2a 2a 0d 04 e2 13  f4 20 44 49 53 50 4c 41  |****..... DISPLA|
00000840  59 20 49 43 4f 4e 53 0d  04 ec 0b dd f2 69 63 6f  |Y ICONS......ico|
00000850  6e 73 0d 04 f6 0d e3 20  49 3d 31 20 b8 20 36 0d  |ns..... I=1 . 6.|
00000860  05 00 0c 2a 49 43 4f 4e  20 37 37 0d 05 0a 0c 2a  |...*ICON 77....*|
00000870  49 43 4f 4e 20 37 38 0d  05 14 0c 2a 49 43 4f 4e  |ICON 78....*ICON|
00000880  20 37 39 0d 05 1e 07 ed  3a e1 0d 05 28 21 f4 2a  | 79.....:...(!.*|
00000890  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000008a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 05 32 13 f4  |***********..2..|
000008b0  20 44 49 53 50 4c 41 59  20 49 43 4f 4e 53 0d 05  | DISPLAY ICONS..|
000008c0  3c 0e dd f2 69 63 6f 6e  73 74 77 6f 0d 05 46 0d  |<...iconstwo..F.|
000008d0  e3 20 49 3d 31 20 b8 20  32 0d 05 50 0c 2a 49 43  |. I=1 . 2..P.*IC|
000008e0  4f 4e 20 37 37 0d 05 5a  0c 2a 49 43 4f 4e 20 37  |ON 77..Z.*ICON 7|
000008f0  38 0d 05 64 0c 2a 49 43  4f 4e 20 37 38 0d 05 6e  |8..d.*ICON 78..n|
00000900  0c 2a 49 43 4f 4e 20 37  38 0d 05 78 0c 2a 49 43  |.*ICON 78..x.*IC|
00000910  4f 4e 20 37 38 0d 05 82  0c 2a 49 43 4f 4e 20 37  |ON 78....*ICON 7|
00000920  39 0d 05 8c 0c 2a 49 43  4f 4e 20 37 37 0d 05 96  |9....*ICON 77...|
00000930  0c 2a 49 43 4f 4e 20 37  38 0d 05 a0 0c 2a 49 43  |.*ICON 78....*IC|
00000940  4f 4e 20 37 39 0d 05 aa  05 ed 0d 05 b4 05 e1 0d  |ON 79...........|
00000950  05 be 1f f4 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |....************|
00000960  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 05  |**************..|
00000970  c8 1b f4 20 44 49 53 50  4c 41 59 20 4d 45 4d 4f  |... DISPLAY MEMO|
00000980  52 59 20 57 49 4e 44 4f  57 0d 05 d2 0b dd f2 73  |RY WINDOW......s|
00000990  74 6f 72 65 0d 05 dc 16  2a 57 49 4e 44 4f 57 20  |tore....*WINDOW |
000009a0  31 2c 33 30 2c 33 38 2c  32 38 0d 05 e6 07 ef 32  |1,30,38,28.....2|
000009b0  36 0d 05 f0 12 f1 20 8a  32 2c 32 39 29 3b 22 52  |6..... .2,29);"R|
000009c0  45 43 22 0d 05 fa 12 f1  20 8a 36 2c 32 39 29 3b  |EC"..... .6,29);|
000009d0  6e 6f 74 65 25 0d 06 04  13 f1 20 8a 31 30 2c 32  |note%..... .10,2|
000009e0  39 29 3b 22 45 52 41 22  0d 06 0e 13 f1 20 8a 31  |9);"ERA"..... .1|
000009f0  34 2c 32 39 29 3b 22 50  2f 42 22 0d 06 18 11 f1  |4,29);"P/B".....|
00000a00  20 8a 31 38 2c 32 39 29  3b 70 62 25 0d 06 22 14  | .18,29);pb%..".|
00000a10  f1 20 8a 32 32 2c 32 39  29 3b 22 45 44 49 54 22  |. .22,29);"EDIT"|
00000a20  0d 06 2c 19 f1 20 8a 32  38 2c 32 39 29 3b 22 4c  |..,.. .28,29);"L|
00000a30  4f 41 44 2d 53 41 56 45  22 0d 06 36 14 f1 20 8a  |OAD-SAVE"..6.. .|
00000a40  33 33 2c 32 39 29 3b 22  53 41 56 45 22 0d 06 40  |33,29);"SAVE"..@|
00000a50  06 ef 35 0d 06 4a 0c ec  20 34 38 2c 31 30 38 0d  |..5..J.. 48,108.|
00000a60  06 54 0d e3 20 49 3d 31  20 b8 20 35 0d 06 5e 0c  |.T.. I=1 . 5..^.|
00000a70  2a 49 43 4f 4e 20 37 37  0d 06 68 0c 2a 49 43 4f  |*ICON 77..h.*ICO|
00000a80  4e 20 37 39 0d 06 72 05  ed 0d 06 7c 0c 2a 49 43  |N 79..r....|.*IC|
00000a90  4f 4e 20 37 37 0d 06 86  0c 2a 49 43 4f 4e 20 37  |ON 77....*ICON 7|
00000aa0  38 0d 06 90 0c 2a 49 43  4f 4e 20 37 39 0d 06 9a  |8....*ICON 79...|
00000ab0  0c 2a 49 43 4f 4e 20 37  37 0d 06 a4 0c 2a 49 43  |.*ICON 77....*IC|
00000ac0  4f 4e 20 37 38 0d 06 ae  0c 2a 49 43 4f 4e 20 37  |ON 78....*ICON 7|
00000ad0  38 0d 06 b8 0c 2a 49 43  4f 4e 20 37 38 0d 06 c2  |8....*ICON 78...|
00000ae0  0c 2a 49 43 4f 4e 20 37  39 0d 06 cc 06 ef 34 0d  |.*ICON 79.....4.|
00000af0  06 d6 12 ef 32 33 2c 31  2c 30 3b 30 3b 30 3b 30  |....23,1,0;0;0;0|
00000b00  3b 0d 06 e0 05 e1 0d 06  ea 21 f4 2a 2a 2a 2a 2a  |;........!.*****|
00000b10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000b20  2a 2a 2a 2a 2a 2a 2a 0d  06 f4 17 f4 20 49 44 45  |*******..... IDE|
00000b30  4e 54 49 46 59 20 46 55  4e 43 54 49 4f 4e 0d 06  |NTIFY FUNCTION..|
00000b40  fe 0c dd f2 62 75 74 74  6f 6e 0d 07 08 0b 2a 55  |....button....*U|
00000b50  50 44 41 54 45 0d 07 12  1c e7 20 bc 3e 31 38 20  |PDATE..... .>18 |
00000b60  80 20 bc 3c 32 35 20 8c  20 f2 6d 75 73 69 63 3a  |. .<25 . .music:|
00000b70  e1 0d 07 1c 23 e7 20 bc  3d 32 20 80 20 b1 3e 31  |....#. .=2 . .>1|
00000b80  33 20 80 20 b1 3c 31 39  20 8c 20 f2 63 68 61 6e  |3 . .<19 . .chan|
00000b90  67 65 3a e1 0d 07 26 21  e7 20 bc 3d 32 20 80 20  |ge:...&!. .=2 . |
00000ba0  b1 3e 33 31 20 80 20 b1  3c 33 37 20 8c 20 f2 73  |.>31 . .<37 . .s|
00000bb0  74 65 70 3a e1 0d 07 30  1e e7 20 bc 3d 37 20 84  |tep:...0.. .=7 .|
00000bc0  20 bc 3d 31 32 20 8c 20  f2 70 69 74 63 68 61 6d  | .=12 . .pitcham|
00000bd0  70 3a e1 0d 07 3a 26 e7  20 bc 3d 31 36 20 80 20  |p:...:&. .=16 . |
00000be0  b1 3e 31 33 20 80 20 b1  3c 31 39 20 8c 20 f2 64  |.>13 . .<19 . .d|
00000bf0  75 72 61 74 69 6f 6e 3a  e1 0d 07 44 24 e7 20 bc  |uration:...D$. .|
00000c00  3d 31 36 20 80 20 b1 3e  33 31 20 80 20 b1 3c 33  |=16 . .>31 . .<3|
00000c10  37 20 8c 20 f2 65 66 66  65 63 74 3a e1 0d 07 4e  |7 . .effect:...N|
00000c20  14 e7 20 bc 3d 32 39 20  f2 6d 65 6d 6f 72 79 3a  |.. .=29 .memory:|
00000c30  e1 0d 07 58 05 e1 0d 07  62 21 f4 2a 2a 2a 2a 2a  |...X....b!.*****|
00000c40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000c50  2a 2a 2a 2a 2a 2a 2a 0d  07 6c 0f f4 20 50 4c 41  |*******..l.. PLA|
00000c60  59 20 4e 4f 54 45 0d 07  76 0b dd f2 6d 75 73 69  |Y NOTE..v...musi|
00000c70  63 0d 07 80 12 e7 20 b1  3c 31 20 84 20 b1 3e 33  |c..... .<1 . .>3|
00000c80  38 20 e1 0d 07 8a 0f 50  25 3d b1 2d 31 3a 56 25  |8 .....P%=.-1:V%|
00000c90  3d bc 0d 07 94 1d 4e 25  3d 34 38 2a 28 50 25 20  |=.....N%=48*(P% |
00000ca0  81 20 37 29 2b 46 25 28  50 25 20 83 20 37 29 0d  |. 7)+F%(P% . 7).|
00000cb0  07 9e 37 e7 20 56 25 3c  32 32 20 8c 20 e7 20 50  |..7. V%<22 . . P|
00000cc0  25 20 83 20 37 3c 3e 33  20 80 20 50 25 83 20 37  |% . 7<>3 . P%. 7|
00000cd0  3c 3e 30 20 80 20 50 25  3c 3e 33 37 20 8c 20 4e  |<>0 . P%<>37 . N|
00000ce0  25 3d 4e 25 2b 34 0d 07  a8 4d e7 20 65 64 25 3d  |%=N%+4...M. ed%=|
00000cf0  30 20 8c 20 e7 20 52 25  3d 31 20 8c 20 e7 20 6e  |0 . . R%=1 . . n|
00000d00  6f 74 65 25 3c 39 39 39  20 8c 20 6e 6f 74 65 25  |ote%<999 . note%|
00000d10  3d 6e 6f 74 65 25 2b 31  3a 4e 25 28 6e 6f 74 65  |=note%+1:N%(note|
00000d20  25 29 3d 4e 25 3a f1 8a  36 2c 32 39 29 3b 6e 6f  |%)=N%:..6,29);no|
00000d30  74 65 25 0d 07 b2 23 e7  20 65 64 25 3d 31 20 8c  |te%...#. ed%=1 .|
00000d40  20 e7 20 52 25 3d 31 20  8c 20 4e 25 28 65 64 69  | . R%=1 . N%(edi|
00000d50  74 25 29 3d 4e 25 0d 07  bc 19 e7 20 46 25 3d 31  |t%)=N%..... F%=1|
00000d60  20 d4 20 26 31 31 2c 45  25 2c 4e 25 2c 44 25 0d  | . &11,E%,N%,D%.|
00000d70  07 c6 28 e7 20 46 25 3d  32 20 d4 20 26 31 31 31  |..(. F%=2 . &111|
00000d80  2c 31 2c 4e 25 2c 44 25  3a d4 20 26 31 31 32 2c  |,1,N%,D%:. &112,|
00000d90  32 2c 4e 25 2c 44 25 0d  07 d0 37 e7 20 46 25 3d  |2,N%,D%...7. F%=|
00000da0  33 20 d4 20 26 32 31 31  2c 31 2c 4e 25 2c 44 25  |3 . &211,1,N%,D%|
00000db0  3a d4 20 26 32 31 32 2c  32 2c 4e 25 2c 44 25 3a  |:. &212,2,N%,D%:|
00000dc0  d4 20 26 32 31 33 2c 33  2c 4e 25 2c 44 25 0d 07  |. &213,3,N%,D%..|
00000dd0  da 18 e7 20 52 25 3d 31  20 8c 20 f5 3a fd 20 a6  |... R%=1 . .:. .|
00000de0  28 2d 31 32 39 29 0d 07  e4 05 e1 0d 07 ee 21 f4  |(-129)........!.|
00000df0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000e00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 07 f8 16  |************....|
00000e10  f4 20 44 45 46 49 4e 45  20 45 4e 56 45 4c 4f 50  |. DEFINE ENVELOP|
00000e20  45 53 0d 08 02 0e dd f2  65 6e 76 65 6c 6f 70 65  |ES......envelope|
00000e30  0d 08 0c 1e ee 20 45 25  20 e5 20 8d 54 56 48 2c  |..... E% . .TVH,|
00000e40  8d 54 60 48 2c 8d 54 6a  48 2c 8d 54 74 48 0d 08  |.T`H,.TjH,.TtH..|
00000e50  16 75 e2 20 31 2c 50 25  28 31 2c 31 29 2c 50 25  |.u. 1,P%(1,1),P%|
00000e60  28 31 2c 32 29 2c 50 25  28 31 2c 33 29 2c 50 25  |(1,2),P%(1,3),P%|
00000e70  28 31 2c 34 29 2c 50 25  28 31 2c 35 29 2c 50 25  |(1,4),P%(1,5),P%|
00000e80  28 31 2c 36 29 2c 50 25  28 31 2c 37 29 2c 50 25  |(1,6),P%(1,7),P%|
00000e90  28 31 2c 38 29 2c 50 25  28 31 2c 39 29 2c 50 25  |(1,8),P%(1,9),P%|
00000ea0  28 31 2c 31 30 29 2c 50  25 28 31 2c 31 31 29 2c  |(1,10),P%(1,11),|
00000eb0  50 25 28 31 2c 31 32 29  2c 50 25 28 31 2c 31 33  |P%(1,12),P%(1,13|
00000ec0  29 3a e1 0d 08 20 75 e2  20 32 2c 50 25 28 32 2c  |):... u. 2,P%(2,|
00000ed0  31 29 2c 50 25 28 32 2c  32 29 2c 50 25 28 32 2c  |1),P%(2,2),P%(2,|
00000ee0  33 29 2c 50 25 28 32 2c  34 29 2c 50 25 28 32 2c  |3),P%(2,4),P%(2,|
00000ef0  35 29 2c 50 25 28 32 2c  36 29 2c 50 25 28 32 2c  |5),P%(2,6),P%(2,|
00000f00  37 29 2c 50 25 28 32 2c  38 29 2c 50 25 28 32 2c  |7),P%(2,8),P%(2,|
00000f10  39 29 2c 50 25 28 32 2c  31 30 29 2c 50 25 28 32  |9),P%(2,10),P%(2|
00000f20  2c 31 31 29 2c 50 25 28  32 2c 31 32 29 2c 50 25  |,11),P%(2,12),P%|
00000f30  28 32 2c 31 33 29 3a e1  0d 08 2a 75 e2 20 33 2c  |(2,13):...*u. 3,|
00000f40  50 25 28 33 2c 31 29 2c  50 25 28 33 2c 32 29 2c  |P%(3,1),P%(3,2),|
00000f50  50 25 28 33 2c 33 29 2c  50 25 28 33 2c 34 29 2c  |P%(3,3),P%(3,4),|
00000f60  50 25 28 33 2c 35 29 2c  50 25 28 33 2c 36 29 2c  |P%(3,5),P%(3,6),|
00000f70  50 25 28 33 2c 37 29 2c  50 25 28 33 2c 38 29 2c  |P%(3,7),P%(3,8),|
00000f80  50 25 28 33 2c 39 29 2c  50 25 28 33 2c 31 30 29  |P%(3,9),P%(3,10)|
00000f90  2c 50 25 28 33 2c 31 31  29 2c 50 25 28 33 2c 31  |,P%(3,11),P%(3,1|
00000fa0  32 29 2c 50 25 28 33 2c  31 33 29 3a e1 0d 08 34  |2),P%(3,13):...4|
00000fb0  75 e2 20 34 2c 50 25 28  34 2c 31 29 2c 50 25 28  |u. 4,P%(4,1),P%(|
00000fc0  34 2c 32 29 2c 50 25 28  34 2c 33 29 2c 50 25 28  |4,2),P%(4,3),P%(|
00000fd0  34 2c 34 29 2c 50 25 28  34 2c 35 29 2c 50 25 28  |4,4),P%(4,5),P%(|
00000fe0  34 2c 36 29 2c 50 25 28  34 2c 37 29 2c 50 25 28  |4,6),P%(4,7),P%(|
00000ff0  34 2c 38 29 2c 50 25 28  34 2c 39 29 2c 50 25 28  |4,8),P%(4,9),P%(|
00001000  34 2c 31 30 29 2c 50 25  28 34 2c 31 31 29 2c 50  |4,10),P%(4,11),P|
00001010  25 28 34 2c 31 32 29 2c  50 25 28 34 2c 31 33 29  |%(4,12),P%(4,13)|
00001020  3a e1 0d 08 3e 21 f4 2a  2a 2a 2a 2a 2a 2a 2a 2a  |:...>!.*********|
00001030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001040  2a 2a 2a 0d 08 48 18 f4  20 44 49 53 50 4c 41 59  |***..H.. DISPLAY|
00001050  20 50 41 52 41 4d 45 54  45 52 53 0d 08 52 10 dd  | PARAMETERS..R..|
00001060  f2 70 61 72 61 6d 65 74  65 72 73 0d 08 5c 0e f1  |.parameters..\..|
00001070  8a 31 36 2c 32 29 3b 45  25 0d 08 66 11 f1 8a 33  |.16,2);E%..f...3|
00001080  34 2c 32 29 3b 89 28 33  29 3b 0d 08 70 14 f1 8a  |4,2);.(3);..p...|
00001090  33 34 2c 32 29 3b 50 25  28 45 25 2c 31 29 0d 08  |34,2);P%(E%,1)..|
000010a0  7a 0e e3 20 49 25 3d 31  20 b8 20 36 0d 08 84 19  |z.. I%=1 . 6....|
000010b0  f1 8a 36 2a 28 49 25 2d  31 29 2b 32 2c 37 29 3b  |..6*(I%-1)+2,7);|
000010c0  89 28 35 29 3b 0d 08 8e  20 f1 8a 36 2a 28 49 25  |.(5);... ..6*(I%|
000010d0  2d 31 29 2b 33 2c 37 29  3b 50 25 28 45 25 2c 49  |-1)+3,7);P%(E%,I|
000010e0  25 2b 31 29 3b 0d 08 98  1a f1 8a 36 2a 28 49 25  |%+1);......6*(I%|
000010f0  2d 31 29 2b 32 2c 31 32  29 3b 89 28 35 29 3b 0d  |-1)+2,12);.(5);.|
00001100  08 a2 21 f1 8a 36 2a 28  49 25 2d 31 29 2b 33 2c  |..!..6*(I%-1)+3,|
00001110  31 32 29 3b 50 25 28 45  25 2c 49 25 2b 37 29 3b  |12);P%(E%,I%+7);|
00001120  0d 08 ac 05 ed 0d 08 b6  05 e1 0d 08 c0 21 f4 2a  |.............!.*|
00001130  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001140  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 08 ca 15 f4  |***********.....|
00001150  20 43 48 41 4e 47 45 20  45 4e 56 45 4c 4f 50 45  | CHANGE ENVELOPE|
00001160  0d 08 d4 0c dd f2 63 68  61 6e 67 65 0d 08 de 10  |......change....|
00001170  2a 48 49 44 45 50 4f 49  4e 54 45 52 0d 08 e8 0d  |*HIDEPOINTER....|
00001180  fb 20 31 32 39 3a fb 20  30 0d 08 f2 11 f1 8a 32  |. 129:. 0......2|
00001190  2c 32 29 3b 89 28 31 31  29 3b 0d 08 fc 16 f1 8a  |,2);.(11);......|
000011a0  32 2c 32 29 3b 22 45 4e  56 45 4c 4f 50 45 22 3b  |2,2);"ENVELOPE";|
000011b0  0d 09 06 11 f1 8a 31 34  2c 32 29 3b 89 28 35 29  |......14,2);.(5)|
000011c0  3b 0d 09 10 0f f1 8a 31  36 2c 32 29 3b 45 25 3b  |;......16,2);E%;|
000011d0  0d 09 1a 0f f5 3a fd 20  a6 28 2d 31 32 39 29 0d  |.....:. .(-129).|
000011e0  09 24 05 f5 0d 09 2e 17  e7 20 a6 28 2d 31 30 37  |.$....... .(-107|
000011f0  29 20 8c 20 45 25 3d 45  25 2b 31 0d 09 38 17 e7  |) . E%=E%+1..8..|
00001200  20 a6 28 2d 31 30 39 29  20 8c 20 45 25 3d 45 25  | .(-109) . E%=E%|
00001210  2d 31 0d 09 42 11 e7 20  45 25 3d 35 20 8c 20 45  |-1..B.. E%=5 . E|
00001220  25 3d 31 0d 09 4c 11 e7  20 45 25 3d 30 20 8c 20  |%=1..L.. E%=0 . |
00001230  45 25 3d 34 0d 09 56 0f  f1 8a 31 36 2c 32 29 3b  |E%=4..V...16,2);|
00001240  45 25 3b 0d 09 60 15 e3  20 64 65 6c 61 79 3d 31  |E%;..`.. delay=1|
00001250  20 b8 20 33 30 30 3a ed  0d 09 6a 0d fd 20 a6 28  | . 300:...j.. .(|
00001260  2d 31 30 38 29 0d 09 74  0d fb 20 31 32 38 3a fb  |-108)..t.. 128:.|
00001270  20 31 0d 09 7e 11 f1 8a  32 2c 32 29 3b 89 28 31  | 1..~...2,2);.(1|
00001280  31 29 3b 0d 09 88 16 f1  8a 32 2c 32 29 3b 22 45  |1);......2,2);"E|
00001290  4e 56 45 4c 4f 50 45 22  3b 0d 09 92 11 f1 8a 31  |NVELOPE";......1|
000012a0  34 2c 32 29 3b 89 28 35  29 3b 0d 09 9c 0f f1 8a  |4,2);.(5);......|
000012b0  31 36 2c 32 29 3b 45 25  3b 0d 09 a6 0d f2 65 6e  |16,2);E%;.....en|
000012c0  76 65 6c 6f 70 65 0d 09  b0 0f f2 70 61 72 61 6d  |velope.....param|
000012d0  65 74 65 72 73 0d 09 ba  10 2a 53 48 4f 57 50 4f  |eters....*SHOWPO|
000012e0  49 4e 54 45 52 0d 09 c4  0f f5 3a fd 20 a6 28 2d  |INTER.....:. .(-|
000012f0  31 32 39 29 0d 09 ce 05  e1 0d 09 d8 21 f4 2a 2a  |129)........!.**|
00001300  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001310  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 09 e2 11 f4 20  |**********..... |
00001320  43 48 41 4e 47 45 20 53  54 45 50 0d 09 ec 0a dd  |CHANGE STEP.....|
00001330  f2 73 74 65 70 0d 09 f6  10 2a 48 49 44 45 50 4f  |.step....*HIDEPO|
00001340  49 4e 54 45 52 0d 0a 00  0d fb 20 31 32 39 3a fb  |INTER..... 129:.|
00001350  20 30 0d 0a 0a 12 f1 8a  32 30 2c 32 29 3b 89 28  | 0......20,2);.(|
00001360  31 31 29 3b 0d 0a 14 18  f1 8a 32 30 2c 32 29 3b  |11);......20,2);|
00001370  22 53 54 45 50 20 54 49  4d 45 22 3b 0d 0a 1e 11  |"STEP TIME";....|
00001380  f1 8a 33 32 2c 32 29 3b  89 28 35 29 3b 0d 0a 28  |..32,2);.(5);..(|
00001390  15 f1 8a 33 34 2c 32 29  3b 50 25 28 45 25 2c 31  |...34,2);P%(E%,1|
000013a0  29 3b 0d 0a 32 0f f5 3a  fd 20 a6 28 2d 31 32 39  |);..2..:. .(-129|
000013b0  29 0d 0a 3c 05 f5 0d 0a  46 23 e7 20 a6 28 2d 31  |)..<....F#. .(-1|
000013c0  30 37 29 20 8c 20 50 25  28 45 25 2c 31 29 3d 50  |07) . P%(E%,1)=P|
000013d0  25 28 45 25 2c 31 29 2b  31 0d 0a 50 23 e7 20 a6  |%(E%,1)+1..P#. .|
000013e0  28 2d 31 30 39 29 20 8c  20 50 25 28 45 25 2c 31  |(-109) . P%(E%,1|
000013f0  29 3d 50 25 28 45 25 2c  31 29 2d 31 0d 0a 5a 1f  |)=P%(E%,1)-1..Z.|
00001400  e7 20 50 25 28 45 25 2c  31 29 3d 32 35 36 20 8c  |. P%(E%,1)=256 .|
00001410  20 50 25 28 45 25 2c 31  29 3d 31 0d 0a 64 1f e7  | P%(E%,1)=1..d..|
00001420  20 50 25 28 45 25 2c 31  29 3d 30 20 8c 20 50 25  | P%(E%,1)=0 . P%|
00001430  28 45 25 2c 31 29 3d 32  35 35 0d 0a 6e 11 f1 8a  |(E%,1)=255..n...|
00001440  33 32 2c 32 29 3b 89 28  35 29 3b 0d 0a 78 15 f1  |32,2);.(5);..x..|
00001450  8a 33 34 2c 32 29 3b 50  25 28 45 25 2c 31 29 3b  |.34,2);P%(E%,1);|
00001460  0d 0a 82 15 e3 20 64 65  6c 61 79 3d 31 20 b8 20  |..... delay=1 . |
00001470  33 30 30 3a ed 0d 0a 8c  0d fd 20 a6 28 2d 31 30  |300:...... .(-10|
00001480  38 29 0d 0a 96 0d fb 20  31 32 38 3a fb 20 31 0d  |8)..... 128:. 1.|
00001490  0a a0 12 f1 8a 32 30 2c  32 29 3b 89 28 31 31 29  |.....20,2);.(11)|
000014a0  3b 0d 0a aa 18 f1 8a 32  30 2c 32 29 3b 22 53 54  |;......20,2);"ST|
000014b0  45 50 20 54 49 4d 45 22  3b 0d 0a b4 11 f1 8a 33  |EP TIME";......3|
000014c0  32 2c 32 29 3b 89 28 35  29 3b 0d 0a be 15 f1 8a  |2,2);.(5);......|
000014d0  33 34 2c 32 29 3b 50 25  28 45 25 2c 31 29 3b 0d  |34,2);P%(E%,1);.|
000014e0  0a c8 0d f2 65 6e 76 65  6c 6f 70 65 0d 0a d2 10  |....envelope....|
000014f0  2a 53 48 4f 57 50 4f 49  4e 54 45 52 0d 0a dc 0f  |*SHOWPOINTER....|
00001500  f5 3a fd 20 a6 28 2d 31  32 39 29 0d 0a e6 05 e1  |.:. .(-129).....|
00001510  0d 0a f0 21 f4 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...!.***********|
00001520  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001530  2a 0d 0a fa 17 f4 20 43  48 41 4e 47 45 20 50 41  |*..... CHANGE PA|
00001540  52 41 4d 45 54 45 52 53  0d 0b 04 0e dd f2 70 69  |RAMETERS......pi|
00001550  74 63 68 61 6d 70 0d 0b  0e 17 e7 20 bc 3d 37 20  |tchamp..... .=7 |
00001560  8c 20 50 25 3d 32 20 8b  20 50 25 3d 38 0d 0b 18  |. P%=2 . P%=8...|
00001570  0e 51 25 3d 28 b1 2b 35  29 2f 36 0d 0b 22 0e 50  |.Q%=(.+5)/6..".P|
00001580  25 3d 50 25 2b 51 25 2d  31 0d 0b 2c 11 e7 20 50  |%=P%+Q%-1..,.. P|
00001590  25 3c 32 20 8c 20 50 25  3d 32 0d 0b 36 13 e7 20  |%<2 . P%=2..6.. |
000015a0  50 25 3e 31 33 20 8c 20  50 25 3d 31 33 0d 0b 40  |P%>13 . P%=13..@|
000015b0  10 2a 48 49 44 45 50 4f  49 4e 54 45 52 0d 0b 4a  |.*HIDEPOINTER..J|
000015c0  0d fb 20 31 32 39 3a fb  20 30 0d 0b 54 38 e7 20  |.. 129:. 0..T8. |
000015d0  50 25 3c 38 20 f1 8a 28  50 25 2d 32 29 2a 36 2b  |P%<8 ..(P%-2)*6+|
000015e0  32 2c bc 2d 32 29 3b 89  28 35 29 3b 8a 28 50 25  |2,.-2);.(5);.(P%|
000015f0  2d 32 29 2a 36 2b 33 2c  bc 29 3b 50 24 28 50 25  |-2)*6+3,.);P$(P%|
00001600  29 3b 0d 0b 5e 38 e7 20  50 25 3e 37 20 f1 8a 28  |);..^8. P%>7 ..(|
00001610  50 25 2d 38 29 2a 36 2b  32 2c bc 2d 32 29 3b 89  |P%-8)*6+2,.-2);.|
00001620  28 35 29 3b 8a 28 50 25  2d 38 29 2a 36 2b 33 2c  |(5);.(P%-8)*6+3,|
00001630  bc 29 3b 50 24 28 50 25  29 3b 0d 0b 68 3b e7 20  |.);P$(P%);..h;. |
00001640  50 25 3c 38 20 f1 8a 28  50 25 2d 32 29 2a 36 2b  |P%<8 ..(P%-2)*6+|
00001650  32 2c bc 2b 32 29 3b 89  28 35 29 3b 8a 28 50 25  |2,.+2);.(5);.(P%|
00001660  2d 32 29 2a 36 2b 33 2c  bc 29 3b 50 25 28 45 25  |-2)*6+3,.);P%(E%|
00001670  2c 50 25 29 3b 0d 0b 72  3b e7 20 50 25 3e 37 20  |,P%);..r;. P%>7 |
00001680  f1 8a 28 50 25 2d 38 29  2a 36 2b 32 2c bc 2b 32  |..(P%-8)*6+2,.+2|
00001690  29 3b 89 28 35 29 3b 8a  28 50 25 2d 38 29 2a 36  |);.(5);.(P%-8)*6|
000016a0  2b 33 2c bc 29 3b 50 25  28 45 25 2c 50 25 29 3b  |+3,.);P%(E%,P%);|
000016b0  0d 0b 7c 0f f5 3a fd 20  a6 28 2d 31 32 39 29 0d  |..|..:. .(-129).|
000016c0  0b 86 05 f5 0d 0b 90 25  e7 20 a6 28 2d 31 30 37  |.......%. .(-107|
000016d0  29 20 8c 20 50 25 28 45  25 2c 50 25 29 3d 50 25  |) . P%(E%,P%)=P%|
000016e0  28 45 25 2c 50 25 29 2b  31 0d 0b 9a 25 e7 20 a6  |(E%,P%)+1...%. .|
000016f0  28 2d 31 30 39 29 20 8c  20 50 25 28 45 25 2c 50  |(-109) . P%(E%,P|
00001700  25 29 3d 50 25 28 45 25  2c 50 25 29 2d 31 0d 0b  |%)=P%(E%,P%)-1..|
00001710  a4 2b e7 20 50 25 28 45  25 2c 50 25 29 3c 6d 69  |.+. P%(E%,P%)<mi|
00001720  6e 28 50 25 29 20 8c 20  50 25 28 45 25 2c 50 25  |n(P%) . P%(E%,P%|
00001730  29 3d 6d 61 78 28 50 25  29 0d 0b ae 2b e7 20 50  |)=max(P%)...+. P|
00001740  25 28 45 25 2c 50 25 29  3e 6d 61 78 28 50 25 29  |%(E%,P%)>max(P%)|
00001750  20 8c 20 50 25 28 45 25  2c 50 25 29 3d 6d 69 6e  | . P%(E%,P%)=min|
00001760  28 50 25 29 0d 0b b8 39  e7 20 50 25 3c 38 20 f1  |(P%)...9. P%<8 .|
00001770  8a 28 50 25 2d 32 29 2a  36 2b 32 2c bc 29 3b 89  |.(P%-2)*6+2,.);.|
00001780  28 35 29 3b 8a 28 50 25  2d 32 29 2a 36 2b 33 2c  |(5);.(P%-2)*6+3,|
00001790  bc 29 3b 50 25 28 45 25  2c 50 25 29 3b 0d 0b c2  |.);P%(E%,P%);...|
000017a0  39 e7 20 50 25 3e 37 20  f1 8a 28 50 25 2d 38 29  |9. P%>7 ..(P%-8)|
000017b0  2a 36 2b 32 2c bc 29 3b  89 28 35 29 3b 8a 28 50  |*6+2,.);.(5);.(P|
000017c0  25 2d 38 29 2a 36 2b 33  2c bc 29 3b 50 25 28 45  |%-8)*6+3,.);P%(E|
000017d0  25 2c 50 25 29 3b 0d 0b  cc 15 e3 20 44 45 4c 41  |%,P%);..... DELA|
000017e0  59 3d 31 20 b8 20 33 30  30 3a ed 0d 0b d6 0d fd  |Y=1 . 300:......|
000017f0  20 a6 28 2d 31 30 38 29  0d 0b e0 0d fb 20 31 32  | .(-108)..... 12|
00001800  38 3a fb 20 31 0d 0b ea  39 e7 20 50 25 3c 38 20  |8:. 1...9. P%<8 |
00001810  f1 8a 28 50 25 2d 32 29  2a 36 2b 32 2c bc 29 3b  |..(P%-2)*6+2,.);|
00001820  89 28 35 29 3b 8a 28 50  25 2d 32 29 2a 36 2b 33  |.(5);.(P%-2)*6+3|
00001830  2c bc 29 3b 50 25 28 45  25 2c 50 25 29 3b 0d 0b  |,.);P%(E%,P%);..|
00001840  f4 39 e7 20 50 25 3e 37  20 f1 8a 28 50 25 2d 38  |.9. P%>7 ..(P%-8|
00001850  29 2a 36 2b 32 2c bc 29  3b 89 28 35 29 3b 8a 28  |)*6+2,.);.(5);.(|
00001860  50 25 2d 38 29 2a 36 2b  33 2c bc 29 3b 50 25 28  |P%-8)*6+3,.);P%(|
00001870  45 25 2c 50 25 29 3b 0d  0b fe 38 e7 20 50 25 3c  |E%,P%);...8. P%<|
00001880  38 20 f1 8a 28 50 25 2d  32 29 2a 36 2b 32 2c bc  |8 ..(P%-2)*6+2,.|
00001890  2d 32 29 3b 89 28 35 29  3b 8a 28 50 25 2d 32 29  |-2);.(5);.(P%-2)|
000018a0  2a 36 2b 33 2c bc 29 3b  50 24 28 50 25 29 3b 0d  |*6+3,.);P$(P%);.|
000018b0  0c 08 38 e7 20 50 25 3e  37 20 f1 8a 28 50 25 2d  |..8. P%>7 ..(P%-|
000018c0  38 29 2a 36 2b 32 2c bc  2d 32 29 3b 89 28 35 29  |8)*6+2,.-2);.(5)|
000018d0  3b 8a 28 50 25 2d 38 29  2a 36 2b 33 2c bc 29 3b  |;.(P%-8)*6+3,.);|
000018e0  50 24 28 50 25 29 3b 0d  0c 12 0d f2 65 6e 76 65  |P$(P%);.....enve|
000018f0  6c 6f 70 65 0d 0c 1c 10  2a 53 48 4f 57 50 4f 49  |lope....*SHOWPOI|
00001900  4e 54 45 52 0d 0c 26 0f  f5 3a fd 20 a6 28 2d 31  |NTER..&..:. .(-1|
00001910  32 39 29 0d 0c 30 05 e1  0d 0c 3a 21 f4 2a 2a 2a  |29)..0....:!.***|
00001920  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001930  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 0c 44 15 f4 20 43  |*********..D.. C|
00001940  48 41 4e 47 45 20 44 55  52 41 54 49 4f 4e 0d 0c  |HANGE DURATION..|
00001950  4e 0e dd f2 64 75 72 61  74 69 6f 6e 0d 0c 58 10  |N...duration..X.|
00001960  2a 48 49 44 45 50 4f 49  4e 54 45 52 0d 0c 62 0d  |*HIDEPOINTER..b.|
00001970  fb 20 31 32 39 3a fb 20  30 0d 0c 6c 12 f1 8a 32  |. 129:. 0..l...2|
00001980  2c 31 36 29 3b 89 28 31  31 29 3b 0d 0c 76 17 f1  |,16);.(11);..v..|
00001990  8a 32 2c 31 36 29 3b 22  44 55 52 41 54 49 4f 4e  |.2,16);"DURATION|
000019a0  22 3b 0d 0c 80 12 f1 8a  31 34 2c 31 36 29 3b 89  |";......14,16);.|
000019b0  28 35 29 3b 0d 0c 8a 10  f1 8a 31 36 2c 31 36 29  |(5);......16,16)|
000019c0  3b 44 25 3b 0d 0c 94 0f  f5 3a fd 20 a6 28 2d 31  |;D%;.....:. .(-1|
000019d0  32 39 29 0d 0c 9e 05 f5  0d 0c a8 17 e7 20 a6 28  |29).......... .(|
000019e0  2d 31 30 37 29 20 8c 20  44 25 3d 44 25 2b 31 0d  |-107) . D%=D%+1.|
000019f0  0c b2 17 e7 20 a6 28 2d  31 30 39 29 20 8c 20 44  |.... .(-109) . D|
00001a00  25 3d 44 25 2d 31 0d 0c  bc 13 e7 20 44 25 3d 32  |%=D%-1..... D%=2|
00001a10  35 36 20 8c 20 44 25 3d  31 0d 0c c6 13 e7 20 44  |56 . D%=1..... D|
00001a20  25 3d 30 20 8c 20 44 25  3d 32 35 35 0d 0c d0 12  |%=0 . D%=255....|
00001a30  f1 8a 31 34 2c 31 36 29  3b 89 28 35 29 3b 0d 0c  |..14,16);.(5);..|
00001a40  da 10 f1 8a 31 36 2c 31  36 29 3b 44 25 3b 0d 0c  |....16,16);D%;..|
00001a50  e4 15 e3 20 44 45 4c 41  59 3d 31 20 b8 20 33 30  |... DELAY=1 . 30|
00001a60  30 3a ed 0d 0c ee 0d fd  20 a6 28 2d 31 30 38 29  |0:...... .(-108)|
00001a70  0d 0c f8 0d fb 20 31 32  38 3a fb 20 31 0d 0d 02  |..... 128:. 1...|
00001a80  12 f1 8a 32 2c 31 36 29  3b 89 28 31 31 29 3b 0d  |...2,16);.(11);.|
00001a90  0d 0c 17 f1 8a 32 2c 31  36 29 3b 22 44 55 52 41  |.....2,16);"DURA|
00001aa0  54 49 4f 4e 22 3b 0d 0d  16 12 f1 8a 31 34 2c 31  |TION";......14,1|
00001ab0  36 29 3b 89 28 35 29 3b  0d 0d 20 10 f1 8a 31 36  |6);.(5);.. ...16|
00001ac0  2c 31 36 29 3b 44 25 3b  0d 0d 2a 10 2a 53 48 4f  |,16);D%;..*.*SHO|
00001ad0  57 50 4f 49 4e 54 45 52  0d 0d 34 0f f5 3a fd 20  |WPOINTER..4..:. |
00001ae0  a6 28 2d 31 32 39 29 0d  0d 3e 05 e1 0d 0d 48 21  |.(-129)..>....H!|
00001af0  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
00001b00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 0d 52  |*************..R|
00001b10  14 f4 20 43 48 41 4e 47  45 20 45 46 46 45 43 54  |.. CHANGE EFFECT|
00001b20  53 0d 0d 5c 0c dd f2 65  66 66 65 63 74 0d 0d 66  |S..\...effect..f|
00001b30  10 2a 48 49 44 45 50 4f  49 4e 54 45 52 0d 0d 70  |.*HIDEPOINTER..p|
00001b40  0d fb 20 31 32 39 3a fb  20 30 0d 0d 7a 13 f1 8a  |.. 129:. 0..z...|
00001b50  32 30 2c 31 36 29 3b 89  28 31 31 29 3b 0d 0d 84  |20,16);.(11);...|
00001b60  16 f1 8a 32 30 2c 31 36  29 3b 22 45 46 46 45 43  |...20,16);"EFFEC|
00001b70  54 22 3b 0d 0d 8e 12 f1  8a 33 32 2c 31 36 29 3b  |T";......32,16);|
00001b80  89 28 35 29 3b 0d 0d 98  10 f1 8a 33 34 2c 31 36  |.(5);......34,16|
00001b90  29 3b 46 25 3b 0d 0d a2  0f f5 3a fd 20 a6 28 2d  |);F%;.....:. .(-|
00001ba0  31 32 39 29 0d 0d ac 05  f5 0d 0d b6 17 e7 20 a6  |129).......... .|
00001bb0  28 2d 31 30 37 29 20 8c  20 46 25 3d 46 25 2b 31  |(-107) . F%=F%+1|
00001bc0  0d 0d c0 17 e7 20 a6 28  2d 31 30 39 29 20 8c 20  |..... .(-109) . |
00001bd0  46 25 3d 46 25 2d 31 0d  0d ca 11 e7 20 46 25 3d  |F%=F%-1..... F%=|
00001be0  34 20 8c 20 46 25 3d 31  0d 0d d4 11 e7 20 46 25  |4 . F%=1..... F%|
00001bf0  3d 30 20 8c 20 46 25 3d  33 0d 0d de 12 f1 8a 33  |=0 . F%=3......3|
00001c00  32 2c 31 36 29 3b 89 28  35 29 3b 0d 0d e8 10 f1  |2,16);.(5);.....|
00001c10  8a 33 34 2c 31 36 29 3b  46 25 3b 0d 0d f2 15 e3  |.34,16);F%;.....|
00001c20  20 44 45 4c 41 59 3d 31  20 b8 20 33 30 30 3a ed  | DELAY=1 . 300:.|
00001c30  0d 0d fc 0d fd 20 a6 28  2d 31 30 38 29 0d 0e 06  |..... .(-108)...|
00001c40  0d fb 20 31 32 38 3a fb  20 31 0d 0e 10 13 f1 8a  |.. 128:. 1......|
00001c50  32 30 2c 31 36 29 3b 89  28 31 31 29 3b 0d 0e 1a  |20,16);.(11);...|
00001c60  16 f1 8a 32 30 2c 31 36  29 3b 22 45 46 46 45 43  |...20,16);"EFFEC|
00001c70  54 22 3b 0d 0e 24 12 f1  8a 33 32 2c 31 36 29 3b  |T";..$...32,16);|
00001c80  89 28 35 29 3b 0d 0e 2e  10 f1 8a 33 34 2c 31 36  |.(5);......34,16|
00001c90  29 3b 46 25 3b 0d 0e 38  10 2a 53 48 4f 57 50 4f  |);F%;..8.*SHOWPO|
00001ca0  49 4e 54 45 52 0d 0e 42  0f f5 3a fd 20 a6 28 2d  |INTER..B..:. .(-|
00001cb0  31 32 39 29 0d 0e 4c 05  e1 0d 0e 56 21 2a 2a 2a  |129)..L....V!***|
00001cc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001cd0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 0e 60 16 f4 20  |**********..`.. |
00001ce0  4d 45 4d 4f 52 59 20 46  55 4e 43 54 49 4f 4e 53  |MEMORY FUNCTIONS|
00001cf0  0d 0e 6a 0c dd f2 6d 65  6d 6f 72 79 0d 0e 74 12  |..j...memory..t.|
00001d00  e7 20 65 64 25 3d 31 20  8c 20 8d 74 66 4e 0d 0e  |. ed%=1 . .tfN..|
00001d10  7e 19 e7 20 b1 3e 31 20  80 20 b1 3c 35 20 8c 20  |~.. .>1 . .<5 . |
00001d20  f2 72 65 63 6f 72 64 0d  0e 88 19 e7 20 b1 3e 31  |.record..... .>1|
00001d30  33 20 80 20 b1 3c 31 37  20 8c 20 f2 70 6c 61 79  |3 . .<17 . .play|
00001d40  0d 0e 92 19 e7 20 b1 3e  32 37 20 80 20 b1 3c 33  |..... .>27 . .<3|
00001d50  32 20 8c 20 f2 6c 6f 61  64 0d 0e 9c 19 e7 20 b1  |2 . .load..... .|
00001d60  3e 33 32 20 80 20 b1 3c  33 37 20 8c 20 f2 73 61  |>32 . .<37 . .sa|
00001d70  76 65 0d 0e a6 21 e7 20  b1 3e 39 20 80 20 b1 3c  |ve...!. .>9 . .<|
00001d80  31 33 20 80 20 65 64 25  3d 30 20 8c 20 f2 65 72  |13 . ed%=0 . .er|
00001d90  61 73 65 0d 0e b0 2a e7  20 b1 3e 39 20 80 20 b1  |ase...*. .>9 . .|
00001da0  3c 31 33 20 80 20 65 64  25 3d 31 20 80 20 65 64  |<13 . ed%=1 . ed|
00001db0  69 74 25 3e 30 20 8c 20  f2 77 69 70 65 0d 0e ba  |it%>0 . .wipe...|
00001dc0  19 e7 20 b1 3e 32 31 20  80 20 b1 3c 32 36 20 8c  |.. .>21 . .<26 .|
00001dd0  20 f2 65 64 69 74 0d 0e  c4 05 e1 0d 0e ce 1f f4  | .edit..........|
00001de0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00001df0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 0e d8 12 f4 20  |**********..... |
00001e00  52 45 43 4f 52 44 20 4e  4f 54 45 53 0d 0e e2 0c  |RECORD NOTES....|
00001e10  dd f2 72 65 63 6f 72 64  0d 0e ec 10 2a 48 49 44  |..record....*HID|
00001e20  45 50 4f 49 4e 54 45 52  0d 0e f6 16 e7 20 52 25  |EPOINTER..... R%|
00001e30  3d 31 20 8c 20 fb 20 31  32 38 3a fb 20 31 0d 0f  |=1 . . 128:. 1..|
00001e40  00 16 e7 20 52 25 3d 30  20 8c 20 fb 20 31 32 39  |... R%=0 . . 129|
00001e50  3a fb 20 30 0d 0f 0a 18  e7 20 52 25 3d 31 20 8c  |:. 0..... R%=1 .|
00001e60  20 52 25 3d 30 20 8b 20  52 25 3d 31 0d 0f 14 11  | R%=0 . R%=1....|
00001e70  f1 8a 32 2c 32 39 29 3b  22 52 45 43 22 0d 0f 1e  |..2,29);"REC"...|
00001e80  0f f5 3a fd 20 a6 28 2d  31 32 39 29 0d 0f 28 0d  |..:. .(-129)..(.|
00001e90  fb 20 31 32 38 3a fb 20  31 0d 0f 32 10 2a 53 48  |. 128:. 1..2.*SH|
00001ea0  4f 57 50 4f 49 4e 54 45  52 0d 0f 3c 05 e1 0d 0f  |OWPOINTER..<....|
00001eb0  46 1f f4 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |F..*************|
00001ec0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 0f 50  |*************..P|
00001ed0  14 f4 20 50 4c 41 59 42  41 43 4b 20 4e 4f 54 45  |.. PLAYBACK NOTE|
00001ee0  53 0d 0f 5a 0a dd f2 70  6c 61 79 0d 0f 64 0f e7  |S..Z...play..d..|
00001ef0  20 6e 6f 74 65 25 3d 30  20 e1 0d 0f 6e 12 e7 20  | note%=0 ...n.. |
00001f00  52 25 3d 31 20 f2 72 65  63 6f 72 64 0d 0f 78 10  |R%=1 .record..x.|
00001f10  2a 48 49 44 45 50 4f 49  4e 54 45 52 0d 0f 82 0d  |*HIDEPOINTER....|
00001f20  fb 20 31 32 39 3a fb 20  30 0d 0f 8c 12 f1 8a 31  |. 129:. 0......1|
00001f30  34 2c 32 39 29 3b 22 50  2f 42 22 0d 0f 96 07 49  |4,29);"P/B"....I|
00001f40  3d 30 0d 0f a0 05 f5 0d  0f aa 09 49 3d 49 2b 31  |=0.........I=I+1|
00001f50  0d 0f b4 0c 4e 25 3d 4e  25 28 49 29 0d 0f be 0d  |....N%=N%(I)....|
00001f60  fb 20 31 32 38 3a fb 20  31 0d 0f c8 0f f5 3a fd  |. 128:. 1.....:.|
00001f70  20 a6 28 2d 31 32 39 29  0d 0f d2 11 f5 3a fd 20  | .(-129).....:. |
00001f80  ac 20 a6 28 2d 31 32 39  29 0d 0f dc 14 e7 20 49  |. .(-129)..... I|
00001f90  3e 6e 6f 74 65 25 20 8c  20 8d 54 58 50 0d 0f e6  |>note% . .TXP...|
00001fa0  19 e7 20 46 25 3d 31 20  d4 20 26 31 31 2c 45 25  |.. F%=1 . &11,E%|
00001fb0  2c 4e 25 2c 44 25 0d 0f  f0 28 e7 20 46 25 3d 32  |,N%,D%...(. F%=2|
00001fc0  20 d4 20 26 31 31 31 2c  31 2c 4e 25 2c 44 25 3a  | . &111,1,N%,D%:|
00001fd0  d4 20 26 31 31 32 2c 32  2c 4e 25 2c 44 25 0d 0f  |. &112,2,N%,D%..|
00001fe0  fa 37 e7 20 46 25 3d 33  20 d4 20 26 32 31 31 2c  |.7. F%=3 . &211,|
00001ff0  31 2c 4e 25 2c 44 25 3a  d4 20 26 32 31 32 2c 32  |1,N%,D%:. &212,2|
00002000  2c 4e 25 2c 44 25 3a d4  20 26 32 31 33 2c 33 2c  |,N%,D%:. &213,3,|
00002010  4e 25 2c 44 25 0d 10 04  11 f1 8a 31 38 2c 32 39  |N%,D%......18,29|
00002020  29 3b 89 28 33 29 0d 10  0e 0e f1 8a 31 38 2c 32  |);.(3)......18,2|
00002030  39 29 3b 49 0d 10 18 19  fd 20 49 3d 6e 6f 74 65  |9);I..... I=note|
00002040  25 2b 31 20 84 20 a6 28  2d 31 30 38 29 0d 10 22  |%+1 . .(-108).."|
00002050  12 f1 8a 31 34 2c 32 39  29 3b 22 50 2f 42 22 0d  |...14,29);"P/B".|
00002060  10 2c 11 f1 8a 31 38 2c  32 39 29 3b 89 28 33 29  |.,...18,29);.(3)|
00002070  0d 10 36 10 f1 8a 31 38  2c 32 39 29 3b 22 30 22  |..6...18,29);"0"|
00002080  0d 10 40 0f f5 3a fd 20  a6 28 2d 31 32 39 29 0d  |..@..:. .(-129).|
00002090  10 4a 0b 2a 46 58 31 35  2c 30 0d 10 54 10 2a 53  |.J.*FX15,0..T.*S|
000020a0  48 4f 57 50 4f 49 4e 54  45 52 0d 10 5e 05 e1 0d  |HOWPOINTER..^...|
000020b0  10 68 1f f4 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.h..************|
000020c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 10  |**************..|
000020d0  72 11 f4 20 45 52 41 53  45 20 4e 4f 54 45 53 0d  |r.. ERASE NOTES.|
000020e0  10 7c 0b dd f2 65 72 61  73 65 0d 10 86 11 e7 20  |.|...erase..... |
000020f0  6e 6f 74 65 25 3d 30 20  8c 20 e1 0d 10 90 10 2a  |note%=0 . .....*|
00002100  48 49 44 45 50 4f 49 4e  54 45 52 0d 10 9a 0d fb  |HIDEPOINTER.....|
00002110  20 31 32 39 3a fb 20 30  0d 10 a4 12 f1 8a 31 30  | 129:. 0......10|
00002120  2c 32 39 29 3b 22 45 52  41 22 0d 10 ae 11 e3 20  |,29);"ERA"..... |
00002130  49 3d 31 20 b8 20 6e 6f  74 65 25 0d 10 b8 0b 4e  |I=1 . note%....N|
00002140  25 28 49 29 3d 30 0d 10  c2 05 ed 0d 10 cc 0b 6e  |%(I)=0.........n|
00002150  6f 74 65 25 3d 30 0d 10  d6 0d fb 20 31 32 38 3a  |ote%=0..... 128:|
00002160  fb 20 31 0d 10 e0 11 f1  8a 36 2c 32 39 29 3b 89  |. 1......6,29);.|
00002170  28 33 29 3b 0d 10 ea 11  f1 8a 36 2c 32 39 29 3b  |(3);......6,29);|
00002180  6e 6f 74 65 25 0d 10 f4  12 f1 8a 31 30 2c 32 39  |note%......10,29|
00002190  29 3b 22 45 52 41 22 0d  10 fe 10 2a 53 48 4f 57  |);"ERA"....*SHOW|
000021a0  50 4f 49 4e 54 45 52 0d  11 08 05 e1 0d 11 12 1f  |POINTER.........|
000021b0  f4 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.***************|
000021c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 11 1c 10 f4  |***********.....|
000021d0  20 45 44 49 54 20 4e 4f  54 45 53 0d 11 26 0a dd  | EDIT NOTES..&..|
000021e0  f2 65 64 69 74 0d 11 30  1c e7 20 6e 6f 74 65 25  |.edit..0.. note%|
000021f0  3d 30 20 8c 20 65 64 25  3d 30 3a 52 25 3d 30 3a  |=0 . ed%=0:R%=0:|
00002200  e1 0d 11 3a 1a e7 20 65  64 25 3d 31 20 8c 20 8d  |...:.. ed%=1 . .|
00002210  54 6a 52 20 8b 20 65 64  25 3d 31 0d 11 44 12 e7  |TjR . ed%=1..D..|
00002220  20 52 25 3d 30 20 f2 72  65 63 6f 72 64 0d 11 4e  | R%=0 .record..N|
00002230  10 2a 48 49 44 45 50 4f  49 4e 54 45 52 0d 11 58  |.*HIDEPOINTER..X|
00002240  0d fb 20 31 32 39 3a fb  20 30 0d 11 62 13 f1 8a  |.. 129:. 0..b...|
00002250  32 32 2c 32 39 29 3b 22  45 44 49 54 22 0d 11 6c  |22,29);"EDIT"..l|
00002260  0f f5 3a fd 20 a6 28 2d  31 32 39 29 0d 11 76 0d  |..:. .(-129)..v.|
00002270  fb 20 31 32 38 3a fb 20  31 0d 11 80 15 f1 8a 31  |. 128:. 1......1|
00002280  38 2c 32 39 29 3b 22 30  22 3b 89 28 32 29 0d 11  |8,29);"0";.(2)..|
00002290  8a 0b 65 64 69 74 25 3d  30 0d 11 94 05 f5 0d 11  |..edit%=0.......|
000022a0  9e 11 f5 3a fd 20 ac 20  a6 28 2d 31 32 39 29 0d  |...:. . .(-129).|
000022b0  11 a8 1b e7 20 a6 28 2d  31 30 39 29 20 65 64 69  |.... .(-109) edi|
000022c0  74 25 3d 65 64 69 74 25  2d 31 0d 11 b2 1b e7 20  |t%=edit%-1..... |
000022d0  a6 28 2d 31 30 37 29 20  65 64 69 74 25 3d 65 64  |.(-107) edit%=ed|
000022e0  69 74 25 2b 31 0d 11 bc  14 e7 20 a6 28 2d 31 30  |it%+1..... .(-10|
000022f0  38 29 20 8c 20 8d 54 42  52 0d 11 c6 1b e7 20 65  |8) . .TBR..... e|
00002300  64 69 74 25 3c 31 20 8c  20 65 64 69 74 25 3d 6e  |dit%<1 . edit%=n|
00002310  6f 74 65 25 0d 11 d0 1b  e7 20 65 64 69 74 25 3e  |ote%..... edit%>|
00002320  6e 6f 74 65 25 20 8c 20  65 64 69 74 25 3d 30 0d  |note% . edit%=0.|
00002330  11 da 11 f1 8a 31 38 2c  32 39 29 3b 89 28 33 29  |.....18,29);.(3)|
00002340  0d 11 e4 12 f1 8a 31 38  2c 32 39 29 3b 65 64 69  |......18,29);edi|
00002350  74 25 0d 11 ee 10 f5 3a  fd 20 20 a6 28 2d 31 32  |t%.....:.  .(-12|
00002360  39 29 0d 11 f8 19 d4 20  26 31 31 2c 45 25 2c 4e  |9)..... &11,E%,N|
00002370  25 28 65 64 69 74 25 29  2c 44 25 0d 12 02 0d fd  |%(edit%),D%.....|
00002380  20 a6 28 2d 31 30 38 29  0d 12 0c 10 2a 53 48 4f  | .(-108)....*SHO|
00002390  57 50 4f 49 4e 54 45 52  0d 12 16 05 e1 0d 12 20  |WPOINTER....... |
000023a0  11 f4 20 45 4e 44 20 45  44 49 54 49 4e 47 0d 12  |.. END EDITING..|
000023b0  2a 10 2a 48 49 44 45 50  4f 49 4e 54 45 52 0d 12  |*.*HIDEPOINTER..|
000023c0  34 11 f1 8a 31 38 2c 32  39 29 3b 89 28 33 29 0d  |4...18,29);.(3).|
000023d0  12 3e 10 f1 8a 31 38 2c  32 39 29 3b 22 30 22 0d  |.>...18,29);"0".|
000023e0  12 48 13 f1 8a 32 32 2c  32 39 29 3b 22 45 44 49  |.H...22,29);"EDI|
000023f0  54 22 0d 12 52 09 65 64  25 3d 30 0d 12 5c 0f f5  |T"..R.ed%=0..\..|
00002400  3a fd 20 a6 28 2d 31 32  39 29 0d 12 66 10 2a 53  |:. .(-129)..f.*S|
00002410  48 4f 57 50 4f 49 4e 54  45 52 0d 12 70 0b f2 72  |HOWPOINTER..p..r|
00002420  65 63 6f 72 64 0d 12 7a  05 e1 0d 12 84 21 f4 2a  |ecord..z.....!.*|
00002430  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002440  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 12 8e 13 f4  |***********.....|
00002450  20 4c 4f 41 44 20 44 41  54 41 46 49 4c 45 0d 12  | LOAD DATAFILE..|
00002460  98 0a dd f2 6c 6f 61 64  0d 12 a2 16 2a 57 49 4e  |....load....*WIN|
00002470  44 4f 57 20 31 2c 33 30  2c 33 38 2c 32 38 0d 12  |DOW 1,30,38,28..|
00002480  ac 05 f1 0d 12 b6 21 e8  22 46 49 4c 45 20 4e 41  |......!."FILE NA|
00002490  4d 45 20 28 6f 72 20 52  45 54 55 52 4e 29 20 3f  |ME (or RETURN) ?|
000024a0  20 22 46 24 0d 12 c0 16  e7 20 46 24 3d 22 22 20  | "F$..... F$="" |
000024b0  8c 20 f2 73 74 6f 72 65  3a e1 0d 12 ca 0b 58 3d  |. .store:.....X=|
000024c0  ad 28 46 24 29 0d 12 d4  0d e8 23 58 2c 6e 6f 74  |.(F$).....#X,not|
000024d0  65 25 0d 12 de 11 e3 20  49 3d 31 20 b8 20 6e 6f  |e%..... I=1 . no|
000024e0  74 65 25 0d 12 e8 0d e8  23 58 2c 4e 25 28 49 29  |te%.....#X,N%(I)|
000024f0  0d 12 f2 05 ed 0d 12 fc  07 d9 23 58 0d 13 06 0a  |..........#X....|
00002500  f2 73 74 6f 72 65 0d 13  10 05 e1 0d 13 1a 21 f4  |.store........!.|
00002510  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002520  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 13 24 13  |************..$.|
00002530  f4 20 53 41 56 45 20 44  41 54 41 46 49 4c 45 0d  |. SAVE DATAFILE.|
00002540  13 2e 0a dd f2 73 61 76  65 0d 13 38 11 e7 20 6e  |.....save..8.. n|
00002550  6f 74 65 25 3d 30 20 8c  20 e1 0d 13 42 16 2a 57  |ote%=0 . ...B.*W|
00002560  49 4e 44 4f 57 20 31 2c  33 30 2c 33 38 2c 32 38  |INDOW 1,30,38,28|
00002570  0d 13 4c 05 f1 0d 13 56  21 e8 22 46 49 4c 45 20  |..L....V!."FILE |
00002580  4e 41 4d 45 20 28 6f 72  20 52 45 54 55 52 4e 29  |NAME (or RETURN)|
00002590  20 3f 20 22 46 24 0d 13  60 16 e7 20 46 24 3d 22  | ? "F$..`.. F$="|
000025a0  22 20 8c 20 f2 73 74 6f  72 65 3a e1 0d 13 6a 0b  |" . .store:...j.|
000025b0  58 3d ae 28 46 24 29 0d  13 74 0d f1 23 58 2c 6e  |X=.(F$)..t..#X,n|
000025c0  6f 74 65 25 0d 13 7e 11  e3 20 49 3d 31 20 b8 20  |ote%..~.. I=1 . |
000025d0  6e 6f 74 65 25 0d 13 88  0d f1 23 58 2c 4e 25 28  |note%.....#X,N%(|
000025e0  49 29 0d 13 92 05 ed 0d  13 9c 07 d9 23 58 0d 13  |I)..........#X..|
000025f0  a6 0a f2 73 74 6f 72 65  0d 13 b0 05 e1 0d 13 ba  |...store........|
00002600  21 f4 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |!.**************|
00002610  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 13  |**************..|
00002620  c4 10 f4 20 45 44 49 54  2f 45 52 41 53 45 0d 13  |... EDIT/ERASE..|
00002630  ce 0a dd f2 77 69 70 65  0d 13 d8 10 2a 48 49 44  |....wipe....*HID|
00002640  45 50 4f 49 4e 54 45 52  0d 13 e2 09 77 70 25 3d  |EPOINTER....wp%=|
00002650  31 0d 13 ec 16 2a 57 49  4e 44 4f 57 20 31 2c 33  |1....*WINDOW 1,3|
00002660  30 2c 33 38 2c 32 38 0d  13 f6 07 ef 32 36 0d 14  |0,38,28.....26..|
00002670  00 06 ef 35 0d 14 0a 0c  ec 20 34 38 2c 31 30 38  |...5..... 48,108|
00002680  0d 14 14 0c 2a 49 43 4f  4e 20 37 37 0d 14 1e 0c  |....*ICON 77....|
00002690  2a 49 43 4f 4e 20 37 38  0d 14 28 0c 2a 49 43 4f  |*ICON 78..(.*ICO|
000026a0  4e 20 37 38 0d 14 32 0c  2a 49 43 4f 4e 20 37 38  |N 78..2.*ICON 78|
000026b0  0d 14 3c 0c 2a 49 43 4f  4e 20 37 38 0d 14 46 0c  |..<.*ICON 78..F.|
000026c0  2a 49 43 4f 4e 20 37 38  0d 14 50 0c 2a 49 43 4f  |*ICON 78..P.*ICO|
000026d0  4e 20 37 38 0d 14 5a 0c  2a 49 43 4f 4e 20 37 39  |N 78..Z.*ICON 79|
000026e0  0d 14 64 0c 2a 49 43 4f  4e 20 37 37 0d 14 6e 0c  |..d.*ICON 77..n.|
000026f0  2a 49 43 4f 4e 20 37 38  0d 14 78 0c 2a 49 43 4f  |*ICON 78..x.*ICO|
00002700  4e 20 37 38 0d 14 82 0c  2a 49 43 4f 4e 20 37 38  |N 78....*ICON 78|
00002710  0d 14 8c 0c 2a 49 43 4f  4e 20 37 38 0d 14 96 0c  |....*ICON 78....|
00002720  2a 49 43 4f 4e 20 37 38  0d 14 a0 0c 2a 49 43 4f  |*ICON 78....*ICO|
00002730  4e 20 37 38 0d 14 aa 0c  2a 49 43 4f 4e 20 37 38  |N 78....*ICON 78|
00002740  0d 14 b4 0c 2a 49 43 4f  4e 20 37 38 0d 14 be 0c  |....*ICON 78....|
00002750  2a 49 43 4f 4e 20 37 39  0d 14 c8 06 ef 34 0d 14  |*ICON 79.....4..|
00002760  d2 12 ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |...23,1,0;0;0;0;|
00002770  0d 14 dc 05 f1 0d 14 e6  20 f1 8a 32 2c 32 39 29  |........ ..2,29)|
00002780  3b 22 45 52 41 53 45 20  4e 4f 54 45 20 22 3b 65  |;"ERASE NOTE ";e|
00002790  64 69 74 25 3b 0d 14 f0  29 f1 8a 31 38 2c 32 39  |dit%;...)..18,29|
000027a0  29 3b 22 45 52 41 53 45  20 20 22 3b 65 64 69 74  |);"ERASE  ";edit|
000027b0  25 3b 22 20 54 4f 20 22  3b 6e 6f 74 65 25 0d 14  |%;" TO ";note%..|
000027c0  fa 10 2a 53 48 4f 57 50  4f 49 4e 54 45 52 0d 15  |..*SHOWPOINTER..|
000027d0  04 05 f5 0d 15 0e 05 f5  0d 15 18 10 2a 4d 4f 56  |............*MOV|
000027e0  45 50 4f 49 4e 54 45 52  0d 15 22 0f fd 20 ac 20  |EPOINTER..".. . |
000027f0  a6 28 2d 31 32 39 29 0d  15 2c 0b 2a 55 50 44 41  |.(-129)..,.*UPDA|
00002800  54 45 0d 15 36 17 fd 20  bc 3d 32 39 20 80 20 b1  |TE..6.. .=29 . .|
00002810  3e 31 20 80 20 b1 3c 33  37 0d 15 40 22 e7 20 b1  |>1 . .<37..@". .|
00002820  3e 31 20 80 20 b1 3c 31  37 20 8c 20 f2 77 69 70  |>1 . .<17 . .wip|
00002830  65 6f 6e 65 3a e5 20 8d  44 54 55 0d 15 4a 1c e7  |eone:. .DTU..J..|
00002840  20 b1 3e 31 37 20 80 20  b1 3c 33 37 20 8c 20 f2  | .>17 . .<37 . .|
00002850  77 69 70 65 65 6e 64 0d  15 54 09 77 70 25 3d 30  |wipeend..T.wp%=0|
00002860  0d 15 5e 10 2a 48 49 44  45 50 4f 49 4e 54 45 52  |..^.*HIDEPOINTER|
00002870  0d 15 68 0a f2 73 74 6f  72 65 0d 15 72 10 2a 53  |..h..store..r.*S|
00002880  48 4f 57 50 4f 49 4e 54  45 52 0d 15 7c 09 f2 65  |HOWPOINTER..|..e|
00002890  64 69 74 0d 15 86 05 e1  0d 15 90 21 f4 2a 2a 2a  |dit........!.***|
000028a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000028b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 15 9a 14 f4 20 45  |*********..... E|
000028c0  52 41 53 45 20 4f 4e 45  20 4e 4f 54 45 0d 15 a4  |RASE ONE NOTE...|
000028d0  0d dd f2 77 69 70 65 6f  6e 65 0d 15 ae 17 e3 20  |...wipeone..... |
000028e0  49 3d 65 64 69 74 25 20  b8 20 6e 6f 74 65 25 2d  |I=edit% . note%-|
000028f0  31 0d 15 b8 11 4e 25 28  49 29 3d 4e 25 28 49 2b  |1....N%(I)=N%(I+|
00002900  31 29 0d 15 c2 05 ed 0d  15 cc 1d e7 20 6e 6f 74  |1).......... not|
00002910  65 25 3e 30 20 8c 20 6e  6f 74 65 25 3d 6e 6f 74  |e%>0 . note%=not|
00002920  65 25 2d 31 0d 15 d6 05  e1 0d 15 e0 20 f4 2a 2a  |e%-1........ .**|
00002930  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002940  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 15 ea 12 f4 20 45  |*********..... E|
00002950  52 41 53 45 20 54 4f 20  45 4e 44 0d 15 f4 0d dd  |RASE TO END.....|
00002960  f2 77 69 70 65 65 6e 64  0d 15 fe 15 e3 20 49 3d  |.wipeend..... I=|
00002970  65 64 69 74 25 20 b8 20  6e 6f 74 65 25 0d 16 08  |edit% . note%...|
00002980  0b 4e 25 28 49 29 3d 30  0d 16 12 05 ed 0d 16 1c  |.N%(I)=0........|
00002990  11 6e 6f 74 65 25 3d 65  64 69 74 25 2d 31 0d 16  |.note%=edit%-1..|
000029a0  26 05 e1 0d 16 30 20 f4  20 2a 2a 2a 2a 2a 2a 2a  |&....0 . *******|
000029b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000029c0  2a 2a 2a 0d 16 3a 14 f4  20 45 52 52 4f 52 20 48  |***..:.. ERROR H|
000029d0  41 4e 44 4c 49 4e 47 0d  16 44 21 e7 20 9f 3d 32  |ANDLING..D!. .=2|
000029e0  30 34 20 80 20 9e 3d 34  38 31 30 20 f2 6c 6f 61  |04 . .=4810 .loa|
000029f0  64 3a e5 20 8d 44 78 40  0d 16 4e 21 e7 20 9f 3d  |d:. .Dx@..N!. .=|
00002a00  32 30 34 20 80 20 9e 3d  34 39 37 30 20 f2 73 61  |204 . .=4970 .sa|
00002a10  76 65 3a e5 20 8d 44 78  40 0d 16 58 21 e7 20 9f  |ve:. .Dx@..X!. .|
00002a20  3d 32 32 32 20 80 20 9e  3d 34 38 32 30 20 f2 6c  |=222 . .=4820 .l|
00002a30  6f 61 64 3a e5 20 8d 44  78 40 0d 16 62 09 ee 20  |oad:. .Dx@..b.. |
00002a40  85 20 87 0d 16 6c 07 eb  20 37 0d 16 76 05 f6 0d  |. ...l.. 7..v...|
00002a50  16 80 0d f1 22 20 61 74  20 22 3b 9e 0d 16 8a 05  |...." at ";.....|
00002a60  e0 0d ff                                          |...|
00002a63
12-03-88/ORGAN.m0
12-03-88/ORGAN.m1
12-03-88/ORGAN.m2
12-03-88/ORGAN.m4
12-03-88/ORGAN.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .