!AWApril93/Goodies/CDindex/!CDIndex/!RunImage

Home » Archimedes archive » Archimedes World » AW-1993-04.adf » AWApril93 » !AWApril93/Goodies/CDindex/!CDIndex/!RunImage

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 » Archimedes archive » Archimedes World » AW-1993-04.adf » AWApril93
Filename:	!AWApril93/Goodies/CDindex/!CDIndex/!RunImage
Read OK:	✔
File size:	B5B8 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM >!RunImage
   20REM CD Index by Ricky Dawson (LEN Archimedes World 1993)
   30:
   40ON ERROR PROCerror(ERR,REPORT$,6):END
   50:
   60SYS "Wimp_Initialise",200,&4B534154,"CD Index" TO wimp_version%,handle%
   70SYS "Wimp_ClaimInterface",handle%
   80:
   90PROCinitialise_variables
  100PROCget_mode_info
  110PROCms_load("<CD$Dir>.Resources.Messages")
  120PROCload_templates
  130PROCannounce
  140!q%=cd_index%:SYS "Wimp_CloseWindow",,q%:PROCclose(cd_pane%)
  150IF animon$="On" THEN
  160PROCchange_icon(q%,-2,appicon%,"anim2")
  170ELSE
  180PROCchange_icon(q%,-2,appicon%,"!cdindex")
  190ENDIF
  200PROCcheck_for_load
  210:
  220ON ERROR PROCerror(ERR,REPORT$,3):IF reply%=2 THEN quit%=TRUE
  230:
  240REPEAT
  250SYS "Wimp_Poll",,q% TO reason_code%
  260SYS "Wimp_PollPointer",reason_code%,,handle%
  270CASE reason_code% OF
  280WHEN 1:PROCredraw_window(!q%)
  290WHEN 2:PROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
  300WHEN 3:PROCclose(!q%)
  310WHEN 6:PROCcheck_mouse(!q%,q%!4,q%!8,q%!12,q%!16)
  320WHEN 7:PROCinitiate_save(FNindirect(cd_savebox%,1))
  330WHEN 8:PROCkey_pressed(!q%,q%!4,q%!20,q%!24)
  340WHEN 9:PROCmenu_select
  350WHEN 17,18:PROCreceive(q%)
  360ENDCASE
  370UNTIL quit%
  380MOUSE RECTANGLE 0,0,cx%,cy%
  390PROCms_end
  400SYS "Wimp_CloseDown"
  410SYS "Wimp_ReleaseInterface",handle%
  420CLOSE#0
  430SYS "Hourglass_Smash"
  440END
  450:
  460DEFPROCinitialise_variables
  470DIM q% 8192, menufree% &800, temp% 8192, errorbuf% 256, buffer &500
  480curws%=temp%
  490maxws%=temp%+2048
  500menustart%=menufree%
  510menuend%=menufree%+&800
  520menu%=0
  530quit%=FALSE
  540ver$="2.08 (31 Jan 1993)"
  550PROCinitialise_cd_index
  560rasize%=150*1024
  570ra%=HIMEM+1
  580SYS "Wimp_SlotSize",ra%-&8000+rasize%,-1 TO socs%
  590IF socs%<(ra%-&8000+rasize%) THEN ERROR 0,"Insufficient memory."
  600rasize%=socs%-(ra%-&8000)-1
  610ENDPROC
  620:
  630DEFPROCload_templates
  640LOCAL space%
  650space%=temp%
  660CASE windowtype$ OF
  670WHEN "Plain":SYS "Wimp_OpenTemplate",,"<CD$Dir>.Resources.PlainTemps"
  680WHEN "3D":SYS "Wimp_OpenTemplate",,"<CD$Dir>.Resources.3DTemps"
  690ENDCASE
  700SYS "Wimp_LoadTemplate",,q%,space%,temp%+512,-1,"Info" TO ,,space%
  710SYS "Wimp_CreateWindow",,q% TO cd_infobox%
  720SYS "Wimp_LoadTemplate",,q%,space%,temp%+2048,-1,"Save" TO ,,space%
  730SYS "Wimp_CreateWindow",,q% TO cd_savebox%
  740SYS "Wimp_LoadTemplate",,q%,space%,temp%+2048,-1,"Index" TO ,,space%
  750SYS "Wimp_CreateWindow",,q% TO cd_index%
  760SYS "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Print" TO ,,space%
  770SYS "Wimp_CreateWindow",,q% TO cd_print%
  780SYS "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Sort" TO ,,space%
  790SYS "Wimp_CreateWindow",,q% TO cd_sort%
  800SYS "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Help" TO ,,space%
  810SYS "Wimp_CreateWindow",,q% TO cd_help%
  820SYS "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Announce" TO ,,space%
  830SYS "Wimp_CreateWindow",,q% TO cd_announce%
  840SYS "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Clear" TO ,,space%
  850SYS "Wimp_CreateWindow",,q% TO cd_clear%
  860SYS "Wimp_LoadTemplate",,q%,space%,temp%+4096,-1,"Quit" TO ,,space%
  870SYS "Wimp_CreateWindow",,q% TO cd_quit%
  880SYS "Wimp_LoadTemplate",,q%,space%,temp%+4096,-1,"Wait" TO ,,space%
  890SYS "Wimp_CreateWindow",,q% TO cd_wait%
  900SYS "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Search" TO ,,space%
  910SYS "Wimp_CreateWindow",,q% TO cd_search%
  920SYS "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Found" TO ,,space%
  930SYS "Wimp_CreateWindow",,q% TO cd_found%
  940SYS "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Pane" TO ,,space%
  950SYS "Wimp_CreateWindow",,q% TO cd_pane%
  960SYS "Wimp_LoadTemplate",,q%,space%,temp%+6144,-1,"Track" TO ,,space%
  970SYS "Wimp_CreateWindow",,q% TO cd_tracks%
  980SYS "Wimp_CloseTemplate"
  990PROCupdate_icon(cd_infobox%,7,ver$)
 1000ENDPROC
 1010:
 1020DEFPROCmake_menus
 1030menufree%=menustart%
 1040FOR loop%=menustart% TO menuend% STEP 4
 1050!loop%=0
 1060NEXT
 1070windowopts%=FNcreate_menu("# Windows ,3D Icons,Plain Icons","","")
 1080maxrecordmenu%=FNcreate_menu("# Records ,100,200,300,400,500,1000","","")
 1090animmenu%=FNcreate_menu("# Animation ,Off,On","","")
 1100optionsmenu%=FNcreate_menu("# Options ,Animation>animmenu%,Records>maxrecordmenu%,Windows#>windowopts%,Save Choices","","")
 1110iconbarmenu%=FNcreate_menu("# CD Index ,Info>cd_infobox%,Options>optionsmenu%,Restart   F8#,Quit","","")
 1120formatmenu%=FNcreate_menu("# Format ,CD,CD-ROM,DAT,LP,Tape","","")
 1130sizemenu%=FNcreate_menu("# Size ,7"" Single,12"" Single,CD Single,Album,Box Set,Double Album","","")
 1140PROCget_year
 1150yearmenu%=FNcreate_menu("# Year ,"+STR$(year%-6)+","+STR$(year%-5)+","+STR$(year%-4)+","+STR$(year%-3)+","+STR$(year%-2)+","+STR$(year%-1)+","+STR$(year%),"","")
 1160mainmenu%=FNcreate_menu("# CD Index ,Info>cd_infobox%,Options>optionsmenu%,Quit#,Clear Record,Help      F1,Print     F9>cd_print%,Restart   F8,Save      F3>cd_savebox%,Search    F4>cd_search%,Sort      F2>cd_sort%","","")
 1170typemenu%=FNcreate_menu("# Music Type ,Blues,Classical,Country,Folk,Funk,Jazz,Metal,Pop,Soul,Rave,Reggae,Rock,Various","","")
 1180CASE windowtype$ OF
 1190WHEN "Plain":PROCtick(windowopts%,1,1)
 1200WHEN "3D":PROCtick(windowopts%,0,1)
 1210ENDCASE
 1220CASE animon$ OF
 1230WHEN "Off":PROCtick(animmenu%,0,1)
 1240WHEN "On":PROCtick(animmenu%,1,1)
 1250ENDCASE
 1260PROCrecord_menu
 1270ENDPROC
 1280:
 1290DEFPROCget_year
 1300?q%=1:SYS "OS_Word",14,q%
 1310year%=VAL(RIGHT$(STR$~(?q%),2))+1900
 1320IF year%<1950 THEN year%+=100
 1330ENDPROC
 1340:
 1350DEFPROCinstall_icon
 1360LOCAL swidth%,sheight%,smode%,px%,py%,text$,sprite$
 1370sprite$="anim1"
 1380text$="CD Index"
 1390DIM sprite% (LEN(sprite$)+1),text% LEN(text$)
 1400$sprite%="S"+sprite$
 1410$text%=text$
 1420SYS "Wimp_SpriteOp",40,,sprite$ TO ,,,swidth%,sheight%,,smode%
 1430SYS "OS_ReadModeVariable",smode%,4 TO ,,px%
 1440swidth%=swidth%<<px%
 1450SYS "OS_ReadModeVariable",smode%,5 TO ,,py%
 1460sheight%=sheight%<<py%
 1470IF LEN(text$)*16>swidth% THEN swidth%=LEN(text$)*16
 1480!q%=-1:q%!4=0:q%!8=-16:q%!12=q%!4+swidth%:q%!16=20+sheight%:q%!20=&1700310B
 1490q%!24=text%
 1500q%!28=sprite%
 1510q%!32=LEN(text$)
 1520SYS "Wimp_CreateIcon",,q% TO appicon%
 1530ENDPROC
 1540:
 1550DEFPROCerror(err,report$,type%)
 1560VDU 3
 1570!errorbuf%=err
 1580$(errorbuf%+4)=report$+CHR$(0)
 1590SYS "Wimp_ReportError",errorbuf%,type%,"CD Index" TO ,reply%
 1600ENDPROC
 1610:
 1620DEFPROCopen_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
 1630SYS "Wimp_OpenWindow",,q%
 1640ENDPROC
 1650:
 1660DEFPROCclose(window%)
 1670IF window%=cd_index% THEN PROCclose_animation:PROCclose(cd_pane%)
 1680IF window%=cd_tracks% THEN PROCread_tracklist
 1690!q%=window%:SYS "Wimp_CloseWindow",,q%
 1700ENDPROC
 1710:
 1720DEFPROCopen(!q%)
 1730SYS "Wimp_GetWindowState",,q%:q%!28=-1:SYS "Wimp_OpenWindow",,q%
 1740ENDPROC
 1750:
 1760DEFPROCcheck_mouse(mousex%,mousey%,button%,window%,icon%)
 1770CASE window% OF
 1780WHEN -2:IF icon%=appicon% THEN
 1790IF button%=2 THEN SYS "Wimp_CreateMenu",,iconbarmenu%,mousex%-48,96+(4*44)+24:selectmenu%=iconbarmenu%
 1800IF (button% AND 5)<>0 THEN
 1810PROCopen_animation:PROCopen(cd_index%):PROCopen(cd_pane%)
 1820PROCmove_caret(cd_index%,9)
 1830ENDIF
 1840ENDIF
 1850WHEN cd_index%:IF button%=2 THEN CASE icon% OF
 1860WHEN 18:PROCredraw_icon:SYS "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
 1870WHEN 19:PROCredraw_icon:SYS "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
 1880WHEN 20:PROCredraw_icon:SYS "Wimp_CreateMenu",,yearmenu%,mousex%-48,mousey%+10:selectmenu%=yearmenu%
 1890WHEN 26:PROCredraw_icon:SYS "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
 1900OTHERWISE PROCclose(cd_found%):SYS "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
 1910ENDCASE
 1920IF (button% AND 5)<>0 THEN CASE icon% OF
 1930WHEN 18:PROCredraw_icon:SYS "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
 1940WHEN 19:PROCredraw_icon:SYS "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
 1950WHEN 20:PROCredraw_icon:SYS "Wimp_CreateMenu",,yearmenu%,mousex%-48,mousey%+10:selectmenu%=yearmenu%
 1960WHEN 26:PROCredraw_icon:SYS "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
 1970ENDCASE
 1980WHEN cd_tracks%:IF button%=2 THEN PROCclose(cd_found%):SYS "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
 1990WHEN cd_pane%
 2000IF button%=2 THEN PROCclose(cd_found%):SYS "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
 2010IF (button% AND 5)<>0 THEN CASE icon% OF
 2020WHEN 5:PROCredraw_icon:PROCopen(cd_tracks%):PROCmove_caret(cd_tracks%,24)
 2030WHEN 2
 2040PROCredraw_icon:PROCread:PROCread_tracklist
 2050IF button%=4 THEN record_number%-=10
 2060IF button%=1 THEN record_number%+=10
 2070IF button%=2 THEN record_number%=record_number%
 2080PROCupdate
 2090WHEN 0
 2100PROCredraw_icon:PROCread:PROCread_tracklist
 2110IF button%=4 THEN record_number%-=1
 2120IF button%=1 THEN record_number%+=1
 2130IF button%=2 THEN record_number%=record_number%
 2140PROCupdate
 2150WHEN 1
 2160PROCredraw_icon:PROCread:PROCread_tracklist
 2170IF button%=4 THEN record_number%+=1
 2180IF button%=1 THEN record_number%-=1
 2190IF button%=2 THEN record_number%=record_number%
 2200PROCupdate
 2210WHEN 3
 2220PROCredraw_icon:PROCread:PROCread_tracklist
 2230IF button%=4 THEN record_number%+=10
 2240IF button%=1 THEN record_number%-=10
 2250IF button%=2 THEN record_number%=record_number%
 2260PROCupdate
 2270ENDCASE
 2280WHEN cd_help%:IF (button% AND 5)<>0 THEN CASE icon% OF
 2290WHEN 2:PROCredraw_icon:PROCclose(cd_help%)
 2300ENDCASE
 2310WHEN cd_savebox%:IF (button% AND 5)<>0 THENCASE icon% OF
 2320WHEN 0:PROCdragbox
 2330WHEN 2:PROCredraw_icon:PROCquicksave
 2340WHEN 3:savetype$="D90":PROCupdate_icon(cd_savebox%,1,"CDIndex"):PROCmove_caret(cd_savebox%,1)
 2350WHEN 4:savetype$="FFF":PROCupdate_icon(cd_savebox%,1,"TextFile"):PROCmove_caret(cd_savebox%,1)
 2360ENDCASE
 2370WHEN cd_search%:IF (button% AND 5)<>0 THEN CASE icon% OF
 2380WHEN 3:searchtype$="Artist"
 2390WHEN 4:searchtype$="Title"
 2400WHEN 8:searchtype$="Tracks"
 2410WHEN 5:PROCredraw_icon:PROCclear_search:PROCsearch(searchtype$)
 2420WHEN 7:PROCredraw_icon:PROCupdate_icon(cd_search%,1,searchstring$):PROCmove_caret(cd_search%,1)
 2430ENDCASE
 2440WHEN cd_found%:IF (button% AND 5)<>0 THEN
 2450click_record%=VAL(FNindirect(cd_found%,icon%)):IF click_record%<>0 THEN PROCread:PROCfill(click_record%)
 2460ENDIF
 2470WHEN cd_print%:IF (button% AND 5)<>0 THEN CASE icon% OF
 2480WHEN 1:printer$="Draft"
 2490WHEN 2:printer$="NLQ"
 2500WHEN 7:PROCredraw_icon:PROCprint
 2510WHEN 9:printwhat$="AT"
 2520WHEN 11:printwhat$="Cass"
 2530WHEN 10:printwhat$="All"
 2540ENDCASE
 2550WHEN cd_clear%:IF (button% AND 5)<>0 THEN CASE icon% OF
 2560WHEN 1:PROCredraw_icon:PROCclear_data
 2570WHEN 2:PROCredraw_icon
 2580PROCclose(cd_clear%):MOUSE RECTANGLE 0,0,cx%,cy%
 2590ENDCASE
 2600WHEN cd_quit%:IF (button% AND 5)<>0 THEN CASE icon% OF
 2610WHEN 1:PROCredraw_icon:quit%=TRUE
 2620WHEN 2:PROCredraw_icon
 2630PROCclose(cd_quit%):MOUSE RECTANGLE 0,0,cx%,cy%
 2640ENDCASE
 2650WHEN cd_sort%:IF (button% AND 5)<>0 THEN CASE icon% OF
 2660WHEN 0:sort_selected%=0
 2670WHEN 1:sort_selected%=1
 2680WHEN 2:CASE sort_selected% OF
 2690WHEN 0:PROCredraw_icon:PROCsort_artist
 2700WHEN 1:PROCredraw_icon:PROCsort_title
 2710ENDCASE
 2720ENDCASE
 2730ENDCASE
 2740ENDPROC
 2750:
 2760DEFPROCkey_pressed(window%,icon%,key_index%,character%)
 2770CASE character% OF
 2780WHEN 13
 2790CASE window% OF
 2800WHEN cd_savebox%:PROCquicksave
 2810WHEN cd_print%
 2820CASE icon% OF
 2830WHEN 6:PROCmove_caret(cd_print%,13)
 2840WHEN 13:PROCprint
 2850ENDCASE
 2860WHEN cd_pane%:PROCnumber_update
 2870WHEN cd_search%:PROCclear_search:PROCsearch(searchtype$)
 2880WHEN cd_tracks%:PROCread_tracklist:PROCcaret(cd_tracks%,icon%,1)
 2890WHEN cd_index%
 2900CASE icon% OF
 2910WHEN 16:PROCcaret(window%,icon%,1):PROCread:record_number%+=1:PROCupdate
 2920OTHERWISE:PROCcaret(window%,icon%,1):PROCread
 2930ENDCASE
 2940ENDCASE
 2950WHEN 27:PROCclose_all
 2960WHEN &1E
 2970CASE window% OF
 2980WHEN cd_index%:PROCmove_caret(cd_index%,9):PROCread
 2990WHEN cd_tracks%:PROCmove_caret(cd_tracks%,24):PROCread_tracklist
 3000ENDCASE
 3010WHEN &189:PROCopen(cd_print%):PROCmove_caret(cd_print%,6)
 3020WHEN &181:PROCopen(cd_help%)
 3030WHEN &182:PROCopen(cd_sort%)
 3040WHEN &183:PROCopen(cd_savebox%):PROCmove_caret(cd_savebox%,1)
 3050WHEN &184:PROCclose(cd_found%):PROCopen(cd_search%):PROCmove_caret(cd_search%,1)
 3060WHEN &185:PROCswap_case(window%,icon%,key_index%)
 3070WHEN &186:Text$=RIGHT$(FNread_icon_text(window%,icon%,FALSE),key_index%):PROCupdate_icon(window%,icon%,Text$):PROC_SetCaretPosition(window%,icon%,0)
 3080WHEN &187:Text$=LEFT$(FNread_icon_text(window%,icon%,FALSE),key_index%):PROCupdate_icon(window%,icon%,Text$)
 3090WHEN &188:PROCclear_data_question
 3100WHEN &18E
 3110CASE window% OF
 3120WHEN cd_index%:PROCread:PROCcaret(window%,icon%,1)
 3130WHEN cd_tracks%:PROCread_tracklist:PROCcaret(window%,icon%,1)
 3140ENDCASE
 3150WHEN &18F
 3160CASE window% OF
 3170WHEN cd_index%:PROCread:PROCcaret(window%,icon%,-1)
 3180WHEN cd_tracks%:PROCread_tracklist:PROCcaret(window%,icon%,-1)
 3190ENDCASE
 3200WHEN &1AE
 3210CASE window% OF
 3220WHEN cd_index%:PROCmove_caret(cd_index%,16):PROCread
 3230WHEN cd_tracks%:PROCmove_caret(cd_tracks%,47):PROCread_tracklist
 3240ENDCASE
 3250WHEN &1AF
 3260CASE window% OF
 3270WHEN cd_index%:PROCmove_caret(cd_index%,9):PROCread
 3280WHEN cd_tracks%:PROCmove_caret(cd_tracks%,24):PROCread_tracklist
 3290ENDCASE
 3300OTHERWISE SYS "Wimp_ProcessKey",character%
 3310ENDCASE
 3320ENDPROC
 3330:
 3340DEFPROCcaret(caret_window%,old_icon%,inc%)
 3350CASE caret_window% OF
 3360WHEN cd_index%
 3370next_icon%=old_icon%+inc%
 3380IF next_icon%>16 THEN next_icon%=9
 3390IF next_icon%<9 THEN next_icon%=16
 3400PROCmove_caret(cd_index%,next_icon%)
 3410WHEN cd_tracks%
 3420next_icon%=old_icon%+inc%
 3430IF next_icon%>47 THEN next_icon%=24
 3440IF next_icon%<24 THEN next_icon%=47
 3450PROCmove_caret(cd_tracks%,next_icon%)
 3460ENDCASE
 3470ENDPROC
 3480:
 3490DEFPROCmove_caret(window%,icon%)
 3500SYS "Wimp_SetCaretPosition",window%,icon%,,,-1
 3510ENDPROC
 3520:
 3530DEFPROCmenu_select
 3540LOCAL selection%,selection$
 3550DIM selection% 255
 3560SYS "Wimp_DecodeMenu",,selectmenu%,q%,selection%
 3570selection$=$selection%
 3580CASE selection$ OF
 3590WHEN "CD":PROCupdate_icon(cd_index%,11,selection$):PROCread
 3600WHEN "CD-ROM":PROCupdate_icon(cd_index%,11,selection$):PROCread
 3610WHEN "DAT":PROCupdate_icon(cd_index%,11,selection$):PROCread
 3620WHEN "LP":PROCupdate_icon(cd_index%,11,selection$):PROCread
 3630WHEN "Tape":PROCupdate_icon(cd_index%,11,selection$):PROCread
 3640WHEN "7"" Single":PROCupdate_icon(cd_index%,12,selection$):PROCread
 3650WHEN "12"" Single":PROCupdate_icon(cd_index%,12,selection$):PROCread
 3660WHEN "CD Single":PROCupdate_icon(cd_index%,12,selection$):PROCread
 3670WHEN "Album":PROCupdate_icon(cd_index%,12,selection$):PROCread
 3680WHEN "Box Set":PROCupdate_icon(cd_index%,12,selection$):PROCread
 3690WHEN "Double Album":PROCupdate_icon(cd_index%,12,selection$):PROCread
 3700WHEN "Classical":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3710WHEN "Country":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3720WHEN "Funk":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3730WHEN "Soul":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3740WHEN "Various":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3750WHEN "Metal":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3760WHEN "Folk":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3770WHEN "Jazz":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3780WHEN "Blues":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3790WHEN "Reggae":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3800WHEN "Pop":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3810WHEN "Rave":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3820WHEN "Rock":PROCupdate_icon(cd_index%,15,selection$):PROCread
 3830WHEN STR$(year%):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3840WHEN STR$(year%-1):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3850WHEN STR$(year%-2):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3860WHEN STR$(year%-3):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3870WHEN STR$(year%-4):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3880WHEN STR$(year%-5):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3890WHEN STR$(year%-6):PROCupdate_icon(cd_index%,16,selection$):PROCread
 3900WHEN "Sort      F2":PROCopen(cd_sort%)
 3910WHEN "Clear Record":PROCclear_single
 3920WHEN "Help      F1":PROCopen(cd_help%)
 3930WHEN "Restart   F8":PROCclear_data_question
 3940WHEN "Options.Windows.Plain Icons":PROCtick(windowopts%,1,1):newwindowtype$="Plain"
 3950WHEN "Options.Windows.3D Icons":PROCtick(windowopts%,0,1):newwindowtype$="3D"
 3960WHEN "Options.Save Choices":PROCsave_choices
 3970WHEN "Options.Records.100":PROCbuffersize(150,"100"):IF bufferok% THEN PROCtick(maxrecordmenu%,0,5):max_record%=100
 3980WHEN "Options.Records.200":PROCbuffersize(250,"200"):IF bufferok% THEN PROCtick(maxrecordmenu%,1,5):max_record%=200
 3990WHEN "Options.Records.300":PROCbuffersize(350,"300"):IF bufferok% THEN PROCtick(maxrecordmenu%,2,5):max_record%=300
 4000WHEN "Options.Records.400":PROCbuffersize(450,"400"):IF bufferok% THEN PROCtick(maxrecordmenu%,3,5:max_record%=400
 4010WHEN "Options.Records.500":PROCbuffersize(550,"500"):IF bufferok% THEN PROCtick(maxrecordmenu%,4,5):max_record%=500
 4020WHEN "Options.Records.1000":PROCbuffersize(1050,"1000"):IF bufferok% THEN PROCtick(maxrecordmenu%,5,5):max_record%=1000
 4030WHEN "Options.Animation.Off":animon$="Off":PROCtick(animmenu%,0,1)
 4040WHEN "Options.Animation.On":animon$="On":PROCtick(animmenu%,1,1)
 4050WHEN "Quit":PROCquit_check
 4060ENDCASE
 4070SYS "Wimp_GetPointerInfo",,q%
 4080IF q%!8=1 THEN SYS "Wimp_CreateMenu",,selectmenu%
 4090ENDPROC
 4100:
 4110DEFPROCreceive(q%)
 4120CASE q%!16 OF
 4130WHEN 0:PROCquit_check
 4140WHEN 2:PROCdatasave
 4150WHEN 3,5:IF q%!12=0 AND q%!40=&D90 THEN PROCload_acknowledge:PROCok_to_load
 4160WHEN 4:PROCload_acknowledge
 4170WHEN &502:PROChelp(FNhelp_text)
 4180WHEN 9,&400C1:PROCget_mode_info
 4190WHEN &400C2:PROCcheck_new_task
 4200ENDCASE
 4210ENDPROC
 4220:
 4230DEFPROCcheck_new_task
 4240newtaskid%=q%!4:taskname$=FNstring0(q%+28)
 4250IF taskname$="CD Index" AND newtaskid%<>handle% THEN quit%=TRUE
 4260ENDPROC
 4270:
 4280DEFPROCcheck_for_load
 4290LOCAL filename$
 4300SYS "OS_GetEnv" TO filename$
 4310filename$=MID$(filename$,INSTR(filename$,"RunImage")+9)
 4320IF LEN(filename$)>0 THEN
 4330PROCload_data(filename$)
 4340ENDIF
 4350ENDPROC
 4360:
 4370DEFPROCupdate_icon(update_window%,update_icon%,update_text$)
 4380!q%=update_window%:q%!4=update_icon%
 4390SYS "Wimp_GetIconState",,q%
 4400$(q%!28)=update_text$:q%!36=LEN(update_text$)+1
 4410q%!8=0:q%!12=0
 4420SYS "Wimp_SetIconState",,q%
 4430ENDPROC
 4440:
 4450DEFFNcreate_menu(menu$,menu2$,menu3$)
 4460IF menufree%+28>menuend% THEN ERROR 1,"Menu Area Full"
 4470LOCAL m%,r%
 4480menuptr%=menufree%
 4490r%=0
 4500IF LEFT$(menu$,1)="#" THEN r%=1:menutitle$=FNpar(",") ELSE menutitle$=""
 4510IF RIGHT$(menutitle$,1)="{" THEN
 4520boticon%=9
 4530menutitle$=LEFT$(menutitle$,LEN(menutitle$)-1)
 4540ELSE
 4550boticon%=1
 4560ENDIF
 4570$menuptr%=menutitle$
 4580menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
 4590menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
 4600menuptr%+=28:maxx%=LENmenutitle$-2
 4610REPEAT
 4620item$=FNpar(",")
 4630IF item$="++" THEN
 4640r%=0
 4650menu$=menu2$
 4660ELSE
 4670IF item$="+++" THEN
 4680r%=0
 4690menu%=menu3$
 4700ELSE
 4710PROCmenu_item(item$)
 4720ENDIF
 4730ENDIF
 4740UNTIL item$=""
 4750IF maxx%>20 THEN maxx%=20
 4760m%=menufree%:m%!16=(maxx%*8+6)*2
 4770menufree%=menuptr%
 4780=m%
 4790:
 4800DEFPROCmenu_item(text$)
 4810IF text$="" THEN menuptr%!-24=(menuptr%!-24)OR &80:ENDPROC
 4820IF menuptr%+24 >menuend% THEN ERROR 1,"Menu Area Full"
 4830LOCAL r%,flag%,V%
 4840flag%=&00
 4850r%=INSTR(text$,">")
 4860IF r%>0 THEN
 4870subptr%=EVALMID$(text$,r%+1)
 4880text$=LEFT$(text$,r%-1)
 4890ELSE
 4900rr%=INSTR(text$,"}")
 4910IF rr%>0 THEN
 4920subptr%=EVALMID$(text$,rr%+1)
 4930text$=LEFT$(text,rr%-1)
 4940flag%+=&08
 4950ELSE
 4960subptr%=-1
 4970ENDIF
 4980ENDIF
 4990IF RIGHT$(text$,1)="#" THEN text$=LEFT$(text$,LENtext$-1):flag%+=&02
 5000IF RIGHT$(text$,1)="\" THEN text$=LEFT$(text$,LENtext$-1):flag%+=&01
 5010rrr%=INSTR(text$,"|")
 5020rrrr%=INSTR(text$,"�")
 5030IF rrr%=0 AND rrrr%=0 THEN
 5040mfg%=0<<28:mbg%=7<<24
 5050ELSE
 5060CASE rrr% OF
 5070WHEN 0:mfg%=0 <<28
 5080OTHERWISE
 5090mfg%=(VAL(MID$(text$,rrr%+1,2)) MOD 16)<<28
 5100text$=LEFT$(text$,rrr%-1)+MID$(text$,rrr%+3)
 5110ENDCASE
 5120rrrr%=INSTR(text$,"�")
 5130CASE rrrr% OF
 5140WHEN 0:mbg%=7<<24
 5150OTHERWISE
 5160mbg%=(VAL(MID$(text$,rrrr%+1,2)) MOD 16)<<24
 5170text$=LEFT$(text$,rrrr%-1)+MID$(text$,rrrr%+3)
 5180ENDCASE
 5190ENDIF
 5200menuptr%!0=flag%
 5210menuptr%!4=subptr%
 5220menuptr%!8=mfg%+mbg%+&20+boticon%
 5230IF RIGHT$(text$,1)="/" THEN text$=LEFT$(text$,LENtext$-1):menuptr%!8=(menuptr%!8 OR 1<<22)
 5240IF LEFT$(text$,1)="$" THEN
 5250!menuptr%+=&04
 5260menuptr%!+=&108
 5270r%=INSTR(text$,"(")
 5280IF r%>0 THEN L%=VALMID$(text$,r%+1):text$=LEFT$(text$,r%-1)ELSE L%=12
 5290V%=-1
 5300menuptr%!12=EVALMID$(text$,2)
 5310menuptr%!16=-1
 5320menuptr%!20=L%
 5330text$=STRING$(L%," ")
 5340ELSE
 5350IF LENtext$<=12 THEN
 5360$(menuptr%+12)=text$
 5370ELSE
 5380R%=FNworkspace(LENtext$+1):$R%=text$
 5390menuptr%!12=R%:menuptr%!16=-1:menuptr%!20=LENtext$+1
 5400menuptr%!8=menuptr%!8 OR &100
 5410ENDIF
 5420ENDIF
 5430IF LENtext$>maxx% THEN maxx%=LENtext$
 5440menuptr%+=24
 5450ENDPROC
 5460:
 5470DEFFNpar(sep$)
 5480r1%=r%+1:r%=INSTR(menu$+sep$,sep$,r1%)
 5490=MID$(menu$,r1%,r%-r1%)
 5500:
 5510DEFFNworkspace(L%)
 5520IF curws%+L%>maxws% THEN ERROR 1,"No More Buffer Space"
 5530curws%+=L%:=curws%-L%
 5540:
 5550DEFPROCsort_artist
 5560LOCAL a%,b%,temp$
 5570PROCupdate_icon(cd_wait%,0,"Initialising Sort Please Wait"):PROCopen(cd_wait%):PROCredraw_window(cd_wait%)
 5580SYS "Hourglass_On"
 5590count%=0:subcount%=0:a%=1:REPEAT:FOR b%=a% TO max_record%:count%+=1:NEXT:a%+=1:UNTIL a%>max_record%
 5600PROCupdate_icon(cd_wait%,0,"Sorting In Progress Please Wait"):PROCopen(cd_wait%):PROCredraw_window(cd_wait%)
 5610a%=1:REPEAT:r%=a%
 5620temp$=LEFT$(artist$(a%),30)
 5630IF temp$<=" " THEN temp$="~"
 5640FOR b%=a% TO max_record%
 5650subcount%+=1
 5660IF LEFT$(artist$(b%),30)<=" " THEN GOTO 5700
 5670IF LEFT$(artist$(b%),30)<temp$ THEN
 5680temp$=LEFT$(artist$(b%),30):r%=b%
 5690ENDIF
 5700NEXT b%
 5710SYS "Hourglass_Percentage",INT((subcount%/count%)*100)
 5720PROCswap_fields(a%,r%)
 5730a%+=1
 5740UNTIL a%>max_record%
 5750record_number%=1
 5760PROCupdate
 5770SYS "Hourglass_Off"
 5780PROCclose(cd_sort%):SYS "Wimp_CreateMenu",,-1:PROCclose(cd_wait%)
 5790PROCre_title("CD Index *")
 5800unsaved%=TRUE
 5810ENDPROC
 5820:
 5830DEFPROCsort_title
 5840LOCAL a%,b%,temp$
 5850PROCupdate_icon(cd_wait%,0,"Initialising Sort Please Wait"):PROCopen(cd_wait%):PROCredraw_window(cd_wait%)
 5860SYS "Hourglass_On"
 5870count%=0:subcount%=0:a%=1:REPEAT:FOR b%=a% TO max_record%:count%+=1:NEXT:a%+=1:UNTIL a%>max_record%
 5880PROCupdate_icon(cd_wait%,0,"Sorting In Progress Please Wait"):PROCopen(cd_wait%):PROCredraw_window(cd_wait%)
 5890a%=1:REPEAT:r%=a%
 5900temp$=LEFT$(title$(a%),30)
 5910IF temp$<=" " THEN temp$="~"
 5920FOR b%=a% TO max_record%
 5930subcount%+=1
 5940IF LEFT$(title$(b%),30)<=" " THEN GOTO 5980
 5950IF LEFT$(title$(b%),30)<temp$ THEN
 5960temp$=LEFT$(title$(b%),30):r%=b%
 5970ENDIF
 5980NEXT b%
 5990SYS "Hourglass_Percentage",INT((subcount%/count%)*100)
 6000PROCswap_fields(a%,r%)
 6010a%+=1
 6020UNTIL a%>max_record%
 6030record_number%=1
 6040PROCupdate
 6050SYS "Hourglass_Off"
 6060PROCclose(cd_sort%):SYS "Wimp_CreateMenu",,-1:PROCclose(cd_wait%)
 6070PROCre_title("CD Index *")
 6080unsaved%=TRUE
 6090ENDPROC
 6100:
 6110DEFPROCswap_fields(a%,b%)
 6120SWAP artist$(a%),artist$(b%):SWAP title$(a%),title$(b%):SWAP format$(a%),format$(b%):SWAP size$(a%),size$(b%):SWAP tracks$(a%),tracks$(b%):SWAP length$(a%),length$(b%):SWAP type$(a%),type$(b%):SWAP year$(a%),year$(b%)
 6130SWAP t1$(a%),t1$(b%):SWAP t2$(a%),t2$(b%):SWAP t3$(a%),t3$(b%):SWAP t4$(a%),t4$(b%):SWAP t5$(a%),t5$(b%):SWAP t6$(a%),t6$(b%):SWAP t7$(a%),t7$(b%):SWAP t8$(a%),t8$(b%)
 6140SWAP t9$(a%),t9$(b%):SWAP t10$(a%),t10$(b%):SWAP t11$(a%),t11$(b%):SWAP t12$(a%),t12$(b%):SWAP t13$(a%),t13$(b%):SWAP t14$(a%),t14$(b%):SWAP t15$(a%),t15$(b%):SWAP t16$(a%),t16$(b%)
 6150SWAP t17$(a%),t17$(b%):SWAP t18$(a%),t18$(b%):SWAP t19$(a%),t19$(b%):SWAP t20$(a%),t20$(b%):SWAP t21$(a%),t21$(b%):SWAP t22$(a%),t22$(b%):SWAP t23$(a%),t23$(b%):SWAP t24$(a%),t24$(b%)
 6160ENDPROC
 6170:
 6180DEFPROCinitialise_cd_index
 6190PROCload_choices
 6200DIM artist$(1000),title$(1000),format$(1000),size$(1000),tracks$(1000),length$(1000),type$(1000),year$(1000)
 6210DIM t1$(1000),t2$(1000),t3$(1000),t4$(1000),t5$(1000),t6$(1000),t7$(1000),t8$(1000),t9$(1000),t10$(1000),t11$(1000),t12$(1000)
 6220DIM t13$(1000),t14$(1000),t15$(1000),t16$(1000),t17$(1000),t18$(1000),t19$(1000),t20$(1000),t21$(1000),t22$(1000),t23$(1000),t24$(1000),track$(1000)
 6230record_number%=1:sort_selected%=0:searchtype$="Artist":savetype$="D90"
 6240filename$="CDIndex":printer$="Draft":printwhat$="AT":searchstring$=""
 6250ENDPROC
 6260:
 6270DEFPROCupdate
 6280IF record_number%<1 THEN record_number%=1
 6290IF record_number%>max_record% THEN record_number%=max_record%
 6300PROCfill(record_number%)
 6310ENDPROC
 6320:
 6330DEFPROCfill(record_number%)
 6340PROCupdate_icon(cd_pane%,6,STR$(record_number%))
 6350PROCupdate_icon(cd_index%,9,artist$(record_number%))
 6360PROCupdate_icon(cd_index%,10,title$(record_number%))
 6370PROCupdate_icon(cd_index%,11,format$(record_number%))
 6380PROCupdate_icon(cd_index%,12,size$(record_number%))
 6390PROCupdate_icon(cd_index%,13,tracks$(record_number%))
 6400PROCupdate_icon(cd_index%,14,length$(record_number%))
 6410PROCupdate_icon(cd_index%,15,type$(record_number%))
 6420PROCupdate_icon(cd_index%,16,year$(record_number%))
 6430PROCupdate_tracks
 6440PROCmove_caret(cd_index%,9)
 6450PROCupdate_icon(cd_print%,13,STR$(record_number%))
 6460ENDPROC
 6470:
 6480DEFPROCnumber_update
 6490record_number%=VAL(FNindirect(cd_pane%,6))
 6500IF record_number%<1 THEN record_number%=1
 6510IF record_number%>max_record% THEN record_number%=max_record%
 6520PROCfill(record_number%)
 6530ENDPROC
 6540:
 6550DEFPROCre_title(new_title$)
 6560!q%=cd_index%
 6570SYS "Wimp_GetWindowInfo",,q%
 6580IF ((q%!60) AND &100)=0 THEN ERROR 1,"Title isn't indirected"
 6590$(q%!76)=new_title$
 6600IF ((q%!32) AND (1<<16))<>0 SYS "Wimp_ForceRedraw",-1,q%!4,q%!16,q%!12,q%!16+44
 6610ENDPROC
 6620:
 6630DEFPROCread
 6640PROCre_title("CD Index *")
 6650unsaved%=TRUE
 6660record_number%=VAL(FNindirect(cd_pane%,6))
 6670artist$(record_number%)=FNindirect(cd_index%,9)
 6680title$(record_number%)=FNindirect(cd_index%,10)
 6690format$(record_number%)=FNindirect(cd_index%,11)
 6700size$(record_number%)=FNindirect(cd_index%,12)
 6710tracks$(record_number%)=FNindirect(cd_index%,13)
 6720length$(record_number%)=FNindirect(cd_index%,14)
 6730type$(record_number%)=FNindirect(cd_index%,15)
 6740year$(record_number%)=FNindirect(cd_index%,16)
 6750ENDPROC
 6760:
 6770DEFFNindirect(!q%,q%!4)
 6780SYS "Wimp_GetIconState",,q%
 6790=$(q%!28)
 6800:
 6810DEFPROCnew
 6820SYS "Hourglass_On"
 6830PROCopen_animation:PROCopen(cd_index%):PROCopen(cd_pane%)
 6840FOR I%=1 TO max_record%
 6850artist$(I%)="":title$(I%)="":format$(I%)="":size$(I%)="":tracks$(I%)="":length$(I%)="":type$(I%)="":year$(I%)=""
 6860NEXT I%
 6870record_number%=1:max_record%=100
 6880PROCupdate_icon(cd_pane%,6,STR$(record_number%))
 6890SYS "Hourglass_Off"
 6900unsaved%=FALSE
 6910ENDPROC
 6920:
 6930DEFPROCload_acknowledge
 6940q%!12=q%!8
 6950q%!16=4
 6960SYS "Wimp_SendMessage",17,q%,q%!4
 6970ENDPROC
 6980:
 6990DEFPROCok_to_load
 7000filename$=""
 7010a%=0
 7020b%=q%?(44+a%)
 7030WHILE b%<>0
 7040filename$+=CHR$(b%)
 7050a%+=1
 7060b%=q%?(44+a%)
 7070ENDWHILE
 7080PROCload_data(filename$)
 7090ENDPROC
 7100:
 7110DEFPROCload_data(datafile$)
 7120SYS "Hourglass_On"
 7130CH%=OPENIN(datafile$)
 7140INPUT#CH%,max_record%
 7150FOR I%=1 TO max_record%
 7160INPUT#CH%,artist$(I%),title$(I%),format$(I%),size$(I%),tracks$(I%),length$(I%),type$(I%),year$(I%)
 7170INPUT#CH%,t1$(I%),t2$(I%),t3$(I%),t4$(I%),t5$(I%),t6$(I%),t7$(I%),t8$(I%),t9$(I%),t10$(I%),t11$(I%),t12$(I%),t13$(I%),t14$(I%),t15$(I%),t16$(I%),t17$(I%),t18$(I%),t19$(I%),t20$(I%),t21$(I%),t22$(I%),t23$(I%),t24$(I%),track$(I%)
 7180NEXT I%
 7190CLOSE#CH%
 7200PROCre_title("CD Index")
 7210unsaved%=FALSE
 7220PROCopen_animation:PROCopen(cd_index%):PROCopen(cd_pane%)
 7230record_number%=1
 7240PROCupdate
 7250SYS "Hourglass_Off"
 7260PROCclose_all
 7270ENDPROC
 7280:
 7290DEFPROCdragbox
 7300x%=!q%:y%=q%!4
 7310q%!4=5:q%!8=x%-40:q%!12=y%-40:q%!16=x%+40:q%!20=y%+40:q%!24=0
 7320q%!28=0:q%!32=&7FFFFFFF:q%!36=q%!32
 7330SYS "Wimp_DragBox",,q%
 7340ENDPROC
 7350:
 7360DEFPROCquicksave
 7370fullname$=FNindirect(cd_savebox%,1)
 7380IF fullname$="" THEN ERROR 1,"Please insert a filename"
 7390IF INSTR(fullname$,".")=0 THEN ERROR 1,"To save, drag the icon to a directory viewer"
 7400PROCsave_data(fullname$)
 7410PROCupdate_icon(cd_savebox%,1,fullname$)
 7420PROCre_title("CD Index"):PROCclose(cd_savebox%)
 7430unsaved%=FALSE
 7440SYS "Wimp_CreateMenu",,-1
 7450ENDPROC
 7460:
 7470DEFPROCinitiate_save(fname$)
 7480SYS "Wimp_GetPointerInfo",,q%
 7490IF q%!12=cd_index% ENDPROC
 7500q%!20=q%!12:q%!12=0
 7510q%!24=q%!16:q%!16=1
 7520q%!28=q%!0:q%!0=64
 7530q%!32=q%!4:q%!36=8096
 7540IF savetype$="D90" THEN q%!40=&D90 ELSE q%!40=&FFF
 7550$(q%+44)=FNget_leaf(fname$)+CHR$0
 7560SYS "Wimp_SendMessage",17,q%,q%!20
 7570ENDPROC
 7580:
 7590DEFFNget_leaf(name$)
 7600WHILE INSTR(name$,".")
 7610name$=MID$(name$,INSTR(name$,".")+1)
 7620ENDWHILE
 7630=name$+CHR$0
 7640:
 7650DEFPROCdatasave
 7660fullname$=FNstring(q%+44)
 7670CASE savetype$ OF
 7680WHEN "D90"
 7690PROCsave_data(fullname$)
 7700q%!12=q%!8:q%!16=3
 7710SYS "Wimp_SendMessage",17,q%,q%!4
 7720OSCLI "SetType "+fullname$+" CDIndex"
 7730SYS "Wimp_CreateMenu",,-1
 7740PROCre_title("CD Index")
 7750PROCclose(cd_savebox%):PROCmove_caret(cd_index%,9)
 7760unsaved%=FALSE
 7770WHEN "FFF"
 7780PROCsave_text(fullname$)
 7790q%!12=q%!8:q%!16=3
 7800SYS "Wimp_SendMessage",17,q%,q%!4
 7810OSCLI "SetType "+fullname$+" Text"
 7820SYS "Wimp_CreateMenu",,-1
 7830PROCclose(cd_savebox%):PROCmove_caret(cd_index%,9)
 7840ENDCASE
 7850ENDPROC
 7860:
 7870DEFFNstring(a%)
 7880LOCAL b$
 7890b$=""
 7900WHILE ?a%<>0
 7910b$+=CHR$?a%
 7920a%+=1
 7930ENDWHILE
 7940=b$
 7950:
 7960DEFFNstring0(a%):LOCAL a$:WHILE ?a%>31:a$+=CHR$?a%:a%+=1:ENDWHILE:=a$
 7970:
 7980DEFPROCsave_data(fullname$)
 7990SYS "Hourglass_On"
 8000CH%=OPENOUTfullname$
 8010PRINT#CH%,max_record%
 8020FOR I%=1 TO max_record%
 8030PRINT#CH%,artist$(I%),title$(I%),format$(I%),size$(I%),tracks$(I%),length$(I%),type$(I%),year$(I%)
 8040PRINT#CH%,t1$(I%),t2$(I%),t3$(I%),t4$(I%),t5$(I%),t6$(I%),t7$(I%),t8$(I%),t9$(I%),t10$(I%),t11$(I%),t12$(I%),t13$(I%),t14$(I%),t15$(I%),t16$(I%),t17$(I%),t18$(I%),t19$(I%),t20$(I%),t21$(I%),t22$(I%),t23$(I%),t24$(I%),track$(I%)
 8050NEXT I%
 8060CLOSE#CH%
 8070SYS "Hourglass_Off"
 8080ENDPROC
 8090:
 8100DEFPROCsave_text(fullname$)
 8110SYS "Hourglass_On"
 8120CH%=OPENOUTfullname$
 8130FOR I%=1 TO max_record%
 8140IF artist$(I%)<>"" OR title$(I%)<>"" THEN
 8150a=LEN(title$(I%)):b=LEN(year$(I%)):c=LEN(tracks$(I%)):d=LEN(type$(I%)):e=LEN(format$(I%))
 8160BPUT#CH%,"Record: "+STR$(I%)
 8170BPUT#CH%,"Artist: "+artist$(I%)
 8180BPUT#CH%,"Title:  "+title$(I%)+STRING$(44-a," ")+"Track List: "+track$(I%)
 8190BPUT#CH%,"Year: "+year$(I%)+STRING$(26-b," ")+"Tracks: "+tracks$(I%)+STRING$(12-c," ")+"Length: "+length$(I%)
 8200BPUT#CH%,"Music Type: "+type$(I%)+STRING$(20-d," ")+"Format: "+format$(I%)+STRING$(12-e," ")+"Size: "+size$(I%)
 8210ENDIF
 8212BPUT#CH%," "
 8220NEXT I%
 8230CLOSE#CH%
 8240SYS "Hourglass_Off"
 8250ENDPROC
 8260:
 8270DEFPROCprint
 8280PROCupdate_icon(cd_wait%,0,"Printing In Progress Please Wait"):PROCopen(cd_wait%)
 8290PROCredraw_window(cd_wait%)
 8300SYS "Hourglass_On"
 8310copies%=VAL(FNindirect(cd_print%,6))
 8320IF copies%=0 THEN SYS "Hourglass_Off":SYS "Wimp_CreateMenu",,-1:ERROR 1,"Set number of copies to a value greater than 0.":ENDPROC
 8330CASE printer$ OF
 8340WHEN "Draft"
 8350copy=0:VDU 2:VDU 1,27,1,120,1,48
 8360REPEAT
 8370CASE printwhat$ OF
 8380WHEN "AT":PROCprint_half
 8390WHEN "Cass":PROCprint_inlay
 8400WHEN "All":PROCprint_table
 8410ENDCASE
 8420copy+=1:UNTIL copy=copies%
 8430VDU 3
 8440WHEN "NLQ"
 8450copy=0:VDU 2:VDU 1,27,1,120,1,49
 8460REPEAT
 8470CASE printwhat$ OF
 8480WHEN "AT":PROCprint_half
 8490WHEN "Cass":PROCprint_inlay
 8500WHEN "All":PROCprint_table
 8510ENDCASE
 8520copy+=1:UNTIL copy=copies%
 8530VDU 1,27,1,120,1,48
 8540VDU 3
 8550ENDCASE
 8560SYS "Hourglass_Off"
 8570SYS "Wimp_CreateMenu",,-1
 8580PROCclose(cd_wait%):PROCclose(cd_print%)
 8590ENDPROC
 8600:
 8610DEFPROCprint_half
 8620needsprinting%=0
 8630FOR I%=1 TO max_record%
 8640IF artist$(I%)<>"" OR title$(I%)<>"" THEN needsprinting%+=1
 8650NEXT I%
 8660subitem%=0:printed%=0:IF needsprinting%=0 THEN VDU 3:PROCclose(cd_wait%):ERROR 1,"No records to print.":ENDPROC
 8670FOR I%=1 TO max_record%
 8680IF artist$(I%)<>"" OR title$(I%)<>"" THEN
 8690PRINT:subitem%+=1:printed%+=1
 8700VDU 1,27,1,71
 8710PRINT TAB(0);"Record: "+STR$(I%)
 8720PRINT TAB(0);"Artist: "+artist$(I%)
 8730PRINT TAB(0);"Title:  "+title$(I%)
 8740VDU 1,27,1,72
 8750ENDIF
 8760IF subitem%=16 THEN subitem%=0:VDU 1,12
 8770VDU 3
 8780IF INT((printed%/needsprinting%)*100)<>100 THEN SYS "Hourglass_Percentage",INT((printed%/needsprinting%)*100)
 8790VDU 2
 8800NEXT I%
 8810VDU 1,12
 8820ENDPROC
 8830:
 8840DEFPROCprint_inlay
 8850inlay_number%=VAL(FNindirect(cd_print%,13))
 8860VDU 1,15
 8870VDU 1,27,1,71
 8880PRINT TAB(0);" Artist: "+artist$(inlay_number%)
 8890PRINT TAB(0);" Title:  "+title$(inlay_number%)
 8900VDU 1,27,1,72
 8910PRINT TAB(0);STRING$(67,"=")
 8920PRINT TAB(1);LEFT$(t1$(inlay_number%),31);TAB(32);" | ";LEFT$(t13$(inlay_number%),31)
 8930PRINT TAB(1);LEFT$(t2$(inlay_number%),31);TAB(32);" | ";LEFT$(t14$(inlay_number%),31)
 8940PRINT TAB(1);LEFT$(t3$(inlay_number%),31);TAB(32);" | ";LEFT$(t15$(inlay_number%),31)
 8950PRINT TAB(1);LEFT$(t4$(inlay_number%),31);TAB(32);" | ";LEFT$(t16$(inlay_number%),31)
 8960PRINT TAB(1);LEFT$(t5$(inlay_number%),31);TAB(32);" | ";LEFT$(t17$(inlay_number%),31)
 8970PRINT TAB(1);LEFT$(t6$(inlay_number%),31);TAB(32);" | ";LEFT$(t18$(inlay_number%),31)
 8980PRINT TAB(1);LEFT$(t7$(inlay_number%),31);TAB(32);" | ";LEFT$(t19$(inlay_number%),31)
 8990PRINT TAB(1);LEFT$(t8$(inlay_number%),31);TAB(32);" | ";LEFT$(t20$(inlay_number%),31)
 9000PRINT TAB(1);LEFT$(t9$(inlay_number%),31);TAB(32);" | ";LEFT$(t21$(inlay_number%),31)
 9010PRINT TAB(1);LEFT$(t10$(inlay_number%),31);TAB(32);" | ";LEFT$(t22$(inlay_number%),31)
 9020PRINT TAB(1);LEFT$(t11$(inlay_number%),31);TAB(32);" | ";LEFT$(t23$(inlay_number%),31)
 9030PRINT TAB(1);LEFT$(t12$(inlay_number%),31);TAB(32);" | ";LEFT$(t24$(inlay_number%),31)
 9040PRINT TAB(0);STRING$(67,"=")
 9050VDU 1,27,1,71
 9060PRINT TAB(0);" Artist: "+artist$(inlay_number%)
 9070PRINT TAB(0);" Title:  "+title$(inlay_number%)
 9080VDU 1,27,1,72
 9090PRINT TAB(0);STRING$(67,"=")
 9100FOR X=1 TO 3:PRINT TAB(32);" |":NEXT
 9110PRINT TAB(0);STRING$(67,"=")
 9120VDU 1,18
 9130VDU 1,12
 9140ENDPROC
 9150:
 9160DEFPROCprint_table
 9170needsprinting%=0
 9180FOR I%=1 TO max_record%
 9190IF artist$(I%)<>"" OR title$(I%)<>"" THEN needsprinting%+=1
 9200NEXT I%
 9210subitem%=0:printed%=0:IF needsprinting%=0 THEN ERROR VDU 3:PROCclose(cd_wait%):1,"No records to print.":ENDPROC
 9220FOR I%=1 TO max_record%
 9230IF artist$(I%)<>"" OR title$(I%)<>"" THEN
 9240PRINT:subitem%+=1:printed%+=1
 9250VDU 1,27,1,71
 9260PRINT TAB(0);"Record: "+STR$(I%)
 9270PRINT TAB(0);"Artist: "+artist$(I%)
 9280PRINT TAB(0);"Title:  "+title$(I%);
 9290VDU 1,27,1,72
 9300PRINT TAB(45);"Track List: "+track$(I%)
 9310PRINT TAB(0);"Year: ";year$(I%);TAB(30);"Tracks: ";tracks$(I%);TAB(45);"Length: ";length$(I%)
 9320PRINT TAB(0);"Music Type: ";type$(I%);TAB(30);"Format: ";format$(I%);TAB(45);"Size: ";size$(I%)
 9330ENDIF
 9340IF subitem%=10 THEN subitem%=0:VDU 1,12
 9350VDU 3
 9360IF INT((printed%/needsprinting%)*100)<>100 THEN SYS "Hourglass_Percentage",INT((printed%/needsprinting%)*100)
 9370VDU 2
 9380NEXT I%
 9390VDU 1,12
 9400ENDPROC
 9410:
 9420DEFPROCredraw_window(window%)
 9430!q%=window%
 9440SYS "Wimp_RedrawWindow",,q% TO more%
 9450WHILE more%
 9460SYS "Wimp_BorderWindow",,q%
 9470SYS "Wimp_GetRectangle",,q% TO more%
 9480ENDWHILE
 9490ENDPROC
 9500:
 9510DEFPROCredraw_icon
 9520CASE windowtype$ OF
 9530WHEN "3D"
 9540SYS "Wimp_BorderIcon",,q%
 9550q%!8=0
 9560SYS "Wimp_BorderIcon",,q%
 9570WHEN "Plain"
 9580ENDCASE
 9590ENDPROC
 9600:
 9610DEFPROCannounce
 9620MOUSE RECTANGLE 274,320,730,460
 9630SYS "Hourglass_On"
 9640PROCopen(cd_announce%)
 9650PROCupdate_icon(cd_announce%,4,ver$)
 9660PROCredraw_window(cd_announce%)
 9670PROCmake_menus
 9680PROCinstall_icon
 9690PROCnew
 9700PROCclear_search
 9710FOR wait%=1 TO 25:WAIT:NEXT
 9720PROCclose(cd_announce%)
 9730MOUSE RECTANGLE 0,0,cx%,cy%
 9740SYS "Hourglass_Off"
 9750ENDPROC
 9760:
 9770DEFPROCtick(menu%,item%,total%)
 9780FOR i%=0 TO total%:PROCnotick(menu%,i%):NEXT
 9790LOCAL address%
 9800address%=menu%+28+(24*item%)
 9810address%!0=address%!0 EOR &01
 9820ENDPROC
 9830:
 9840DEFPROCnotick(menu%,item%)
 9850LOCAL address%
 9860address%=menu%+28+(24*item%)
 9870address%!0=address%!0 AND NOT &01
 9880ENDPROC
 9890:
 9900DEFPROCsave_choices
 9910choices%=OPENOUT"<CD$Dir>.Resources.Choices"
 9920PRINT#choices%,newwindowtype$
 9930PRINT#choices%,max_record%
 9940PRINT#choices%,animon$
 9950CLOSE#choices%
 9960ENDPROC
 9970:
 9980DEFPROCload_choices
 9990choices%=OPENIN"<CD$Dir>.Resources.Choices"
10000IF choices%<>0 THEN
10010INPUT#choices%,windowtype$
10020INPUT#choices%,max_record%
10030INPUT#choices%,animon$
10040CLOSE#choices%
10050ELSE
10060windowtype$="Plain"
10070max_record%=100
10080animon$="On"
10090ENDIF
10100newwindowtype$=windowtype$
10110ENDPROC
10120:
10130DEFPROCrecord_menu
10140CASE max_record% OF
10150WHEN 100:PROCbuffersize(150,"100"):IF bufferok%=TRUE THEN PROCtick(maxrecordmenu%,0,5)
10160WHEN 200:PROCbuffersize(150,"200"):IF bufferok%=TRUE THEN PROCtick(maxrecordmenu%,1,5)
10170WHEN 300:PROCbuffersize(150,"300"):IF bufferok%=TRUE THEN PROCtick(maxrecordmenu%,2,5)
10180WHEN 400:PROCbuffersize(150,"400"):IF bufferok%=TRUE THEN PROCtick(maxrecordmenu%,3,5)
10190WHEN 500:PROCbuffersize(150,"500"):IF bufferok%=TRUE THEN PROCtick(maxrecordmenu%,4,5)
10200WHEN 1000:PROCbuffersize(150,"1000"):IF bufferok%=TRUE THEN PROCtick(maxrecordmenu%,5,5)
10210ENDCASE
10220ENDPROC
10230:
10240DEFPROCclear_data_question
10250VDU 7
10260PROCopen(cd_clear%)
10270MOUSE RECTANGLE 284,420,742,228
10280ENDPROC
10290:
10300DEFPROCclear_data
10310PROCnew
10320PROCupdate
10330PROCre_title("CD Index")
10340unsaved%=FALSE
10350PROCclose_all
10360MOUSE RECTANGLE 0,0,cx%,cy%
10370ENDPROC
10380:
10390DEFPROCquit_check
10400CASE unsaved% OF
10410WHEN TRUE
10420VDU 7
10430PROCopen(cd_quit%)
10440MOUSE RECTANGLE 284,420,742,228
10450WHEN FALSE:quit%=TRUE
10460ENDCASE
10470ENDPROC
10480:
10490DEFPROCopen_animation
10500IF animon$="Off" THEN ENDPROC
10510PROCchange_icon(q%,-2,appicon%,"anim2"):PROCanim_wait
10520PROCchange_icon(q%,-2,appicon%,"anim3"):PROCanim_wait
10530PROCchange_icon(q%,-2,appicon%,"anim4"):PROCanim_wait
10540PROCchange_icon(q%,-2,appicon%,"anim5"):PROCanim_wait
10550PROCchange_icon(q%,-2,appicon%,"anim1"):PROCanim_wait
10560ENDPROC
10570:
10580DEFPROCclose_animation
10590IF animon$="Off" THEN ENDPROC
10600PROCchange_icon(q%,-2,appicon%,"anim1"):PROCanim_wait
10610PROCchange_icon(q%,-2,appicon%,"anim5"):PROCanim_wait
10620PROCchange_icon(q%,-2,appicon%,"anim4"):PROCanim_wait
10630PROCchange_icon(q%,-2,appicon%,"anim3"):PROCanim_wait
10640PROCchange_icon(q%,-2,appicon%,"anim2"):PROCanim_wait
10650PROCclose_all
10660ENDPROC
10670:
10680DEFPROCanim_wait
10690FOR I%=1 TO 5
10700WAIT
10710NEXT
10720ENDPROC
10730:
10740DEFPROCchange_icon(q%,window%,icon%,new$)
10750$sprite%="S"+new$
10760!q%=window%:q%!4=icon%:SYS "Wimp_GetIconState",,q%
10770q%!28=sprite%
10780!q%=window%:q%!4=icon%:q%!8=0:q%!12=0:SYS "Wimp_SetIconState",,q%
10790ENDPROC
10800:
10810DEFPROCswap_case(window%,icon%,key_index%)
10820IF key_index%<LEN(FNread_icon_text(window%,icon%,FALSE)) THEN
10830IconText$=FNread_icon_text(window%,icon%,FALSE)
10840C%=ASC(MID$(IconText$,key_index%+1,1)) AND &DF
10850IF C%>=&41 AND C%<=&5A THEN
10860C$=CHR$(ASC(MID$(IconText$,key_index%+1,1)) EOR &20)
10870MID$(IconText$,key_index%+1,1)=C$
10880PROCupdate_icon(window%,icon%,IconText$)
10890ENDIF
10900PROC_SetCaretPosition(window%,icon%,key_index%+1)
10910ENDIF
10920ENDPROC
10930:
10940DEFPROC_SetCaretPosition(window%,icon%,key_index%)
10950IconLength%=LEN(FNread_icon_text(window%,icon%,FALSE))
10960IF key_index%>IconLength% THEN key_index%=IconLength%
10970SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,key_index%
10980SYS "Wimp_GetCaretPosition",,q%
10990ENDPROC
11000:
11010DEFFNread_icon_text(window%,icon%,Pad%)
11020LOCAL Result$
11030!q%=window%
11040q%!4=icon%
11050SYS "Wimp_GetIconState",,q%
11060IF (q%!24 AND (1<<8))<>0 THEN
11070Result$=$(q%!28)
11080ELSE
11090Result$=$(q%+28)
11100ENDIF
11110IF Pad%>0 THEN =LEFT$(Result$+STRING$(Pad%," "),Pad%)
11120=Result$
11130:
11140DEFPROCms_load(name$)
11150SYS"MessageTrans_FileInfo",,name$
11160DIMms_text%256
11170SYS"OS_Module",6,,,17+LEN(name$)TO,,ms_desc%
11180$(ms_desc%+16)=name$
11190SYS"MessageTrans_OpenFile",ms_desc%,ms_desc%+16
11200ENDPROC
11210:
11220DEFPROCms_end
11230SYS"XMessageTrans_CloseFile",ms_desc%
11240SYS"XOS_Module",7,,ms_desc%
11250ENDPROC
11260:
11270DEFFNms_0(tag$)
11280=FNms_2(tag$,"","")
11290:
11300DEFFNms_1(tag$,arg1$)
11310=FNms_2(tag$,arg1$,"")
11320:
11330DEFFNms_2(tag$,arg1$,arg2$)
11340LOCALF%,L%
11350SYS"XMessageTrans_Lookup",ms_desc%,tag$,ms_text%,256,arg1$,arg2$TO,,,L%;F%
11360IFF%AND 1THENL%=0
11370ms_text%?L%=13
11380=$ms_text%
11390:
11400DEFPROChelp(help$)
11410LOCAL C%
11420C%=LENhelp$+1
11430q%!12=q%!8
11440q%!16=&503
11450$(q%+20)=help$+CHR$0
11460!q%=(24+C%)ANDNOT3
11470SYS"Wimp_SendMessage",17,q%,q%!4
11480ENDIF
11490ENDPROC
11500:
11510DEFFNhelp_text
11520LOCAL text$
11530text$=""
11540CASE q%!32 OF
11550WHEN -2
11560IF q%!36=appicon% THEN text$=FNms_0("IconBar")
11570WHEN cd_infobox%:text$=FNms_0("Add")
11580WHEN cd_index%:CASE q%!36 OF
11590WHEN 9,10,13,14:text$=FNms_0("Text")
11600WHEN 11,12,15,16:text$=FNms_0("TeMe")
11610WHEN 18:text$=FNms_1("Menu","Formats")
11620WHEN 19:text$=FNms_1("Menu","Sizes")
11630WHEN 26:text$=FNms_1("Menu","Music Types")
11640WHEN 20:text$=FNms_1("Menu","Years")
11650ENDCASE
11660WHEN cd_sort%:IF q%!36=2 THEN text$=FNms_0("Sort")
11670WHEN cd_pane%:CASE q%!36 OF
11680WHEN 0,1:text$=FNms_0("One")
11690WHEN 2,3:text$=FNms_0("Ten")
11700WHEN 6:text$=FNms_0("Rec")
11710ENDCASE
11720WHEN cd_savebox%:CASE q%!36 OF
11730WHEN 0:text$=FNms_0("Drag")
11740WHEN 1:text$=FNms_0("File")
11750WHEN 2:text$=FNms_0("Save")
11760ENDCASE
11770WHEN cd_quit%:CASE q%!36 OF
11780WHEN 1,2:text$=FNms_0("Ques")
11790ENDCASE
11800WHEN cd_clear%:CASE q%!36 OF
11810WHEN 1,2:text$=FNms_0("Ques")
11820ENDCASE
11830WHEN cd_print%:CASE q%!36 OF
11840WHEN 6:text$=FNms_0("Copy")
11850WHEN 7:text$=FNms_0("Prin")
11860ENDCASE
11870WHEN cd_search%:CASE q%!36 OF
11880WHEN 1:text$=FNms_0("SeaText")
11890WHEN 7:text$=FNms_0("SeaPrev")
11900WHEN 5:text$=FNms_0("SearGo")
11910OTHERWISE:text$=FNms_0("Case")
11920ENDCASE
11930WHEN cd_found%:text$=FNms_0("Found")
11940WHEN cd_tracks%:text$=FNms_0("Track")
11950ENDCASE
11960=text$
11970:
11980DEFPROCget_mode_info
11990cx%=(FNmv(MODE,11))<<(FNmv(MODE,4))
12000cy%=(FNmv(MODE,12))<<(FNmv(MODE,5))
12010ENDPROC
12020:
12030DEFFNmv(mode%,var%)
12040LOCAL v%
12050SYS "OS_ReadModeVariable",mode%,var% TO ,,v%
12060=v%
12070:
12080DEFPROCclear_search
12090LOCAL icon%:FOR icon%=0 TO 121
12100PROCupdate_icon(cd_found%,icon%," ")
12110NEXT
12120PROCupdate_icon(cd_found%,1,"could be found in the following records:")
12130ENDPROC
12140:
12150DEFPROCsearch(field$)
12160SYS "Hourglass_On"
12170foundicon%=2:found%=0
12180searchstring$=FNindirect(cd_search%,1)
12190IF searchstring$="" THEN PROCclose(cd_search%):SYS "Wimp_CreateMenu",,-1:ERROR 1,"Enter search string."
12200PROCupdate_icon(cd_found%,0,searchstring$)
12210CASE field$ OF
12220WHEN "Artist"
12230FOR number%=1 TO max_record%
12240IF searchstring$=artist$(number%) OR searchstring$=LEFT$(artist$(number%),LENsearchstring$) OR searchstring$=RIGHT$(artist$(number%),LENsearchstring$) OR INSTR(artist$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12250NEXT
12260WHEN "Title"
12270FOR number%=1 TO max_record%
12280IF searchstring$=title$(number%) OR searchstring$=LEFT$(title$(number%),LENsearchstring$) OR searchstring$=RIGHT$(title$(number%),LENsearchstring$) OR INSTR(title$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12290NEXT
12300WHEN "Tracks"
12310FOR number%=1 TO max_record%
12320IF searchstring$=t1$(number%) OR searchstring$=LEFT$(t1$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t1$(number%),LENsearchstring$) OR INSTR(t1$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12330IF searchstring$=t2$(number%) OR searchstring$=LEFT$(t2$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t2$(number%),LENsearchstring$) OR INSTR(t2$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12340IF searchstring$=t3$(number%) OR searchstring$=LEFT$(t3$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t3$(number%),LENsearchstring$) OR INSTR(t3$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12350IF searchstring$=t4$(number%) OR searchstring$=LEFT$(t4$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t4$(number%),LENsearchstring$) OR INSTR(t4$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12360IF searchstring$=t5$(number%) OR searchstring$=LEFT$(t5$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t5$(number%),LENsearchstring$) OR INSTR(t5$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12370IF searchstring$=t6$(number%) OR searchstring$=LEFT$(t6$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t6$(number%),LENsearchstring$) OR INSTR(t6$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12380IF searchstring$=t7$(number%) OR searchstring$=LEFT$(t7$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t7$(number%),LENsearchstring$) OR INSTR(t7$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12390IF searchstring$=t8$(number%) OR searchstring$=LEFT$(t8$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t8$(number%),LENsearchstring$) OR INSTR(t8$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12400IF searchstring$=t9$(number%) OR searchstring$=LEFT$(t9$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t9$(number%),LENsearchstring$) OR INSTR(t9$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12410IF searchstring$=t10$(number%) OR searchstring$=LEFT$(t10$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t10$(number%),LENsearchstring$) OR INSTR(t10$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12420IF searchstring$=t11$(number%) OR searchstring$=LEFT$(t11$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t11$(number%),LENsearchstring$) OR INSTR(t11$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12430IF searchstring$=t12$(number%) OR searchstring$=LEFT$(t12$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t12$(number%),LENsearchstring$) OR INSTR(t12$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12440IF searchstring$=t13$(number%) OR searchstring$=LEFT$(t13$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t13$(number%),LENsearchstring$) OR INSTR(t13$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12450IF searchstring$=t14$(number%) OR searchstring$=LEFT$(t14$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t14$(number%),LENsearchstring$) OR INSTR(t14$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12460IF searchstring$=t15$(number%) OR searchstring$=LEFT$(t15$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t15$(number%),LENsearchstring$) OR INSTR(t15$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12470IF searchstring$=t16$(number%) OR searchstring$=LEFT$(t16$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t16$(number%),LENsearchstring$) OR INSTR(t16$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12480IF searchstring$=t17$(number%) OR searchstring$=LEFT$(t17$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t17$(number%),LENsearchstring$) OR INSTR(t17$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12490IF searchstring$=t18$(number%) OR searchstring$=LEFT$(t18$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t18$(number%),LENsearchstring$) OR INSTR(t18$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12500IF searchstring$=t19$(number%) OR searchstring$=LEFT$(t19$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t19$(number%),LENsearchstring$) OR INSTR(t19$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12510IF searchstring$=t20$(number%) OR searchstring$=LEFT$(t20$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t20$(number%),LENsearchstring$) OR INSTR(t20$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12520IF searchstring$=t21$(number%) OR searchstring$=LEFT$(t21$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t21$(number%),LENsearchstring$) OR INSTR(t21$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12530IF searchstring$=t22$(number%) OR searchstring$=LEFT$(t22$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t22$(number%),LENsearchstring$) OR INSTR(t22$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12540IF searchstring$=t23$(number%) OR searchstring$=LEFT$(t23$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t23$(number%),LENsearchstring$) OR INSTR(t23$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12550IF searchstring$=t24$(number%) OR searchstring$=LEFT$(t24$(number%),LENsearchstring$) OR searchstring$=RIGHT$(t24$(number%),LENsearchstring$) OR INSTR(t24$(number%),searchstring$)<>0 THEN PROCadd_to_found(number%)
12560NEXT
12570ENDCASE
12580PROCclose(cd_search%)
12590PROCupdate_icon(cd_search%,1,"")
12600PROCmove_caret(cd_index%,9)
12610SYS "Wimp_CreateMenu",,-1
12620SYS "Hourglass_Off"
12630IF found%<>0 THEN PROCopen(cd_found%) ELSE PROCerror(1,searchstring$+" could not be found.",1)
12640ENDPROC
12650:
12660DEFPROCadd_to_found(foundrecord%)
12670PROCupdate_icon(cd_found%,foundicon%,STR$(foundrecord%))
12680foundicon%+=1:found%+=1
12690ENDPROC
12700:
12710DEFPROCclose_all
12720PROCclose(cd_wait%):PROCclose(cd_print%):PROCclose(cd_search%):PROCclose(cd_found%):PROCclose(cd_quit%):SYS "Wimp_CreateMenu",,-1
12730PROCclose(cd_clear%):PROCclose(cd_help%):PROCclose(cd_infobox%):PROCclose(cd_savebox%):PROCclose(cd_sort%):PROCclose(cd_tracks%)
12740MOUSE RECTANGLE 0,0,cx%,cy%
12750ENDPROC
12760:
12770DEFPROCread_tracklist
12780track_number%=VAL(FNindirect(cd_pane%,6))
12790t1$(track_number%)=FNindirect(cd_tracks%,24)
12800t2$(track_number%)=FNindirect(cd_tracks%,25)
12810t3$(track_number%)=FNindirect(cd_tracks%,26)
12820t4$(track_number%)=FNindirect(cd_tracks%,27)
12830t5$(track_number%)=FNindirect(cd_tracks%,28)
12840t6$(track_number%)=FNindirect(cd_tracks%,29)
12850t7$(track_number%)=FNindirect(cd_tracks%,30)
12860t8$(track_number%)=FNindirect(cd_tracks%,31)
12870t9$(track_number%)=FNindirect(cd_tracks%,32)
12880t10$(track_number%)=FNindirect(cd_tracks%,33)
12890t11$(track_number%)=FNindirect(cd_tracks%,34)
12900t12$(track_number%)=FNindirect(cd_tracks%,35)
12910t13$(track_number%)=FNindirect(cd_tracks%,36)
12920t14$(track_number%)=FNindirect(cd_tracks%,37)
12930t15$(track_number%)=FNindirect(cd_tracks%,38)
12940t16$(track_number%)=FNindirect(cd_tracks%,39)
12950t17$(track_number%)=FNindirect(cd_tracks%,40)
12960t18$(track_number%)=FNindirect(cd_tracks%,41)
12970t19$(track_number%)=FNindirect(cd_tracks%,42)
12980t20$(track_number%)=FNindirect(cd_tracks%,43)
12990t21$(track_number%)=FNindirect(cd_tracks%,44)
13000t22$(track_number%)=FNindirect(cd_tracks%,45)
13010t23$(track_number%)=FNindirect(cd_tracks%,46)
13020t24$(track_number%)=FNindirect(cd_tracks%,47)
13030track$(track_number%)="No"
13040IF t1$(track_number%)<>"" OR t2$(track_number%)<>"" OR t3$(track_number%)<>"" OR t4$(track_number%)<>"" OR t5$(track_number%)<>"" OR t6$(track_number%)<>"" THEN track$(track_number%)="Yes"
13050IF t17$(track_number%)<>"" OR t8$(track_number%)<>"" OR t9$(track_number%)<>"" OR t10$(track_number%)<>"" OR t11$(track_number%)<>"" OR t12$(track_number%)<>"" THEN track$(track_number%)="Yes"
13060IF t13$(track_number%)<>"" OR t14$(track_number%)<>"" OR t15$(track_number%)<>"" OR t16$(track_number%)<>"" OR t17$(track_number%)<>"" OR t18$(track_number%)<>"" THEN track$(track_number%)="Yes"
13070IF t19$(track_number%)<>"" OR t20$(track_number%)<>"" OR t21$(track_number%)<>"" OR t22$(track_number%)<>"" OR t23$(track_number%)<>"" OR t24$(track_number%)<>"" THEN track$(track_number%)="Yes"
13080ENDPROC
13090:
13100DEFPROCupdate_tracks
13110FOR X%=24 TO 47:PROCupdate_icon(cd_tracks%,X%,""):NEXT
13120track_number%=VAL(FNindirect(cd_pane%,6))
13130PROCupdate_icon(cd_tracks%,24,t1$(track_number%))
13140PROCupdate_icon(cd_tracks%,25,t2$(track_number%))
13150PROCupdate_icon(cd_tracks%,26,t3$(track_number%))
13160PROCupdate_icon(cd_tracks%,27,t4$(track_number%))
13170PROCupdate_icon(cd_tracks%,28,t5$(track_number%))
13180PROCupdate_icon(cd_tracks%,29,t6$(track_number%))
13190PROCupdate_icon(cd_tracks%,30,t7$(track_number%))
13200PROCupdate_icon(cd_tracks%,31,t8$(track_number%))
13210PROCupdate_icon(cd_tracks%,32,t9$(track_number%))
13220PROCupdate_icon(cd_tracks%,33,t10$(track_number%))
13230PROCupdate_icon(cd_tracks%,34,t11$(track_number%))
13240PROCupdate_icon(cd_tracks%,35,t12$(track_number%))
13250PROCupdate_icon(cd_tracks%,36,t13$(track_number%))
13260PROCupdate_icon(cd_tracks%,37,t14$(track_number%))
13270PROCupdate_icon(cd_tracks%,38,t15$(track_number%))
13280PROCupdate_icon(cd_tracks%,39,t16$(track_number%))
13290PROCupdate_icon(cd_tracks%,40,t17$(track_number%))
13300PROCupdate_icon(cd_tracks%,41,t18$(track_number%))
13310PROCupdate_icon(cd_tracks%,42,t19$(track_number%))
13320PROCupdate_icon(cd_tracks%,43,t20$(track_number%))
13330PROCupdate_icon(cd_tracks%,44,t21$(track_number%))
13340PROCupdate_icon(cd_tracks%,45,t22$(track_number%))
13350PROCupdate_icon(cd_tracks%,46,t23$(track_number%))
13360PROCupdate_icon(cd_tracks%,47,t24$(track_number%))
13370ENDPROC
13380:
13390DEFPROCbuffersize(size%,number$)
13400newbufsize%=size%*1024
13410SYS "Wimp_SlotSize",ra%-&8000+newbufsize%,-1 TO socs%
13420bufferok%=TRUE
13430IF socs%<(ra%-&8000+newbufsize%) THEN SYS "Wimp_SlotSize",ra%-&8000+rasize%:bufferok%=FALSE:PROCmessage("Insufficient memory available for "+number$+" records.")
13440rasize%=socs%-(ra%-&8000)-1
13450ENDPROC
13460:
13470DEFPROCmessage(m$)
13480!q%=0:$(q%+4)=m$
13490SYS "Wimp_ReportError",q%,1,"CD Index"
13500ENDPROC
13510:
13520DEFPROCclear_single
13530FOR X=9 TO 16
13540PROCupdate_icon(cd_index%,X,"")
13550NEXT
13560FOR X=24 TO 47
13570PROCupdate_icon(cd_tracks%,X,"")
13580NEXT
13590PROCread:PROCread_tracklist
13600ENDPROC


� >!RunImage
8� CD Index by Ricky Dawson (� Archimedes World 1993)
:
(� � �error(�,�$,6):�
2:
<Iș "Wimp_Initialise",200,&4B534154,"CD Index" � wimp_version%,handle%
F$ș "Wimp_ClaimInterface",handle%
P:
Z�initialise_variables
d�get_mode_info
n+�ms_load("<CD$Dir>.Resources.Messages")
x�load_templates
�
�announce
�<!q%=cd_index%:ș "Wimp_CloseWindow",,q%:�close(cd_pane%)
�� animon$="On" �
�(�change_icon(q%,-2,appicon%,"anim2")
��
�+�change_icon(q%,-2,appicon%,"!cdindex")
��
��check_for_load
�:
�+� � �error(�,�$,3):� reply%=2 � quit%=�
�:
��
�%ș "Wimp_Poll",,q% � reason_code%
/ș "Wimp_PollPointer",reason_code%,,handle%
Ȏ reason_code% �
� 1:�redraw_window(!q%)
"A� 2:�open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
,� 3:�close(!q%)
6/� 6:�check_mouse(!q%,q%!4,q%!8,q%!12,q%!16)
@0� 7:�initiate_save(�indirect(cd_savebox%,1))
J*� 8:�key_pressed(!q%,q%!4,q%!20,q%!24)
T� 9:�menu_select
^� 17,18:�receive(q%)
h�
r� quit%
|ȗ ȓ 0,0,cx%,cy%
��ms_end
�ș "Wimp_CloseDown"
�&ș "Wimp_ReleaseInterface",handle%
��#0
�ș "Hourglass_Smash"
��
�:
���initialise_variables
�E� q% 8192, menufree% &800, temp% 8192, errorbuf% 256, buffer &500
�curws%=temp%
�maxws%=temp%+2048
�menustart%=menufree%
�menuend%=menufree%+&800
menu%=0
quit%=�
ver$="2.08 (31 Jan 1993)"
&�initialise_cd_index
0rasize%=150*1024
:ra%=�+1
D3ș "Wimp_SlotSize",ra%-&8000+rasize%,-1 � socs%
N<� socs%<(ra%-&8000+rasize%) � � 0,"Insufficient memory."
Xrasize%=socs%-(ra%-&8000)-1
b�
l:
v��load_templates
�� space%
�space%=temp%
�Ȏ windowtype$ �
�E� "Plain":ș "Wimp_OpenTemplate",,"<CD$Dir>.Resources.PlainTemps"
�?� "3D":ș "Wimp_OpenTemplate",,"<CD$Dir>.Resources.3DTemps"
��
�Dș "Wimp_LoadTemplate",,q%,space%,temp%+512,-1,"Info" � ,,space%
�,ș "Wimp_CreateWindow",,q% � cd_infobox%
�Eș "Wimp_LoadTemplate",,q%,space%,temp%+2048,-1,"Save" � ,,space%
�,ș "Wimp_CreateWindow",,q% � cd_savebox%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+2048,-1,"Index" � ,,space%
�*ș "Wimp_CreateWindow",,q% � cd_index%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Print" � ,,space%
*ș "Wimp_CreateWindow",,q% � cd_print%
Eș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Sort" � ,,space%
)ș "Wimp_CreateWindow",,q% � cd_sort%
 Eș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Help" � ,,space%
*)ș "Wimp_CreateWindow",,q% � cd_help%
4Iș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Announce" � ,,space%
>-ș "Wimp_CreateWindow",,q% � cd_announce%
HFș "Wimp_LoadTemplate",,q%,space%,temp%+3072,-1,"Clear" � ,,space%
R*ș "Wimp_CreateWindow",,q% � cd_clear%
\Eș "Wimp_LoadTemplate",,q%,space%,temp%+4096,-1,"Quit" � ,,space%
f)ș "Wimp_CreateWindow",,q% � cd_quit%
pEș "Wimp_LoadTemplate",,q%,space%,temp%+4096,-1,"Wait" � ,,space%
z)ș "Wimp_CreateWindow",,q% � cd_wait%
�Gș "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Search" � ,,space%
�+ș "Wimp_CreateWindow",,q% � cd_search%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Found" � ,,space%
�*ș "Wimp_CreateWindow",,q% � cd_found%
�Eș "Wimp_LoadTemplate",,q%,space%,temp%+5120,-1,"Pane" � ,,space%
�)ș "Wimp_CreateWindow",,q% � cd_pane%
�Fș "Wimp_LoadTemplate",,q%,space%,temp%+6144,-1,"Track" � ,,space%
�+ș "Wimp_CreateWindow",,q% � cd_tracks%
�ș "Wimp_CloseTemplate"
�$�update_icon(cd_infobox%,7,ver$)
��
�:
���make_menus
menufree%=menustart%
%� loop%=menustart% � menuend% � 4
!loop%=0
$�
.Ewindowopts%=�create_menu("# Windows ,3D Icons,Plain Icons","","")
8Lmaxrecordmenu%=�create_menu("# Records ,100,200,300,400,500,1000","","")
B7animmenu%=�create_menu("# Animation ,Off,On","","")
L~optionsmenu%=�create_menu("# Options ,Animation>animmenu%,Records>maxrecordmenu%,Windows#>windowopts%,Save Choices","","")
Vkiconbarmenu%=�create_menu("# CD Index ,Info>cd_infobox%,Options>optionsmenu%,Restart   F8#,Quit","","")
`Eformatmenu%=�create_menu("# Format ,CD,CD-ROM,DAT,LP,Tape","","")
jgsizemenu%=�create_menu("# Size ,7"" Single,12"" Single,CD Single,Album,Box Set,Double Album","","")
t
�get_year
~�yearmenu%=�create_menu("# Year ,"+�(year%-6)+","+�(year%-5)+","+�(year%-4)+","+�(year%-3)+","+�(year%-2)+","+�(year%-1)+","+�(year%),"","")
��mainmenu%=�create_menu("# CD Index ,Info>cd_infobox%,Options>optionsmenu%,Quit#,Clear Record,Help      F1,Print     F9>cd_print%,Restart   F8,Save      F3>cd_savebox%,Search    F4>cd_search%,Sort      F2>cd_sort%","","")
��typemenu%=�create_menu("# Music Type ,Blues,Classical,Country,Folk,Funk,Jazz,Metal,Pop,Soul,Rave,Reggae,Rock,Various","","")
�Ȏ windowtype$ �
�$� "Plain":�tick(windowopts%,1,1)
�!� "3D":�tick(windowopts%,0,1)
��
�Ȏ animon$ �
� � "Off":�tick(animmenu%,0,1)
�� "On":�tick(animmenu%,1,1)
��
��record_menu
��
:

��get_year
?q%=1:ș "OS_Word",14,q%
year%=�(��~(?q%),2))+1900
(� year%<1950 � year%+=100
2�
<:
F��install_icon
P3� swidth%,sheight%,smode%,px%,py%,text$,sprite$
Zsprite$="anim1"
dtext$="CD Index"
n+� sprite% (�(sprite$)+1),text% �(text$)
x$sprite%="S"+sprite$
�$text%=text$
�@ș "Wimp_SpriteOp",40,,sprite$ � ,,,swidth%,sheight%,,smode%
�-ș "OS_ReadModeVariable",smode%,4 � ,,px%
�swidth%=swidth%<<px%
�-ș "OS_ReadModeVariable",smode%,5 � ,,py%
�sheight%=sheight%<<py%
�/� �(text$)*16>swidth% � swidth%=�(text$)*16
�O!q%=-1:q%!4=0:q%!8=-16:q%!12=q%!4+swidth%:q%!16=20+sheight%:q%!20=&1700310B
�q%!24=text%
�q%!28=sprite%
�q%!32=�(text$)
�'ș "Wimp_CreateIcon",,q% � appicon%
��
:
��error(err,report$,type%)
� 3
"!errorbuf%=err
,$(errorbuf%+4)=report$+�(0)
6>ș "Wimp_ReportError",errorbuf%,type%,"CD Index" � ,reply%
@�
J:
T>��open_window(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
^ș "Wimp_OpenWindow",,q%
h�
r:
|��close(window%)
�;� window%=cd_index% � �close_animation:�close(cd_pane%)
�*� window%=cd_tracks% � �read_tracklist
�)!q%=window%:ș "Wimp_CloseWindow",,q%
��
�:
���open(!q%)
�Bș "Wimp_GetWindowState",,q%:q%!28=-1:ș "Wimp_OpenWindow",,q%
��
�:
�8��check_mouse(mousex%,mousey%,button%,window%,icon%)
�Ȏ window% �
�� -2:� icon%=appicon% �
�e� button%=2 � ș "Wimp_CreateMenu",,iconbarmenu%,mousex%-48,96+(4*44)+24:selectmenu%=iconbarmenu%
� (button% � 5)<>0 �
4�open_animation:�open(cd_index%):�open(cd_pane%)
�move_caret(cd_index%,9)
&�
0�
:(� cd_index%:� button%=2 � Ȏ icon% �
De� 18:�redraw_icon:ș "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
Na� 19:�redraw_icon:ș "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
Xa� 20:�redraw_icon:ș "Wimp_CreateMenu",,yearmenu%,mousex%-48,mousey%+10:selectmenu%=yearmenu%
ba� 26:�redraw_icon:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
lc �close(cd_found%):ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
v�
�#� (button% � 5)<>0 � Ȏ icon% �
�e� 18:�redraw_icon:ș "Wimp_CreateMenu",,formatmenu%,mousex%-48,mousey%+10:selectmenu%=formatmenu%
�a� 19:�redraw_icon:ș "Wimp_CreateMenu",,sizemenu%,mousex%-48,mousey%+10:selectmenu%=sizemenu%
�a� 20:�redraw_icon:ș "Wimp_CreateMenu",,yearmenu%,mousex%-48,mousey%+10:selectmenu%=yearmenu%
�a� 26:�redraw_icon:ș "Wimp_CreateMenu",,typemenu%,mousex%-48,mousey%+10:selectmenu%=typemenu%
��
�|� cd_tracks%:� button%=2 � �close(cd_found%):ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
�� cd_pane%
�o� button%=2 � �close(cd_found%):ș "Wimp_CreateMenu",,mainmenu%,mousex%-48,mousey%+10:selectmenu%=mainmenu%
�#� (button% � 5)<>0 � Ȏ icon% �
�A� 5:�redraw_icon:�open(cd_tracks%):�move_caret(cd_tracks%,24)
�� 2
�&�redraw_icon:�read:�read_tracklist
$� button%=4 � record_number%-=10
$� button%=1 � record_number%+=10
/� button%=2 � record_number%=record_number%
 �update
*� 0
4&�redraw_icon:�read:�read_tracklist
>#� button%=4 � record_number%-=1
H#� button%=1 � record_number%+=1
R/� button%=2 � record_number%=record_number%
\�update
f� 1
p&�redraw_icon:�read:�read_tracklist
z#� button%=4 � record_number%+=1
�#� button%=1 � record_number%-=1
�/� button%=2 � record_number%=record_number%
��update
�� 3
�&�redraw_icon:�read:�read_tracklist
�$� button%=4 � record_number%+=10
�$� button%=1 � record_number%-=10
�/� button%=2 � record_number%=record_number%
��update
��
�.� cd_help%:� (button% � 5)<>0 � Ȏ icon% �
�%� 2:�redraw_icon:�close(cd_help%)
��
	0� cd_savebox%:� (button% � 5)<>0 �Ȏ icon% �
	� 0:�dragbox
	� 2:�redraw_icon:�quicksave
	$X� 3:savetype$="D90":�update_icon(cd_savebox%,1,"CDIndex"):�move_caret(cd_savebox%,1)
	.Y� 4:savetype$="FFF":�update_icon(cd_savebox%,1,"TextFile"):�move_caret(cd_savebox%,1)
	8�
	B0� cd_search%:� (button% � 5)<>0 � Ȏ icon% �
	L� 3:searchtype$="Artist"
	V� 4:searchtype$="Title"
	`� 8:searchtype$="Tracks"
	j7� 5:�redraw_icon:�clear_search:�search(searchtype$)
	tW� 7:�redraw_icon:�update_icon(cd_search%,1,searchstring$):�move_caret(cd_search%,1)
	~�
	�$� cd_found%:� (button% � 5)<>0 �
	�_click_record%=�(�indirect(cd_found%,icon%)):� click_record%<>0 � �read:�fill(click_record%)
	��
	�/� cd_print%:� (button% � 5)<>0 � Ȏ icon% �
	�� 1:printer$="Draft"
	�� 2:printer$="NLQ"
	�� 7:�redraw_icon:�print
	�� 9:printwhat$="AT"
	�� 11:printwhat$="Cass"
	�� 10:printwhat$="All"
	��
	�/� cd_clear%:� (button% � 5)<>0 � Ȏ icon% �
 � 1:�redraw_icon:�clear_data

� 2:�redraw_icon
'�close(cd_clear%):ȗ ȓ 0,0,cx%,cy%
�
(.� cd_quit%:� (button% � 5)<>0 � Ȏ icon% �
2� 1:�redraw_icon:quit%=�
<� 2:�redraw_icon
F&�close(cd_quit%):ȗ ȓ 0,0,cx%,cy%
P�
Z.� cd_sort%:� (button% � 5)<>0 � Ȏ icon% �
d� 0:sort_selected%=0
n� 1:sort_selected%=1
x� 2:Ȏ sort_selected% �
�!� 0:�redraw_icon:�sort_artist
� � 1:�redraw_icon:�sort_title
��
��
��
��
�:
�6��key_pressed(window%,icon%,key_index%,character%)
�Ȏ character% �
�� 13
�Ȏ window% �
�� cd_savebox%:�quicksave
�� cd_print%
Ȏ icon% �
!� 6:�move_caret(cd_print%,13)
� 13:�print
"�
,� cd_pane%:�number_update
63� cd_search%:�clear_search:�search(searchtype$)
@;� cd_tracks%:�read_tracklist:�caret(cd_tracks%,icon%,1)
J� cd_index%
TȎ icon% �
^@� 16:�caret(window%,icon%,1):�read:record_number%+=1:�update
h#:�caret(window%,icon%,1):�read
r�
|�
�� 27:�close_all
�	� &1E
�Ȏ window% �
�.� cd_index%:�move_caret(cd_index%,9):�read
�;� cd_tracks%:�move_caret(cd_tracks%,24):�read_tracklist
��
�4� &189:�open(cd_print%):�move_caret(cd_print%,6)
�� &181:�open(cd_help%)
�� &182:�open(cd_sort%)
�8� &183:�open(cd_savebox%):�move_caret(cd_savebox%,1)
�H� &184:�close(cd_found%):�open(cd_search%):�move_caret(cd_search%,1)
�/� &185:�swap_case(window%,icon%,key_index%)
��� &186:Text$=¤read_icon_text(window%,icon%,�),key_index%):�update_icon(window%,icon%,Text$):�_SetCaretPosition(window%,icon%,0)
`� &187:Text$=��read_icon_text(window%,icon%,�),key_index%):�update_icon(window%,icon%,Text$)
� &188:�clear_data_question

� &18E
&Ȏ window% �
0-� cd_index%:�read:�caret(window%,icon%,1)
:8� cd_tracks%:�read_tracklist:�caret(window%,icon%,1)
D�
N
� &18F
XȎ window% �
b.� cd_index%:�read:�caret(window%,icon%,-1)
l9� cd_tracks%:�read_tracklist:�caret(window%,icon%,-1)
v�
�
� &1AE
�Ȏ window% �
�/� cd_index%:�move_caret(cd_index%,16):�read
�;� cd_tracks%:�move_caret(cd_tracks%,47):�read_tracklist
��
�
� &1AF
�Ȏ window% �
�.� cd_index%:�move_caret(cd_index%,9):�read
�;� cd_tracks%:�move_caret(cd_tracks%,24):�read_tracklist
��
�% ș "Wimp_ProcessKey",character%
��
��

:

)��caret(caret_window%,old_icon%,inc%)

Ȏ caret_window% �

 � cd_index%

*next_icon%=old_icon%+inc%

4"� next_icon%>16 � next_icon%=9

>"� next_icon%<9 � next_icon%=16

H%�move_caret(cd_index%,next_icon%)

R� cd_tracks%

\next_icon%=old_icon%+inc%

f#� next_icon%>47 � next_icon%=24

p#� next_icon%<24 � next_icon%=47

z&�move_caret(cd_tracks%,next_icon%)

��

��

�:

���move_caret(window%,icon%)

�1ș "Wimp_SetCaretPosition",window%,icon%,,,-1

��

�:

���menu_select

�� selection%,selection$

�� selection% 255

�3ș "Wimp_DecodeMenu",,selectmenu%,q%,selection%

�selection$=$selection%

�Ȏ selection$ �
6� "CD":�update_icon(cd_index%,11,selection$):�read
:� "CD-ROM":�update_icon(cd_index%,11,selection$):�read
7� "DAT":�update_icon(cd_index%,11,selection$):�read
$6� "LP":�update_icon(cd_index%,11,selection$):�read
.8� "Tape":�update_icon(cd_index%,11,selection$):�read
8>� "7"" Single":�update_icon(cd_index%,12,selection$):�read
B?� "12"" Single":�update_icon(cd_index%,12,selection$):�read
L=� "CD Single":�update_icon(cd_index%,12,selection$):�read
V9� "Album":�update_icon(cd_index%,12,selection$):�read
`;� "Box Set":�update_icon(cd_index%,12,selection$):�read
j@� "Double Album":�update_icon(cd_index%,12,selection$):�read
t=� "Classical":�update_icon(cd_index%,15,selection$):�read
~;� "Country":�update_icon(cd_index%,15,selection$):�read
�8� "Funk":�update_icon(cd_index%,15,selection$):�read
�8� "Soul":�update_icon(cd_index%,15,selection$):�read
�;� "Various":�update_icon(cd_index%,15,selection$):�read
�9� "Metal":�update_icon(cd_index%,15,selection$):�read
�8� "Folk":�update_icon(cd_index%,15,selection$):�read
�8� "Jazz":�update_icon(cd_index%,15,selection$):�read
�9� "Blues":�update_icon(cd_index%,15,selection$):�read
�:� "Reggae":�update_icon(cd_index%,15,selection$):�read
�7� "Pop":�update_icon(cd_index%,15,selection$):�read
�8� "Rave":�update_icon(cd_index%,15,selection$):�read
�8� "Rock":�update_icon(cd_index%,15,selection$):�read
�:� �(year%):�update_icon(cd_index%,16,selection$):�read
<� �(year%-1):�update_icon(cd_index%,16,selection$):�read

<� �(year%-2):�update_icon(cd_index%,16,selection$):�read
<� �(year%-3):�update_icon(cd_index%,16,selection$):�read
<� �(year%-4):�update_icon(cd_index%,16,selection$):�read
(<� �(year%-5):�update_icon(cd_index%,16,selection$):�read
2<� �(year%-6):�update_icon(cd_index%,16,selection$):�read
<$� "Sort      F2":�open(cd_sort%)
F"� "Clear Record":�clear_single
P$� "Help      F1":�open(cd_help%)
Z)� "Restart   F8":�clear_data_question
dQ� "Options.Windows.Plain Icons":�tick(windowopts%,1,1):newwindowtype$="Plain"
nK� "Options.Windows.3D Icons":�tick(windowopts%,0,1):newwindowtype$="3D"
x*� "Options.Save Choices":�save_choices
�j� "Options.Records.100":�buffersize(150,"100"):� bufferok% � �tick(maxrecordmenu%,0,5):max_record%=100
�j� "Options.Records.200":�buffersize(250,"200"):� bufferok% � �tick(maxrecordmenu%,1,5):max_record%=200
�j� "Options.Records.300":�buffersize(350,"300"):� bufferok% � �tick(maxrecordmenu%,2,5):max_record%=300
�i� "Options.Records.400":�buffersize(450,"400"):� bufferok% � �tick(maxrecordmenu%,3,5:max_record%=400
�j� "Options.Records.500":�buffersize(550,"500"):� bufferok% � �tick(maxrecordmenu%,4,5):max_record%=500
�n� "Options.Records.1000":�buffersize(1050,"1000"):� bufferok% � �tick(maxrecordmenu%,5,5):max_record%=1000
�@� "Options.Animation.Off":animon$="Off":�tick(animmenu%,0,1)
�>� "Options.Animation.On":animon$="On":�tick(animmenu%,1,1)
�� "Quit":�quit_check
��
� ș "Wimp_GetPointerInfo",,q%
�0� q%!8=1 � ș "Wimp_CreateMenu",,selectmenu%
��
:
��receive(q%)
Ȏ q%!16 �
"� 0:�quit_check
,� 2:�datasave
6@� 3,5:� q%!12=0 � q%!40=&D90 � �load_acknowledge:�ok_to_load
@� 4:�load_acknowledge
J� &502:�help(�help_text)
T� 9,&400C1:�get_mode_info
^� &400C2:�check_new_task
h�
r�
|:
���check_new_task
�-newtaskid%=q%!4:taskname$=�string0(q%+28)
�:� taskname$="CD Index" � newtaskid%<>handle% � quit%=�
��
�:
���check_for_load
�� filename$
�ș "OS_GetEnv" � filename$
�2filename$=�filename$,�filename$,"RunImage")+9)
�� �(filename$)>0 �
��load_data(filename$)
��
��
:
;��update_icon(update_window%,update_icon%,update_text$)
(!q%=update_window%:q%!4=update_icon%
&ș "Wimp_GetIconState",,q%
01$(q%!28)=update_text$:q%!36=�(update_text$)+1
:q%!8=0:q%!12=0
Dș "Wimp_SetIconState",,q%
N�
X:
b&ݤcreate_menu(menu$,menu2$,menu3$)
l2� menufree%+28>menuend% � � 1,"Menu Area Full"
v� m%,r%
�menuptr%=menufree%
�r%=0
�?� �menu$,1)="#" � r%=1:menutitle$=�par(",") � menutitle$=""
�� �menutitle$,1)="{" �
�boticon%=9
�+menutitle$=�menutitle$,�(menutitle$)-1)
��
�boticon%=1
��
�$menuptr%=menutitle$
�;menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0
�3menuptr%!16=196-24:menuptr%!20=44:menuptr%!24=0
�$menuptr%+=28:maxx%=�menutitle$-2
�
item$=�par(",")
� item$="++" �
 r%=0
*menu$=menu2$
4�
>� item$="+++" �
Hr%=0
Rmenu%=menu3$
\�
f�menu_item(item$)
p�
z�
�� item$=""
�� maxx%>20 � maxx%=20
�$m%=menufree%:m%!16=(maxx%*8+6)*2
�menufree%=menuptr%
�=m%
�:
���menu_item(text$)
�3� text$="" � menuptr%!-24=(menuptr%!-24)� &80:�
�2� menuptr%+24 >menuend% � � 1,"Menu Area Full"
�� r%,flag%,V%
�
flag%=&00
�r%=�text$,">")
�� r%>0 �
subptr%=��text$,r%+1)
text$=�text$,r%-1)
�
$rr%=�text$,"}")
.
� rr%>0 �
8subptr%=��text$,rr%+1)
Btext$=�text,rr%-1)
Lflag%+=&08
V�
`subptr%=-1
j�
t�
~7� �text$,1)="#" � text$=�text$,�text$-1):flag%+=&02
�7� �text$,1)="\" � text$=�text$,�text$-1):flag%+=&01
�rrr%=�text$,"|")
�rrrr%=�text$,"�")
�� rrr%=0 � rrrr%=0 �
�mfg%=0<<28:mbg%=7<<24
��
�
Ȏ rrr% �
�� 0:mfg%=0 <<28
�
�'mfg%=(�(�text$,rrr%+1,2)) � 16)<<28
�'text$=�text$,rrr%-1)+�text$,rrr%+3)
��
rrrr%=�text$,"�")

Ȏ rrrr% �
� 0:mbg%=7<<24

((mbg%=(�(�text$,rrrr%+1,2)) � 16)<<24
2)text$=�text$,rrrr%-1)+�text$,rrrr%+3)
<�
F�
Pmenuptr%!0=flag%
Zmenuptr%!4=subptr%
d%menuptr%!8=mfg%+mbg%+&20+boticon%
nL� �text$,1)="/" � text$=�text$,�text$-1):menuptr%!8=(menuptr%!8 � 1<<22)
x� �text$,1)="$" �
�!menuptr%+=&04
�menuptr%!+=&108
�r%=�text$,"(")
�7� r%>0 � L%=��text$,r%+1):text$=�text$,r%-1)� L%=12
�	V%=-1
�menuptr%!12=��text$,2)
�menuptr%!16=-1
�menuptr%!20=L%
�text$=�L%," ")
��
�� �text$<=12 �
�$(menuptr%+12)=text$
��
%R%=�workspace(�text$+1):$R%=text$
6menuptr%!12=R%:menuptr%!16=-1:menuptr%!20=�text$+1
 menuptr%!8=menuptr%!8 � &100
"�
,�
6!� �text$>maxx% � maxx%=�text$
@menuptr%+=24
J�
T:
^ݤpar(sep$)
h%r1%=r%+1:r%=�menu$+sep$,sep$,r1%)
r=�menu$,r1%,r%-r1%)
|:
�ݤworkspace(L%)
�3� curws%+L%>maxws% � � 1,"No More Buffer Space"
�curws%+=L%:=curws%-L%
�:
���sort_artist
�� a%,b%,temp$
�e�update_icon(cd_wait%,0,"Initialising Sort Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
�ș "Hourglass_On"
�Xcount%=0:subcount%=0:a%=1:�:� b%=a% � max_record%:count%+=1:�:a%+=1:� a%>max_record%
�g�update_icon(cd_wait%,0,"Sorting In Progress Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
�a%=1:�:r%=a%
�temp$=�artist$(a%),30)
�� temp$<=" " � temp$="~"
� b%=a% � max_record%
subcount%+=1
$� �artist$(b%),30)<=" " � � �DDV
&� �artist$(b%),30)<temp$ �
0 temp$=�artist$(b%),30):r%=b%
:�
D� b%
N7ș "Hourglass_Percentage",�((subcount%/count%)*100)
X�swap_fields(a%,r%)
b	a%+=1
l� a%>max_record%
vrecord_number%=1
��update
�ș "Hourglass_Off"
�>�close(cd_sort%):ș "Wimp_CreateMenu",,-1:�close(cd_wait%)
��re_title("CD Index *")
�unsaved%=�
��
�:
���sort_title
�� a%,b%,temp$
�e�update_icon(cd_wait%,0,"Initialising Sort Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
�ș "Hourglass_On"
�Xcount%=0:subcount%=0:a%=1:�:� b%=a% � max_record%:count%+=1:�:a%+=1:� a%>max_record%
�g�update_icon(cd_wait%,0,"Sorting In Progress Please Wait"):�open(cd_wait%):�redraw_window(cd_wait%)
a%=1:�:r%=a%
temp$=�title$(a%),30)
� temp$<=" " � temp$="~"
 � b%=a% � max_record%
*subcount%+=1
4#� �title$(b%),30)<=" " � � �D\W
>� �title$(b%),30)<temp$ �
Htemp$=�title$(b%),30):r%=b%
R�
\� b%
f7ș "Hourglass_Percentage",�((subcount%/count%)*100)
p�swap_fields(a%,r%)
z	a%+=1
�� a%>max_record%
�record_number%=1
��update
�ș "Hourglass_Off"
�>�close(cd_sort%):ș "Wimp_CreateMenu",,-1:�close(cd_wait%)
��re_title("CD Index *")
�unsaved%=�
��
�:
���swap_fields(a%,b%)
��Ȕ artist$(a%),artist$(b%):Ȕ title$(a%),title$(b%):Ȕ format$(a%),format$(b%):Ȕ size$(a%),size$(b%):Ȕ tracks$(a%),tracks$(b%):Ȕ length$(a%),length$(b%):Ȕ type$(a%),type$(b%):Ȕ year$(a%),year$(b%)
�Ȕ t1$(a%),t1$(b%):Ȕ t2$(a%),t2$(b%):Ȕ t3$(a%),t3$(b%):Ȕ t4$(a%),t4$(b%):Ȕ t5$(a%),t5$(b%):Ȕ t6$(a%),t6$(b%):Ȕ t7$(a%),t7$(b%):Ȕ t8$(a%),t8$(b%)
��Ȕ t9$(a%),t9$(b%):Ȕ t10$(a%),t10$(b%):Ȕ t11$(a%),t11$(b%):Ȕ t12$(a%),t12$(b%):Ȕ t13$(a%),t13$(b%):Ȕ t14$(a%),t14$(b%):Ȕ t15$(a%),t15$(b%):Ȕ t16$(a%),t16$(b%)
�Ȕ t17$(a%),t17$(b%):Ȕ t18$(a%),t18$(b%):Ȕ t19$(a%),t19$(b%):Ȕ t20$(a%),t20$(b%):Ȕ t21$(a%),t21$(b%):Ȕ t22$(a%),t22$(b%):Ȕ t23$(a%),t23$(b%):Ȕ t24$(a%),t24$(b%)
�
:
$��initialise_cd_index
.�load_choices
8n� artist$(1000),title$(1000),format$(1000),size$(1000),tracks$(1000),length$(1000),type$(1000),year$(1000)
B�� t1$(1000),t2$(1000),t3$(1000),t4$(1000),t5$(1000),t6$(1000),t7$(1000),t8$(1000),t9$(1000),t10$(1000),t11$(1000),t12$(1000)
L�� t13$(1000),t14$(1000),t15$(1000),t16$(1000),t17$(1000),t18$(1000),t19$(1000),t20$(1000),t21$(1000),t22$(1000),t23$(1000),t24$(1000),track$(1000)
VJrecord_number%=1:sort_selected%=0:searchtype$="Artist":savetype$="D90"
`Ifilename$="CDIndex":printer$="Draft":printwhat$="AT":searchstring$=""
j�
t:
~��update
�)� record_number%<1 � record_number%=1
�=� record_number%>max_record% � record_number%=max_record%
��fill(record_number%)
��
�:
���fill(record_number%)
�.�update_icon(cd_pane%,6,�(record_number%))
�5�update_icon(cd_index%,9,artist$(record_number%))
�5�update_icon(cd_index%,10,title$(record_number%))
�6�update_icon(cd_index%,11,format$(record_number%))
�4�update_icon(cd_index%,12,size$(record_number%))
�6�update_icon(cd_index%,13,tracks$(record_number%))
6�update_icon(cd_index%,14,length$(record_number%))

4�update_icon(cd_index%,15,type$(record_number%))
4�update_icon(cd_index%,16,year$(record_number%))
�update_tracks
(�move_caret(cd_index%,9)
20�update_icon(cd_print%,13,�(record_number%))
<�
F:
P��number_update
Z+record_number%=�(�indirect(cd_pane%,6))
d)� record_number%<1 � record_number%=1
n=� record_number%>max_record% � record_number%=max_record%
x�fill(record_number%)
��
�:
���re_title(new_title$)
�!q%=cd_index%
�ș "Wimp_GetWindowInfo",,q%
�7� ((q%!60) � &100)=0 � � 1,"Title isn't indirected"
�$(q%!76)=new_title$
�O� ((q%!32) � (1<<16))<>0 ș "Wimp_ForceRedraw",-1,q%!4,q%!16,q%!12,q%!16+44
��
�:
�
��read
��re_title("CD Index *")
�unsaved%=�
+record_number%=�(�indirect(cd_pane%,6))
2artist$(record_number%)=�indirect(cd_index%,9)
2title$(record_number%)=�indirect(cd_index%,10)
"3format$(record_number%)=�indirect(cd_index%,11)
,1size$(record_number%)=�indirect(cd_index%,12)
63tracks$(record_number%)=�indirect(cd_index%,13)
@3length$(record_number%)=�indirect(cd_index%,14)
J1type$(record_number%)=�indirect(cd_index%,15)
T1year$(record_number%)=�indirect(cd_index%,16)
^�
h:
rݤindirect(!q%,q%!4)
|ș "Wimp_GetIconState",,q%
�
=$(q%!28)
�:
�	��new
�ș "Hourglass_On"
�4�open_animation:�open(cd_index%):�open(cd_pane%)
�� I%=1 � max_record%
�tartist$(I%)="":title$(I%)="":format$(I%)="":size$(I%)="":tracks$(I%)="":length$(I%)="":type$(I%)="":year$(I%)=""
�� I%
�$record_number%=1:max_record%=100
�.�update_icon(cd_pane%,6,�(record_number%))
�ș "Hourglass_Off"
�unsaved%=�
��
:
��load_acknowledge
q%!12=q%!8
&q%!16=4
0$ș "Wimp_SendMessage",17,q%,q%!4
:�
D:
N��ok_to_load
Xfilename$=""
ba%=0
lb%=q%?(44+a%)
vȕ b%<>0
�filename$+=�(b%)
�	a%+=1
�b%=q%?(44+a%)
��
��load_data(filename$)
��
�:
���load_data(datafile$)
�ș "Hourglass_On"
�CH%=�(datafile$)
��#CH%,max_record%
�� I%=1 � max_record%
�b�#CH%,artist$(I%),title$(I%),format$(I%),size$(I%),tracks$(I%),length$(I%),type$(I%),year$(I%)
��#CH%,t1$(I%),t2$(I%),t3$(I%),t4$(I%),t5$(I%),t6$(I%),t7$(I%),t8$(I%),t9$(I%),t10$(I%),t11$(I%),t12$(I%),t13$(I%),t14$(I%),t15$(I%),t16$(I%),t17$(I%),t18$(I%),t19$(I%),t20$(I%),t21$(I%),t22$(I%),t23$(I%),t24$(I%),track$(I%)
� I%
	�#CH%
 �re_title("CD Index")
*unsaved%=�
44�open_animation:�open(cd_index%):�open(cd_pane%)
>record_number%=1
H�update
Rș "Hourglass_Off"
\�close_all
f�
p:
z
��dragbox
�x%=!q%:y%=q%!4
�Aq%!4=5:q%!8=x%-40:q%!12=y%-40:q%!16=x%+40:q%!20=y%+40:q%!24=0
�'q%!28=0:q%!32=&7FFFFFFF:q%!36=q%!32
�ș "Wimp_DragBox",,q%
��
�:
���quicksave
�&fullname$=�indirect(cd_savebox%,1)
�3� fullname$="" � � 1,"Please insert a filename"
�L� �fullname$,".")=0 � � 1,"To save, drag the icon to a directory viewer"
��save_data(fullname$)
�)�update_icon(cd_savebox%,1,fullname$)
�-�re_title("CD Index"):�close(cd_savebox%)
unsaved%=�
ș "Wimp_CreateMenu",,-1
�
$:
.��initiate_save(fname$)
8 ș "Wimp_GetPointerInfo",,q%
B� q%!12=cd_index% �
Lq%!20=q%!12:q%!12=0
Vq%!24=q%!16:q%!16=1
`q%!28=q%!0:q%!0=64
jq%!32=q%!4:q%!36=8096
t/� savetype$="D90" � q%!40=&D90 � q%!40=&FFF
~!$(q%+44)=�get_leaf(fname$)+�0
�%ș "Wimp_SendMessage",17,q%,q%!20
��
�:
�ݤget_leaf(name$)
�ȕ �name$,".")
�name$=�name$,�name$,".")+1)
��
�
=name$+�0
�:
���datasave
�fullname$=�string(q%+44)
�Ȏ savetype$ �
� "D90"

�save_data(fullname$)
q%!12=q%!8:q%!16=3
$ș "Wimp_SendMessage",17,q%,q%!4
(%� "SetType "+fullname$+" CDIndex"
2ș "Wimp_CreateMenu",,-1
<�re_title("CD Index")
F0�close(cd_savebox%):�move_caret(cd_index%,9)
Punsaved%=�
Z� "FFF"
d�save_text(fullname$)
nq%!12=q%!8:q%!16=3
x$ș "Wimp_SendMessage",17,q%,q%!4
�"� "SetType "+fullname$+" Text"
�ș "Wimp_CreateMenu",,-1
�0�close(cd_savebox%):�move_caret(cd_index%,9)
��
��
�:
�ݤstring(a%)
�� b$
�	b$=""
�
ȕ ?a%<>0
�b$+=�?a%
�	a%+=1
��
=b$
:
5ݤstring0(a%):� a$:ȕ ?a%>31:a$+=�?a%:a%+=1:�:=a$
":
,��save_data(fullname$)
6ș "Hourglass_On"
@CH%=�fullname$
J�#CH%,max_record%
T� I%=1 � max_record%
^b�#CH%,artist$(I%),title$(I%),format$(I%),size$(I%),tracks$(I%),length$(I%),type$(I%),year$(I%)
h��#CH%,t1$(I%),t2$(I%),t3$(I%),t4$(I%),t5$(I%),t6$(I%),t7$(I%),t8$(I%),t9$(I%),t10$(I%),t11$(I%),t12$(I%),t13$(I%),t14$(I%),t15$(I%),t16$(I%),t17$(I%),t18$(I%),t19$(I%),t20$(I%),t21$(I%),t22$(I%),t23$(I%),t24$(I%),track$(I%)
r� I%
|	�#CH%
�ș "Hourglass_Off"
��
�:
���save_text(fullname$)
�ș "Hourglass_On"
�CH%=�fullname$
�� I%=1 � max_record%
�(� artist$(I%)<>"" � title$(I%)<>"" �
�Sa=�(title$(I%)):b=�(year$(I%)):c=�(tracks$(I%)):d=�(type$(I%)):e=�(format$(I%))
��#CH%,"Record: "+�(I%)
� �#CH%,"Artist: "+artist$(I%)
�D�#CH%,"Title:  "+title$(I%)+�44-a," ")+"Track List: "+track$(I%)
�`�#CH%,"Year: "+year$(I%)+�26-b," ")+"Tracks: "+tracks$(I%)+�12-c," ")+"Length: "+length$(I%)
 b�#CH%,"Music Type: "+type$(I%)+�20-d," ")+"Format: "+format$(I%)+�12-e," ")+"Size: "+size$(I%)
 �
 
�#CH%," "
 � I%
 &	�#CH%
 0ș "Hourglass_Off"
 :�
 D:
 N��print
 XO�update_icon(cd_wait%,0,"Printing In Progress Please Wait"):�open(cd_wait%)
 b�redraw_window(cd_wait%)
 lș "Hourglass_On"
 v%copies%=�(�indirect(cd_print%,6))
 �u� copies%=0 � ș "Hourglass_Off":ș "Wimp_CreateMenu",,-1:� 1,"Set number of copies to a value greater than 0.":�
 �Ȏ printer$ �
 �
� "Draft"
 � copy=0:� 2:� 1,27,1,120,1,48
 ��
 �Ȏ printwhat$ �
 �� "AT":�print_half
 �� "Cass":�print_inlay
 �� "All":�print_table
 ��
 �copy+=1:� copy=copies%
 �� 3
 �� "NLQ"
! copy=0:� 2:� 1,27,1,120,1,49
!�
!Ȏ printwhat$ �
! � "AT":�print_half
!*� "Cass":�print_inlay
!4� "All":�print_table
!>�
!Hcopy+=1:� copy=copies%
!R� 1,27,1,120,1,48
!\� 3
!f�
!pș "Hourglass_Off"
!zș "Wimp_CreateMenu",,-1
!�&�close(cd_wait%):�close(cd_print%)
!��
!�:
!���print_half
!�needsprinting%=0
!�� I%=1 � max_record%
!�:� artist$(I%)<>"" � title$(I%)<>"" � needsprinting%+=1
!�� I%
!�`subitem%=0:printed%=0:� needsprinting%=0 � � 3:�close(cd_wait%):� 1,"No records to print.":�
!�� I%=1 � max_record%
!�(� artist$(I%)<>"" � title$(I%)<>"" �
!��:subitem%+=1:printed%+=1
!�� 1,27,1,71
"� �0);"Record: "+�(I%)
" � �0);"Artist: "+artist$(I%)
"� �0);"Title:  "+title$(I%)
"$� 1,27,1,72
".�
"8%� subitem%=16 � subitem%=0:� 1,12
"B� 3
"Lh� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
"V� 2
"`� I%
"j
� 1,12
"t�
"~:
"���print_inlay
"�,inlay_number%=�(�indirect(cd_print%,13))
"�
� 1,15
"�� 1,27,1,71
"�,� �0);" Artist: "+artist$(inlay_number%)
"�+� �0);" Title:  "+title$(inlay_number%)
"�� 1,27,1,72
"�� �0);�67,"=")
"�E� �1);�t1$(inlay_number%),31);�32);" | ";�t13$(inlay_number%),31)
"�E� �1);�t2$(inlay_number%),31);�32);" | ";�t14$(inlay_number%),31)
"�E� �1);�t3$(inlay_number%),31);�32);" | ";�t15$(inlay_number%),31)
"�E� �1);�t4$(inlay_number%),31);�32);" | ";�t16$(inlay_number%),31)
#E� �1);�t5$(inlay_number%),31);�32);" | ";�t17$(inlay_number%),31)
#
E� �1);�t6$(inlay_number%),31);�32);" | ";�t18$(inlay_number%),31)
#E� �1);�t7$(inlay_number%),31);�32);" | ";�t19$(inlay_number%),31)
#E� �1);�t8$(inlay_number%),31);�32);" | ";�t20$(inlay_number%),31)
#(E� �1);�t9$(inlay_number%),31);�32);" | ";�t21$(inlay_number%),31)
#2F� �1);�t10$(inlay_number%),31);�32);" | ";�t22$(inlay_number%),31)
#<F� �1);�t11$(inlay_number%),31);�32);" | ";�t23$(inlay_number%),31)
#FF� �1);�t12$(inlay_number%),31);�32);" | ";�t24$(inlay_number%),31)
#P� �0);�67,"=")
#Z� 1,27,1,71
#d,� �0);" Artist: "+artist$(inlay_number%)
#n+� �0);" Title:  "+title$(inlay_number%)
#x� 1,27,1,72
#�� �0);�67,"=")
#�� X=1 � 3:� �32);" |":�
#�� �0);�67,"=")
#�
� 1,18
#�
� 1,12
#��
#�:
#���print_table
#�needsprinting%=0
#�� I%=1 � max_record%
#�:� artist$(I%)<>"" � title$(I%)<>"" � needsprinting%+=1
#�� I%
#�`subitem%=0:printed%=0:� needsprinting%=0 � � � 3:�close(cd_wait%):1,"No records to print.":�
$� I%=1 � max_record%
$(� artist$(I%)<>"" � title$(I%)<>"" �
$�:subitem%+=1:printed%+=1
$"� 1,27,1,71
$,� �0);"Record: "+�(I%)
$6 � �0);"Artist: "+artist$(I%)
$@ � �0);"Title:  "+title$(I%);
$J� 1,27,1,72
$T$� �45);"Track List: "+track$(I%)
$^T� �0);"Year: ";year$(I%);�30);"Tracks: ";tracks$(I%);�45);"Length: ";length$(I%)
$hV� �0);"Music Type: ";type$(I%);�30);"Format: ";format$(I%);�45);"Size: ";size$(I%)
$r�
$|%� subitem%=10 � subitem%=0:� 1,12
$�� 3
$�h� �((printed%/needsprinting%)*100)<>100 � ș "Hourglass_Percentage",�((printed%/needsprinting%)*100)
$�� 2
$�� I%
$�
� 1,12
$��
$�:
$���redraw_window(window%)
$�!q%=window%
$�&ș "Wimp_RedrawWindow",,q% � more%
$�ȕ more%
$�ș "Wimp_BorderWindow",,q%
$�&ș "Wimp_GetRectangle",,q% � more%
%�
%�
%:
%&��redraw_icon
%0Ȏ windowtype$ �
%:
� "3D"
%Dș "Wimp_BorderIcon",,q%
%N
q%!8=0
%Xș "Wimp_BorderIcon",,q%
%b
� "Plain"
%l�
%v�
%�:
%���announce
%�ȗ ȓ 274,320,730,460
%�ș "Hourglass_On"
%��open(cd_announce%)
%�%�update_icon(cd_announce%,4,ver$)
%� �redraw_window(cd_announce%)
%��make_menus
%��install_icon
%��new
%��clear_search
%�� wait%=1 � 25:Ȗ:�
%��close(cd_announce%)
&ȗ ȓ 0,0,cx%,cy%
&ș "Hourglass_Off"
&�
& :
&*��tick(menu%,item%,total%)
&4'� i%=0 � total%:�notick(menu%,i%):�
&>� address%
&H address%=menu%+28+(24*item%)
&Raddress%!0=address%!0 � &01
&\�
&f:
&p��notick(menu%,item%)
&z� address%
&� address%=menu%+28+(24*item%)
&�!address%!0=address%!0 � � &01
&��
&�:
&���save_choices
&�*choices%=�"<CD$Dir>.Resources.Choices"
&��#choices%,newwindowtype$
&��#choices%,max_record%
&��#choices%,animon$
&��#choices%
&��
&�:
&���load_choices
'*choices%=�"<CD$Dir>.Resources.Choices"
'� choices%<>0 �
'�#choices%,windowtype$
'$�#choices%,max_record%
'.�#choices%,animon$
'8�#choices%
'B�
'Lwindowtype$="Plain"
'Vmax_record%=100
'`animon$="On"
'j�
'tnewwindowtype$=windowtype$
'~�
'�:
'���record_menu
'�Ȏ max_record% �
'�J� 100:�buffersize(150,"100"):� bufferok%=� � �tick(maxrecordmenu%,0,5)
'�J� 200:�buffersize(150,"200"):� bufferok%=� � �tick(maxrecordmenu%,1,5)
'�J� 300:�buffersize(150,"300"):� bufferok%=� � �tick(maxrecordmenu%,2,5)
'�J� 400:�buffersize(150,"400"):� bufferok%=� � �tick(maxrecordmenu%,3,5)
'�J� 500:�buffersize(150,"500"):� bufferok%=� � �tick(maxrecordmenu%,4,5)
'�L� 1000:�buffersize(150,"1000"):� bufferok%=� � �tick(maxrecordmenu%,5,5)
'��
'��
'�:
(��clear_data_question
(
� 7
(�open(cd_clear%)
(ȗ ȓ 284,420,742,228
((�
(2:
(<��clear_data
(F�new
(P�update
(Z�re_title("CD Index")
(dunsaved%=�
(n�close_all
(xȗ ȓ 0,0,cx%,cy%
(��
(�:
(���quit_check
(�Ȏ unsaved% �
(�� �
(�� 7
(��open(cd_quit%)
(�ȗ ȓ 284,420,742,228
(�� �:quit%=�
(��
(��
(�:
(���open_animation
)� animon$="Off" � �
)3�change_icon(q%,-2,appicon%,"anim2"):�anim_wait
)3�change_icon(q%,-2,appicon%,"anim3"):�anim_wait
)"3�change_icon(q%,-2,appicon%,"anim4"):�anim_wait
),3�change_icon(q%,-2,appicon%,"anim5"):�anim_wait
)63�change_icon(q%,-2,appicon%,"anim1"):�anim_wait
)@�
)J:
)T��close_animation
)^� animon$="Off" � �
)h3�change_icon(q%,-2,appicon%,"anim1"):�anim_wait
)r3�change_icon(q%,-2,appicon%,"anim5"):�anim_wait
)|3�change_icon(q%,-2,appicon%,"anim4"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim3"):�anim_wait
)�3�change_icon(q%,-2,appicon%,"anim2"):�anim_wait
)��close_all
)��
)�:
)���anim_wait
)�� I%=1 � 5
)�Ȗ
)��
)��
)�:
)�(��change_icon(q%,window%,icon%,new$)
)�$sprite%="S"+new$
*5!q%=window%:q%!4=icon%:ș "Wimp_GetIconState",,q%
*q%!28=sprite%
*D!q%=window%:q%!4=icon%:q%!8=0:q%!12=0:ș "Wimp_SetIconState",,q%
*&�
*0:
*:)��swap_case(window%,icon%,key_index%)
*D6� key_index%<�(�read_icon_text(window%,icon%,�)) �
*N.IconText$=�read_icon_text(window%,icon%,�)
*X*C%=�(�IconText$,key_index%+1,1)) � &DF
*b� C%>=&41 � C%<=&5A �
*l-C$=�(�(�IconText$,key_index%+1,1)) � &20)
*v!�IconText$,key_index%+1,1)=C$
*�)�update_icon(window%,icon%,IconText$)
*��
*�2�_SetCaretPosition(window%,icon%,key_index%+1)
*��
*��
*�:
*�1��_SetCaretPosition(window%,icon%,key_index%)
*�3IconLength%=�(�read_icon_text(window%,icon%,�))
*�5� key_index%>IconLength% � key_index%=IconLength%
*�<ș "Wimp_SetCaretPosition",window%,icon%,,,-1,key_index%
*�"ș "Wimp_GetCaretPosition",,q%
*��
*�:
+(ݤread_icon_text(window%,icon%,Pad%)
+
� Result$
+!q%=window%
+ q%!4=icon%
+*ș "Wimp_GetIconState",,q%
+4� (q%!24 � (1<<8))<>0 �
+>Result$=$(q%!28)
+H�
+RResult$=$(q%+28)
+\�
+f)� Pad%>0 � =�Result$+�Pad%," "),Pad%)
+p=Result$
+z:
+���ms_load(name$)
+�$ș"MessageTrans_FileInfo",,name$
+��ms_text%256
+�,ș"OS_Module",6,,,17+�(name$)�,,ms_desc%
+�$(ms_desc%+16)=name$
+�2ș"MessageTrans_OpenFile",ms_desc%,ms_desc%+16
+��
+�:
+���ms_end
+�(ș"XMessageTrans_CloseFile",ms_desc%
+�ș"XOS_Module",7,,ms_desc%
+��
+�:
,ݤms_0(tag$)
,=�ms_2(tag$,"","")
,:
,$ݤms_1(tag$,arg1$)
,.=�ms_2(tag$,arg1$,"")
,8:
,Bݤms_2(tag$,arg1$,arg2$)
,L
�F%,L%
,VLș"XMessageTrans_Lookup",ms_desc%,tag$,ms_text%,256,arg1$,arg2$�,,,L%;F%
,`�F%� 1�L%=0
,jms_text%?L%=13
,t=$ms_text%
,~:
,���help(help$)
,�� C%
,�C%=�help$+1
,�q%!12=q%!8
,�q%!16=&503
,�$(q%+20)=help$+�0
,�!q%=(24+C%)��3
,�#ș"Wimp_SendMessage",17,q%,q%!4
,��
,��
,�:
,�ݤhelp_text
-� text$
-
text$=""
-Ȏ q%!32 �
-� -2
-(-� q%!36=appicon% � text$=�ms_0("IconBar")
-2$� cd_infobox%:text$=�ms_0("Add")
-<� cd_index%:Ȏ q%!36 �
-F$� 9,10,13,14:text$=�ms_0("Text")
-P%� 11,12,15,16:text$=�ms_0("TeMe")
-Z&� 18:text$=�ms_1("Menu","Formats")
-d$� 19:text$=�ms_1("Menu","Sizes")
-n*� 26:text$=�ms_1("Menu","Music Types")
-x$� 20:text$=�ms_1("Menu","Years")
-��
-�.� cd_sort%:� q%!36=2 � text$=�ms_0("Sort")
-�� cd_pane%:Ȏ q%!36 �
-�� 0,1:text$=�ms_0("One")
-�� 2,3:text$=�ms_0("Ten")
-�� 6:text$=�ms_0("Rec")
-��
-�� cd_savebox%:Ȏ q%!36 �
-�� 0:text$=�ms_0("Drag")
-�� 1:text$=�ms_0("File")
-�� 2:text$=�ms_0("Save")
-��
-�� cd_quit%:Ȏ q%!36 �
.� 1,2:text$=�ms_0("Ques")
.�
.� cd_clear%:Ȏ q%!36 �
."� 1,2:text$=�ms_0("Ques")
.,�
.6� cd_print%:Ȏ q%!36 �
.@� 6:text$=�ms_0("Copy")
.J� 7:text$=�ms_0("Prin")
.T�
.^� cd_search%:Ȏ q%!36 �
.h� 1:text$=�ms_0("SeaText")
.r� 7:text$=�ms_0("SeaPrev")
.|� 5:text$=�ms_0("SearGo")
.�:text$=�ms_0("Case")
.��
.�$� cd_found%:text$=�ms_0("Found")
.�%� cd_tracks%:text$=�ms_0("Track")
.��
.�
=text$
.�:
.���get_mode_info
.�cx%=(�mv(�,11))<<(�mv(�,4))
.�cy%=(�mv(�,12))<<(�mv(�,5))
.��
.�:
.�ݤmv(mode%,var%)
/� v%
/.ș "OS_ReadModeVariable",mode%,var% � ,,v%
/=v%
/&:
/0��clear_search
/:� icon%:� icon%=0 � 121
/D%�update_icon(cd_found%,icon%," ")
/N�
/XH�update_icon(cd_found%,1,"could be found in the following records:")
/b�
/l:
/v��search(field$)
/�ș "Hourglass_On"
/�foundicon%=2:found%=0
/�)searchstring$=�indirect(cd_search%,1)
/�_� searchstring$="" � �close(cd_search%):ș "Wimp_CreateMenu",,-1:� 1,"Enter search string."
/�+�update_icon(cd_found%,0,searchstring$)
/�Ȏ field$ �
/�� "Artist"
/�� number%=1 � max_record%
/��� searchstring$=artist$(number%) � searchstring$=�artist$(number%),�searchstring$) � searchstring$=�artist$(number%),�searchstring$) � �artist$(number%),searchstring$)<>0 � �add_to_found(number%)
/��
/�
� "Title"
/�� number%=1 � max_record%
/��� searchstring$=title$(number%) � searchstring$=�title$(number%),�searchstring$) � searchstring$=�title$(number%),�searchstring$) � �title$(number%),searchstring$)<>0 � �add_to_found(number%)
0�
0� "Tracks"
0� number%=1 � max_record%
0 �� searchstring$=t1$(number%) � searchstring$=�t1$(number%),�searchstring$) � searchstring$=�t1$(number%),�searchstring$) � �t1$(number%),searchstring$)<>0 � �add_to_found(number%)
0*�� searchstring$=t2$(number%) � searchstring$=�t2$(number%),�searchstring$) � searchstring$=�t2$(number%),�searchstring$) � �t2$(number%),searchstring$)<>0 � �add_to_found(number%)
04�� searchstring$=t3$(number%) � searchstring$=�t3$(number%),�searchstring$) � searchstring$=�t3$(number%),�searchstring$) � �t3$(number%),searchstring$)<>0 � �add_to_found(number%)
0>�� searchstring$=t4$(number%) � searchstring$=�t4$(number%),�searchstring$) � searchstring$=�t4$(number%),�searchstring$) � �t4$(number%),searchstring$)<>0 � �add_to_found(number%)
0H�� searchstring$=t5$(number%) � searchstring$=�t5$(number%),�searchstring$) � searchstring$=�t5$(number%),�searchstring$) � �t5$(number%),searchstring$)<>0 � �add_to_found(number%)
0R�� searchstring$=t6$(number%) � searchstring$=�t6$(number%),�searchstring$) � searchstring$=�t6$(number%),�searchstring$) � �t6$(number%),searchstring$)<>0 � �add_to_found(number%)
0\�� searchstring$=t7$(number%) � searchstring$=�t7$(number%),�searchstring$) � searchstring$=�t7$(number%),�searchstring$) � �t7$(number%),searchstring$)<>0 � �add_to_found(number%)
0f�� searchstring$=t8$(number%) � searchstring$=�t8$(number%),�searchstring$) � searchstring$=�t8$(number%),�searchstring$) � �t8$(number%),searchstring$)<>0 � �add_to_found(number%)
0p�� searchstring$=t9$(number%) � searchstring$=�t9$(number%),�searchstring$) � searchstring$=�t9$(number%),�searchstring$) � �t9$(number%),searchstring$)<>0 � �add_to_found(number%)
0z�� searchstring$=t10$(number%) � searchstring$=�t10$(number%),�searchstring$) � searchstring$=�t10$(number%),�searchstring$) � �t10$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t11$(number%) � searchstring$=�t11$(number%),�searchstring$) � searchstring$=�t11$(number%),�searchstring$) � �t11$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t12$(number%) � searchstring$=�t12$(number%),�searchstring$) � searchstring$=�t12$(number%),�searchstring$) � �t12$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t13$(number%) � searchstring$=�t13$(number%),�searchstring$) � searchstring$=�t13$(number%),�searchstring$) � �t13$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t14$(number%) � searchstring$=�t14$(number%),�searchstring$) � searchstring$=�t14$(number%),�searchstring$) � �t14$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t15$(number%) � searchstring$=�t15$(number%),�searchstring$) � searchstring$=�t15$(number%),�searchstring$) � �t15$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t16$(number%) � searchstring$=�t16$(number%),�searchstring$) � searchstring$=�t16$(number%),�searchstring$) � �t16$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t17$(number%) � searchstring$=�t17$(number%),�searchstring$) � searchstring$=�t17$(number%),�searchstring$) � �t17$(number%),searchstring$)<>0 � �add_to_found(number%)
0ʻ� searchstring$=t18$(number%) � searchstring$=�t18$(number%),�searchstring$) � searchstring$=�t18$(number%),�searchstring$) � �t18$(number%),searchstring$)<>0 � �add_to_found(number%)
0Ի� searchstring$=t19$(number%) � searchstring$=�t19$(number%),�searchstring$) � searchstring$=�t19$(number%),�searchstring$) � �t19$(number%),searchstring$)<>0 � �add_to_found(number%)
0޻� searchstring$=t20$(number%) � searchstring$=�t20$(number%),�searchstring$) � searchstring$=�t20$(number%),�searchstring$) � �t20$(number%),searchstring$)<>0 � �add_to_found(number%)
0�� searchstring$=t21$(number%) � searchstring$=�t21$(number%),�searchstring$) � searchstring$=�t21$(number%),�searchstring$) � �t21$(number%),searchstring$)<>0 � �add_to_found(number%)
0�� searchstring$=t22$(number%) � searchstring$=�t22$(number%),�searchstring$) � searchstring$=�t22$(number%),�searchstring$) � �t22$(number%),searchstring$)<>0 � �add_to_found(number%)
0��� searchstring$=t23$(number%) � searchstring$=�t23$(number%),�searchstring$) � searchstring$=�t23$(number%),�searchstring$) � �t23$(number%),searchstring$)<>0 � �add_to_found(number%)
1�� searchstring$=t24$(number%) � searchstring$=�t24$(number%),�searchstring$) � searchstring$=�t24$(number%),�searchstring$) � �t24$(number%),searchstring$)<>0 � �add_to_found(number%)
1�
1�
1$�close(cd_search%)
1.!�update_icon(cd_search%,1,"")
18�move_caret(cd_index%,9)
1Bș "Wimp_CreateMenu",,-1
1Lș "Hourglass_Off"
1VU� found%<>0 � �open(cd_found%) � �error(1,searchstring$+" could not be found.",1)
1`�
1j:
1t ��add_to_found(foundrecord%)
1~6�update_icon(cd_found%,foundicon%,�(foundrecord%))
1�foundicon%+=1:found%+=1
1��
1�:
1���close_all
1�u�close(cd_wait%):�close(cd_print%):�close(cd_search%):�close(cd_found%):�close(cd_quit%):ș "Wimp_CreateMenu",,-1
1�r�close(cd_clear%):�close(cd_help%):�close(cd_infobox%):�close(cd_savebox%):�close(cd_sort%):�close(cd_tracks%)
1�ȗ ȓ 0,0,cx%,cy%
1��
1�:
1���read_tracklist
1�*track_number%=�(�indirect(cd_pane%,6))
1�/t1$(track_number%)=�indirect(cd_tracks%,24)
2/t2$(track_number%)=�indirect(cd_tracks%,25)
2
/t3$(track_number%)=�indirect(cd_tracks%,26)
2/t4$(track_number%)=�indirect(cd_tracks%,27)
2/t5$(track_number%)=�indirect(cd_tracks%,28)
2(/t6$(track_number%)=�indirect(cd_tracks%,29)
22/t7$(track_number%)=�indirect(cd_tracks%,30)
2</t8$(track_number%)=�indirect(cd_tracks%,31)
2F/t9$(track_number%)=�indirect(cd_tracks%,32)
2P0t10$(track_number%)=�indirect(cd_tracks%,33)
2Z0t11$(track_number%)=�indirect(cd_tracks%,34)
2d0t12$(track_number%)=�indirect(cd_tracks%,35)
2n0t13$(track_number%)=�indirect(cd_tracks%,36)
2x0t14$(track_number%)=�indirect(cd_tracks%,37)
2�0t15$(track_number%)=�indirect(cd_tracks%,38)
2�0t16$(track_number%)=�indirect(cd_tracks%,39)
2�0t17$(track_number%)=�indirect(cd_tracks%,40)
2�0t18$(track_number%)=�indirect(cd_tracks%,41)
2�0t19$(track_number%)=�indirect(cd_tracks%,42)
2�0t20$(track_number%)=�indirect(cd_tracks%,43)
2�0t21$(track_number%)=�indirect(cd_tracks%,44)
2�0t22$(track_number%)=�indirect(cd_tracks%,45)
2�0t23$(track_number%)=�indirect(cd_tracks%,46)
2�0t24$(track_number%)=�indirect(cd_tracks%,47)
2�track$(track_number%)="No"
2�� t1$(track_number%)<>"" � t2$(track_number%)<>"" � t3$(track_number%)<>"" � t4$(track_number%)<>"" � t5$(track_number%)<>"" � t6$(track_number%)<>"" � track$(track_number%)="Yes"
2��� t17$(track_number%)<>"" � t8$(track_number%)<>"" � t9$(track_number%)<>"" � t10$(track_number%)<>"" � t11$(track_number%)<>"" � t12$(track_number%)<>"" � track$(track_number%)="Yes"
3�� t13$(track_number%)<>"" � t14$(track_number%)<>"" � t15$(track_number%)<>"" � t16$(track_number%)<>"" � t17$(track_number%)<>"" � t18$(track_number%)<>"" � track$(track_number%)="Yes"
3�� t19$(track_number%)<>"" � t20$(track_number%)<>"" � t21$(track_number%)<>"" � t22$(track_number%)<>"" � t23$(track_number%)<>"" � t24$(track_number%)<>"" � track$(track_number%)="Yes"
3�
3":
3,��update_tracks
361� X%=24 � 47:�update_icon(cd_tracks%,X%,""):�
3@*track_number%=�(�indirect(cd_pane%,6))
3J2�update_icon(cd_tracks%,24,t1$(track_number%))
3T2�update_icon(cd_tracks%,25,t2$(track_number%))
3^2�update_icon(cd_tracks%,26,t3$(track_number%))
3h2�update_icon(cd_tracks%,27,t4$(track_number%))
3r2�update_icon(cd_tracks%,28,t5$(track_number%))
3|2�update_icon(cd_tracks%,29,t6$(track_number%))
3�2�update_icon(cd_tracks%,30,t7$(track_number%))
3�2�update_icon(cd_tracks%,31,t8$(track_number%))
3�2�update_icon(cd_tracks%,32,t9$(track_number%))
3�3�update_icon(cd_tracks%,33,t10$(track_number%))
3�3�update_icon(cd_tracks%,34,t11$(track_number%))
3�3�update_icon(cd_tracks%,35,t12$(track_number%))
3�3�update_icon(cd_tracks%,36,t13$(track_number%))
3�3�update_icon(cd_tracks%,37,t14$(track_number%))
3�3�update_icon(cd_tracks%,38,t15$(track_number%))
3�3�update_icon(cd_tracks%,39,t16$(track_number%))
3�3�update_icon(cd_tracks%,40,t17$(track_number%))
3�3�update_icon(cd_tracks%,41,t18$(track_number%))
3�3�update_icon(cd_tracks%,42,t19$(track_number%))
43�update_icon(cd_tracks%,43,t20$(track_number%))
43�update_icon(cd_tracks%,44,t21$(track_number%))
43�update_icon(cd_tracks%,45,t22$(track_number%))
4&3�update_icon(cd_tracks%,46,t23$(track_number%))
403�update_icon(cd_tracks%,47,t24$(track_number%))
4:�
4D:
4N��buffersize(size%,number$)
4Xnewbufsize%=size%*1024
4b7ș "Wimp_SlotSize",ra%-&8000+newbufsize%,-1 � socs%
4lbufferok%=�
4v�� socs%<(ra%-&8000+newbufsize%) � ș "Wimp_SlotSize",ra%-&8000+rasize%:bufferok%=�:�message("Insufficient memory available for "+number$+" records.")
4�rasize%=socs%-(ra%-&8000)-1
4��
4�:
4���message(m$)
4�!q%=0:$(q%+4)=m$
4�)ș "Wimp_ReportError",q%,1,"CD Index"
4��
4�:
4���clear_single
4�� X=9 � 16
4� �update_icon(cd_index%,X,"")
4��
4�� X=24 � 47
5!�update_icon(cd_tracks%,X,"")
5�
5�read:�read_tracklist
5 �
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 38 f4 20 43 44  20 49 6e 64 65 78 20 62  |...8. CD Index b|
00000020  79 20 52 69 63 6b 79 20  44 61 77 73 6f 6e 20 28  |y Ricky Dawson (|
00000030  a9 20 41 72 63 68 69 6d  65 64 65 73 20 57 6f 72  |. Archimedes Wor|
00000040  6c 64 20 31 39 39 33 29  0d 00 1e 05 3a 0d 00 28  |ld 1993)....:..(|
00000050  18 ee 20 85 20 f2 65 72  72 6f 72 28 9f 2c f6 24  |.. . .error(.,.$|
00000060  2c 36 29 3a e0 0d 00 32  05 3a 0d 00 3c 49 c8 99  |,6):...2.:..<I..|
00000070  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
00000080  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
00000090  2c 22 43 44 20 49 6e 64  65 78 22 20 b8 20 77 69  |,"CD Index" . wi|
000000a0  6d 70 5f 76 65 72 73 69  6f 6e 25 2c 68 61 6e 64  |mp_version%,hand|
000000b0  6c 65 25 0d 00 46 24 c8  99 20 22 57 69 6d 70 5f  |le%..F$.. "Wimp_|
000000c0  43 6c 61 69 6d 49 6e 74  65 72 66 61 63 65 22 2c  |ClaimInterface",|
000000d0  68 61 6e 64 6c 65 25 0d  00 50 05 3a 0d 00 5a 19  |handle%..P.:..Z.|
000000e0  f2 69 6e 69 74 69 61 6c  69 73 65 5f 76 61 72 69  |.initialise_vari|
000000f0  61 62 6c 65 73 0d 00 64  12 f2 67 65 74 5f 6d 6f  |ables..d..get_mo|
00000100  64 65 5f 69 6e 66 6f 0d  00 6e 2b f2 6d 73 5f 6c  |de_info..n+.ms_l|
00000110  6f 61 64 28 22 3c 43 44  24 44 69 72 3e 2e 52 65  |oad("<CD$Dir>.Re|
00000120  73 6f 75 72 63 65 73 2e  4d 65 73 73 61 67 65 73  |sources.Messages|
00000130  22 29 0d 00 78 13 f2 6c  6f 61 64 5f 74 65 6d 70  |")..x..load_temp|
00000140  6c 61 74 65 73 0d 00 82  0d f2 61 6e 6e 6f 75 6e  |lates.....announ|
00000150  63 65 0d 00 8c 3c 21 71  25 3d 63 64 5f 69 6e 64  |ce...<!q%=cd_ind|
00000160  65 78 25 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |ex%:.. "Wimp_Clo|
00000170  73 65 57 69 6e 64 6f 77  22 2c 2c 71 25 3a f2 63  |seWindow",,q%:.c|
00000180  6c 6f 73 65 28 63 64 5f  70 61 6e 65 25 29 0d 00  |lose(cd_pane%)..|
00000190  96 14 e7 20 61 6e 69 6d  6f 6e 24 3d 22 4f 6e 22  |... animon$="On"|
000001a0  20 8c 0d 00 a0 28 f2 63  68 61 6e 67 65 5f 69 63  | ....(.change_ic|
000001b0  6f 6e 28 71 25 2c 2d 32  2c 61 70 70 69 63 6f 6e  |on(q%,-2,appicon|
000001c0  25 2c 22 61 6e 69 6d 32  22 29 0d 00 aa 05 cc 0d  |%,"anim2")......|
000001d0  00 b4 2b f2 63 68 61 6e  67 65 5f 69 63 6f 6e 28  |..+.change_icon(|
000001e0  71 25 2c 2d 32 2c 61 70  70 69 63 6f 6e 25 2c 22  |q%,-2,appicon%,"|
000001f0  21 63 64 69 6e 64 65 78  22 29 0d 00 be 05 cd 0d  |!cdindex")......|
00000200  00 c8 13 f2 63 68 65 63  6b 5f 66 6f 72 5f 6c 6f  |....check_for_lo|
00000210  61 64 0d 00 d2 05 3a 0d  00 dc 2b ee 20 85 20 f2  |ad....:...+. . .|
00000220  65 72 72 6f 72 28 9f 2c  f6 24 2c 33 29 3a e7 20  |error(.,.$,3):. |
00000230  72 65 70 6c 79 25 3d 32  20 8c 20 71 75 69 74 25  |reply%=2 . quit%|
00000240  3d b9 0d 00 e6 05 3a 0d  00 f0 05 f5 0d 00 fa 25  |=.....:........%|
00000250  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 2c  |.. "Wimp_Poll",,|
00000260  71 25 20 b8 20 72 65 61  73 6f 6e 5f 63 6f 64 65  |q% . reason_code|
00000270  25 0d 01 04 2f c8 99 20  22 57 69 6d 70 5f 50 6f  |%.../.. "Wimp_Po|
00000280  6c 6c 50 6f 69 6e 74 65  72 22 2c 72 65 61 73 6f  |llPointer",reaso|
00000290  6e 5f 63 6f 64 65 25 2c  2c 68 61 6e 64 6c 65 25  |n_code%,,handle%|
000002a0  0d 01 0e 15 c8 8e 20 72  65 61 73 6f 6e 5f 63 6f  |...... reason_co|
000002b0  64 65 25 20 ca 0d 01 18  1b c9 20 31 3a f2 72 65  |de% ...... 1:.re|
000002c0  64 72 61 77 5f 77 69 6e  64 6f 77 28 21 71 25 29  |draw_window(!q%)|
000002d0  0d 01 22 41 c9 20 32 3a  f2 6f 70 65 6e 5f 77 69  |.."A. 2:.open_wi|
000002e0  6e 64 6f 77 28 21 71 25  2c 71 25 21 34 2c 71 25  |ndow(!q%,q%!4,q%|
000002f0  21 38 2c 71 25 21 31 32  2c 71 25 21 31 36 2c 71  |!8,q%!12,q%!16,q|
00000300  25 21 32 30 2c 71 25 21  32 34 2c 71 25 21 32 38  |%!20,q%!24,q%!28|
00000310  29 0d 01 2c 13 c9 20 33  3a f2 63 6c 6f 73 65 28  |)..,.. 3:.close(|
00000320  21 71 25 29 0d 01 36 2f  c9 20 36 3a f2 63 68 65  |!q%)..6/. 6:.che|
00000330  63 6b 5f 6d 6f 75 73 65  28 21 71 25 2c 71 25 21  |ck_mouse(!q%,q%!|
00000340  34 2c 71 25 21 38 2c 71  25 21 31 32 2c 71 25 21  |4,q%!8,q%!12,q%!|
00000350  31 36 29 0d 01 40 30 c9  20 37 3a f2 69 6e 69 74  |16)..@0. 7:.init|
00000360  69 61 74 65 5f 73 61 76  65 28 a4 69 6e 64 69 72  |iate_save(.indir|
00000370  65 63 74 28 63 64 5f 73  61 76 65 62 6f 78 25 2c  |ect(cd_savebox%,|
00000380  31 29 29 0d 01 4a 2a c9  20 38 3a f2 6b 65 79 5f  |1))..J*. 8:.key_|
00000390  70 72 65 73 73 65 64 28  21 71 25 2c 71 25 21 34  |pressed(!q%,q%!4|
000003a0  2c 71 25 21 32 30 2c 71  25 21 32 34 29 0d 01 54  |,q%!20,q%!24)..T|
000003b0  14 c9 20 39 3a f2 6d 65  6e 75 5f 73 65 6c 65 63  |.. 9:.menu_selec|
000003c0  74 0d 01 5e 18 c9 20 31  37 2c 31 38 3a f2 72 65  |t..^.. 17,18:.re|
000003d0  63 65 69 76 65 28 71 25  29 0d 01 68 05 cb 0d 01  |ceive(q%)..h....|
000003e0  72 0b fd 20 71 75 69 74  25 0d 01 7c 15 c8 97 20  |r.. quit%..|... |
000003f0  c8 93 20 30 2c 30 2c 63  78 25 2c 63 79 25 0d 01  |.. 0,0,cx%,cy%..|
00000400  86 0b f2 6d 73 5f 65 6e  64 0d 01 90 17 c8 99 20  |...ms_end...... |
00000410  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000420  0d 01 9a 26 c8 99 20 22  57 69 6d 70 5f 52 65 6c  |...&.. "Wimp_Rel|
00000430  65 61 73 65 49 6e 74 65  72 66 61 63 65 22 2c 68  |easeInterface",h|
00000440  61 6e 64 6c 65 25 0d 01  a4 07 d9 23 30 0d 01 ae  |andle%.....#0...|
00000450  18 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 53  |... "Hourglass_S|
00000460  6d 61 73 68 22 0d 01 b8  05 e0 0d 01 c2 05 3a 0d  |mash".........:.|
00000470  01 cc 1a dd f2 69 6e 69  74 69 61 6c 69 73 65 5f  |.....initialise_|
00000480  76 61 72 69 61 62 6c 65  73 0d 01 d6 45 de 20 71  |variables...E. q|
00000490  25 20 38 31 39 32 2c 20  6d 65 6e 75 66 72 65 65  |% 8192, menufree|
000004a0  25 20 26 38 30 30 2c 20  74 65 6d 70 25 20 38 31  |% &800, temp% 81|
000004b0  39 32 2c 20 65 72 72 6f  72 62 75 66 25 20 32 35  |92, errorbuf% 25|
000004c0  36 2c 20 62 75 66 66 65  72 20 26 35 30 30 0d 01  |6, buffer &500..|
000004d0  e0 10 63 75 72 77 73 25  3d 74 65 6d 70 25 0d 01  |..curws%=temp%..|
000004e0  ea 15 6d 61 78 77 73 25  3d 74 65 6d 70 25 2b 32  |..maxws%=temp%+2|
000004f0  30 34 38 0d 01 f4 18 6d  65 6e 75 73 74 61 72 74  |048....menustart|
00000500  25 3d 6d 65 6e 75 66 72  65 65 25 0d 01 fe 1b 6d  |%=menufree%....m|
00000510  65 6e 75 65 6e 64 25 3d  6d 65 6e 75 66 72 65 65  |enuend%=menufree|
00000520  25 2b 26 38 30 30 0d 02  08 0b 6d 65 6e 75 25 3d  |%+&800....menu%=|
00000530  30 0d 02 12 0b 71 75 69  74 25 3d a3 0d 02 1c 1d  |0....quit%=.....|
00000540  76 65 72 24 3d 22 32 2e  30 38 20 28 33 31 20 4a  |ver$="2.08 (31 J|
00000550  61 6e 20 31 39 39 33 29  22 0d 02 26 18 f2 69 6e  |an 1993)"..&..in|
00000560  69 74 69 61 6c 69 73 65  5f 63 64 5f 69 6e 64 65  |itialise_cd_inde|
00000570  78 0d 02 30 14 72 61 73  69 7a 65 25 3d 31 35 30  |x..0.rasize%=150|
00000580  2a 31 30 32 34 0d 02 3a  0b 72 61 25 3d 93 2b 31  |*1024..:.ra%=.+1|
00000590  0d 02 44 33 c8 99 20 22  57 69 6d 70 5f 53 6c 6f  |..D3.. "Wimp_Slo|
000005a0  74 53 69 7a 65 22 2c 72  61 25 2d 26 38 30 30 30  |tSize",ra%-&8000|
000005b0  2b 72 61 73 69 7a 65 25  2c 2d 31 20 b8 20 73 6f  |+rasize%,-1 . so|
000005c0  63 73 25 0d 02 4e 3c e7  20 73 6f 63 73 25 3c 28  |cs%..N<. socs%<(|
000005d0  72 61 25 2d 26 38 30 30  30 2b 72 61 73 69 7a 65  |ra%-&8000+rasize|
000005e0  25 29 20 8c 20 85 20 30  2c 22 49 6e 73 75 66 66  |%) . . 0,"Insuff|
000005f0  69 63 69 65 6e 74 20 6d  65 6d 6f 72 79 2e 22 0d  |icient memory.".|
00000600  02 58 1f 72 61 73 69 7a  65 25 3d 73 6f 63 73 25  |.X.rasize%=socs%|
00000610  2d 28 72 61 25 2d 26 38  30 30 30 29 2d 31 0d 02  |-(ra%-&8000)-1..|
00000620  62 05 e1 0d 02 6c 05 3a  0d 02 76 14 dd f2 6c 6f  |b....l.:..v...lo|
00000630  61 64 5f 74 65 6d 70 6c  61 74 65 73 0d 02 80 0c  |ad_templates....|
00000640  ea 20 73 70 61 63 65 25  0d 02 8a 10 73 70 61 63  |. space%....spac|
00000650  65 25 3d 74 65 6d 70 25  0d 02 94 14 c8 8e 20 77  |e%=temp%...... w|
00000660  69 6e 64 6f 77 74 79 70  65 24 20 ca 0d 02 9e 45  |indowtype$ ....E|
00000670  c9 20 22 50 6c 61 69 6e  22 3a c8 99 20 22 57 69  |. "Plain":.. "Wi|
00000680  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000690  2c 2c 22 3c 43 44 24 44  69 72 3e 2e 52 65 73 6f  |,,"<CD$Dir>.Reso|
000006a0  75 72 63 65 73 2e 50 6c  61 69 6e 54 65 6d 70 73  |urces.PlainTemps|
000006b0  22 0d 02 a8 3f c9 20 22  33 44 22 3a c8 99 20 22  |"...?. "3D":.. "|
000006c0  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
000006d0  65 22 2c 2c 22 3c 43 44  24 44 69 72 3e 2e 52 65  |e",,"<CD$Dir>.Re|
000006e0  73 6f 75 72 63 65 73 2e  33 44 54 65 6d 70 73 22  |sources.3DTemps"|
000006f0  0d 02 b2 05 cb 0d 02 bc  44 c8 99 20 22 57 69 6d  |........D.. "Wim|
00000700  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000710  2c 71 25 2c 73 70 61 63  65 25 2c 74 65 6d 70 25  |,q%,space%,temp%|
00000720  2b 35 31 32 2c 2d 31 2c  22 49 6e 66 6f 22 20 b8  |+512,-1,"Info" .|
00000730  20 2c 2c 73 70 61 63 65  25 0d 02 c6 2c c8 99 20  | ,,space%...,.. |
00000740  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000750  6f 77 22 2c 2c 71 25 20  b8 20 63 64 5f 69 6e 66  |ow",,q% . cd_inf|
00000760  6f 62 6f 78 25 0d 02 d0  45 c8 99 20 22 57 69 6d  |obox%...E.. "Wim|
00000770  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000780  2c 71 25 2c 73 70 61 63  65 25 2c 74 65 6d 70 25  |,q%,space%,temp%|
00000790  2b 32 30 34 38 2c 2d 31  2c 22 53 61 76 65 22 20  |+2048,-1,"Save" |
000007a0  b8 20 2c 2c 73 70 61 63  65 25 0d 02 da 2c c8 99  |. ,,space%...,..|
000007b0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
000007c0  64 6f 77 22 2c 2c 71 25  20 b8 20 63 64 5f 73 61  |dow",,q% . cd_sa|
000007d0  76 65 62 6f 78 25 0d 02  e4 46 c8 99 20 22 57 69  |vebox%...F.. "Wi|
000007e0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000007f0  2c 2c 71 25 2c 73 70 61  63 65 25 2c 74 65 6d 70  |,,q%,space%,temp|
00000800  25 2b 32 30 34 38 2c 2d  31 2c 22 49 6e 64 65 78  |%+2048,-1,"Index|
00000810  22 20 b8 20 2c 2c 73 70  61 63 65 25 0d 02 ee 2a  |" . ,,space%...*|
00000820  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000830  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 63 64 5f  |indow",,q% . cd_|
00000840  69 6e 64 65 78 25 0d 02  f8 46 c8 99 20 22 57 69  |index%...F.. "Wi|
00000850  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000860  2c 2c 71 25 2c 73 70 61  63 65 25 2c 74 65 6d 70  |,,q%,space%,temp|
00000870  25 2b 33 30 37 32 2c 2d  31 2c 22 50 72 69 6e 74  |%+3072,-1,"Print|
00000880  22 20 b8 20 2c 2c 73 70  61 63 65 25 0d 03 02 2a  |" . ,,space%...*|
00000890  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
000008a0  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 63 64 5f  |indow",,q% . cd_|
000008b0  70 72 69 6e 74 25 0d 03  0c 45 c8 99 20 22 57 69  |print%...E.. "Wi|
000008c0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000008d0  2c 2c 71 25 2c 73 70 61  63 65 25 2c 74 65 6d 70  |,,q%,space%,temp|
000008e0  25 2b 33 30 37 32 2c 2d  31 2c 22 53 6f 72 74 22  |%+3072,-1,"Sort"|
000008f0  20 b8 20 2c 2c 73 70 61  63 65 25 0d 03 16 29 c8  | . ,,space%...).|
00000900  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000910  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 63 64 5f 73  |ndow",,q% . cd_s|
00000920  6f 72 74 25 0d 03 20 45  c8 99 20 22 57 69 6d 70  |ort%.. E.. "Wimp|
00000930  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000940  71 25 2c 73 70 61 63 65  25 2c 74 65 6d 70 25 2b  |q%,space%,temp%+|
00000950  33 30 37 32 2c 2d 31 2c  22 48 65 6c 70 22 20 b8  |3072,-1,"Help" .|
00000960  20 2c 2c 73 70 61 63 65  25 0d 03 2a 29 c8 99 20  | ,,space%..*).. |
00000970  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000980  6f 77 22 2c 2c 71 25 20  b8 20 63 64 5f 68 65 6c  |ow",,q% . cd_hel|
00000990  70 25 0d 03 34 49 c8 99  20 22 57 69 6d 70 5f 4c  |p%..4I.. "Wimp_L|
000009a0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 71 25  |oadTemplate",,q%|
000009b0  2c 73 70 61 63 65 25 2c  74 65 6d 70 25 2b 33 30  |,space%,temp%+30|
000009c0  37 32 2c 2d 31 2c 22 41  6e 6e 6f 75 6e 63 65 22  |72,-1,"Announce"|
000009d0  20 b8 20 2c 2c 73 70 61  63 65 25 0d 03 3e 2d c8  | . ,,space%..>-.|
000009e0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000009f0  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 63 64 5f 61  |ndow",,q% . cd_a|
00000a00  6e 6e 6f 75 6e 63 65 25  0d 03 48 46 c8 99 20 22  |nnounce%..HF.. "|
00000a10  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000a20  65 22 2c 2c 71 25 2c 73  70 61 63 65 25 2c 74 65  |e",,q%,space%,te|
00000a30  6d 70 25 2b 33 30 37 32  2c 2d 31 2c 22 43 6c 65  |mp%+3072,-1,"Cle|
00000a40  61 72 22 20 b8 20 2c 2c  73 70 61 63 65 25 0d 03  |ar" . ,,space%..|
00000a50  52 2a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |R*.. "Wimp_Creat|
00000a60  65 57 69 6e 64 6f 77 22  2c 2c 71 25 20 b8 20 63  |eWindow",,q% . c|
00000a70  64 5f 63 6c 65 61 72 25  0d 03 5c 45 c8 99 20 22  |d_clear%..\E.. "|
00000a80  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000a90  65 22 2c 2c 71 25 2c 73  70 61 63 65 25 2c 74 65  |e",,q%,space%,te|
00000aa0  6d 70 25 2b 34 30 39 36  2c 2d 31 2c 22 51 75 69  |mp%+4096,-1,"Qui|
00000ab0  74 22 20 b8 20 2c 2c 73  70 61 63 65 25 0d 03 66  |t" . ,,space%..f|
00000ac0  29 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |).. "Wimp_Create|
00000ad0  57 69 6e 64 6f 77 22 2c  2c 71 25 20 b8 20 63 64  |Window",,q% . cd|
00000ae0  5f 71 75 69 74 25 0d 03  70 45 c8 99 20 22 57 69  |_quit%..pE.. "Wi|
00000af0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000b00  2c 2c 71 25 2c 73 70 61  63 65 25 2c 74 65 6d 70  |,,q%,space%,temp|
00000b10  25 2b 34 30 39 36 2c 2d  31 2c 22 57 61 69 74 22  |%+4096,-1,"Wait"|
00000b20  20 b8 20 2c 2c 73 70 61  63 65 25 0d 03 7a 29 c8  | . ,,space%..z).|
00000b30  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000b40  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 63 64 5f 77  |ndow",,q% . cd_w|
00000b50  61 69 74 25 0d 03 84 47  c8 99 20 22 57 69 6d 70  |ait%...G.. "Wimp|
00000b60  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000b70  71 25 2c 73 70 61 63 65  25 2c 74 65 6d 70 25 2b  |q%,space%,temp%+|
00000b80  35 31 32 30 2c 2d 31 2c  22 53 65 61 72 63 68 22  |5120,-1,"Search"|
00000b90  20 b8 20 2c 2c 73 70 61  63 65 25 0d 03 8e 2b c8  | . ,,space%...+.|
00000ba0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000bb0  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 63 64 5f 73  |ndow",,q% . cd_s|
00000bc0  65 61 72 63 68 25 0d 03  98 46 c8 99 20 22 57 69  |earch%...F.. "Wi|
00000bd0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000be0  2c 2c 71 25 2c 73 70 61  63 65 25 2c 74 65 6d 70  |,,q%,space%,temp|
00000bf0  25 2b 35 31 32 30 2c 2d  31 2c 22 46 6f 75 6e 64  |%+5120,-1,"Found|
00000c00  22 20 b8 20 2c 2c 73 70  61 63 65 25 0d 03 a2 2a  |" . ,,space%...*|
00000c10  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000c20  69 6e 64 6f 77 22 2c 2c  71 25 20 b8 20 63 64 5f  |indow",,q% . cd_|
00000c30  66 6f 75 6e 64 25 0d 03  ac 45 c8 99 20 22 57 69  |found%...E.. "Wi|
00000c40  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000c50  2c 2c 71 25 2c 73 70 61  63 65 25 2c 74 65 6d 70  |,,q%,space%,temp|
00000c60  25 2b 35 31 32 30 2c 2d  31 2c 22 50 61 6e 65 22  |%+5120,-1,"Pane"|
00000c70  20 b8 20 2c 2c 73 70 61  63 65 25 0d 03 b6 29 c8  | . ,,space%...).|
00000c80  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000c90  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 63 64 5f 70  |ndow",,q% . cd_p|
00000ca0  61 6e 65 25 0d 03 c0 46  c8 99 20 22 57 69 6d 70  |ane%...F.. "Wimp|
00000cb0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
00000cc0  71 25 2c 73 70 61 63 65  25 2c 74 65 6d 70 25 2b  |q%,space%,temp%+|
00000cd0  36 31 34 34 2c 2d 31 2c  22 54 72 61 63 6b 22 20  |6144,-1,"Track" |
00000ce0  b8 20 2c 2c 73 70 61 63  65 25 0d 03 ca 2b c8 99  |. ,,space%...+..|
00000cf0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  | "Wimp_CreateWin|
00000d00  64 6f 77 22 2c 2c 71 25  20 b8 20 63 64 5f 74 72  |dow",,q% . cd_tr|
00000d10  61 63 6b 73 25 0d 03 d4  1b c8 99 20 22 57 69 6d  |acks%...... "Wim|
00000d20  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000d30  0d 03 de 24 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |...$.update_icon|
00000d40  28 63 64 5f 69 6e 66 6f  62 6f 78 25 2c 37 2c 76  |(cd_infobox%,7,v|
00000d50  65 72 24 29 0d 03 e8 05  e1 0d 03 f2 05 3a 0d 03  |er$).........:..|
00000d60  fc 10 dd f2 6d 61 6b 65  5f 6d 65 6e 75 73 0d 04  |....make_menus..|
00000d70  06 18 6d 65 6e 75 66 72  65 65 25 3d 6d 65 6e 75  |..menufree%=menu|
00000d80  73 74 61 72 74 25 0d 04  10 25 e3 20 6c 6f 6f 70  |start%...%. loop|
00000d90  25 3d 6d 65 6e 75 73 74  61 72 74 25 20 b8 20 6d  |%=menustart% . m|
00000da0  65 6e 75 65 6e 64 25 20  88 20 34 0d 04 1a 0c 21  |enuend% . 4....!|
00000db0  6c 6f 6f 70 25 3d 30 0d  04 24 05 ed 0d 04 2e 45  |loop%=0..$.....E|
00000dc0  77 69 6e 64 6f 77 6f 70  74 73 25 3d a4 63 72 65  |windowopts%=.cre|
00000dd0  61 74 65 5f 6d 65 6e 75  28 22 23 20 57 69 6e 64  |ate_menu("# Wind|
00000de0  6f 77 73 20 2c 33 44 20  49 63 6f 6e 73 2c 50 6c  |ows ,3D Icons,Pl|
00000df0  61 69 6e 20 49 63 6f 6e  73 22 2c 22 22 2c 22 22  |ain Icons","",""|
00000e00  29 0d 04 38 4c 6d 61 78  72 65 63 6f 72 64 6d 65  |)..8Lmaxrecordme|
00000e10  6e 75 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |nu%=.create_menu|
00000e20  28 22 23 20 52 65 63 6f  72 64 73 20 2c 31 30 30  |("# Records ,100|
00000e30  2c 32 30 30 2c 33 30 30  2c 34 30 30 2c 35 30 30  |,200,300,400,500|
00000e40  2c 31 30 30 30 22 2c 22  22 2c 22 22 29 0d 04 42  |,1000","","")..B|
00000e50  37 61 6e 69 6d 6d 65 6e  75 25 3d a4 63 72 65 61  |7animmenu%=.crea|
00000e60  74 65 5f 6d 65 6e 75 28  22 23 20 41 6e 69 6d 61  |te_menu("# Anima|
00000e70  74 69 6f 6e 20 2c 4f 66  66 2c 4f 6e 22 2c 22 22  |tion ,Off,On",""|
00000e80  2c 22 22 29 0d 04 4c 7e  6f 70 74 69 6f 6e 73 6d  |,"")..L~optionsm|
00000e90  65 6e 75 25 3d a4 63 72  65 61 74 65 5f 6d 65 6e  |enu%=.create_men|
00000ea0  75 28 22 23 20 4f 70 74  69 6f 6e 73 20 2c 41 6e  |u("# Options ,An|
00000eb0  69 6d 61 74 69 6f 6e 3e  61 6e 69 6d 6d 65 6e 75  |imation>animmenu|
00000ec0  25 2c 52 65 63 6f 72 64  73 3e 6d 61 78 72 65 63  |%,Records>maxrec|
00000ed0  6f 72 64 6d 65 6e 75 25  2c 57 69 6e 64 6f 77 73  |ordmenu%,Windows|
00000ee0  23 3e 77 69 6e 64 6f 77  6f 70 74 73 25 2c 53 61  |#>windowopts%,Sa|
00000ef0  76 65 20 43 68 6f 69 63  65 73 22 2c 22 22 2c 22  |ve Choices","","|
00000f00  22 29 0d 04 56 6b 69 63  6f 6e 62 61 72 6d 65 6e  |")..Vkiconbarmen|
00000f10  75 25 3d a4 63 72 65 61  74 65 5f 6d 65 6e 75 28  |u%=.create_menu(|
00000f20  22 23 20 43 44 20 49 6e  64 65 78 20 2c 49 6e 66  |"# CD Index ,Inf|
00000f30  6f 3e 63 64 5f 69 6e 66  6f 62 6f 78 25 2c 4f 70  |o>cd_infobox%,Op|
00000f40  74 69 6f 6e 73 3e 6f 70  74 69 6f 6e 73 6d 65 6e  |tions>optionsmen|
00000f50  75 25 2c 52 65 73 74 61  72 74 20 20 20 46 38 23  |u%,Restart   F8#|
00000f60  2c 51 75 69 74 22 2c 22  22 2c 22 22 29 0d 04 60  |,Quit","","")..`|
00000f70  45 66 6f 72 6d 61 74 6d  65 6e 75 25 3d a4 63 72  |Eformatmenu%=.cr|
00000f80  65 61 74 65 5f 6d 65 6e  75 28 22 23 20 46 6f 72  |eate_menu("# For|
00000f90  6d 61 74 20 2c 43 44 2c  43 44 2d 52 4f 4d 2c 44  |mat ,CD,CD-ROM,D|
00000fa0  41 54 2c 4c 50 2c 54 61  70 65 22 2c 22 22 2c 22  |AT,LP,Tape","","|
00000fb0  22 29 0d 04 6a 67 73 69  7a 65 6d 65 6e 75 25 3d  |")..jgsizemenu%=|
00000fc0  a4 63 72 65 61 74 65 5f  6d 65 6e 75 28 22 23 20  |.create_menu("# |
00000fd0  53 69 7a 65 20 2c 37 22  22 20 53 69 6e 67 6c 65  |Size ,7"" Single|
00000fe0  2c 31 32 22 22 20 53 69  6e 67 6c 65 2c 43 44 20  |,12"" Single,CD |
00000ff0  53 69 6e 67 6c 65 2c 41  6c 62 75 6d 2c 42 6f 78  |Single,Album,Box|
00001000  20 53 65 74 2c 44 6f 75  62 6c 65 20 41 6c 62 75  | Set,Double Albu|
00001010  6d 22 2c 22 22 2c 22 22  29 0d 04 74 0d f2 67 65  |m","","")..t..ge|
00001020  74 5f 79 65 61 72 0d 04  7e 8f 79 65 61 72 6d 65  |t_year..~.yearme|
00001030  6e 75 25 3d a4 63 72 65  61 74 65 5f 6d 65 6e 75  |nu%=.create_menu|
00001040  28 22 23 20 59 65 61 72  20 2c 22 2b c3 28 79 65  |("# Year ,"+.(ye|
00001050  61 72 25 2d 36 29 2b 22  2c 22 2b c3 28 79 65 61  |ar%-6)+","+.(yea|
00001060  72 25 2d 35 29 2b 22 2c  22 2b c3 28 79 65 61 72  |r%-5)+","+.(year|
00001070  25 2d 34 29 2b 22 2c 22  2b c3 28 79 65 61 72 25  |%-4)+","+.(year%|
00001080  2d 33 29 2b 22 2c 22 2b  c3 28 79 65 61 72 25 2d  |-3)+","+.(year%-|
00001090  32 29 2b 22 2c 22 2b c3  28 79 65 61 72 25 2d 31  |2)+","+.(year%-1|
000010a0  29 2b 22 2c 22 2b c3 28  79 65 61 72 25 29 2c 22  |)+","+.(year%),"|
000010b0  22 2c 22 22 29 0d 04 88  e0 6d 61 69 6e 6d 65 6e  |","")....mainmen|
000010c0  75 25 3d a4 63 72 65 61  74 65 5f 6d 65 6e 75 28  |u%=.create_menu(|
000010d0  22 23 20 43 44 20 49 6e  64 65 78 20 2c 49 6e 66  |"# CD Index ,Inf|
000010e0  6f 3e 63 64 5f 69 6e 66  6f 62 6f 78 25 2c 4f 70  |o>cd_infobox%,Op|
000010f0  74 69 6f 6e 73 3e 6f 70  74 69 6f 6e 73 6d 65 6e  |tions>optionsmen|
00001100  75 25 2c 51 75 69 74 23  2c 43 6c 65 61 72 20 52  |u%,Quit#,Clear R|
00001110  65 63 6f 72 64 2c 48 65  6c 70 20 20 20 20 20 20  |ecord,Help      |
00001120  46 31 2c 50 72 69 6e 74  20 20 20 20 20 46 39 3e  |F1,Print     F9>|
00001130  63 64 5f 70 72 69 6e 74  25 2c 52 65 73 74 61 72  |cd_print%,Restar|
00001140  74 20 20 20 46 38 2c 53  61 76 65 20 20 20 20 20  |t   F8,Save     |
00001150  20 46 33 3e 63 64 5f 73  61 76 65 62 6f 78 25 2c  | F3>cd_savebox%,|
00001160  53 65 61 72 63 68 20 20  20 20 46 34 3e 63 64 5f  |Search    F4>cd_|
00001170  73 65 61 72 63 68 25 2c  53 6f 72 74 20 20 20 20  |search%,Sort    |
00001180  20 20 46 32 3e 63 64 5f  73 6f 72 74 25 22 2c 22  |  F2>cd_sort%","|
00001190  22 2c 22 22 29 0d 04 92  80 74 79 70 65 6d 65 6e  |","")....typemen|
000011a0  75 25 3d a4 63 72 65 61  74 65 5f 6d 65 6e 75 28  |u%=.create_menu(|
000011b0  22 23 20 4d 75 73 69 63  20 54 79 70 65 20 2c 42  |"# Music Type ,B|
000011c0  6c 75 65 73 2c 43 6c 61  73 73 69 63 61 6c 2c 43  |lues,Classical,C|
000011d0  6f 75 6e 74 72 79 2c 46  6f 6c 6b 2c 46 75 6e 6b  |ountry,Folk,Funk|
000011e0  2c 4a 61 7a 7a 2c 4d 65  74 61 6c 2c 50 6f 70 2c  |,Jazz,Metal,Pop,|
000011f0  53 6f 75 6c 2c 52 61 76  65 2c 52 65 67 67 61 65  |Soul,Rave,Reggae|
00001200  2c 52 6f 63 6b 2c 56 61  72 69 6f 75 73 22 2c 22  |,Rock,Various","|
00001210  22 2c 22 22 29 0d 04 9c  14 c8 8e 20 77 69 6e 64  |","")...... wind|
00001220  6f 77 74 79 70 65 24 20  ca 0d 04 a6 24 c9 20 22  |owtype$ ....$. "|
00001230  50 6c 61 69 6e 22 3a f2  74 69 63 6b 28 77 69 6e  |Plain":.tick(win|
00001240  64 6f 77 6f 70 74 73 25  2c 31 2c 31 29 0d 04 b0  |dowopts%,1,1)...|
00001250  21 c9 20 22 33 44 22 3a  f2 74 69 63 6b 28 77 69  |!. "3D":.tick(wi|
00001260  6e 64 6f 77 6f 70 74 73  25 2c 30 2c 31 29 0d 04  |ndowopts%,0,1)..|
00001270  ba 05 cb 0d 04 c4 10 c8  8e 20 61 6e 69 6d 6f 6e  |......... animon|
00001280  24 20 ca 0d 04 ce 20 c9  20 22 4f 66 66 22 3a f2  |$ .... . "Off":.|
00001290  74 69 63 6b 28 61 6e 69  6d 6d 65 6e 75 25 2c 30  |tick(animmenu%,0|
000012a0  2c 31 29 0d 04 d8 1f c9  20 22 4f 6e 22 3a f2 74  |,1)..... "On":.t|
000012b0  69 63 6b 28 61 6e 69 6d  6d 65 6e 75 25 2c 31 2c  |ick(animmenu%,1,|
000012c0  31 29 0d 04 e2 05 cb 0d  04 ec 10 f2 72 65 63 6f  |1)..........reco|
000012d0  72 64 5f 6d 65 6e 75 0d  04 f6 05 e1 0d 05 00 05  |rd_menu.........|
000012e0  3a 0d 05 0a 0e dd f2 67  65 74 5f 79 65 61 72 0d  |:......get_year.|
000012f0  05 14 1c 3f 71 25 3d 31  3a c8 99 20 22 4f 53 5f  |...?q%=1:.. "OS_|
00001300  57 6f 72 64 22 2c 31 34  2c 71 25 0d 05 1e 1d 79  |Word",14,q%....y|
00001310  65 61 72 25 3d bb 28 c2  c3 7e 28 3f 71 25 29 2c  |ear%=.(..~(?q%),|
00001320  32 29 29 2b 31 39 30 30  0d 05 28 1d e7 20 79 65  |2))+1900..(.. ye|
00001330  61 72 25 3c 31 39 35 30  20 8c 20 79 65 61 72 25  |ar%<1950 . year%|
00001340  2b 3d 31 30 30 0d 05 32  05 e1 0d 05 3c 05 3a 0d  |+=100..2....<.:.|
00001350  05 46 12 dd f2 69 6e 73  74 61 6c 6c 5f 69 63 6f  |.F...install_ico|
00001360  6e 0d 05 50 33 ea 20 73  77 69 64 74 68 25 2c 73  |n..P3. swidth%,s|
00001370  68 65 69 67 68 74 25 2c  73 6d 6f 64 65 25 2c 70  |height%,smode%,p|
00001380  78 25 2c 70 79 25 2c 74  65 78 74 24 2c 73 70 72  |x%,py%,text$,spr|
00001390  69 74 65 24 0d 05 5a 13  73 70 72 69 74 65 24 3d  |ite$..Z.sprite$=|
000013a0  22 61 6e 69 6d 31 22 0d  05 64 14 74 65 78 74 24  |"anim1"..d.text$|
000013b0  3d 22 43 44 20 49 6e 64  65 78 22 0d 05 6e 2b de  |="CD Index"..n+.|
000013c0  20 73 70 72 69 74 65 25  20 28 a9 28 73 70 72 69  | sprite% (.(spri|
000013d0  74 65 24 29 2b 31 29 2c  74 65 78 74 25 20 a9 28  |te$)+1),text% .(|
000013e0  74 65 78 74 24 29 0d 05  78 18 24 73 70 72 69 74  |text$)..x.$sprit|
000013f0  65 25 3d 22 53 22 2b 73  70 72 69 74 65 24 0d 05  |e%="S"+sprite$..|
00001400  82 10 24 74 65 78 74 25  3d 74 65 78 74 24 0d 05  |..$text%=text$..|
00001410  8c 40 c8 99 20 22 57 69  6d 70 5f 53 70 72 69 74  |.@.. "Wimp_Sprit|
00001420  65 4f 70 22 2c 34 30 2c  2c 73 70 72 69 74 65 24  |eOp",40,,sprite$|
00001430  20 b8 20 2c 2c 2c 73 77  69 64 74 68 25 2c 73 68  | . ,,,swidth%,sh|
00001440  65 69 67 68 74 25 2c 2c  73 6d 6f 64 65 25 0d 05  |eight%,,smode%..|
00001450  96 2d c8 99 20 22 4f 53  5f 52 65 61 64 4d 6f 64  |.-.. "OS_ReadMod|
00001460  65 56 61 72 69 61 62 6c  65 22 2c 73 6d 6f 64 65  |eVariable",smode|
00001470  25 2c 34 20 b8 20 2c 2c  70 78 25 0d 05 a0 18 73  |%,4 . ,,px%....s|
00001480  77 69 64 74 68 25 3d 73  77 69 64 74 68 25 3c 3c  |width%=swidth%<<|
00001490  70 78 25 0d 05 aa 2d c8  99 20 22 4f 53 5f 52 65  |px%...-.. "OS_Re|
000014a0  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
000014b0  73 6d 6f 64 65 25 2c 35  20 b8 20 2c 2c 70 79 25  |smode%,5 . ,,py%|
000014c0  0d 05 b4 1a 73 68 65 69  67 68 74 25 3d 73 68 65  |....sheight%=she|
000014d0  69 67 68 74 25 3c 3c 70  79 25 0d 05 be 2f e7 20  |ight%<<py%.../. |
000014e0  a9 28 74 65 78 74 24 29  2a 31 36 3e 73 77 69 64  |.(text$)*16>swid|
000014f0  74 68 25 20 8c 20 73 77  69 64 74 68 25 3d a9 28  |th% . swidth%=.(|
00001500  74 65 78 74 24 29 2a 31  36 0d 05 c8 4f 21 71 25  |text$)*16...O!q%|
00001510  3d 2d 31 3a 71 25 21 34  3d 30 3a 71 25 21 38 3d  |=-1:q%!4=0:q%!8=|
00001520  2d 31 36 3a 71 25 21 31  32 3d 71 25 21 34 2b 73  |-16:q%!12=q%!4+s|
00001530  77 69 64 74 68 25 3a 71  25 21 31 36 3d 32 30 2b  |width%:q%!16=20+|
00001540  73 68 65 69 67 68 74 25  3a 71 25 21 32 30 3d 26  |sheight%:q%!20=&|
00001550  31 37 30 30 33 31 30 42  0d 05 d2 0f 71 25 21 32  |1700310B....q%!2|
00001560  34 3d 74 65 78 74 25 0d  05 dc 11 71 25 21 32 38  |4=text%....q%!28|
00001570  3d 73 70 72 69 74 65 25  0d 05 e6 12 71 25 21 33  |=sprite%....q%!3|
00001580  32 3d a9 28 74 65 78 74  24 29 0d 05 f0 27 c8 99  |2=.(text$)...'..|
00001590  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
000015a0  6e 22 2c 2c 71 25 20 b8  20 61 70 70 69 63 6f 6e  |n",,q% . appicon|
000015b0  25 0d 05 fa 05 e1 0d 06  04 05 3a 0d 06 0e 1e dd  |%.........:.....|
000015c0  f2 65 72 72 6f 72 28 65  72 72 2c 72 65 70 6f 72  |.error(err,repor|
000015d0  74 24 2c 74 79 70 65 25  29 0d 06 18 07 ef 20 33  |t$,type%)..... 3|
000015e0  0d 06 22 12 21 65 72 72  6f 72 62 75 66 25 3d 65  |..".!errorbuf%=e|
000015f0  72 72 0d 06 2c 1f 24 28  65 72 72 6f 72 62 75 66  |rr..,.$(errorbuf|
00001600  25 2b 34 29 3d 72 65 70  6f 72 74 24 2b bd 28 30  |%+4)=report$+.(0|
00001610  29 0d 06 36 3e c8 99 20  22 57 69 6d 70 5f 52 65  |)..6>.. "Wimp_Re|
00001620  70 6f 72 74 45 72 72 6f  72 22 2c 65 72 72 6f 72  |portError",error|
00001630  62 75 66 25 2c 74 79 70  65 25 2c 22 43 44 20 49  |buf%,type%,"CD I|
00001640  6e 64 65 78 22 20 b8 20  2c 72 65 70 6c 79 25 0d  |ndex" . ,reply%.|
00001650  06 40 05 e1 0d 06 4a 05  3a 0d 06 54 3e dd f2 6f  |.@....J.:..T>..o|
00001660  70 65 6e 5f 77 69 6e 64  6f 77 28 21 71 25 2c 71  |pen_window(!q%,q|
00001670  25 21 34 2c 71 25 21 38  2c 71 25 21 31 32 2c 71  |%!4,q%!8,q%!12,q|
00001680  25 21 31 36 2c 71 25 21  32 30 2c 71 25 21 32 34  |%!16,q%!20,q%!24|
00001690  2c 71 25 21 32 38 29 0d  06 5e 1c c8 99 20 22 57  |,q%!28)..^... "W|
000016a0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000016b0  2c 71 25 0d 06 68 05 e1  0d 06 72 05 3a 0d 06 7c  |,q%..h....r.:..||
000016c0  14 dd f2 63 6c 6f 73 65  28 77 69 6e 64 6f 77 25  |...close(window%|
000016d0  29 0d 06 86 3b e7 20 77  69 6e 64 6f 77 25 3d 63  |)...;. window%=c|
000016e0  64 5f 69 6e 64 65 78 25  20 8c 20 f2 63 6c 6f 73  |d_index% . .clos|
000016f0  65 5f 61 6e 69 6d 61 74  69 6f 6e 3a f2 63 6c 6f  |e_animation:.clo|
00001700  73 65 28 63 64 5f 70 61  6e 65 25 29 0d 06 90 2a  |se(cd_pane%)...*|
00001710  e7 20 77 69 6e 64 6f 77  25 3d 63 64 5f 74 72 61  |. window%=cd_tra|
00001720  63 6b 73 25 20 8c 20 f2  72 65 61 64 5f 74 72 61  |cks% . .read_tra|
00001730  63 6b 6c 69 73 74 0d 06  9a 29 21 71 25 3d 77 69  |cklist...)!q%=wi|
00001740  6e 64 6f 77 25 3a c8 99  20 22 57 69 6d 70 5f 43  |ndow%:.. "Wimp_C|
00001750  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |loseWindow",,q%.|
00001760  06 a4 05 e1 0d 06 ae 05  3a 0d 06 b8 0f dd f2 6f  |........:......o|
00001770  70 65 6e 28 21 71 25 29  0d 06 c2 42 c8 99 20 22  |pen(!q%)...B.. "|
00001780  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00001790  61 74 65 22 2c 2c 71 25  3a 71 25 21 32 38 3d 2d  |ate",,q%:q%!28=-|
000017a0  31 3a c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |1:.. "Wimp_OpenW|
000017b0  69 6e 64 6f 77 22 2c 2c  71 25 0d 06 cc 05 e1 0d  |indow",,q%......|
000017c0  06 d6 05 3a 0d 06 e0 38  dd f2 63 68 65 63 6b 5f  |...:...8..check_|
000017d0  6d 6f 75 73 65 28 6d 6f  75 73 65 78 25 2c 6d 6f  |mouse(mousex%,mo|
000017e0  75 73 65 79 25 2c 62 75  74 74 6f 6e 25 2c 77 69  |usey%,button%,wi|
000017f0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 06 ea 10  |ndow%,icon%)....|
00001800  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 06 f4 1b  |.. window% .....|
00001810  c9 20 2d 32 3a e7 20 69  63 6f 6e 25 3d 61 70 70  |. -2:. icon%=app|
00001820  69 63 6f 6e 25 20 8c 0d  06 fe 65 e7 20 62 75 74  |icon% ....e. but|
00001830  74 6f 6e 25 3d 32 20 8c  20 c8 99 20 22 57 69 6d  |ton%=2 . .. "Wim|
00001840  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 69  |p_CreateMenu",,i|
00001850  63 6f 6e 62 61 72 6d 65  6e 75 25 2c 6d 6f 75 73  |conbarmenu%,mous|
00001860  65 78 25 2d 34 38 2c 39  36 2b 28 34 2a 34 34 29  |ex%-48,96+(4*44)|
00001870  2b 32 34 3a 73 65 6c 65  63 74 6d 65 6e 75 25 3d  |+24:selectmenu%=|
00001880  69 63 6f 6e 62 61 72 6d  65 6e 75 25 0d 07 08 18  |iconbarmenu%....|
00001890  e7 20 28 62 75 74 74 6f  6e 25 20 80 20 35 29 3c  |. (button% . 5)<|
000018a0  3e 30 20 8c 0d 07 12 34  f2 6f 70 65 6e 5f 61 6e  |>0 ....4.open_an|
000018b0  69 6d 61 74 69 6f 6e 3a  f2 6f 70 65 6e 28 63 64  |imation:.open(cd|
000018c0  5f 69 6e 64 65 78 25 29  3a f2 6f 70 65 6e 28 63  |_index%):.open(c|
000018d0  64 5f 70 61 6e 65 25 29  0d 07 1c 1c f2 6d 6f 76  |d_pane%).....mov|
000018e0  65 5f 63 61 72 65 74 28  63 64 5f 69 6e 64 65 78  |e_caret(cd_index|
000018f0  25 2c 39 29 0d 07 26 05  cd 0d 07 30 05 cd 0d 07  |%,9)..&....0....|
00001900  3a 28 c9 20 63 64 5f 69  6e 64 65 78 25 3a e7 20  |:(. cd_index%:. |
00001910  62 75 74 74 6f 6e 25 3d  32 20 8c 20 c8 8e 20 69  |button%=2 . .. i|
00001920  63 6f 6e 25 20 ca 0d 07  44 65 c9 20 31 38 3a f2  |con% ...De. 18:.|
00001930  72 65 64 72 61 77 5f 69  63 6f 6e 3a c8 99 20 22  |redraw_icon:.. "|
00001940  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
00001950  2c 2c 66 6f 72 6d 61 74  6d 65 6e 75 25 2c 6d 6f  |,,formatmenu%,mo|
00001960  75 73 65 78 25 2d 34 38  2c 6d 6f 75 73 65 79 25  |usex%-48,mousey%|
00001970  2b 31 30 3a 73 65 6c 65  63 74 6d 65 6e 75 25 3d  |+10:selectmenu%=|
00001980  66 6f 72 6d 61 74 6d 65  6e 75 25 0d 07 4e 61 c9  |formatmenu%..Na.|
00001990  20 31 39 3a f2 72 65 64  72 61 77 5f 69 63 6f 6e  | 19:.redraw_icon|
000019a0  3a c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |:.. "Wimp_Create|
000019b0  4d 65 6e 75 22 2c 2c 73  69 7a 65 6d 65 6e 75 25  |Menu",,sizemenu%|
000019c0  2c 6d 6f 75 73 65 78 25  2d 34 38 2c 6d 6f 75 73  |,mousex%-48,mous|
000019d0  65 79 25 2b 31 30 3a 73  65 6c 65 63 74 6d 65 6e  |ey%+10:selectmen|
000019e0  75 25 3d 73 69 7a 65 6d  65 6e 75 25 0d 07 58 61  |u%=sizemenu%..Xa|
000019f0  c9 20 32 30 3a f2 72 65  64 72 61 77 5f 69 63 6f  |. 20:.redraw_ico|
00001a00  6e 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |n:.. "Wimp_Creat|
00001a10  65 4d 65 6e 75 22 2c 2c  79 65 61 72 6d 65 6e 75  |eMenu",,yearmenu|
00001a20  25 2c 6d 6f 75 73 65 78  25 2d 34 38 2c 6d 6f 75  |%,mousex%-48,mou|
00001a30  73 65 79 25 2b 31 30 3a  73 65 6c 65 63 74 6d 65  |sey%+10:selectme|
00001a40  6e 75 25 3d 79 65 61 72  6d 65 6e 75 25 0d 07 62  |nu%=yearmenu%..b|
00001a50  61 c9 20 32 36 3a f2 72  65 64 72 61 77 5f 69 63  |a. 26:.redraw_ic|
00001a60  6f 6e 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |on:.. "Wimp_Crea|
00001a70  74 65 4d 65 6e 75 22 2c  2c 74 79 70 65 6d 65 6e  |teMenu",,typemen|
00001a80  75 25 2c 6d 6f 75 73 65  78 25 2d 34 38 2c 6d 6f  |u%,mousex%-48,mo|
00001a90  75 73 65 79 25 2b 31 30  3a 73 65 6c 65 63 74 6d  |usey%+10:selectm|
00001aa0  65 6e 75 25 3d 74 79 70  65 6d 65 6e 75 25 0d 07  |enu%=typemenu%..|
00001ab0  6c 63 7f 20 f2 63 6c 6f  73 65 28 63 64 5f 66 6f  |lc. .close(cd_fo|
00001ac0  75 6e 64 25 29 3a c8 99  20 22 57 69 6d 70 5f 43  |und%):.. "Wimp_C|
00001ad0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 61 69 6e  |reateMenu",,main|
00001ae0  6d 65 6e 75 25 2c 6d 6f  75 73 65 78 25 2d 34 38  |menu%,mousex%-48|
00001af0  2c 6d 6f 75 73 65 79 25  2b 31 30 3a 73 65 6c 65  |,mousey%+10:sele|
00001b00  63 74 6d 65 6e 75 25 3d  6d 61 69 6e 6d 65 6e 75  |ctmenu%=mainmenu|
00001b10  25 0d 07 76 05 cb 0d 07  80 23 e7 20 28 62 75 74  |%..v.....#. (but|
00001b20  74 6f 6e 25 20 80 20 35  29 3c 3e 30 20 8c 20 c8  |ton% . 5)<>0 . .|
00001b30  8e 20 69 63 6f 6e 25 20  ca 0d 07 8a 65 c9 20 31  |. icon% ....e. 1|
00001b40  38 3a f2 72 65 64 72 61  77 5f 69 63 6f 6e 3a c8  |8:.redraw_icon:.|
00001b50  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001b60  6e 75 22 2c 2c 66 6f 72  6d 61 74 6d 65 6e 75 25  |nu",,formatmenu%|
00001b70  2c 6d 6f 75 73 65 78 25  2d 34 38 2c 6d 6f 75 73  |,mousex%-48,mous|
00001b80  65 79 25 2b 31 30 3a 73  65 6c 65 63 74 6d 65 6e  |ey%+10:selectmen|
00001b90  75 25 3d 66 6f 72 6d 61  74 6d 65 6e 75 25 0d 07  |u%=formatmenu%..|
00001ba0  94 61 c9 20 31 39 3a f2  72 65 64 72 61 77 5f 69  |.a. 19:.redraw_i|
00001bb0  63 6f 6e 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |con:.. "Wimp_Cre|
00001bc0  61 74 65 4d 65 6e 75 22  2c 2c 73 69 7a 65 6d 65  |ateMenu",,sizeme|
00001bd0  6e 75 25 2c 6d 6f 75 73  65 78 25 2d 34 38 2c 6d  |nu%,mousex%-48,m|
00001be0  6f 75 73 65 79 25 2b 31  30 3a 73 65 6c 65 63 74  |ousey%+10:select|
00001bf0  6d 65 6e 75 25 3d 73 69  7a 65 6d 65 6e 75 25 0d  |menu%=sizemenu%.|
00001c00  07 9e 61 c9 20 32 30 3a  f2 72 65 64 72 61 77 5f  |..a. 20:.redraw_|
00001c10  69 63 6f 6e 3a c8 99 20  22 57 69 6d 70 5f 43 72  |icon:.. "Wimp_Cr|
00001c20  65 61 74 65 4d 65 6e 75  22 2c 2c 79 65 61 72 6d  |eateMenu",,yearm|
00001c30  65 6e 75 25 2c 6d 6f 75  73 65 78 25 2d 34 38 2c  |enu%,mousex%-48,|
00001c40  6d 6f 75 73 65 79 25 2b  31 30 3a 73 65 6c 65 63  |mousey%+10:selec|
00001c50  74 6d 65 6e 75 25 3d 79  65 61 72 6d 65 6e 75 25  |tmenu%=yearmenu%|
00001c60  0d 07 a8 61 c9 20 32 36  3a f2 72 65 64 72 61 77  |...a. 26:.redraw|
00001c70  5f 69 63 6f 6e 3a c8 99  20 22 57 69 6d 70 5f 43  |_icon:.. "Wimp_C|
00001c80  72 65 61 74 65 4d 65 6e  75 22 2c 2c 74 79 70 65  |reateMenu",,type|
00001c90  6d 65 6e 75 25 2c 6d 6f  75 73 65 78 25 2d 34 38  |menu%,mousex%-48|
00001ca0  2c 6d 6f 75 73 65 79 25  2b 31 30 3a 73 65 6c 65  |,mousey%+10:sele|
00001cb0  63 74 6d 65 6e 75 25 3d  74 79 70 65 6d 65 6e 75  |ctmenu%=typemenu|
00001cc0  25 0d 07 b2 05 cb 0d 07  bc 7c c9 20 63 64 5f 74  |%........|. cd_t|
00001cd0  72 61 63 6b 73 25 3a e7  20 62 75 74 74 6f 6e 25  |racks%:. button%|
00001ce0  3d 32 20 8c 20 f2 63 6c  6f 73 65 28 63 64 5f 66  |=2 . .close(cd_f|
00001cf0  6f 75 6e 64 25 29 3a c8  99 20 22 57 69 6d 70 5f  |ound%):.. "Wimp_|
00001d00  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 61 69  |CreateMenu",,mai|
00001d10  6e 6d 65 6e 75 25 2c 6d  6f 75 73 65 78 25 2d 34  |nmenu%,mousex%-4|
00001d20  38 2c 6d 6f 75 73 65 79  25 2b 31 30 3a 73 65 6c  |8,mousey%+10:sel|
00001d30  65 63 74 6d 65 6e 75 25  3d 6d 61 69 6e 6d 65 6e  |ectmenu%=mainmen|
00001d40  75 25 0d 07 c6 0e c9 20  63 64 5f 70 61 6e 65 25  |u%..... cd_pane%|
00001d50  0d 07 d0 6f e7 20 62 75  74 74 6f 6e 25 3d 32 20  |...o. button%=2 |
00001d60  8c 20 f2 63 6c 6f 73 65  28 63 64 5f 66 6f 75 6e  |. .close(cd_foun|
00001d70  64 25 29 3a c8 99 20 22  57 69 6d 70 5f 43 72 65  |d%):.. "Wimp_Cre|
00001d80  61 74 65 4d 65 6e 75 22  2c 2c 6d 61 69 6e 6d 65  |ateMenu",,mainme|
00001d90  6e 75 25 2c 6d 6f 75 73  65 78 25 2d 34 38 2c 6d  |nu%,mousex%-48,m|
00001da0  6f 75 73 65 79 25 2b 31  30 3a 73 65 6c 65 63 74  |ousey%+10:select|
00001db0  6d 65 6e 75 25 3d 6d 61  69 6e 6d 65 6e 75 25 0d  |menu%=mainmenu%.|
00001dc0  07 da 23 e7 20 28 62 75  74 74 6f 6e 25 20 80 20  |..#. (button% . |
00001dd0  35 29 3c 3e 30 20 8c 20  c8 8e 20 69 63 6f 6e 25  |5)<>0 . .. icon%|
00001de0  20 ca 0d 07 e4 41 c9 20  35 3a f2 72 65 64 72 61  | ....A. 5:.redra|
00001df0  77 5f 69 63 6f 6e 3a f2  6f 70 65 6e 28 63 64 5f  |w_icon:.open(cd_|
00001e00  74 72 61 63 6b 73 25 29  3a f2 6d 6f 76 65 5f 63  |tracks%):.move_c|
00001e10  61 72 65 74 28 63 64 5f  74 72 61 63 6b 73 25 2c  |aret(cd_tracks%,|
00001e20  32 34 29 0d 07 ee 07 c9  20 32 0d 07 f8 26 f2 72  |24)..... 2...&.r|
00001e30  65 64 72 61 77 5f 69 63  6f 6e 3a f2 72 65 61 64  |edraw_icon:.read|
00001e40  3a f2 72 65 61 64 5f 74  72 61 63 6b 6c 69 73 74  |:.read_tracklist|
00001e50  0d 08 02 24 e7 20 62 75  74 74 6f 6e 25 3d 34 20  |...$. button%=4 |
00001e60  8c 20 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |. record_number%|
00001e70  2d 3d 31 30 0d 08 0c 24  e7 20 62 75 74 74 6f 6e  |-=10...$. button|
00001e80  25 3d 31 20 8c 20 72 65  63 6f 72 64 5f 6e 75 6d  |%=1 . record_num|
00001e90  62 65 72 25 2b 3d 31 30  0d 08 16 2f e7 20 62 75  |ber%+=10.../. bu|
00001ea0  74 74 6f 6e 25 3d 32 20  8c 20 72 65 63 6f 72 64  |tton%=2 . record|
00001eb0  5f 6e 75 6d 62 65 72 25  3d 72 65 63 6f 72 64 5f  |_number%=record_|
00001ec0  6e 75 6d 62 65 72 25 0d  08 20 0b f2 75 70 64 61  |number%.. ..upda|
00001ed0  74 65 0d 08 2a 07 c9 20  30 0d 08 34 26 f2 72 65  |te..*.. 0..4&.re|
00001ee0  64 72 61 77 5f 69 63 6f  6e 3a f2 72 65 61 64 3a  |draw_icon:.read:|
00001ef0  f2 72 65 61 64 5f 74 72  61 63 6b 6c 69 73 74 0d  |.read_tracklist.|
00001f00  08 3e 23 e7 20 62 75 74  74 6f 6e 25 3d 34 20 8c  |.>#. button%=4 .|
00001f10  20 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 2d  | record_number%-|
00001f20  3d 31 0d 08 48 23 e7 20  62 75 74 74 6f 6e 25 3d  |=1..H#. button%=|
00001f30  31 20 8c 20 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |1 . record_numbe|
00001f40  72 25 2b 3d 31 0d 08 52  2f e7 20 62 75 74 74 6f  |r%+=1..R/. butto|
00001f50  6e 25 3d 32 20 8c 20 72  65 63 6f 72 64 5f 6e 75  |n%=2 . record_nu|
00001f60  6d 62 65 72 25 3d 72 65  63 6f 72 64 5f 6e 75 6d  |mber%=record_num|
00001f70  62 65 72 25 0d 08 5c 0b  f2 75 70 64 61 74 65 0d  |ber%..\..update.|
00001f80  08 66 07 c9 20 31 0d 08  70 26 f2 72 65 64 72 61  |.f.. 1..p&.redra|
00001f90  77 5f 69 63 6f 6e 3a f2  72 65 61 64 3a f2 72 65  |w_icon:.read:.re|
00001fa0  61 64 5f 74 72 61 63 6b  6c 69 73 74 0d 08 7a 23  |ad_tracklist..z#|
00001fb0  e7 20 62 75 74 74 6f 6e  25 3d 34 20 8c 20 72 65  |. button%=4 . re|
00001fc0  63 6f 72 64 5f 6e 75 6d  62 65 72 25 2b 3d 31 0d  |cord_number%+=1.|
00001fd0  08 84 23 e7 20 62 75 74  74 6f 6e 25 3d 31 20 8c  |..#. button%=1 .|
00001fe0  20 72 65 63 6f 72 64 5f  6e 75 6d 62 65 72 25 2d  | record_number%-|
00001ff0  3d 31 0d 08 8e 2f e7 20  62 75 74 74 6f 6e 25 3d  |=1.../. button%=|
00002000  32 20 8c 20 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |2 . record_numbe|
00002010  72 25 3d 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |r%=record_number|
00002020  25 0d 08 98 0b f2 75 70  64 61 74 65 0d 08 a2 07  |%.....update....|
00002030  c9 20 33 0d 08 ac 26 f2  72 65 64 72 61 77 5f 69  |. 3...&.redraw_i|
00002040  63 6f 6e 3a f2 72 65 61  64 3a f2 72 65 61 64 5f  |con:.read:.read_|
00002050  74 72 61 63 6b 6c 69 73  74 0d 08 b6 24 e7 20 62  |tracklist...$. b|
00002060  75 74 74 6f 6e 25 3d 34  20 8c 20 72 65 63 6f 72  |utton%=4 . recor|
00002070  64 5f 6e 75 6d 62 65 72  25 2b 3d 31 30 0d 08 c0  |d_number%+=10...|
00002080  24 e7 20 62 75 74 74 6f  6e 25 3d 31 20 8c 20 72  |$. button%=1 . r|
00002090  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 2d 3d 31  |ecord_number%-=1|
000020a0  30 0d 08 ca 2f e7 20 62  75 74 74 6f 6e 25 3d 32  |0.../. button%=2|
000020b0  20 8c 20 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  | . record_number|
000020c0  25 3d 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |%=record_number%|
000020d0  0d 08 d4 0b f2 75 70 64  61 74 65 0d 08 de 05 cb  |.....update.....|
000020e0  0d 08 e8 2e c9 20 63 64  5f 68 65 6c 70 25 3a e7  |..... cd_help%:.|
000020f0  20 28 62 75 74 74 6f 6e  25 20 80 20 35 29 3c 3e  | (button% . 5)<>|
00002100  30 20 8c 20 c8 8e 20 69  63 6f 6e 25 20 ca 0d 08  |0 . .. icon% ...|
00002110  f2 25 c9 20 32 3a f2 72  65 64 72 61 77 5f 69 63  |.%. 2:.redraw_ic|
00002120  6f 6e 3a f2 63 6c 6f 73  65 28 63 64 5f 68 65 6c  |on:.close(cd_hel|
00002130  70 25 29 0d 08 fc 05 cb  0d 09 06 30 c9 20 63 64  |p%)........0. cd|
00002140  5f 73 61 76 65 62 6f 78  25 3a e7 20 28 62 75 74  |_savebox%:. (but|
00002150  74 6f 6e 25 20 80 20 35  29 3c 3e 30 20 8c c8 8e  |ton% . 5)<>0 ...|
00002160  20 69 63 6f 6e 25 20 ca  0d 09 10 10 c9 20 30 3a  | icon% ...... 0:|
00002170  f2 64 72 61 67 62 6f 78  0d 09 1a 1f c9 20 32 3a  |.dragbox..... 2:|
00002180  f2 72 65 64 72 61 77 5f  69 63 6f 6e 3a f2 71 75  |.redraw_icon:.qu|
00002190  69 63 6b 73 61 76 65 0d  09 24 58 c9 20 33 3a 73  |icksave..$X. 3:s|
000021a0  61 76 65 74 79 70 65 24  3d 22 44 39 30 22 3a f2  |avetype$="D90":.|
000021b0  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 73  |update_icon(cd_s|
000021c0  61 76 65 62 6f 78 25 2c  31 2c 22 43 44 49 6e 64  |avebox%,1,"CDInd|
000021d0  65 78 22 29 3a f2 6d 6f  76 65 5f 63 61 72 65 74  |ex"):.move_caret|
000021e0  28 63 64 5f 73 61 76 65  62 6f 78 25 2c 31 29 0d  |(cd_savebox%,1).|
000021f0  09 2e 59 c9 20 34 3a 73  61 76 65 74 79 70 65 24  |..Y. 4:savetype$|
00002200  3d 22 46 46 46 22 3a f2  75 70 64 61 74 65 5f 69  |="FFF":.update_i|
00002210  63 6f 6e 28 63 64 5f 73  61 76 65 62 6f 78 25 2c  |con(cd_savebox%,|
00002220  31 2c 22 54 65 78 74 46  69 6c 65 22 29 3a f2 6d  |1,"TextFile"):.m|
00002230  6f 76 65 5f 63 61 72 65  74 28 63 64 5f 73 61 76  |ove_caret(cd_sav|
00002240  65 62 6f 78 25 2c 31 29  0d 09 38 05 cb 0d 09 42  |ebox%,1)..8....B|
00002250  30 c9 20 63 64 5f 73 65  61 72 63 68 25 3a e7 20  |0. cd_search%:. |
00002260  28 62 75 74 74 6f 6e 25  20 80 20 35 29 3c 3e 30  |(button% . 5)<>0|
00002270  20 8c 20 c8 8e 20 69 63  6f 6e 25 20 ca 0d 09 4c  | . .. icon% ...L|
00002280  1c c9 20 33 3a 73 65 61  72 63 68 74 79 70 65 24  |.. 3:searchtype$|
00002290  3d 22 41 72 74 69 73 74  22 0d 09 56 1b c9 20 34  |="Artist"..V.. 4|
000022a0  3a 73 65 61 72 63 68 74  79 70 65 24 3d 22 54 69  |:searchtype$="Ti|
000022b0  74 6c 65 22 0d 09 60 1c  c9 20 38 3a 73 65 61 72  |tle"..`.. 8:sear|
000022c0  63 68 74 79 70 65 24 3d  22 54 72 61 63 6b 73 22  |chtype$="Tracks"|
000022d0  0d 09 6a 37 c9 20 35 3a  f2 72 65 64 72 61 77 5f  |..j7. 5:.redraw_|
000022e0  69 63 6f 6e 3a f2 63 6c  65 61 72 5f 73 65 61 72  |icon:.clear_sear|
000022f0  63 68 3a f2 73 65 61 72  63 68 28 73 65 61 72 63  |ch:.search(searc|
00002300  68 74 79 70 65 24 29 0d  09 74 57 c9 20 37 3a f2  |htype$)..tW. 7:.|
00002310  72 65 64 72 61 77 5f 69  63 6f 6e 3a f2 75 70 64  |redraw_icon:.upd|
00002320  61 74 65 5f 69 63 6f 6e  28 63 64 5f 73 65 61 72  |ate_icon(cd_sear|
00002330  63 68 25 2c 31 2c 73 65  61 72 63 68 73 74 72 69  |ch%,1,searchstri|
00002340  6e 67 24 29 3a f2 6d 6f  76 65 5f 63 61 72 65 74  |ng$):.move_caret|
00002350  28 63 64 5f 73 65 61 72  63 68 25 2c 31 29 0d 09  |(cd_search%,1)..|
00002360  7e 05 cb 0d 09 88 24 c9  20 63 64 5f 66 6f 75 6e  |~.....$. cd_foun|
00002370  64 25 3a e7 20 28 62 75  74 74 6f 6e 25 20 80 20  |d%:. (button% . |
00002380  35 29 3c 3e 30 20 8c 0d  09 92 5f 63 6c 69 63 6b  |5)<>0 ...._click|
00002390  5f 72 65 63 6f 72 64 25  3d bb 28 a4 69 6e 64 69  |_record%=.(.indi|
000023a0  72 65 63 74 28 63 64 5f  66 6f 75 6e 64 25 2c 69  |rect(cd_found%,i|
000023b0  63 6f 6e 25 29 29 3a e7  20 63 6c 69 63 6b 5f 72  |con%)):. click_r|
000023c0  65 63 6f 72 64 25 3c 3e  30 20 8c 20 f2 72 65 61  |ecord%<>0 . .rea|
000023d0  64 3a f2 66 69 6c 6c 28  63 6c 69 63 6b 5f 72 65  |d:.fill(click_re|
000023e0  63 6f 72 64 25 29 0d 09  9c 05 cd 0d 09 a6 2f c9  |cord%)......../.|
000023f0  20 63 64 5f 70 72 69 6e  74 25 3a e7 20 28 62 75  | cd_print%:. (bu|
00002400  74 74 6f 6e 25 20 80 20  35 29 3c 3e 30 20 8c 20  |tton% . 5)<>0 . |
00002410  c8 8e 20 69 63 6f 6e 25  20 ca 0d 09 b0 18 c9 20  |.. icon% ...... |
00002420  31 3a 70 72 69 6e 74 65  72 24 3d 22 44 72 61 66  |1:printer$="Draf|
00002430  74 22 0d 09 ba 16 c9 20  32 3a 70 72 69 6e 74 65  |t"..... 2:printe|
00002440  72 24 3d 22 4e 4c 51 22  0d 09 c4 1b c9 20 37 3a  |r$="NLQ"..... 7:|
00002450  f2 72 65 64 72 61 77 5f  69 63 6f 6e 3a f2 70 72  |.redraw_icon:.pr|
00002460  69 6e 74 0d 09 ce 17 c9  20 39 3a 70 72 69 6e 74  |int..... 9:print|
00002470  77 68 61 74 24 3d 22 41  54 22 0d 09 d8 1a c9 20  |what$="AT"..... |
00002480  31 31 3a 70 72 69 6e 74  77 68 61 74 24 3d 22 43  |11:printwhat$="C|
00002490  61 73 73 22 0d 09 e2 19  c9 20 31 30 3a 70 72 69  |ass"..... 10:pri|
000024a0  6e 74 77 68 61 74 24 3d  22 41 6c 6c 22 0d 09 ec  |ntwhat$="All"...|
000024b0  05 cb 0d 09 f6 2f c9 20  63 64 5f 63 6c 65 61 72  |...../. cd_clear|
000024c0  25 3a e7 20 28 62 75 74  74 6f 6e 25 20 80 20 35  |%:. (button% . 5|
000024d0  29 3c 3e 30 20 8c 20 c8  8e 20 69 63 6f 6e 25 20  |)<>0 . .. icon% |
000024e0  ca 0d 0a 00 20 c9 20 31  3a f2 72 65 64 72 61 77  |.... . 1:.redraw|
000024f0  5f 69 63 6f 6e 3a f2 63  6c 65 61 72 5f 64 61 74  |_icon:.clear_dat|
00002500  61 0d 0a 0a 14 c9 20 32  3a f2 72 65 64 72 61 77  |a..... 2:.redraw|
00002510  5f 69 63 6f 6e 0d 0a 14  27 f2 63 6c 6f 73 65 28  |_icon...'.close(|
00002520  63 64 5f 63 6c 65 61 72  25 29 3a c8 97 20 c8 93  |cd_clear%):.. ..|
00002530  20 30 2c 30 2c 63 78 25  2c 63 79 25 0d 0a 1e 05  | 0,0,cx%,cy%....|
00002540  cb 0d 0a 28 2e c9 20 63  64 5f 71 75 69 74 25 3a  |...(.. cd_quit%:|
00002550  e7 20 28 62 75 74 74 6f  6e 25 20 80 20 35 29 3c  |. (button% . 5)<|
00002560  3e 30 20 8c 20 c8 8e 20  69 63 6f 6e 25 20 ca 0d  |>0 . .. icon% ..|
00002570  0a 32 1c c9 20 31 3a f2  72 65 64 72 61 77 5f 69  |.2.. 1:.redraw_i|
00002580  63 6f 6e 3a 71 75 69 74  25 3d b9 0d 0a 3c 14 c9  |con:quit%=...<..|
00002590  20 32 3a f2 72 65 64 72  61 77 5f 69 63 6f 6e 0d  | 2:.redraw_icon.|
000025a0  0a 46 26 f2 63 6c 6f 73  65 28 63 64 5f 71 75 69  |.F&.close(cd_qui|
000025b0  74 25 29 3a c8 97 20 c8  93 20 30 2c 30 2c 63 78  |t%):.. .. 0,0,cx|
000025c0  25 2c 63 79 25 0d 0a 50  05 cb 0d 0a 5a 2e c9 20  |%,cy%..P....Z.. |
000025d0  63 64 5f 73 6f 72 74 25  3a e7 20 28 62 75 74 74  |cd_sort%:. (butt|
000025e0  6f 6e 25 20 80 20 35 29  3c 3e 30 20 8c 20 c8 8e  |on% . 5)<>0 . ..|
000025f0  20 69 63 6f 6e 25 20 ca  0d 0a 64 18 c9 20 30 3a  | icon% ...d.. 0:|
00002600  73 6f 72 74 5f 73 65 6c  65 63 74 65 64 25 3d 30  |sort_selected%=0|
00002610  0d 0a 6e 18 c9 20 31 3a  73 6f 72 74 5f 73 65 6c  |..n.. 1:sort_sel|
00002620  65 63 74 65 64 25 3d 31  0d 0a 78 1b c9 20 32 3a  |ected%=1..x.. 2:|
00002630  c8 8e 20 73 6f 72 74 5f  73 65 6c 65 63 74 65 64  |.. sort_selected|
00002640  25 20 ca 0d 0a 82 21 c9  20 30 3a f2 72 65 64 72  |% ....!. 0:.redr|
00002650  61 77 5f 69 63 6f 6e 3a  f2 73 6f 72 74 5f 61 72  |aw_icon:.sort_ar|
00002660  74 69 73 74 0d 0a 8c 20  c9 20 31 3a f2 72 65 64  |tist... . 1:.red|
00002670  72 61 77 5f 69 63 6f 6e  3a f2 73 6f 72 74 5f 74  |raw_icon:.sort_t|
00002680  69 74 6c 65 0d 0a 96 05  cb 0d 0a a0 05 cb 0d 0a  |itle............|
00002690  aa 05 cb 0d 0a b4 05 e1  0d 0a be 05 3a 0d 0a c8  |............:...|
000026a0  36 dd f2 6b 65 79 5f 70  72 65 73 73 65 64 28 77  |6..key_pressed(w|
000026b0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 6b 65 79  |indow%,icon%,key|
000026c0  5f 69 6e 64 65 78 25 2c  63 68 61 72 61 63 74 65  |_index%,characte|
000026d0  72 25 29 0d 0a d2 13 c8  8e 20 63 68 61 72 61 63  |r%)...... charac|
000026e0  74 65 72 25 20 ca 0d 0a  dc 08 c9 20 31 33 0d 0a  |ter% ...... 13..|
000026f0  e6 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 0a  |.... window% ...|
00002700  f0 1c c9 20 63 64 5f 73  61 76 65 62 6f 78 25 3a  |... cd_savebox%:|
00002710  f2 71 75 69 63 6b 73 61  76 65 0d 0a fa 0f c9 20  |.quicksave..... |
00002720  63 64 5f 70 72 69 6e 74  25 0d 0b 04 0e c8 8e 20  |cd_print%...... |
00002730  69 63 6f 6e 25 20 ca 0d  0b 0e 21 c9 20 36 3a f2  |icon% ....!. 6:.|
00002740  6d 6f 76 65 5f 63 61 72  65 74 28 63 64 5f 70 72  |move_caret(cd_pr|
00002750  69 6e 74 25 2c 31 33 29  0d 0b 18 0f c9 20 31 33  |int%,13)..... 13|
00002760  3a f2 70 72 69 6e 74 0d  0b 22 05 cb 0d 0b 2c 1d  |:.print.."....,.|
00002770  c9 20 63 64 5f 70 61 6e  65 25 3a f2 6e 75 6d 62  |. cd_pane%:.numb|
00002780  65 72 5f 75 70 64 61 74  65 0d 0b 36 33 c9 20 63  |er_update..63. c|
00002790  64 5f 73 65 61 72 63 68  25 3a f2 63 6c 65 61 72  |d_search%:.clear|
000027a0  5f 73 65 61 72 63 68 3a  f2 73 65 61 72 63 68 28  |_search:.search(|
000027b0  73 65 61 72 63 68 74 79  70 65 24 29 0d 0b 40 3b  |searchtype$)..@;|
000027c0  c9 20 63 64 5f 74 72 61  63 6b 73 25 3a f2 72 65  |. cd_tracks%:.re|
000027d0  61 64 5f 74 72 61 63 6b  6c 69 73 74 3a f2 63 61  |ad_tracklist:.ca|
000027e0  72 65 74 28 63 64 5f 74  72 61 63 6b 73 25 2c 69  |ret(cd_tracks%,i|
000027f0  63 6f 6e 25 2c 31 29 0d  0b 4a 0f c9 20 63 64 5f  |con%,1)..J.. cd_|
00002800  69 6e 64 65 78 25 0d 0b  54 0e c8 8e 20 69 63 6f  |index%..T... ico|
00002810  6e 25 20 ca 0d 0b 5e 40  c9 20 31 36 3a f2 63 61  |n% ...^@. 16:.ca|
00002820  72 65 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ret(window%,icon|
00002830  25 2c 31 29 3a f2 72 65  61 64 3a 72 65 63 6f 72  |%,1):.read:recor|
00002840  64 5f 6e 75 6d 62 65 72  25 2b 3d 31 3a f2 75 70  |d_number%+=1:.up|
00002850  64 61 74 65 0d 0b 68 23  7f 3a f2 63 61 72 65 74  |date..h#.:.caret|
00002860  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 31  |(window%,icon%,1|
00002870  29 3a f2 72 65 61 64 0d  0b 72 05 cb 0d 0b 7c 05  |):.read..r....|.|
00002880  cb 0d 0b 86 13 c9 20 32  37 3a f2 63 6c 6f 73 65  |...... 27:.close|
00002890  5f 61 6c 6c 0d 0b 90 09  c9 20 26 31 45 0d 0b 9a  |_all..... &1E...|
000028a0  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 0b a4  |... window% ....|
000028b0  2e c9 20 63 64 5f 69 6e  64 65 78 25 3a f2 6d 6f  |.. cd_index%:.mo|
000028c0  76 65 5f 63 61 72 65 74  28 63 64 5f 69 6e 64 65  |ve_caret(cd_inde|
000028d0  78 25 2c 39 29 3a f2 72  65 61 64 0d 0b ae 3b c9  |x%,9):.read...;.|
000028e0  20 63 64 5f 74 72 61 63  6b 73 25 3a f2 6d 6f 76  | cd_tracks%:.mov|
000028f0  65 5f 63 61 72 65 74 28  63 64 5f 74 72 61 63 6b  |e_caret(cd_track|
00002900  73 25 2c 32 34 29 3a f2  72 65 61 64 5f 74 72 61  |s%,24):.read_tra|
00002910  63 6b 6c 69 73 74 0d 0b  b8 05 cb 0d 0b c2 34 c9  |cklist........4.|
00002920  20 26 31 38 39 3a f2 6f  70 65 6e 28 63 64 5f 70  | &189:.open(cd_p|
00002930  72 69 6e 74 25 29 3a f2  6d 6f 76 65 5f 63 61 72  |rint%):.move_car|
00002940  65 74 28 63 64 5f 70 72  69 6e 74 25 2c 36 29 0d  |et(cd_print%,6).|
00002950  0b cc 1a c9 20 26 31 38  31 3a f2 6f 70 65 6e 28  |.... &181:.open(|
00002960  63 64 5f 68 65 6c 70 25  29 0d 0b d6 1a c9 20 26  |cd_help%)..... &|
00002970  31 38 32 3a f2 6f 70 65  6e 28 63 64 5f 73 6f 72  |182:.open(cd_sor|
00002980  74 25 29 0d 0b e0 38 c9  20 26 31 38 33 3a f2 6f  |t%)...8. &183:.o|
00002990  70 65 6e 28 63 64 5f 73  61 76 65 62 6f 78 25 29  |pen(cd_savebox%)|
000029a0  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 63 64 5f  |:.move_caret(cd_|
000029b0  73 61 76 65 62 6f 78 25  2c 31 29 0d 0b ea 48 c9  |savebox%,1)...H.|
000029c0  20 26 31 38 34 3a f2 63  6c 6f 73 65 28 63 64 5f  | &184:.close(cd_|
000029d0  66 6f 75 6e 64 25 29 3a  f2 6f 70 65 6e 28 63 64  |found%):.open(cd|
000029e0  5f 73 65 61 72 63 68 25  29 3a f2 6d 6f 76 65 5f  |_search%):.move_|
000029f0  63 61 72 65 74 28 63 64  5f 73 65 61 72 63 68 25  |caret(cd_search%|
00002a00  2c 31 29 0d 0b f4 2f c9  20 26 31 38 35 3a f2 73  |,1).../. &185:.s|
00002a10  77 61 70 5f 63 61 73 65  28 77 69 6e 64 6f 77 25  |wap_case(window%|
00002a20  2c 69 63 6f 6e 25 2c 6b  65 79 5f 69 6e 64 65 78  |,icon%,key_index|
00002a30  25 29 0d 0b fe 84 c9 20  26 31 38 36 3a 54 65 78  |%)..... &186:Tex|
00002a40  74 24 3d c2 a4 72 65 61  64 5f 69 63 6f 6e 5f 74  |t$=..read_icon_t|
00002a50  65 78 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ext(window%,icon|
00002a60  25 2c a3 29 2c 6b 65 79  5f 69 6e 64 65 78 25 29  |%,.),key_index%)|
00002a70  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 77 69  |:.update_icon(wi|
00002a80  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 54 65 78 74  |ndow%,icon%,Text|
00002a90  24 29 3a f2 5f 53 65 74  43 61 72 65 74 50 6f 73  |$):._SetCaretPos|
00002aa0  69 74 69 6f 6e 28 77 69  6e 64 6f 77 25 2c 69 63  |ition(window%,ic|
00002ab0  6f 6e 25 2c 30 29 0d 0c  08 60 c9 20 26 31 38 37  |on%,0)...`. &187|
00002ac0  3a 54 65 78 74 24 3d c0  a4 72 65 61 64 5f 69 63  |:Text$=..read_ic|
00002ad0  6f 6e 5f 74 65 78 74 28  77 69 6e 64 6f 77 25 2c  |on_text(window%,|
00002ae0  69 63 6f 6e 25 2c a3 29  2c 6b 65 79 5f 69 6e 64  |icon%,.),key_ind|
00002af0  65 78 25 29 3a f2 75 70  64 61 74 65 5f 69 63 6f  |ex%):.update_ico|
00002b00  6e 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |n(window%,icon%,|
00002b10  54 65 78 74 24 29 0d 0c  12 1f c9 20 26 31 38 38  |Text$)..... &188|
00002b20  3a f2 63 6c 65 61 72 5f  64 61 74 61 5f 71 75 65  |:.clear_data_que|
00002b30  73 74 69 6f 6e 0d 0c 1c  0a c9 20 26 31 38 45 0d  |stion..... &18E.|
00002b40  0c 26 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |.&... window% ..|
00002b50  0c 30 2d c9 20 63 64 5f  69 6e 64 65 78 25 3a f2  |.0-. cd_index%:.|
00002b60  72 65 61 64 3a f2 63 61  72 65 74 28 77 69 6e 64  |read:.caret(wind|
00002b70  6f 77 25 2c 69 63 6f 6e  25 2c 31 29 0d 0c 3a 38  |ow%,icon%,1)..:8|
00002b80  c9 20 63 64 5f 74 72 61  63 6b 73 25 3a f2 72 65  |. cd_tracks%:.re|
00002b90  61 64 5f 74 72 61 63 6b  6c 69 73 74 3a f2 63 61  |ad_tracklist:.ca|
00002ba0  72 65 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ret(window%,icon|
00002bb0  25 2c 31 29 0d 0c 44 05  cb 0d 0c 4e 0a c9 20 26  |%,1)..D....N.. &|
00002bc0  31 38 46 0d 0c 58 10 c8  8e 20 77 69 6e 64 6f 77  |18F..X... window|
00002bd0  25 20 ca 0d 0c 62 2e c9  20 63 64 5f 69 6e 64 65  |% ...b.. cd_inde|
00002be0  78 25 3a f2 72 65 61 64  3a f2 63 61 72 65 74 28  |x%:.read:.caret(|
00002bf0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2d 31  |window%,icon%,-1|
00002c00  29 0d 0c 6c 39 c9 20 63  64 5f 74 72 61 63 6b 73  |)..l9. cd_tracks|
00002c10  25 3a f2 72 65 61 64 5f  74 72 61 63 6b 6c 69 73  |%:.read_tracklis|
00002c20  74 3a f2 63 61 72 65 74  28 77 69 6e 64 6f 77 25  |t:.caret(window%|
00002c30  2c 69 63 6f 6e 25 2c 2d  31 29 0d 0c 76 05 cb 0d  |,icon%,-1)..v...|
00002c40  0c 80 0a c9 20 26 31 41  45 0d 0c 8a 10 c8 8e 20  |.... &1AE...... |
00002c50  77 69 6e 64 6f 77 25 20  ca 0d 0c 94 2f c9 20 63  |window% ..../. c|
00002c60  64 5f 69 6e 64 65 78 25  3a f2 6d 6f 76 65 5f 63  |d_index%:.move_c|
00002c70  61 72 65 74 28 63 64 5f  69 6e 64 65 78 25 2c 31  |aret(cd_index%,1|
00002c80  36 29 3a f2 72 65 61 64  0d 0c 9e 3b c9 20 63 64  |6):.read...;. cd|
00002c90  5f 74 72 61 63 6b 73 25  3a f2 6d 6f 76 65 5f 63  |_tracks%:.move_c|
00002ca0  61 72 65 74 28 63 64 5f  74 72 61 63 6b 73 25 2c  |aret(cd_tracks%,|
00002cb0  34 37 29 3a f2 72 65 61  64 5f 74 72 61 63 6b 6c  |47):.read_trackl|
00002cc0  69 73 74 0d 0c a8 05 cb  0d 0c b2 0a c9 20 26 31  |ist.......... &1|
00002cd0  41 46 0d 0c bc 10 c8 8e  20 77 69 6e 64 6f 77 25  |AF...... window%|
00002ce0  20 ca 0d 0c c6 2e c9 20  63 64 5f 69 6e 64 65 78  | ...... cd_index|
00002cf0  25 3a f2 6d 6f 76 65 5f  63 61 72 65 74 28 63 64  |%:.move_caret(cd|
00002d00  5f 69 6e 64 65 78 25 2c  39 29 3a f2 72 65 61 64  |_index%,9):.read|
00002d10  0d 0c d0 3b c9 20 63 64  5f 74 72 61 63 6b 73 25  |...;. cd_tracks%|
00002d20  3a f2 6d 6f 76 65 5f 63  61 72 65 74 28 63 64 5f  |:.move_caret(cd_|
00002d30  74 72 61 63 6b 73 25 2c  32 34 29 3a f2 72 65 61  |tracks%,24):.rea|
00002d40  64 5f 74 72 61 63 6b 6c  69 73 74 0d 0c da 05 cb  |d_tracklist.....|
00002d50  0d 0c e4 25 7f 20 c8 99  20 22 57 69 6d 70 5f 50  |...%. .. "Wimp_P|
00002d60  72 6f 63 65 73 73 4b 65  79 22 2c 63 68 61 72 61  |rocessKey",chara|
00002d70  63 74 65 72 25 0d 0c ee  05 cb 0d 0c f8 05 e1 0d  |cter%...........|
00002d80  0d 02 05 3a 0d 0d 0c 29  dd f2 63 61 72 65 74 28  |...:...)..caret(|
00002d90  63 61 72 65 74 5f 77 69  6e 64 6f 77 25 2c 6f 6c  |caret_window%,ol|
00002da0  64 5f 69 63 6f 6e 25 2c  69 6e 63 25 29 0d 0d 16  |d_icon%,inc%)...|
00002db0  16 c8 8e 20 63 61 72 65  74 5f 77 69 6e 64 6f 77  |... caret_window|
00002dc0  25 20 ca 0d 0d 20 0f c9  20 63 64 5f 69 6e 64 65  |% ... .. cd_inde|
00002dd0  78 25 0d 0d 2a 1d 6e 65  78 74 5f 69 63 6f 6e 25  |x%..*.next_icon%|
00002de0  3d 6f 6c 64 5f 69 63 6f  6e 25 2b 69 6e 63 25 0d  |=old_icon%+inc%.|
00002df0  0d 34 22 e7 20 6e 65 78  74 5f 69 63 6f 6e 25 3e  |.4". next_icon%>|
00002e00  31 36 20 8c 20 6e 65 78  74 5f 69 63 6f 6e 25 3d  |16 . next_icon%=|
00002e10  39 0d 0d 3e 22 e7 20 6e  65 78 74 5f 69 63 6f 6e  |9..>". next_icon|
00002e20  25 3c 39 20 8c 20 6e 65  78 74 5f 69 63 6f 6e 25  |%<9 . next_icon%|
00002e30  3d 31 36 0d 0d 48 25 f2  6d 6f 76 65 5f 63 61 72  |=16..H%.move_car|
00002e40  65 74 28 63 64 5f 69 6e  64 65 78 25 2c 6e 65 78  |et(cd_index%,nex|
00002e50  74 5f 69 63 6f 6e 25 29  0d 0d 52 10 c9 20 63 64  |t_icon%)..R.. cd|
00002e60  5f 74 72 61 63 6b 73 25  0d 0d 5c 1d 6e 65 78 74  |_tracks%..\.next|
00002e70  5f 69 63 6f 6e 25 3d 6f  6c 64 5f 69 63 6f 6e 25  |_icon%=old_icon%|
00002e80  2b 69 6e 63 25 0d 0d 66  23 e7 20 6e 65 78 74 5f  |+inc%..f#. next_|
00002e90  69 63 6f 6e 25 3e 34 37  20 8c 20 6e 65 78 74 5f  |icon%>47 . next_|
00002ea0  69 63 6f 6e 25 3d 32 34  0d 0d 70 23 e7 20 6e 65  |icon%=24..p#. ne|
00002eb0  78 74 5f 69 63 6f 6e 25  3c 32 34 20 8c 20 6e 65  |xt_icon%<24 . ne|
00002ec0  78 74 5f 69 63 6f 6e 25  3d 34 37 0d 0d 7a 26 f2  |xt_icon%=47..z&.|
00002ed0  6d 6f 76 65 5f 63 61 72  65 74 28 63 64 5f 74 72  |move_caret(cd_tr|
00002ee0  61 63 6b 73 25 2c 6e 65  78 74 5f 69 63 6f 6e 25  |acks%,next_icon%|
00002ef0  29 0d 0d 84 05 cb 0d 0d  8e 05 e1 0d 0d 98 05 3a  |)..............:|
00002f00  0d 0d a2 1f dd f2 6d 6f  76 65 5f 63 61 72 65 74  |......move_caret|
00002f10  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00002f20  0d ac 31 c8 99 20 22 57  69 6d 70 5f 53 65 74 43  |..1.. "Wimp_SetC|
00002f30  61 72 65 74 50 6f 73 69  74 69 6f 6e 22 2c 77 69  |aretPosition",wi|
00002f40  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 2c 2c 2d 31  |ndow%,icon%,,,-1|
00002f50  0d 0d b6 05 e1 0d 0d c0  05 3a 0d 0d ca 11 dd f2  |.........:......|
00002f60  6d 65 6e 75 5f 73 65 6c  65 63 74 0d 0d d4 1b ea  |menu_select.....|
00002f70  20 73 65 6c 65 63 74 69  6f 6e 25 2c 73 65 6c 65  | selection%,sele|
00002f80  63 74 69 6f 6e 24 0d 0d  de 14 de 20 73 65 6c 65  |ction$..... sele|
00002f90  63 74 69 6f 6e 25 20 32  35 35 0d 0d e8 33 c8 99  |ction% 255...3..|
00002fa0  20 22 57 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  | "Wimp_DecodeMen|
00002fb0  75 22 2c 2c 73 65 6c 65  63 74 6d 65 6e 75 25 2c  |u",,selectmenu%,|
00002fc0  71 25 2c 73 65 6c 65 63  74 69 6f 6e 25 0d 0d f2  |q%,selection%...|
00002fd0  1a 73 65 6c 65 63 74 69  6f 6e 24 3d 24 73 65 6c  |.selection$=$sel|
00002fe0  65 63 74 69 6f 6e 25 0d  0d fc 13 c8 8e 20 73 65  |ection%...... se|
00002ff0  6c 65 63 74 69 6f 6e 24  20 ca 0d 0e 06 36 c9 20  |lection$ ....6. |
00003000  22 43 44 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |"CD":.update_ico|
00003010  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 31 2c 73  |n(cd_index%,11,s|
00003020  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
00003030  0d 0e 10 3a c9 20 22 43  44 2d 52 4f 4d 22 3a f2  |...:. "CD-ROM":.|
00003040  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 69  |update_icon(cd_i|
00003050  6e 64 65 78 25 2c 31 31  2c 73 65 6c 65 63 74 69  |ndex%,11,selecti|
00003060  6f 6e 24 29 3a f2 72 65  61 64 0d 0e 1a 37 c9 20  |on$):.read...7. |
00003070  22 44 41 54 22 3a f2 75  70 64 61 74 65 5f 69 63  |"DAT":.update_ic|
00003080  6f 6e 28 63 64 5f 69 6e  64 65 78 25 2c 31 31 2c  |on(cd_index%,11,|
00003090  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
000030a0  64 0d 0e 24 36 c9 20 22  4c 50 22 3a f2 75 70 64  |d..$6. "LP":.upd|
000030b0  61 74 65 5f 69 63 6f 6e  28 63 64 5f 69 6e 64 65  |ate_icon(cd_inde|
000030c0  78 25 2c 31 31 2c 73 65  6c 65 63 74 69 6f 6e 24  |x%,11,selection$|
000030d0  29 3a f2 72 65 61 64 0d  0e 2e 38 c9 20 22 54 61  |):.read...8. "Ta|
000030e0  70 65 22 3a f2 75 70 64  61 74 65 5f 69 63 6f 6e  |pe":.update_icon|
000030f0  28 63 64 5f 69 6e 64 65  78 25 2c 31 31 2c 73 65  |(cd_index%,11,se|
00003100  6c 65 63 74 69 6f 6e 24  29 3a f2 72 65 61 64 0d  |lection$):.read.|
00003110  0e 38 3e c9 20 22 37 22  22 20 53 69 6e 67 6c 65  |.8>. "7"" Single|
00003120  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |":.update_icon(c|
00003130  64 5f 69 6e 64 65 78 25  2c 31 32 2c 73 65 6c 65  |d_index%,12,sele|
00003140  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 0e 42  |ction$):.read..B|
00003150  3f c9 20 22 31 32 22 22  20 53 69 6e 67 6c 65 22  |?. "12"" Single"|
00003160  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |:.update_icon(cd|
00003170  5f 69 6e 64 65 78 25 2c  31 32 2c 73 65 6c 65 63  |_index%,12,selec|
00003180  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 0e 4c 3d  |tion$):.read..L=|
00003190  c9 20 22 43 44 20 53 69  6e 67 6c 65 22 3a f2 75  |. "CD Single":.u|
000031a0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
000031b0  64 65 78 25 2c 31 32 2c  73 65 6c 65 63 74 69 6f  |dex%,12,selectio|
000031c0  6e 24 29 3a f2 72 65 61  64 0d 0e 56 39 c9 20 22  |n$):.read..V9. "|
000031d0  41 6c 62 75 6d 22 3a f2  75 70 64 61 74 65 5f 69  |Album":.update_i|
000031e0  63 6f 6e 28 63 64 5f 69  6e 64 65 78 25 2c 31 32  |con(cd_index%,12|
000031f0  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
00003200  61 64 0d 0e 60 3b c9 20  22 42 6f 78 20 53 65 74  |ad..`;. "Box Set|
00003210  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |":.update_icon(c|
00003220  64 5f 69 6e 64 65 78 25  2c 31 32 2c 73 65 6c 65  |d_index%,12,sele|
00003230  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 0e 6a  |ction$):.read..j|
00003240  40 c9 20 22 44 6f 75 62  6c 65 20 41 6c 62 75 6d  |@. "Double Album|
00003250  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |":.update_icon(c|
00003260  64 5f 69 6e 64 65 78 25  2c 31 32 2c 73 65 6c 65  |d_index%,12,sele|
00003270  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 0e 74  |ction$):.read..t|
00003280  3d c9 20 22 43 6c 61 73  73 69 63 61 6c 22 3a f2  |=. "Classical":.|
00003290  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 69  |update_icon(cd_i|
000032a0  6e 64 65 78 25 2c 31 35  2c 73 65 6c 65 63 74 69  |ndex%,15,selecti|
000032b0  6f 6e 24 29 3a f2 72 65  61 64 0d 0e 7e 3b c9 20  |on$):.read..~;. |
000032c0  22 43 6f 75 6e 74 72 79  22 3a f2 75 70 64 61 74  |"Country":.updat|
000032d0  65 5f 69 63 6f 6e 28 63  64 5f 69 6e 64 65 78 25  |e_icon(cd_index%|
000032e0  2c 31 35 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |,15,selection$):|
000032f0  f2 72 65 61 64 0d 0e 88  38 c9 20 22 46 75 6e 6b  |.read...8. "Funk|
00003300  22 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |":.update_icon(c|
00003310  64 5f 69 6e 64 65 78 25  2c 31 35 2c 73 65 6c 65  |d_index%,15,sele|
00003320  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 0e 92  |ction$):.read...|
00003330  38 c9 20 22 53 6f 75 6c  22 3a f2 75 70 64 61 74  |8. "Soul":.updat|
00003340  65 5f 69 63 6f 6e 28 63  64 5f 69 6e 64 65 78 25  |e_icon(cd_index%|
00003350  2c 31 35 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |,15,selection$):|
00003360  f2 72 65 61 64 0d 0e 9c  3b c9 20 22 56 61 72 69  |.read...;. "Vari|
00003370  6f 75 73 22 3a f2 75 70  64 61 74 65 5f 69 63 6f  |ous":.update_ico|
00003380  6e 28 63 64 5f 69 6e 64  65 78 25 2c 31 35 2c 73  |n(cd_index%,15,s|
00003390  65 6c 65 63 74 69 6f 6e  24 29 3a f2 72 65 61 64  |election$):.read|
000033a0  0d 0e a6 39 c9 20 22 4d  65 74 61 6c 22 3a f2 75  |...9. "Metal":.u|
000033b0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
000033c0  64 65 78 25 2c 31 35 2c  73 65 6c 65 63 74 69 6f  |dex%,15,selectio|
000033d0  6e 24 29 3a f2 72 65 61  64 0d 0e b0 38 c9 20 22  |n$):.read...8. "|
000033e0  46 6f 6c 6b 22 3a f2 75  70 64 61 74 65 5f 69 63  |Folk":.update_ic|
000033f0  6f 6e 28 63 64 5f 69 6e  64 65 78 25 2c 31 35 2c  |on(cd_index%,15,|
00003400  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00003410  64 0d 0e ba 38 c9 20 22  4a 61 7a 7a 22 3a f2 75  |d...8. "Jazz":.u|
00003420  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
00003430  64 65 78 25 2c 31 35 2c  73 65 6c 65 63 74 69 6f  |dex%,15,selectio|
00003440  6e 24 29 3a f2 72 65 61  64 0d 0e c4 39 c9 20 22  |n$):.read...9. "|
00003450  42 6c 75 65 73 22 3a f2  75 70 64 61 74 65 5f 69  |Blues":.update_i|
00003460  63 6f 6e 28 63 64 5f 69  6e 64 65 78 25 2c 31 35  |con(cd_index%,15|
00003470  2c 73 65 6c 65 63 74 69  6f 6e 24 29 3a f2 72 65  |,selection$):.re|
00003480  61 64 0d 0e ce 3a c9 20  22 52 65 67 67 61 65 22  |ad...:. "Reggae"|
00003490  3a f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |:.update_icon(cd|
000034a0  5f 69 6e 64 65 78 25 2c  31 35 2c 73 65 6c 65 63  |_index%,15,selec|
000034b0  74 69 6f 6e 24 29 3a f2  72 65 61 64 0d 0e d8 37  |tion$):.read...7|
000034c0  c9 20 22 50 6f 70 22 3a  f2 75 70 64 61 74 65 5f  |. "Pop":.update_|
000034d0  69 63 6f 6e 28 63 64 5f  69 6e 64 65 78 25 2c 31  |icon(cd_index%,1|
000034e0  35 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |5,selection$):.r|
000034f0  65 61 64 0d 0e e2 38 c9  20 22 52 61 76 65 22 3a  |ead...8. "Rave":|
00003500  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 64 5f  |.update_icon(cd_|
00003510  69 6e 64 65 78 25 2c 31  35 2c 73 65 6c 65 63 74  |index%,15,select|
00003520  69 6f 6e 24 29 3a f2 72  65 61 64 0d 0e ec 38 c9  |ion$):.read...8.|
00003530  20 22 52 6f 63 6b 22 3a  f2 75 70 64 61 74 65 5f  | "Rock":.update_|
00003540  69 63 6f 6e 28 63 64 5f  69 6e 64 65 78 25 2c 31  |icon(cd_index%,1|
00003550  35 2c 73 65 6c 65 63 74  69 6f 6e 24 29 3a f2 72  |5,selection$):.r|
00003560  65 61 64 0d 0e f6 3a c9  20 c3 28 79 65 61 72 25  |ead...:. .(year%|
00003570  29 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |):.update_icon(c|
00003580  64 5f 69 6e 64 65 78 25  2c 31 36 2c 73 65 6c 65  |d_index%,16,sele|
00003590  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 0f 00  |ction$):.read...|
000035a0  3c c9 20 c3 28 79 65 61  72 25 2d 31 29 3a f2 75  |<. .(year%-1):.u|
000035b0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
000035c0  64 65 78 25 2c 31 36 2c  73 65 6c 65 63 74 69 6f  |dex%,16,selectio|
000035d0  6e 24 29 3a f2 72 65 61  64 0d 0f 0a 3c c9 20 c3  |n$):.read...<. .|
000035e0  28 79 65 61 72 25 2d 32  29 3a f2 75 70 64 61 74  |(year%-2):.updat|
000035f0  65 5f 69 63 6f 6e 28 63  64 5f 69 6e 64 65 78 25  |e_icon(cd_index%|
00003600  2c 31 36 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |,16,selection$):|
00003610  f2 72 65 61 64 0d 0f 14  3c c9 20 c3 28 79 65 61  |.read...<. .(yea|
00003620  72 25 2d 33 29 3a f2 75  70 64 61 74 65 5f 69 63  |r%-3):.update_ic|
00003630  6f 6e 28 63 64 5f 69 6e  64 65 78 25 2c 31 36 2c  |on(cd_index%,16,|
00003640  73 65 6c 65 63 74 69 6f  6e 24 29 3a f2 72 65 61  |selection$):.rea|
00003650  64 0d 0f 1e 3c c9 20 c3  28 79 65 61 72 25 2d 34  |d...<. .(year%-4|
00003660  29 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |):.update_icon(c|
00003670  64 5f 69 6e 64 65 78 25  2c 31 36 2c 73 65 6c 65  |d_index%,16,sele|
00003680  63 74 69 6f 6e 24 29 3a  f2 72 65 61 64 0d 0f 28  |ction$):.read..(|
00003690  3c c9 20 c3 28 79 65 61  72 25 2d 35 29 3a f2 75  |<. .(year%-5):.u|
000036a0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
000036b0  64 65 78 25 2c 31 36 2c  73 65 6c 65 63 74 69 6f  |dex%,16,selectio|
000036c0  6e 24 29 3a f2 72 65 61  64 0d 0f 32 3c c9 20 c3  |n$):.read..2<. .|
000036d0  28 79 65 61 72 25 2d 36  29 3a f2 75 70 64 61 74  |(year%-6):.updat|
000036e0  65 5f 69 63 6f 6e 28 63  64 5f 69 6e 64 65 78 25  |e_icon(cd_index%|
000036f0  2c 31 36 2c 73 65 6c 65  63 74 69 6f 6e 24 29 3a  |,16,selection$):|
00003700  f2 72 65 61 64 0d 0f 3c  24 c9 20 22 53 6f 72 74  |.read..<$. "Sort|
00003710  20 20 20 20 20 20 46 32  22 3a f2 6f 70 65 6e 28  |      F2":.open(|
00003720  63 64 5f 73 6f 72 74 25  29 0d 0f 46 22 c9 20 22  |cd_sort%)..F". "|
00003730  43 6c 65 61 72 20 52 65  63 6f 72 64 22 3a f2 63  |Clear Record":.c|
00003740  6c 65 61 72 5f 73 69 6e  67 6c 65 0d 0f 50 24 c9  |lear_single..P$.|
00003750  20 22 48 65 6c 70 20 20  20 20 20 20 46 31 22 3a  | "Help      F1":|
00003760  f2 6f 70 65 6e 28 63 64  5f 68 65 6c 70 25 29 0d  |.open(cd_help%).|
00003770  0f 5a 29 c9 20 22 52 65  73 74 61 72 74 20 20 20  |.Z). "Restart   |
00003780  46 38 22 3a f2 63 6c 65  61 72 5f 64 61 74 61 5f  |F8":.clear_data_|
00003790  71 75 65 73 74 69 6f 6e  0d 0f 64 51 c9 20 22 4f  |question..dQ. "O|
000037a0  70 74 69 6f 6e 73 2e 57  69 6e 64 6f 77 73 2e 50  |ptions.Windows.P|
000037b0  6c 61 69 6e 20 49 63 6f  6e 73 22 3a f2 74 69 63  |lain Icons":.tic|
000037c0  6b 28 77 69 6e 64 6f 77  6f 70 74 73 25 2c 31 2c  |k(windowopts%,1,|
000037d0  31 29 3a 6e 65 77 77 69  6e 64 6f 77 74 79 70 65  |1):newwindowtype|
000037e0  24 3d 22 50 6c 61 69 6e  22 0d 0f 6e 4b c9 20 22  |$="Plain"..nK. "|
000037f0  4f 70 74 69 6f 6e 73 2e  57 69 6e 64 6f 77 73 2e  |Options.Windows.|
00003800  33 44 20 49 63 6f 6e 73  22 3a f2 74 69 63 6b 28  |3D Icons":.tick(|
00003810  77 69 6e 64 6f 77 6f 70  74 73 25 2c 30 2c 31 29  |windowopts%,0,1)|
00003820  3a 6e 65 77 77 69 6e 64  6f 77 74 79 70 65 24 3d  |:newwindowtype$=|
00003830  22 33 44 22 0d 0f 78 2a  c9 20 22 4f 70 74 69 6f  |"3D"..x*. "Optio|
00003840  6e 73 2e 53 61 76 65 20  43 68 6f 69 63 65 73 22  |ns.Save Choices"|
00003850  3a f2 73 61 76 65 5f 63  68 6f 69 63 65 73 0d 0f  |:.save_choices..|
00003860  82 6a c9 20 22 4f 70 74  69 6f 6e 73 2e 52 65 63  |.j. "Options.Rec|
00003870  6f 72 64 73 2e 31 30 30  22 3a f2 62 75 66 66 65  |ords.100":.buffe|
00003880  72 73 69 7a 65 28 31 35  30 2c 22 31 30 30 22 29  |rsize(150,"100")|
00003890  3a e7 20 62 75 66 66 65  72 6f 6b 25 20 8c 20 f2  |:. bufferok% . .|
000038a0  74 69 63 6b 28 6d 61 78  72 65 63 6f 72 64 6d 65  |tick(maxrecordme|
000038b0  6e 75 25 2c 30 2c 35 29  3a 6d 61 78 5f 72 65 63  |nu%,0,5):max_rec|
000038c0  6f 72 64 25 3d 31 30 30  0d 0f 8c 6a c9 20 22 4f  |ord%=100...j. "O|
000038d0  70 74 69 6f 6e 73 2e 52  65 63 6f 72 64 73 2e 32  |ptions.Records.2|
000038e0  30 30 22 3a f2 62 75 66  66 65 72 73 69 7a 65 28  |00":.buffersize(|
000038f0  32 35 30 2c 22 32 30 30  22 29 3a e7 20 62 75 66  |250,"200"):. buf|
00003900  66 65 72 6f 6b 25 20 8c  20 f2 74 69 63 6b 28 6d  |ferok% . .tick(m|
00003910  61 78 72 65 63 6f 72 64  6d 65 6e 75 25 2c 31 2c  |axrecordmenu%,1,|
00003920  35 29 3a 6d 61 78 5f 72  65 63 6f 72 64 25 3d 32  |5):max_record%=2|
00003930  30 30 0d 0f 96 6a c9 20  22 4f 70 74 69 6f 6e 73  |00...j. "Options|
00003940  2e 52 65 63 6f 72 64 73  2e 33 30 30 22 3a f2 62  |.Records.300":.b|
00003950  75 66 66 65 72 73 69 7a  65 28 33 35 30 2c 22 33  |uffersize(350,"3|
00003960  30 30 22 29 3a e7 20 62  75 66 66 65 72 6f 6b 25  |00"):. bufferok%|
00003970  20 8c 20 f2 74 69 63 6b  28 6d 61 78 72 65 63 6f  | . .tick(maxreco|
00003980  72 64 6d 65 6e 75 25 2c  32 2c 35 29 3a 6d 61 78  |rdmenu%,2,5):max|
00003990  5f 72 65 63 6f 72 64 25  3d 33 30 30 0d 0f a0 69  |_record%=300...i|
000039a0  c9 20 22 4f 70 74 69 6f  6e 73 2e 52 65 63 6f 72  |. "Options.Recor|
000039b0  64 73 2e 34 30 30 22 3a  f2 62 75 66 66 65 72 73  |ds.400":.buffers|
000039c0  69 7a 65 28 34 35 30 2c  22 34 30 30 22 29 3a e7  |ize(450,"400"):.|
000039d0  20 62 75 66 66 65 72 6f  6b 25 20 8c 20 f2 74 69  | bufferok% . .ti|
000039e0  63 6b 28 6d 61 78 72 65  63 6f 72 64 6d 65 6e 75  |ck(maxrecordmenu|
000039f0  25 2c 33 2c 35 3a 6d 61  78 5f 72 65 63 6f 72 64  |%,3,5:max_record|
00003a00  25 3d 34 30 30 0d 0f aa  6a c9 20 22 4f 70 74 69  |%=400...j. "Opti|
00003a10  6f 6e 73 2e 52 65 63 6f  72 64 73 2e 35 30 30 22  |ons.Records.500"|
00003a20  3a f2 62 75 66 66 65 72  73 69 7a 65 28 35 35 30  |:.buffersize(550|
00003a30  2c 22 35 30 30 22 29 3a  e7 20 62 75 66 66 65 72  |,"500"):. buffer|
00003a40  6f 6b 25 20 8c 20 f2 74  69 63 6b 28 6d 61 78 72  |ok% . .tick(maxr|
00003a50  65 63 6f 72 64 6d 65 6e  75 25 2c 34 2c 35 29 3a  |ecordmenu%,4,5):|
00003a60  6d 61 78 5f 72 65 63 6f  72 64 25 3d 35 30 30 0d  |max_record%=500.|
00003a70  0f b4 6e c9 20 22 4f 70  74 69 6f 6e 73 2e 52 65  |..n. "Options.Re|
00003a80  63 6f 72 64 73 2e 31 30  30 30 22 3a f2 62 75 66  |cords.1000":.buf|
00003a90  66 65 72 73 69 7a 65 28  31 30 35 30 2c 22 31 30  |fersize(1050,"10|
00003aa0  30 30 22 29 3a e7 20 62  75 66 66 65 72 6f 6b 25  |00"):. bufferok%|
00003ab0  20 8c 20 f2 74 69 63 6b  28 6d 61 78 72 65 63 6f  | . .tick(maxreco|
00003ac0  72 64 6d 65 6e 75 25 2c  35 2c 35 29 3a 6d 61 78  |rdmenu%,5,5):max|
00003ad0  5f 72 65 63 6f 72 64 25  3d 31 30 30 30 0d 0f be  |_record%=1000...|
00003ae0  40 c9 20 22 4f 70 74 69  6f 6e 73 2e 41 6e 69 6d  |@. "Options.Anim|
00003af0  61 74 69 6f 6e 2e 4f 66  66 22 3a 61 6e 69 6d 6f  |ation.Off":animo|
00003b00  6e 24 3d 22 4f 66 66 22  3a f2 74 69 63 6b 28 61  |n$="Off":.tick(a|
00003b10  6e 69 6d 6d 65 6e 75 25  2c 30 2c 31 29 0d 0f c8  |nimmenu%,0,1)...|
00003b20  3e c9 20 22 4f 70 74 69  6f 6e 73 2e 41 6e 69 6d  |>. "Options.Anim|
00003b30  61 74 69 6f 6e 2e 4f 6e  22 3a 61 6e 69 6d 6f 6e  |ation.On":animon|
00003b40  24 3d 22 4f 6e 22 3a f2  74 69 63 6b 28 61 6e 69  |$="On":.tick(ani|
00003b50  6d 6d 65 6e 75 25 2c 31  2c 31 29 0d 0f d2 18 c9  |mmenu%,1,1).....|
00003b60  20 22 51 75 69 74 22 3a  f2 71 75 69 74 5f 63 68  | "Quit":.quit_ch|
00003b70  65 63 6b 0d 0f dc 05 cb  0d 0f e6 20 c8 99 20 22  |eck........ .. "|
00003b80  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00003b90  6e 66 6f 22 2c 2c 71 25  0d 0f f0 30 e7 20 71 25  |nfo",,q%...0. q%|
00003ba0  21 38 3d 31 20 8c 20 c8  99 20 22 57 69 6d 70 5f  |!8=1 . .. "Wimp_|
00003bb0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 73 65 6c  |CreateMenu",,sel|
00003bc0  65 63 74 6d 65 6e 75 25  0d 0f fa 05 e1 0d 10 04  |ectmenu%........|
00003bd0  05 3a 0d 10 0e 11 dd f2  72 65 63 65 69 76 65 28  |.:......receive(|
00003be0  71 25 29 0d 10 18 0e c8  8e 20 71 25 21 31 36 20  |q%)...... q%!16 |
00003bf0  ca 0d 10 22 13 c9 20 30  3a f2 71 75 69 74 5f 63  |...".. 0:.quit_c|
00003c00  68 65 63 6b 0d 10 2c 11  c9 20 32 3a f2 64 61 74  |heck..,.. 2:.dat|
00003c10  61 73 61 76 65 0d 10 36  40 c9 20 33 2c 35 3a e7  |asave..6@. 3,5:.|
00003c20  20 71 25 21 31 32 3d 30  20 80 20 71 25 21 34 30  | q%!12=0 . q%!40|
00003c30  3d 26 44 39 30 20 8c 20  f2 6c 6f 61 64 5f 61 63  |=&D90 . .load_ac|
00003c40  6b 6e 6f 77 6c 65 64 67  65 3a f2 6f 6b 5f 74 6f  |knowledge:.ok_to|
00003c50  5f 6c 6f 61 64 0d 10 40  19 c9 20 34 3a f2 6c 6f  |_load..@.. 4:.lo|
00003c60  61 64 5f 61 63 6b 6e 6f  77 6c 65 64 67 65 0d 10  |ad_acknowledge..|
00003c70  4a 1c c9 20 26 35 30 32  3a f2 68 65 6c 70 28 a4  |J.. &502:.help(.|
00003c80  68 65 6c 70 5f 74 65 78  74 29 0d 10 54 1d c9 20  |help_text)..T.. |
00003c90  39 2c 26 34 30 30 43 31  3a f2 67 65 74 5f 6d 6f  |9,&400C1:.get_mo|
00003ca0  64 65 5f 69 6e 66 6f 0d  10 5e 1c c9 20 26 34 30  |de_info..^.. &40|
00003cb0  30 43 32 3a f2 63 68 65  63 6b 5f 6e 65 77 5f 74  |0C2:.check_new_t|
00003cc0  61 73 6b 0d 10 68 05 cb  0d 10 72 05 e1 0d 10 7c  |ask..h....r....||
00003cd0  05 3a 0d 10 86 14 dd f2  63 68 65 63 6b 5f 6e 65  |.:......check_ne|
00003ce0  77 5f 74 61 73 6b 0d 10  90 2d 6e 65 77 74 61 73  |w_task...-newtas|
00003cf0  6b 69 64 25 3d 71 25 21  34 3a 74 61 73 6b 6e 61  |kid%=q%!4:taskna|
00003d00  6d 65 24 3d a4 73 74 72  69 6e 67 30 28 71 25 2b  |me$=.string0(q%+|
00003d10  32 38 29 0d 10 9a 3a e7  20 74 61 73 6b 6e 61 6d  |28)...:. tasknam|
00003d20  65 24 3d 22 43 44 20 49  6e 64 65 78 22 20 80 20  |e$="CD Index" . |
00003d30  6e 65 77 74 61 73 6b 69  64 25 3c 3e 68 61 6e 64  |newtaskid%<>hand|
00003d40  6c 65 25 20 8c 20 71 75  69 74 25 3d b9 0d 10 a4  |le% . quit%=....|
00003d50  05 e1 0d 10 ae 05 3a 0d  10 b8 14 dd f2 63 68 65  |......:......che|
00003d60  63 6b 5f 66 6f 72 5f 6c  6f 61 64 0d 10 c2 0f ea  |ck_for_load.....|
00003d70  20 66 69 6c 65 6e 61 6d  65 24 0d 10 cc 1e c8 99  | filename$......|
00003d80  20 22 4f 53 5f 47 65 74  45 6e 76 22 20 b8 20 66  | "OS_GetEnv" . f|
00003d90  69 6c 65 6e 61 6d 65 24  0d 10 d6 32 66 69 6c 65  |ilename$...2file|
00003da0  6e 61 6d 65 24 3d c1 66  69 6c 65 6e 61 6d 65 24  |name$=.filename$|
00003db0  2c a7 66 69 6c 65 6e 61  6d 65 24 2c 22 52 75 6e  |,.filename$,"Run|
00003dc0  49 6d 61 67 65 22 29 2b  39 29 0d 10 e0 16 e7 20  |Image")+9)..... |
00003dd0  a9 28 66 69 6c 65 6e 61  6d 65 24 29 3e 30 20 8c  |.(filename$)>0 .|
00003de0  0d 10 ea 19 f2 6c 6f 61  64 5f 64 61 74 61 28 66  |.....load_data(f|
00003df0  69 6c 65 6e 61 6d 65 24  29 0d 10 f4 05 cd 0d 10  |ilename$).......|
00003e00  fe 05 e1 0d 11 08 05 3a  0d 11 12 3b dd f2 75 70  |.......:...;..up|
00003e10  64 61 74 65 5f 69 63 6f  6e 28 75 70 64 61 74 65  |date_icon(update|
00003e20  5f 77 69 6e 64 6f 77 25  2c 75 70 64 61 74 65 5f  |_window%,update_|
00003e30  69 63 6f 6e 25 2c 75 70  64 61 74 65 5f 74 65 78  |icon%,update_tex|
00003e40  74 24 29 0d 11 1c 28 21  71 25 3d 75 70 64 61 74  |t$)...(!q%=updat|
00003e50  65 5f 77 69 6e 64 6f 77  25 3a 71 25 21 34 3d 75  |e_window%:q%!4=u|
00003e60  70 64 61 74 65 5f 69 63  6f 6e 25 0d 11 26 1e c8  |pdate_icon%..&..|
00003e70  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00003e80  74 61 74 65 22 2c 2c 71  25 0d 11 30 31 24 28 71  |tate",,q%..01$(q|
00003e90  25 21 32 38 29 3d 75 70  64 61 74 65 5f 74 65 78  |%!28)=update_tex|
00003ea0  74 24 3a 71 25 21 33 36  3d a9 28 75 70 64 61 74  |t$:q%!36=.(updat|
00003eb0  65 5f 74 65 78 74 24 29  2b 31 0d 11 3a 12 71 25  |e_text$)+1..:.q%|
00003ec0  21 38 3d 30 3a 71 25 21  31 32 3d 30 0d 11 44 1e  |!8=0:q%!12=0..D.|
00003ed0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00003ee0  53 74 61 74 65 22 2c 2c  71 25 0d 11 4e 05 e1 0d  |State",,q%..N...|
00003ef0  11 58 05 3a 0d 11 62 26  dd a4 63 72 65 61 74 65  |.X.:..b&..create|
00003f00  5f 6d 65 6e 75 28 6d 65  6e 75 24 2c 6d 65 6e 75  |_menu(menu$,menu|
00003f10  32 24 2c 6d 65 6e 75 33  24 29 0d 11 6c 32 e7 20  |2$,menu3$)..l2. |
00003f20  6d 65 6e 75 66 72 65 65  25 2b 32 38 3e 6d 65 6e  |menufree%+28>men|
00003f30  75 65 6e 64 25 20 8c 20  85 20 31 2c 22 4d 65 6e  |uend% . . 1,"Men|
00003f40  75 20 41 72 65 61 20 46  75 6c 6c 22 0d 11 76 0b  |u Area Full"..v.|
00003f50  ea 20 6d 25 2c 72 25 0d  11 80 16 6d 65 6e 75 70  |. m%,r%....menup|
00003f60  74 72 25 3d 6d 65 6e 75  66 72 65 65 25 0d 11 8a  |tr%=menufree%...|
00003f70  08 72 25 3d 30 0d 11 94  3f e7 20 c0 6d 65 6e 75  |.r%=0...?. .menu|
00003f80  24 2c 31 29 3d 22 23 22  20 8c 20 72 25 3d 31 3a  |$,1)="#" . r%=1:|
00003f90  6d 65 6e 75 74 69 74 6c  65 24 3d a4 70 61 72 28  |menutitle$=.par(|
00003fa0  22 2c 22 29 20 8b 20 6d  65 6e 75 74 69 74 6c 65  |",") . menutitle|
00003fb0  24 3d 22 22 0d 11 9e 1a  e7 20 c2 6d 65 6e 75 74  |$=""..... .menut|
00003fc0  69 74 6c 65 24 2c 31 29  3d 22 7b 22 20 8c 0d 11  |itle$,1)="{" ...|
00003fd0  a8 0e 62 6f 74 69 63 6f  6e 25 3d 39 0d 11 b2 2b  |..boticon%=9...+|
00003fe0  6d 65 6e 75 74 69 74 6c  65 24 3d c0 6d 65 6e 75  |menutitle$=.menu|
00003ff0  74 69 74 6c 65 24 2c a9  28 6d 65 6e 75 74 69 74  |title$,.(menutit|
00004000  6c 65 24 29 2d 31 29 0d  11 bc 05 cc 0d 11 c6 0e  |le$)-1).........|
00004010  62 6f 74 69 63 6f 6e 25  3d 31 0d 11 d0 05 cd 0d  |boticon%=1......|
00004020  11 da 18 24 6d 65 6e 75  70 74 72 25 3d 6d 65 6e  |...$menuptr%=men|
00004030  75 74 69 74 6c 65 24 0d  11 e4 3b 6d 65 6e 75 70  |utitle$...;menup|
00004040  74 72 25 3f 31 32 3d 37  3a 6d 65 6e 75 70 74 72  |tr%?12=7:menuptr|
00004050  25 3f 31 33 3d 32 3a 6d  65 6e 75 70 74 72 25 3f  |%?13=2:menuptr%?|
00004060  31 34 3d 37 3a 6d 65 6e  75 70 74 72 25 3f 31 35  |14=7:menuptr%?15|
00004070  3d 30 0d 11 ee 33 6d 65  6e 75 70 74 72 25 21 31  |=0...3menuptr%!1|
00004080  36 3d 31 39 36 2d 32 34  3a 6d 65 6e 75 70 74 72  |6=196-24:menuptr|
00004090  25 21 32 30 3d 34 34 3a  6d 65 6e 75 70 74 72 25  |%!20=44:menuptr%|
000040a0  21 32 34 3d 30 0d 11 f8  24 6d 65 6e 75 70 74 72  |!24=0...$menuptr|
000040b0  25 2b 3d 32 38 3a 6d 61  78 78 25 3d a9 6d 65 6e  |%+=28:maxx%=.men|
000040c0  75 74 69 74 6c 65 24 2d  32 0d 12 02 05 f5 0d 12  |utitle$-2.......|
000040d0  0c 13 69 74 65 6d 24 3d  a4 70 61 72 28 22 2c 22  |..item$=.par(","|
000040e0  29 0d 12 16 12 e7 20 69  74 65 6d 24 3d 22 2b 2b  |)..... item$="++|
000040f0  22 20 8c 0d 12 20 08 72  25 3d 30 0d 12 2a 10 6d  |" ... .r%=0..*.m|
00004100  65 6e 75 24 3d 6d 65 6e  75 32 24 0d 12 34 05 cc  |enu$=menu2$..4..|
00004110  0d 12 3e 13 e7 20 69 74  65 6d 24 3d 22 2b 2b 2b  |..>.. item$="+++|
00004120  22 20 8c 0d 12 48 08 72  25 3d 30 0d 12 52 10 6d  |" ...H.r%=0..R.m|
00004130  65 6e 75 25 3d 6d 65 6e  75 33 24 0d 12 5c 05 cc  |enu%=menu3$..\..|
00004140  0d 12 66 15 f2 6d 65 6e  75 5f 69 74 65 6d 28 69  |..f..menu_item(i|
00004150  74 65 6d 24 29 0d 12 70  05 cd 0d 12 7a 05 cd 0d  |tem$)..p....z...|
00004160  12 84 0e fd 20 69 74 65  6d 24 3d 22 22 0d 12 8e  |.... item$=""...|
00004170  19 e7 20 6d 61 78 78 25  3e 32 30 20 8c 20 6d 61  |.. maxx%>20 . ma|
00004180  78 78 25 3d 32 30 0d 12  98 24 6d 25 3d 6d 65 6e  |xx%=20...$m%=men|
00004190  75 66 72 65 65 25 3a 6d  25 21 31 36 3d 28 6d 61  |ufree%:m%!16=(ma|
000041a0  78 78 25 2a 38 2b 36 29  2a 32 0d 12 a2 16 6d 65  |xx%*8+6)*2....me|
000041b0  6e 75 66 72 65 65 25 3d  6d 65 6e 75 70 74 72 25  |nufree%=menuptr%|
000041c0  0d 12 ac 07 3d 6d 25 0d  12 b6 05 3a 0d 12 c0 16  |....=m%....:....|
000041d0  dd f2 6d 65 6e 75 5f 69  74 65 6d 28 74 65 78 74  |..menu_item(text|
000041e0  24 29 0d 12 ca 33 e7 20  74 65 78 74 24 3d 22 22  |$)...3. text$=""|
000041f0  20 8c 20 6d 65 6e 75 70  74 72 25 21 2d 32 34 3d  | . menuptr%!-24=|
00004200  28 6d 65 6e 75 70 74 72  25 21 2d 32 34 29 84 20  |(menuptr%!-24). |
00004210  26 38 30 3a e1 0d 12 d4  32 e7 20 6d 65 6e 75 70  |&80:....2. menup|
00004220  74 72 25 2b 32 34 20 3e  6d 65 6e 75 65 6e 64 25  |tr%+24 >menuend%|
00004230  20 8c 20 85 20 31 2c 22  4d 65 6e 75 20 41 72 65  | . . 1,"Menu Are|
00004240  61 20 46 75 6c 6c 22 0d  12 de 11 ea 20 72 25 2c  |a Full"..... r%,|
00004250  66 6c 61 67 25 2c 56 25  0d 12 e8 0d 66 6c 61 67  |flag%,V%....flag|
00004260  25 3d 26 30 30 0d 12 f2  12 72 25 3d a7 74 65 78  |%=&00....r%=.tex|
00004270  74 24 2c 22 3e 22 29 0d  12 fc 0c e7 20 72 25 3e  |t$,">")..... r%>|
00004280  30 20 8c 0d 13 06 19 73  75 62 70 74 72 25 3d a0  |0 .....subptr%=.|
00004290  c1 74 65 78 74 24 2c 72  25 2b 31 29 0d 13 10 16  |.text$,r%+1)....|
000042a0  74 65 78 74 24 3d c0 74  65 78 74 24 2c 72 25 2d  |text$=.text$,r%-|
000042b0  31 29 0d 13 1a 05 cc 0d  13 24 13 72 72 25 3d a7  |1).......$.rr%=.|
000042c0  74 65 78 74 24 2c 22 7d  22 29 0d 13 2e 0d e7 20  |text$,"}")..... |
000042d0  72 72 25 3e 30 20 8c 0d  13 38 1a 73 75 62 70 74  |rr%>0 ...8.subpt|
000042e0  72 25 3d a0 c1 74 65 78  74 24 2c 72 72 25 2b 31  |r%=..text$,rr%+1|
000042f0  29 0d 13 42 16 74 65 78  74 24 3d c0 74 65 78 74  |)..B.text$=.text|
00004300  2c 72 72 25 2d 31 29 0d  13 4c 0e 66 6c 61 67 25  |,rr%-1)..L.flag%|
00004310  2b 3d 26 30 38 0d 13 56  05 cc 0d 13 60 0e 73 75  |+=&08..V....`.su|
00004320  62 70 74 72 25 3d 2d 31  0d 13 6a 05 cd 0d 13 74  |bptr%=-1..j....t|
00004330  05 cd 0d 13 7e 37 e7 20  c2 74 65 78 74 24 2c 31  |....~7. .text$,1|
00004340  29 3d 22 23 22 20 8c 20  74 65 78 74 24 3d c0 74  |)="#" . text$=.t|
00004350  65 78 74 24 2c a9 74 65  78 74 24 2d 31 29 3a 66  |ext$,.text$-1):f|
00004360  6c 61 67 25 2b 3d 26 30  32 0d 13 88 37 e7 20 c2  |lag%+=&02...7. .|
00004370  74 65 78 74 24 2c 31 29  3d 22 5c 22 20 8c 20 74  |text$,1)="\" . t|
00004380  65 78 74 24 3d c0 74 65  78 74 24 2c a9 74 65 78  |ext$=.text$,.tex|
00004390  74 24 2d 31 29 3a 66 6c  61 67 25 2b 3d 26 30 31  |t$-1):flag%+=&01|
000043a0  0d 13 92 14 72 72 72 25  3d a7 74 65 78 74 24 2c  |....rrr%=.text$,|
000043b0  22 7c 22 29 0d 13 9c 15  72 72 72 72 25 3d a7 74  |"|")....rrrr%=.t|
000043c0  65 78 74 24 2c 22 a4 22  29 0d 13 a6 18 e7 20 72  |ext$,".")..... r|
000043d0  72 72 25 3d 30 20 80 20  72 72 72 72 25 3d 30 20  |rr%=0 . rrrr%=0 |
000043e0  8c 0d 13 b0 19 6d 66 67  25 3d 30 3c 3c 32 38 3a  |.....mfg%=0<<28:|
000043f0  6d 62 67 25 3d 37 3c 3c  32 34 0d 13 ba 05 cc 0d  |mbg%=7<<24......|
00004400  13 c4 0d c8 8e 20 72 72  72 25 20 ca 0d 13 ce 13  |..... rrr% .....|
00004410  c9 20 30 3a 6d 66 67 25  3d 30 20 3c 3c 32 38 0d  |. 0:mfg%=0 <<28.|
00004420  13 d8 05 7f 0d 13 e2 27  6d 66 67 25 3d 28 bb 28  |.......'mfg%=(.(|
00004430  c1 74 65 78 74 24 2c 72  72 72 25 2b 31 2c 32 29  |.text$,rrr%+1,2)|
00004440  29 20 83 20 31 36 29 3c  3c 32 38 0d 13 ec 27 74  |) . 16)<<28...'t|
00004450  65 78 74 24 3d c0 74 65  78 74 24 2c 72 72 72 25  |ext$=.text$,rrr%|
00004460  2d 31 29 2b c1 74 65 78  74 24 2c 72 72 72 25 2b  |-1)+.text$,rrr%+|
00004470  33 29 0d 13 f6 05 cb 0d  14 00 15 72 72 72 72 25  |3).........rrrr%|
00004480  3d a7 74 65 78 74 24 2c  22 a4 22 29 0d 14 0a 0e  |=.text$,".")....|
00004490  c8 8e 20 72 72 72 72 25  20 ca 0d 14 14 12 c9 20  |.. rrrr% ...... |
000044a0  30 3a 6d 62 67 25 3d 37  3c 3c 32 34 0d 14 1e 05  |0:mbg%=7<<24....|
000044b0  7f 0d 14 28 28 6d 62 67  25 3d 28 bb 28 c1 74 65  |...((mbg%=(.(.te|
000044c0  78 74 24 2c 72 72 72 72  25 2b 31 2c 32 29 29 20  |xt$,rrrr%+1,2)) |
000044d0  83 20 31 36 29 3c 3c 32  34 0d 14 32 29 74 65 78  |. 16)<<24..2)tex|
000044e0  74 24 3d c0 74 65 78 74  24 2c 72 72 72 72 25 2d  |t$=.text$,rrrr%-|
000044f0  31 29 2b c1 74 65 78 74  24 2c 72 72 72 72 25 2b  |1)+.text$,rrrr%+|
00004500  33 29 0d 14 3c 05 cb 0d  14 46 05 cd 0d 14 50 14  |3)..<....F....P.|
00004510  6d 65 6e 75 70 74 72 25  21 30 3d 66 6c 61 67 25  |menuptr%!0=flag%|
00004520  0d 14 5a 16 6d 65 6e 75  70 74 72 25 21 34 3d 73  |..Z.menuptr%!4=s|
00004530  75 62 70 74 72 25 0d 14  64 25 6d 65 6e 75 70 74  |ubptr%..d%menupt|
00004540  72 25 21 38 3d 6d 66 67  25 2b 6d 62 67 25 2b 26  |r%!8=mfg%+mbg%+&|
00004550  32 30 2b 62 6f 74 69 63  6f 6e 25 0d 14 6e 4c e7  |20+boticon%..nL.|
00004560  20 c2 74 65 78 74 24 2c  31 29 3d 22 2f 22 20 8c  | .text$,1)="/" .|
00004570  20 74 65 78 74 24 3d c0  74 65 78 74 24 2c a9 74  | text$=.text$,.t|
00004580  65 78 74 24 2d 31 29 3a  6d 65 6e 75 70 74 72 25  |ext$-1):menuptr%|
00004590  21 38 3d 28 6d 65 6e 75  70 74 72 25 21 38 20 84  |!8=(menuptr%!8 .|
000045a0  20 31 3c 3c 32 32 29 0d  14 78 15 e7 20 c0 74 65  | 1<<22)..x.. .te|
000045b0  78 74 24 2c 31 29 3d 22  24 22 20 8c 0d 14 82 12  |xt$,1)="$" .....|
000045c0  21 6d 65 6e 75 70 74 72  25 2b 3d 26 30 34 0d 14  |!menuptr%+=&04..|
000045d0  8c 13 6d 65 6e 75 70 74  72 25 21 2b 3d 26 31 30  |..menuptr%!+=&10|
000045e0  38 0d 14 96 12 72 25 3d  a7 74 65 78 74 24 2c 22  |8....r%=.text$,"|
000045f0  28 22 29 0d 14 a0 37 e7  20 72 25 3e 30 20 8c 20  |(")...7. r%>0 . |
00004600  4c 25 3d bb c1 74 65 78  74 24 2c 72 25 2b 31 29  |L%=..text$,r%+1)|
00004610  3a 74 65 78 74 24 3d c0  74 65 78 74 24 2c 72 25  |:text$=.text$,r%|
00004620  2d 31 29 8b 20 4c 25 3d  31 32 0d 14 aa 09 56 25  |-1). L%=12....V%|
00004630  3d 2d 31 0d 14 b4 1a 6d  65 6e 75 70 74 72 25 21  |=-1....menuptr%!|
00004640  31 32 3d a0 c1 74 65 78  74 24 2c 32 29 0d 14 be  |12=..text$,2)...|
00004650  12 6d 65 6e 75 70 74 72  25 21 31 36 3d 2d 31 0d  |.menuptr%!16=-1.|
00004660  14 c8 12 6d 65 6e 75 70  74 72 25 21 32 30 3d 4c  |...menuptr%!20=L|
00004670  25 0d 14 d2 12 74 65 78  74 24 3d c4 4c 25 2c 22  |%....text$=.L%,"|
00004680  20 22 29 0d 14 dc 05 cc  0d 14 e6 12 e7 20 a9 74  | ").......... .t|
00004690  65 78 74 24 3c 3d 31 32  20 8c 0d 14 f0 18 24 28  |ext$<=12 .....$(|
000046a0  6d 65 6e 75 70 74 72 25  2b 31 32 29 3d 74 65 78  |menuptr%+12)=tex|
000046b0  74 24 0d 14 fa 05 cc 0d  15 04 25 52 25 3d a4 77  |t$........%R%=.w|
000046c0  6f 72 6b 73 70 61 63 65  28 a9 74 65 78 74 24 2b  |orkspace(.text$+|
000046d0  31 29 3a 24 52 25 3d 74  65 78 74 24 0d 15 0e 36  |1):$R%=text$...6|
000046e0  6d 65 6e 75 70 74 72 25  21 31 32 3d 52 25 3a 6d  |menuptr%!12=R%:m|
000046f0  65 6e 75 70 74 72 25 21  31 36 3d 2d 31 3a 6d 65  |enuptr%!16=-1:me|
00004700  6e 75 70 74 72 25 21 32  30 3d a9 74 65 78 74 24  |nuptr%!20=.text$|
00004710  2b 31 0d 15 18 20 6d 65  6e 75 70 74 72 25 21 38  |+1... menuptr%!8|
00004720  3d 6d 65 6e 75 70 74 72  25 21 38 20 84 20 26 31  |=menuptr%!8 . &1|
00004730  30 30 0d 15 22 05 cd 0d  15 2c 05 cd 0d 15 36 21  |00.."....,....6!|
00004740  e7 20 a9 74 65 78 74 24  3e 6d 61 78 78 25 20 8c  |. .text$>maxx% .|
00004750  20 6d 61 78 78 25 3d a9  74 65 78 74 24 0d 15 40  | maxx%=.text$..@|
00004760  10 6d 65 6e 75 70 74 72  25 2b 3d 32 34 0d 15 4a  |.menuptr%+=24..J|
00004770  05 e1 0d 15 54 05 3a 0d  15 5e 0f dd a4 70 61 72  |....T.:..^...par|
00004780  28 73 65 70 24 29 0d 15  68 25 72 31 25 3d 72 25  |(sep$)..h%r1%=r%|
00004790  2b 31 3a 72 25 3d a7 6d  65 6e 75 24 2b 73 65 70  |+1:r%=.menu$+sep|
000047a0  24 2c 73 65 70 24 2c 72  31 25 29 0d 15 72 17 3d  |$,sep$,r1%)..r.=|
000047b0  c1 6d 65 6e 75 24 2c 72  31 25 2c 72 25 2d 72 31  |.menu$,r1%,r%-r1|
000047c0  25 29 0d 15 7c 05 3a 0d  15 86 13 dd a4 77 6f 72  |%)..|.:......wor|
000047d0  6b 73 70 61 63 65 28 4c  25 29 0d 15 90 33 e7 20  |kspace(L%)...3. |
000047e0  63 75 72 77 73 25 2b 4c  25 3e 6d 61 78 77 73 25  |curws%+L%>maxws%|
000047f0  20 8c 20 85 20 31 2c 22  4e 6f 20 4d 6f 72 65 20  | . . 1,"No More |
00004800  42 75 66 66 65 72 20 53  70 61 63 65 22 0d 15 9a  |Buffer Space"...|
00004810  19 63 75 72 77 73 25 2b  3d 4c 25 3a 3d 63 75 72  |.curws%+=L%:=cur|
00004820  77 73 25 2d 4c 25 0d 15  a4 05 3a 0d 15 ae 11 dd  |ws%-L%....:.....|
00004830  f2 73 6f 72 74 5f 61 72  74 69 73 74 0d 15 b8 11  |.sort_artist....|
00004840  ea 20 61 25 2c 62 25 2c  74 65 6d 70 24 0d 15 c2  |. a%,b%,temp$...|
00004850  65 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |e.update_icon(cd|
00004860  5f 77 61 69 74 25 2c 30  2c 22 49 6e 69 74 69 61  |_wait%,0,"Initia|
00004870  6c 69 73 69 6e 67 20 53  6f 72 74 20 50 6c 65 61  |lising Sort Plea|
00004880  73 65 20 57 61 69 74 22  29 3a f2 6f 70 65 6e 28  |se Wait"):.open(|
00004890  63 64 5f 77 61 69 74 25  29 3a f2 72 65 64 72 61  |cd_wait%):.redra|
000048a0  77 5f 77 69 6e 64 6f 77  28 63 64 5f 77 61 69 74  |w_window(cd_wait|
000048b0  25 29 0d 15 cc 15 c8 99  20 22 48 6f 75 72 67 6c  |%)...... "Hourgl|
000048c0  61 73 73 5f 4f 6e 22 0d  15 d6 58 63 6f 75 6e 74  |ass_On"...Xcount|
000048d0  25 3d 30 3a 73 75 62 63  6f 75 6e 74 25 3d 30 3a  |%=0:subcount%=0:|
000048e0  61 25 3d 31 3a f5 3a e3  20 62 25 3d 61 25 20 b8  |a%=1:.:. b%=a% .|
000048f0  20 6d 61 78 5f 72 65 63  6f 72 64 25 3a 63 6f 75  | max_record%:cou|
00004900  6e 74 25 2b 3d 31 3a ed  3a 61 25 2b 3d 31 3a fd  |nt%+=1:.:a%+=1:.|
00004910  20 61 25 3e 6d 61 78 5f  72 65 63 6f 72 64 25 0d  | a%>max_record%.|
00004920  15 e0 67 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |..g.update_icon(|
00004930  63 64 5f 77 61 69 74 25  2c 30 2c 22 53 6f 72 74  |cd_wait%,0,"Sort|
00004940  69 6e 67 20 49 6e 20 50  72 6f 67 72 65 73 73 20  |ing In Progress |
00004950  50 6c 65 61 73 65 20 57  61 69 74 22 29 3a f2 6f  |Please Wait"):.o|
00004960  70 65 6e 28 63 64 5f 77  61 69 74 25 29 3a f2 72  |pen(cd_wait%):.r|
00004970  65 64 72 61 77 5f 77 69  6e 64 6f 77 28 63 64 5f  |edraw_window(cd_|
00004980  77 61 69 74 25 29 0d 15  ea 10 61 25 3d 31 3a f5  |wait%)....a%=1:.|
00004990  3a 72 25 3d 61 25 0d 15  f4 1a 74 65 6d 70 24 3d  |:r%=a%....temp$=|
000049a0  c0 61 72 74 69 73 74 24  28 61 25 29 2c 33 30 29  |.artist$(a%),30)|
000049b0  0d 15 fe 1c e7 20 74 65  6d 70 24 3c 3d 22 20 22  |..... temp$<=" "|
000049c0  20 8c 20 74 65 6d 70 24  3d 22 7e 22 0d 16 08 19  | . temp$="~"....|
000049d0  e3 20 62 25 3d 61 25 20  b8 20 6d 61 78 5f 72 65  |. b%=a% . max_re|
000049e0  63 6f 72 64 25 0d 16 12  10 73 75 62 63 6f 75 6e  |cord%....subcoun|
000049f0  74 25 2b 3d 31 0d 16 1c  24 e7 20 c0 61 72 74 69  |t%+=1...$. .arti|
00004a00  73 74 24 28 62 25 29 2c  33 30 29 3c 3d 22 20 22  |st$(b%),30)<=" "|
00004a10  20 8c 20 e5 20 8d 44 44  56 0d 16 26 1e e7 20 c0  | . . .DDV..&.. .|
00004a20  61 72 74 69 73 74 24 28  62 25 29 2c 33 30 29 3c  |artist$(b%),30)<|
00004a30  74 65 6d 70 24 20 8c 0d  16 30 20 74 65 6d 70 24  |temp$ ...0 temp$|
00004a40  3d c0 61 72 74 69 73 74  24 28 62 25 29 2c 33 30  |=.artist$(b%),30|
00004a50  29 3a 72 25 3d 62 25 0d  16 3a 05 cd 0d 16 44 08  |):r%=b%..:....D.|
00004a60  ed 20 62 25 0d 16 4e 37  c8 99 20 22 48 6f 75 72  |. b%..N7.. "Hour|
00004a70  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
00004a80  22 2c a8 28 28 73 75 62  63 6f 75 6e 74 25 2f 63  |",.((subcount%/c|
00004a90  6f 75 6e 74 25 29 2a 31  30 30 29 0d 16 58 17 f2  |ount%)*100)..X..|
00004aa0  73 77 61 70 5f 66 69 65  6c 64 73 28 61 25 2c 72  |swap_fields(a%,r|
00004ab0  25 29 0d 16 62 09 61 25  2b 3d 31 0d 16 6c 14 fd  |%)..b.a%+=1..l..|
00004ac0  20 61 25 3e 6d 61 78 5f  72 65 63 6f 72 64 25 0d  | a%>max_record%.|
00004ad0  16 76 14 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |.v.record_number|
00004ae0  25 3d 31 0d 16 80 0b f2  75 70 64 61 74 65 0d 16  |%=1.....update..|
00004af0  8a 16 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |.... "Hourglass_|
00004b00  4f 66 66 22 0d 16 94 3e  f2 63 6c 6f 73 65 28 63  |Off"...>.close(c|
00004b10  64 5f 73 6f 72 74 25 29  3a c8 99 20 22 57 69 6d  |d_sort%):.. "Wim|
00004b20  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 2d  |p_CreateMenu",,-|
00004b30  31 3a f2 63 6c 6f 73 65  28 63 64 5f 77 61 69 74  |1:.close(cd_wait|
00004b40  25 29 0d 16 9e 1b f2 72  65 5f 74 69 74 6c 65 28  |%).....re_title(|
00004b50  22 43 44 20 49 6e 64 65  78 20 2a 22 29 0d 16 a8  |"CD Index *")...|
00004b60  0e 75 6e 73 61 76 65 64  25 3d b9 0d 16 b2 05 e1  |.unsaved%=......|
00004b70  0d 16 bc 05 3a 0d 16 c6  10 dd f2 73 6f 72 74 5f  |....:......sort_|
00004b80  74 69 74 6c 65 0d 16 d0  11 ea 20 61 25 2c 62 25  |title..... a%,b%|
00004b90  2c 74 65 6d 70 24 0d 16  da 65 f2 75 70 64 61 74  |,temp$...e.updat|
00004ba0  65 5f 69 63 6f 6e 28 63  64 5f 77 61 69 74 25 2c  |e_icon(cd_wait%,|
00004bb0  30 2c 22 49 6e 69 74 69  61 6c 69 73 69 6e 67 20  |0,"Initialising |
00004bc0  53 6f 72 74 20 50 6c 65  61 73 65 20 57 61 69 74  |Sort Please Wait|
00004bd0  22 29 3a f2 6f 70 65 6e  28 63 64 5f 77 61 69 74  |"):.open(cd_wait|
00004be0  25 29 3a f2 72 65 64 72  61 77 5f 77 69 6e 64 6f  |%):.redraw_windo|
00004bf0  77 28 63 64 5f 77 61 69  74 25 29 0d 16 e4 15 c8  |w(cd_wait%).....|
00004c00  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00004c10  0d 16 ee 58 63 6f 75 6e  74 25 3d 30 3a 73 75 62  |...Xcount%=0:sub|
00004c20  63 6f 75 6e 74 25 3d 30  3a 61 25 3d 31 3a f5 3a  |count%=0:a%=1:.:|
00004c30  e3 20 62 25 3d 61 25 20  b8 20 6d 61 78 5f 72 65  |. b%=a% . max_re|
00004c40  63 6f 72 64 25 3a 63 6f  75 6e 74 25 2b 3d 31 3a  |cord%:count%+=1:|
00004c50  ed 3a 61 25 2b 3d 31 3a  fd 20 61 25 3e 6d 61 78  |.:a%+=1:. a%>max|
00004c60  5f 72 65 63 6f 72 64 25  0d 16 f8 67 f2 75 70 64  |_record%...g.upd|
00004c70  61 74 65 5f 69 63 6f 6e  28 63 64 5f 77 61 69 74  |ate_icon(cd_wait|
00004c80  25 2c 30 2c 22 53 6f 72  74 69 6e 67 20 49 6e 20  |%,0,"Sorting In |
00004c90  50 72 6f 67 72 65 73 73  20 50 6c 65 61 73 65 20  |Progress Please |
00004ca0  57 61 69 74 22 29 3a f2  6f 70 65 6e 28 63 64 5f  |Wait"):.open(cd_|
00004cb0  77 61 69 74 25 29 3a f2  72 65 64 72 61 77 5f 77  |wait%):.redraw_w|
00004cc0  69 6e 64 6f 77 28 63 64  5f 77 61 69 74 25 29 0d  |indow(cd_wait%).|
00004cd0  17 02 10 61 25 3d 31 3a  f5 3a 72 25 3d 61 25 0d  |...a%=1:.:r%=a%.|
00004ce0  17 0c 19 74 65 6d 70 24  3d c0 74 69 74 6c 65 24  |...temp$=.title$|
00004cf0  28 61 25 29 2c 33 30 29  0d 17 16 1c e7 20 74 65  |(a%),30)..... te|
00004d00  6d 70 24 3c 3d 22 20 22  20 8c 20 74 65 6d 70 24  |mp$<=" " . temp$|
00004d10  3d 22 7e 22 0d 17 20 19  e3 20 62 25 3d 61 25 20  |="~".. .. b%=a% |
00004d20  b8 20 6d 61 78 5f 72 65  63 6f 72 64 25 0d 17 2a  |. max_record%..*|
00004d30  10 73 75 62 63 6f 75 6e  74 25 2b 3d 31 0d 17 34  |.subcount%+=1..4|
00004d40  23 e7 20 c0 74 69 74 6c  65 24 28 62 25 29 2c 33  |#. .title$(b%),3|
00004d50  30 29 3c 3d 22 20 22 20  8c 20 e5 20 8d 44 5c 57  |0)<=" " . . .D\W|
00004d60  0d 17 3e 1d e7 20 c0 74  69 74 6c 65 24 28 62 25  |..>.. .title$(b%|
00004d70  29 2c 33 30 29 3c 74 65  6d 70 24 20 8c 0d 17 48  |),30)<temp$ ...H|
00004d80  1f 74 65 6d 70 24 3d c0  74 69 74 6c 65 24 28 62  |.temp$=.title$(b|
00004d90  25 29 2c 33 30 29 3a 72  25 3d 62 25 0d 17 52 05  |%),30):r%=b%..R.|
00004da0  cd 0d 17 5c 08 ed 20 62  25 0d 17 66 37 c8 99 20  |...\.. b%..f7.. |
00004db0  22 48 6f 75 72 67 6c 61  73 73 5f 50 65 72 63 65  |"Hourglass_Perce|
00004dc0  6e 74 61 67 65 22 2c a8  28 28 73 75 62 63 6f 75  |ntage",.((subcou|
00004dd0  6e 74 25 2f 63 6f 75 6e  74 25 29 2a 31 30 30 29  |nt%/count%)*100)|
00004de0  0d 17 70 17 f2 73 77 61  70 5f 66 69 65 6c 64 73  |..p..swap_fields|
00004df0  28 61 25 2c 72 25 29 0d  17 7a 09 61 25 2b 3d 31  |(a%,r%)..z.a%+=1|
00004e00  0d 17 84 14 fd 20 61 25  3e 6d 61 78 5f 72 65 63  |..... a%>max_rec|
00004e10  6f 72 64 25 0d 17 8e 14  72 65 63 6f 72 64 5f 6e  |ord%....record_n|
00004e20  75 6d 62 65 72 25 3d 31  0d 17 98 0b f2 75 70 64  |umber%=1.....upd|
00004e30  61 74 65 0d 17 a2 16 c8  99 20 22 48 6f 75 72 67  |ate...... "Hourg|
00004e40  6c 61 73 73 5f 4f 66 66  22 0d 17 ac 3e f2 63 6c  |lass_Off"...>.cl|
00004e50  6f 73 65 28 63 64 5f 73  6f 72 74 25 29 3a c8 99  |ose(cd_sort%):..|
00004e60  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00004e70  75 22 2c 2c 2d 31 3a f2  63 6c 6f 73 65 28 63 64  |u",,-1:.close(cd|
00004e80  5f 77 61 69 74 25 29 0d  17 b6 1b f2 72 65 5f 74  |_wait%).....re_t|
00004e90  69 74 6c 65 28 22 43 44  20 49 6e 64 65 78 20 2a  |itle("CD Index *|
00004ea0  22 29 0d 17 c0 0e 75 6e  73 61 76 65 64 25 3d b9  |")....unsaved%=.|
00004eb0  0d 17 ca 05 e1 0d 17 d4  05 3a 0d 17 de 18 dd f2  |.........:......|
00004ec0  73 77 61 70 5f 66 69 65  6c 64 73 28 61 25 2c 62  |swap_fields(a%,b|
00004ed0  25 29 0d 17 e8 cd c8 94  20 61 72 74 69 73 74 24  |%)...... artist$|
00004ee0  28 61 25 29 2c 61 72 74  69 73 74 24 28 62 25 29  |(a%),artist$(b%)|
00004ef0  3a c8 94 20 74 69 74 6c  65 24 28 61 25 29 2c 74  |:.. title$(a%),t|
00004f00  69 74 6c 65 24 28 62 25  29 3a c8 94 20 66 6f 72  |itle$(b%):.. for|
00004f10  6d 61 74 24 28 61 25 29  2c 66 6f 72 6d 61 74 24  |mat$(a%),format$|
00004f20  28 62 25 29 3a c8 94 20  73 69 7a 65 24 28 61 25  |(b%):.. size$(a%|
00004f30  29 2c 73 69 7a 65 24 28  62 25 29 3a c8 94 20 74  |),size$(b%):.. t|
00004f40  72 61 63 6b 73 24 28 61  25 29 2c 74 72 61 63 6b  |racks$(a%),track|
00004f50  73 24 28 62 25 29 3a c8  94 20 6c 65 6e 67 74 68  |s$(b%):.. length|
00004f60  24 28 61 25 29 2c 6c 65  6e 67 74 68 24 28 62 25  |$(a%),length$(b%|
00004f70  29 3a c8 94 20 74 79 70  65 24 28 61 25 29 2c 74  |):.. type$(a%),t|
00004f80  79 70 65 24 28 62 25 29  3a c8 94 20 79 65 61 72  |ype$(b%):.. year|
00004f90  24 28 61 25 29 2c 79 65  61 72 24 28 62 25 29 0d  |$(a%),year$(b%).|
00004fa0  17 f2 9b c8 94 20 74 31  24 28 61 25 29 2c 74 31  |..... t1$(a%),t1|
00004fb0  24 28 62 25 29 3a c8 94  20 74 32 24 28 61 25 29  |$(b%):.. t2$(a%)|
00004fc0  2c 74 32 24 28 62 25 29  3a c8 94 20 74 33 24 28  |,t2$(b%):.. t3$(|
00004fd0  61 25 29 2c 74 33 24 28  62 25 29 3a c8 94 20 74  |a%),t3$(b%):.. t|
00004fe0  34 24 28 61 25 29 2c 74  34 24 28 62 25 29 3a c8  |4$(a%),t4$(b%):.|
00004ff0  94 20 74 35 24 28 61 25  29 2c 74 35 24 28 62 25  |. t5$(a%),t5$(b%|
00005000  29 3a c8 94 20 74 36 24  28 61 25 29 2c 74 36 24  |):.. t6$(a%),t6$|
00005010  28 62 25 29 3a c8 94 20  74 37 24 28 61 25 29 2c  |(b%):.. t7$(a%),|
00005020  74 37 24 28 62 25 29 3a  c8 94 20 74 38 24 28 61  |t7$(b%):.. t8$(a|
00005030  25 29 2c 74 38 24 28 62  25 29 0d 17 fc a9 c8 94  |%),t8$(b%)......|
00005040  20 74 39 24 28 61 25 29  2c 74 39 24 28 62 25 29  | t9$(a%),t9$(b%)|
00005050  3a c8 94 20 74 31 30 24  28 61 25 29 2c 74 31 30  |:.. t10$(a%),t10|
00005060  24 28 62 25 29 3a c8 94  20 74 31 31 24 28 61 25  |$(b%):.. t11$(a%|
00005070  29 2c 74 31 31 24 28 62  25 29 3a c8 94 20 74 31  |),t11$(b%):.. t1|
00005080  32 24 28 61 25 29 2c 74  31 32 24 28 62 25 29 3a  |2$(a%),t12$(b%):|
00005090  c8 94 20 74 31 33 24 28  61 25 29 2c 74 31 33 24  |.. t13$(a%),t13$|
000050a0  28 62 25 29 3a c8 94 20  74 31 34 24 28 61 25 29  |(b%):.. t14$(a%)|
000050b0  2c 74 31 34 24 28 62 25  29 3a c8 94 20 74 31 35  |,t14$(b%):.. t15|
000050c0  24 28 61 25 29 2c 74 31  35 24 28 62 25 29 3a c8  |$(a%),t15$(b%):.|
000050d0  94 20 74 31 36 24 28 61  25 29 2c 74 31 36 24 28  |. t16$(a%),t16$(|
000050e0  62 25 29 0d 18 06 ab c8  94 20 74 31 37 24 28 61  |b%)...... t17$(a|
000050f0  25 29 2c 74 31 37 24 28  62 25 29 3a c8 94 20 74  |%),t17$(b%):.. t|
00005100  31 38 24 28 61 25 29 2c  74 31 38 24 28 62 25 29  |18$(a%),t18$(b%)|
00005110  3a c8 94 20 74 31 39 24  28 61 25 29 2c 74 31 39  |:.. t19$(a%),t19|
00005120  24 28 62 25 29 3a c8 94  20 74 32 30 24 28 61 25  |$(b%):.. t20$(a%|
00005130  29 2c 74 32 30 24 28 62  25 29 3a c8 94 20 74 32  |),t20$(b%):.. t2|
00005140  31 24 28 61 25 29 2c 74  32 31 24 28 62 25 29 3a  |1$(a%),t21$(b%):|
00005150  c8 94 20 74 32 32 24 28  61 25 29 2c 74 32 32 24  |.. t22$(a%),t22$|
00005160  28 62 25 29 3a c8 94 20  74 32 33 24 28 61 25 29  |(b%):.. t23$(a%)|
00005170  2c 74 32 33 24 28 62 25  29 3a c8 94 20 74 32 34  |,t23$(b%):.. t24|
00005180  24 28 61 25 29 2c 74 32  34 24 28 62 25 29 0d 18  |$(a%),t24$(b%)..|
00005190  10 05 e1 0d 18 1a 05 3a  0d 18 24 19 dd f2 69 6e  |.......:..$...in|
000051a0  69 74 69 61 6c 69 73 65  5f 63 64 5f 69 6e 64 65  |itialise_cd_inde|
000051b0  78 0d 18 2e 11 f2 6c 6f  61 64 5f 63 68 6f 69 63  |x.....load_choic|
000051c0  65 73 0d 18 38 6e de 20  61 72 74 69 73 74 24 28  |es..8n. artist$(|
000051d0  31 30 30 30 29 2c 74 69  74 6c 65 24 28 31 30 30  |1000),title$(100|
000051e0  30 29 2c 66 6f 72 6d 61  74 24 28 31 30 30 30 29  |0),format$(1000)|
000051f0  2c 73 69 7a 65 24 28 31  30 30 30 29 2c 74 72 61  |,size$(1000),tra|
00005200  63 6b 73 24 28 31 30 30  30 29 2c 6c 65 6e 67 74  |cks$(1000),lengt|
00005210  68 24 28 31 30 30 30 29  2c 74 79 70 65 24 28 31  |h$(1000),type$(1|
00005220  30 30 30 29 2c 79 65 61  72 24 28 31 30 30 30 29  |000),year$(1000)|
00005230  0d 18 42 80 de 20 74 31  24 28 31 30 30 30 29 2c  |..B.. t1$(1000),|
00005240  74 32 24 28 31 30 30 30  29 2c 74 33 24 28 31 30  |t2$(1000),t3$(10|
00005250  30 30 29 2c 74 34 24 28  31 30 30 30 29 2c 74 35  |00),t4$(1000),t5|
00005260  24 28 31 30 30 30 29 2c  74 36 24 28 31 30 30 30  |$(1000),t6$(1000|
00005270  29 2c 74 37 24 28 31 30  30 30 29 2c 74 38 24 28  |),t7$(1000),t8$(|
00005280  31 30 30 30 29 2c 74 39  24 28 31 30 30 30 29 2c  |1000),t9$(1000),|
00005290  74 31 30 24 28 31 30 30  30 29 2c 74 31 31 24 28  |t10$(1000),t11$(|
000052a0  31 30 30 30 29 2c 74 31  32 24 28 31 30 30 30 29  |1000),t12$(1000)|
000052b0  0d 18 4c 96 de 20 74 31  33 24 28 31 30 30 30 29  |..L.. t13$(1000)|
000052c0  2c 74 31 34 24 28 31 30  30 30 29 2c 74 31 35 24  |,t14$(1000),t15$|
000052d0  28 31 30 30 30 29 2c 74  31 36 24 28 31 30 30 30  |(1000),t16$(1000|
000052e0  29 2c 74 31 37 24 28 31  30 30 30 29 2c 74 31 38  |),t17$(1000),t18|
000052f0  24 28 31 30 30 30 29 2c  74 31 39 24 28 31 30 30  |$(1000),t19$(100|
00005300  30 29 2c 74 32 30 24 28  31 30 30 30 29 2c 74 32  |0),t20$(1000),t2|
00005310  31 24 28 31 30 30 30 29  2c 74 32 32 24 28 31 30  |1$(1000),t22$(10|
00005320  30 30 29 2c 74 32 33 24  28 31 30 30 30 29 2c 74  |00),t23$(1000),t|
00005330  32 34 24 28 31 30 30 30  29 2c 74 72 61 63 6b 24  |24$(1000),track$|
00005340  28 31 30 30 30 29 0d 18  56 4a 72 65 63 6f 72 64  |(1000)..VJrecord|
00005350  5f 6e 75 6d 62 65 72 25  3d 31 3a 73 6f 72 74 5f  |_number%=1:sort_|
00005360  73 65 6c 65 63 74 65 64  25 3d 30 3a 73 65 61 72  |selected%=0:sear|
00005370  63 68 74 79 70 65 24 3d  22 41 72 74 69 73 74 22  |chtype$="Artist"|
00005380  3a 73 61 76 65 74 79 70  65 24 3d 22 44 39 30 22  |:savetype$="D90"|
00005390  0d 18 60 49 66 69 6c 65  6e 61 6d 65 24 3d 22 43  |..`Ifilename$="C|
000053a0  44 49 6e 64 65 78 22 3a  70 72 69 6e 74 65 72 24  |DIndex":printer$|
000053b0  3d 22 44 72 61 66 74 22  3a 70 72 69 6e 74 77 68  |="Draft":printwh|
000053c0  61 74 24 3d 22 41 54 22  3a 73 65 61 72 63 68 73  |at$="AT":searchs|
000053d0  74 72 69 6e 67 24 3d 22  22 0d 18 6a 05 e1 0d 18  |tring$=""..j....|
000053e0  74 05 3a 0d 18 7e 0c dd  f2 75 70 64 61 74 65 0d  |t.:..~...update.|
000053f0  18 88 29 e7 20 72 65 63  6f 72 64 5f 6e 75 6d 62  |..). record_numb|
00005400  65 72 25 3c 31 20 8c 20  72 65 63 6f 72 64 5f 6e  |er%<1 . record_n|
00005410  75 6d 62 65 72 25 3d 31  0d 18 92 3d e7 20 72 65  |umber%=1...=. re|
00005420  63 6f 72 64 5f 6e 75 6d  62 65 72 25 3e 6d 61 78  |cord_number%>max|
00005430  5f 72 65 63 6f 72 64 25  20 8c 20 72 65 63 6f 72  |_record% . recor|
00005440  64 5f 6e 75 6d 62 65 72  25 3d 6d 61 78 5f 72 65  |d_number%=max_re|
00005450  63 6f 72 64 25 0d 18 9c  19 f2 66 69 6c 6c 28 72  |cord%.....fill(r|
00005460  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 29 0d 18  |ecord_number%)..|
00005470  a6 05 e1 0d 18 b0 05 3a  0d 18 ba 1a dd f2 66 69  |.......:......fi|
00005480  6c 6c 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |ll(record_number|
00005490  25 29 0d 18 c4 2e f2 75  70 64 61 74 65 5f 69 63  |%).....update_ic|
000054a0  6f 6e 28 63 64 5f 70 61  6e 65 25 2c 36 2c c3 28  |on(cd_pane%,6,.(|
000054b0  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 29 29  |record_number%))|
000054c0  0d 18 ce 35 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |...5.update_icon|
000054d0  28 63 64 5f 69 6e 64 65  78 25 2c 39 2c 61 72 74  |(cd_index%,9,art|
000054e0  69 73 74 24 28 72 65 63  6f 72 64 5f 6e 75 6d 62  |ist$(record_numb|
000054f0  65 72 25 29 29 0d 18 d8  35 f2 75 70 64 61 74 65  |er%))...5.update|
00005500  5f 69 63 6f 6e 28 63 64  5f 69 6e 64 65 78 25 2c  |_icon(cd_index%,|
00005510  31 30 2c 74 69 74 6c 65  24 28 72 65 63 6f 72 64  |10,title$(record|
00005520  5f 6e 75 6d 62 65 72 25  29 29 0d 18 e2 36 f2 75  |_number%))...6.u|
00005530  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
00005540  64 65 78 25 2c 31 31 2c  66 6f 72 6d 61 74 24 28  |dex%,11,format$(|
00005550  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 29 29  |record_number%))|
00005560  0d 18 ec 34 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |...4.update_icon|
00005570  28 63 64 5f 69 6e 64 65  78 25 2c 31 32 2c 73 69  |(cd_index%,12,si|
00005580  7a 65 24 28 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |ze$(record_numbe|
00005590  72 25 29 29 0d 18 f6 36  f2 75 70 64 61 74 65 5f  |r%))...6.update_|
000055a0  69 63 6f 6e 28 63 64 5f  69 6e 64 65 78 25 2c 31  |icon(cd_index%,1|
000055b0  33 2c 74 72 61 63 6b 73  24 28 72 65 63 6f 72 64  |3,tracks$(record|
000055c0  5f 6e 75 6d 62 65 72 25  29 29 0d 19 00 36 f2 75  |_number%))...6.u|
000055d0  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 69 6e  |pdate_icon(cd_in|
000055e0  64 65 78 25 2c 31 34 2c  6c 65 6e 67 74 68 24 28  |dex%,14,length$(|
000055f0  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 29 29  |record_number%))|
00005600  0d 19 0a 34 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |...4.update_icon|
00005610  28 63 64 5f 69 6e 64 65  78 25 2c 31 35 2c 74 79  |(cd_index%,15,ty|
00005620  70 65 24 28 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |pe$(record_numbe|
00005630  72 25 29 29 0d 19 14 34  f2 75 70 64 61 74 65 5f  |r%))...4.update_|
00005640  69 63 6f 6e 28 63 64 5f  69 6e 64 65 78 25 2c 31  |icon(cd_index%,1|
00005650  36 2c 79 65 61 72 24 28  72 65 63 6f 72 64 5f 6e  |6,year$(record_n|
00005660  75 6d 62 65 72 25 29 29  0d 19 1e 12 f2 75 70 64  |umber%)).....upd|
00005670  61 74 65 5f 74 72 61 63  6b 73 0d 19 28 1c f2 6d  |ate_tracks..(..m|
00005680  6f 76 65 5f 63 61 72 65  74 28 63 64 5f 69 6e 64  |ove_caret(cd_ind|
00005690  65 78 25 2c 39 29 0d 19  32 30 f2 75 70 64 61 74  |ex%,9)..20.updat|
000056a0  65 5f 69 63 6f 6e 28 63  64 5f 70 72 69 6e 74 25  |e_icon(cd_print%|
000056b0  2c 31 33 2c c3 28 72 65  63 6f 72 64 5f 6e 75 6d  |,13,.(record_num|
000056c0  62 65 72 25 29 29 0d 19  3c 05 e1 0d 19 46 05 3a  |ber%))..<....F.:|
000056d0  0d 19 50 13 dd f2 6e 75  6d 62 65 72 5f 75 70 64  |..P...number_upd|
000056e0  61 74 65 0d 19 5a 2b 72  65 63 6f 72 64 5f 6e 75  |ate..Z+record_nu|
000056f0  6d 62 65 72 25 3d bb 28  a4 69 6e 64 69 72 65 63  |mber%=.(.indirec|
00005700  74 28 63 64 5f 70 61 6e  65 25 2c 36 29 29 0d 19  |t(cd_pane%,6))..|
00005710  64 29 e7 20 72 65 63 6f  72 64 5f 6e 75 6d 62 65  |d). record_numbe|
00005720  72 25 3c 31 20 8c 20 72  65 63 6f 72 64 5f 6e 75  |r%<1 . record_nu|
00005730  6d 62 65 72 25 3d 31 0d  19 6e 3d e7 20 72 65 63  |mber%=1..n=. rec|
00005740  6f 72 64 5f 6e 75 6d 62  65 72 25 3e 6d 61 78 5f  |ord_number%>max_|
00005750  72 65 63 6f 72 64 25 20  8c 20 72 65 63 6f 72 64  |record% . record|
00005760  5f 6e 75 6d 62 65 72 25  3d 6d 61 78 5f 72 65 63  |_number%=max_rec|
00005770  6f 72 64 25 0d 19 78 19  f2 66 69 6c 6c 28 72 65  |ord%..x..fill(re|
00005780  63 6f 72 64 5f 6e 75 6d  62 65 72 25 29 0d 19 82  |cord_number%)...|
00005790  05 e1 0d 19 8c 05 3a 0d  19 96 1a dd f2 72 65 5f  |......:......re_|
000057a0  74 69 74 6c 65 28 6e 65  77 5f 74 69 74 6c 65 24  |title(new_title$|
000057b0  29 0d 19 a0 11 21 71 25  3d 63 64 5f 69 6e 64 65  |)....!q%=cd_inde|
000057c0  78 25 0d 19 aa 1f c8 99  20 22 57 69 6d 70 5f 47  |x%...... "Wimp_G|
000057d0  65 74 57 69 6e 64 6f 77  49 6e 66 6f 22 2c 2c 71  |etWindowInfo",,q|
000057e0  25 0d 19 b4 37 e7 20 28  28 71 25 21 36 30 29 20  |%...7. ((q%!60) |
000057f0  80 20 26 31 30 30 29 3d  30 20 8c 20 85 20 31 2c  |. &100)=0 . . 1,|
00005800  22 54 69 74 6c 65 20 69  73 6e 27 74 20 69 6e 64  |"Title isn't ind|
00005810  69 72 65 63 74 65 64 22  0d 19 be 17 24 28 71 25  |irected"....$(q%|
00005820  21 37 36 29 3d 6e 65 77  5f 74 69 74 6c 65 24 0d  |!76)=new_title$.|
00005830  19 c8 4f e7 20 28 28 71  25 21 33 32 29 20 80 20  |..O. ((q%!32) . |
00005840  28 31 3c 3c 31 36 29 29  3c 3e 30 20 c8 99 20 22  |(1<<16))<>0 .. "|
00005850  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00005860  22 2c 2d 31 2c 71 25 21  34 2c 71 25 21 31 36 2c  |",-1,q%!4,q%!16,|
00005870  71 25 21 31 32 2c 71 25  21 31 36 2b 34 34 0d 19  |q%!12,q%!16+44..|
00005880  d2 05 e1 0d 19 dc 05 3a  0d 19 e6 0a dd f2 72 65  |.......:......re|
00005890  61 64 0d 19 f0 1b f2 72  65 5f 74 69 74 6c 65 28  |ad.....re_title(|
000058a0  22 43 44 20 49 6e 64 65  78 20 2a 22 29 0d 19 fa  |"CD Index *")...|
000058b0  0e 75 6e 73 61 76 65 64  25 3d b9 0d 1a 04 2b 72  |.unsaved%=....+r|
000058c0  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 3d bb 28  |ecord_number%=.(|
000058d0  a4 69 6e 64 69 72 65 63  74 28 63 64 5f 70 61 6e  |.indirect(cd_pan|
000058e0  65 25 2c 36 29 29 0d 1a  0e 32 61 72 74 69 73 74  |e%,6))...2artist|
000058f0  24 28 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |$(record_number%|
00005900  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 69  |)=.indirect(cd_i|
00005910  6e 64 65 78 25 2c 39 29  0d 1a 18 32 74 69 74 6c  |ndex%,9)...2titl|
00005920  65 24 28 72 65 63 6f 72  64 5f 6e 75 6d 62 65 72  |e$(record_number|
00005930  25 29 3d a4 69 6e 64 69  72 65 63 74 28 63 64 5f  |%)=.indirect(cd_|
00005940  69 6e 64 65 78 25 2c 31  30 29 0d 1a 22 33 66 6f  |index%,10).."3fo|
00005950  72 6d 61 74 24 28 72 65  63 6f 72 64 5f 6e 75 6d  |rmat$(record_num|
00005960  62 65 72 25 29 3d a4 69  6e 64 69 72 65 63 74 28  |ber%)=.indirect(|
00005970  63 64 5f 69 6e 64 65 78  25 2c 31 31 29 0d 1a 2c  |cd_index%,11)..,|
00005980  31 73 69 7a 65 24 28 72  65 63 6f 72 64 5f 6e 75  |1size$(record_nu|
00005990  6d 62 65 72 25 29 3d a4  69 6e 64 69 72 65 63 74  |mber%)=.indirect|
000059a0  28 63 64 5f 69 6e 64 65  78 25 2c 31 32 29 0d 1a  |(cd_index%,12)..|
000059b0  36 33 74 72 61 63 6b 73  24 28 72 65 63 6f 72 64  |63tracks$(record|
000059c0  5f 6e 75 6d 62 65 72 25  29 3d a4 69 6e 64 69 72  |_number%)=.indir|
000059d0  65 63 74 28 63 64 5f 69  6e 64 65 78 25 2c 31 33  |ect(cd_index%,13|
000059e0  29 0d 1a 40 33 6c 65 6e  67 74 68 24 28 72 65 63  |)..@3length$(rec|
000059f0  6f 72 64 5f 6e 75 6d 62  65 72 25 29 3d a4 69 6e  |ord_number%)=.in|
00005a00  64 69 72 65 63 74 28 63  64 5f 69 6e 64 65 78 25  |direct(cd_index%|
00005a10  2c 31 34 29 0d 1a 4a 31  74 79 70 65 24 28 72 65  |,14)..J1type$(re|
00005a20  63 6f 72 64 5f 6e 75 6d  62 65 72 25 29 3d a4 69  |cord_number%)=.i|
00005a30  6e 64 69 72 65 63 74 28  63 64 5f 69 6e 64 65 78  |ndirect(cd_index|
00005a40  25 2c 31 35 29 0d 1a 54  31 79 65 61 72 24 28 72  |%,15)..T1year$(r|
00005a50  65 63 6f 72 64 5f 6e 75  6d 62 65 72 25 29 3d a4  |ecord_number%)=.|
00005a60  69 6e 64 69 72 65 63 74  28 63 64 5f 69 6e 64 65  |indirect(cd_inde|
00005a70  78 25 2c 31 36 29 0d 1a  5e 05 e1 0d 1a 68 05 3a  |x%,16)..^....h.:|
00005a80  0d 1a 72 18 dd a4 69 6e  64 69 72 65 63 74 28 21  |..r...indirect(!|
00005a90  71 25 2c 71 25 21 34 29  0d 1a 7c 1e c8 99 20 22  |q%,q%!4)..|... "|
00005aa0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00005ab0  65 22 2c 2c 71 25 0d 1a  86 0d 3d 24 28 71 25 21  |e",,q%....=$(q%!|
00005ac0  32 38 29 0d 1a 90 05 3a  0d 1a 9a 09 dd f2 6e 65  |28)....:......ne|
00005ad0  77 0d 1a a4 15 c8 99 20  22 48 6f 75 72 67 6c 61  |w...... "Hourgla|
00005ae0  73 73 5f 4f 6e 22 0d 1a  ae 34 f2 6f 70 65 6e 5f  |ss_On"...4.open_|
00005af0  61 6e 69 6d 61 74 69 6f  6e 3a f2 6f 70 65 6e 28  |animation:.open(|
00005b00  63 64 5f 69 6e 64 65 78  25 29 3a f2 6f 70 65 6e  |cd_index%):.open|
00005b10  28 63 64 5f 70 61 6e 65  25 29 0d 1a b8 18 e3 20  |(cd_pane%)..... |
00005b20  49 25 3d 31 20 b8 20 6d  61 78 5f 72 65 63 6f 72  |I%=1 . max_recor|
00005b30  64 25 0d 1a c2 74 61 72  74 69 73 74 24 28 49 25  |d%...tartist$(I%|
00005b40  29 3d 22 22 3a 74 69 74  6c 65 24 28 49 25 29 3d  |)="":title$(I%)=|
00005b50  22 22 3a 66 6f 72 6d 61  74 24 28 49 25 29 3d 22  |"":format$(I%)="|
00005b60  22 3a 73 69 7a 65 24 28  49 25 29 3d 22 22 3a 74  |":size$(I%)="":t|
00005b70  72 61 63 6b 73 24 28 49  25 29 3d 22 22 3a 6c 65  |racks$(I%)="":le|
00005b80  6e 67 74 68 24 28 49 25  29 3d 22 22 3a 74 79 70  |ngth$(I%)="":typ|
00005b90  65 24 28 49 25 29 3d 22  22 3a 79 65 61 72 24 28  |e$(I%)="":year$(|
00005ba0  49 25 29 3d 22 22 0d 1a  cc 08 ed 20 49 25 0d 1a  |I%)=""..... I%..|
00005bb0  d6 24 72 65 63 6f 72 64  5f 6e 75 6d 62 65 72 25  |.$record_number%|
00005bc0  3d 31 3a 6d 61 78 5f 72  65 63 6f 72 64 25 3d 31  |=1:max_record%=1|
00005bd0  30 30 0d 1a e0 2e f2 75  70 64 61 74 65 5f 69 63  |00.....update_ic|
00005be0  6f 6e 28 63 64 5f 70 61  6e 65 25 2c 36 2c c3 28  |on(cd_pane%,6,.(|
00005bf0  72 65 63 6f 72 64 5f 6e  75 6d 62 65 72 25 29 29  |record_number%))|
00005c00  0d 1a ea 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00005c10  73 5f 4f 66 66 22 0d 1a  f4 0e 75 6e 73 61 76 65  |s_Off"....unsave|
00005c20  64 25 3d a3 0d 1a fe 05  e1 0d 1b 08 05 3a 0d 1b  |d%=..........:..|
00005c30  12 16 dd f2 6c 6f 61 64  5f 61 63 6b 6e 6f 77 6c  |....load_acknowl|
00005c40  65 64 67 65 0d 1b 1c 0e  71 25 21 31 32 3d 71 25  |edge....q%!12=q%|
00005c50  21 38 0d 1b 26 0b 71 25  21 31 36 3d 34 0d 1b 30  |!8..&.q%!16=4..0|
00005c60  24 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$.. "Wimp_SendMe|
00005c70  73 73 61 67 65 22 2c 31  37 2c 71 25 2c 71 25 21  |ssage",17,q%,q%!|
00005c80  34 0d 1b 3a 05 e1 0d 1b  44 05 3a 0d 1b 4e 10 dd  |4..:....D.:..N..|
00005c90  f2 6f 6b 5f 74 6f 5f 6c  6f 61 64 0d 1b 58 10 66  |.ok_to_load..X.f|
00005ca0  69 6c 65 6e 61 6d 65 24  3d 22 22 0d 1b 62 08 61  |ilename$=""..b.a|
00005cb0  25 3d 30 0d 1b 6c 11 62  25 3d 71 25 3f 28 34 34  |%=0..l.b%=q%?(44|
00005cc0  2b 61 25 29 0d 1b 76 0c  c8 95 20 62 25 3c 3e 30  |+a%)..v... b%<>0|
00005cd0  0d 1b 80 14 66 69 6c 65  6e 61 6d 65 24 2b 3d bd  |....filename$+=.|
00005ce0  28 62 25 29 0d 1b 8a 09  61 25 2b 3d 31 0d 1b 94  |(b%)....a%+=1...|
00005cf0  11 62 25 3d 71 25 3f 28  34 34 2b 61 25 29 0d 1b  |.b%=q%?(44+a%)..|
00005d00  9e 05 ce 0d 1b a8 19 f2  6c 6f 61 64 5f 64 61 74  |........load_dat|
00005d10  61 28 66 69 6c 65 6e 61  6d 65 24 29 0d 1b b2 05  |a(filename$)....|
00005d20  e1 0d 1b bc 05 3a 0d 1b  c6 1a dd f2 6c 6f 61 64  |.....:......load|
00005d30  5f 64 61 74 61 28 64 61  74 61 66 69 6c 65 24 29  |_data(datafile$)|
00005d40  0d 1b d0 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00005d50  73 5f 4f 6e 22 0d 1b da  14 43 48 25 3d 8e 28 64  |s_On"....CH%=.(d|
00005d60  61 74 61 66 69 6c 65 24  29 0d 1b e4 15 e8 23 43  |atafile$).....#C|
00005d70  48 25 2c 6d 61 78 5f 72  65 63 6f 72 64 25 0d 1b  |H%,max_record%..|
00005d80  ee 18 e3 20 49 25 3d 31  20 b8 20 6d 61 78 5f 72  |... I%=1 . max_r|
00005d90  65 63 6f 72 64 25 0d 1b  f8 62 e8 23 43 48 25 2c  |ecord%...b.#CH%,|
00005da0  61 72 74 69 73 74 24 28  49 25 29 2c 74 69 74 6c  |artist$(I%),titl|
00005db0  65 24 28 49 25 29 2c 66  6f 72 6d 61 74 24 28 49  |e$(I%),format$(I|
00005dc0  25 29 2c 73 69 7a 65 24  28 49 25 29 2c 74 72 61  |%),size$(I%),tra|
00005dd0  63 6b 73 24 28 49 25 29  2c 6c 65 6e 67 74 68 24  |cks$(I%),length$|
00005de0  28 49 25 29 2c 74 79 70  65 24 28 49 25 29 2c 79  |(I%),type$(I%),y|
00005df0  65 61 72 24 28 49 25 29  0d 1c 02 e3 e8 23 43 48  |ear$(I%).....#CH|
00005e00  25 2c 74 31 24 28 49 25  29 2c 74 32 24 28 49 25  |%,t1$(I%),t2$(I%|
00005e10  29 2c 74 33 24 28 49 25  29 2c 74 34 24 28 49 25  |),t3$(I%),t4$(I%|
00005e20  29 2c 74 35 24 28 49 25  29 2c 74 36 24 28 49 25  |),t5$(I%),t6$(I%|
00005e30  29 2c 74 37 24 28 49 25  29 2c 74 38 24 28 49 25  |),t7$(I%),t8$(I%|
00005e40  29 2c 74 39 24 28 49 25  29 2c 74 31 30 24 28 49  |),t9$(I%),t10$(I|
00005e50  25 29 2c 74 31 31 24 28  49 25 29 2c 74 31 32 24  |%),t11$(I%),t12$|
00005e60  28 49 25 29 2c 74 31 33  24 28 49 25 29 2c 74 31  |(I%),t13$(I%),t1|
00005e70  34 24 28 49 25 29 2c 74  31 35 24 28 49 25 29 2c  |4$(I%),t15$(I%),|
00005e80  74 31 36 24 28 49 25 29  2c 74 31 37 24 28 49 25  |t16$(I%),t17$(I%|
00005e90  29 2c 74 31 38 24 28 49  25 29 2c 74 31 39 24 28  |),t18$(I%),t19$(|
00005ea0  49 25 29 2c 74 32 30 24  28 49 25 29 2c 74 32 31  |I%),t20$(I%),t21|
00005eb0  24 28 49 25 29 2c 74 32  32 24 28 49 25 29 2c 74  |$(I%),t22$(I%),t|
00005ec0  32 33 24 28 49 25 29 2c  74 32 34 24 28 49 25 29  |23$(I%),t24$(I%)|
00005ed0  2c 74 72 61 63 6b 24 28  49 25 29 0d 1c 0c 08 ed  |,track$(I%).....|
00005ee0  20 49 25 0d 1c 16 09 d9  23 43 48 25 0d 1c 20 19  | I%.....#CH%.. .|
00005ef0  f2 72 65 5f 74 69 74 6c  65 28 22 43 44 20 49 6e  |.re_title("CD In|
00005f00  64 65 78 22 29 0d 1c 2a  0e 75 6e 73 61 76 65 64  |dex")..*.unsaved|
00005f10  25 3d a3 0d 1c 34 34 f2  6f 70 65 6e 5f 61 6e 69  |%=...44.open_ani|
00005f20  6d 61 74 69 6f 6e 3a f2  6f 70 65 6e 28 63 64 5f  |mation:.open(cd_|
00005f30  69 6e 64 65 78 25 29 3a  f2 6f 70 65 6e 28 63 64  |index%):.open(cd|
00005f40  5f 70 61 6e 65 25 29 0d  1c 3e 14 72 65 63 6f 72  |_pane%)..>.recor|
00005f50  64 5f 6e 75 6d 62 65 72  25 3d 31 0d 1c 48 0b f2  |d_number%=1..H..|
00005f60  75 70 64 61 74 65 0d 1c  52 16 c8 99 20 22 48 6f  |update..R... "Ho|
00005f70  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 1c 5c 0e  |urglass_Off"..\.|
00005f80  f2 63 6c 6f 73 65 5f 61  6c 6c 0d 1c 66 05 e1 0d  |.close_all..f...|
00005f90  1c 70 05 3a 0d 1c 7a 0d  dd f2 64 72 61 67 62 6f  |.p.:..z...dragbo|
00005fa0  78 0d 1c 84 12 78 25 3d  21 71 25 3a 79 25 3d 71  |x....x%=!q%:y%=q|
00005fb0  25 21 34 0d 1c 8e 41 71  25 21 34 3d 35 3a 71 25  |%!4...Aq%!4=5:q%|
00005fc0  21 38 3d 78 25 2d 34 30  3a 71 25 21 31 32 3d 79  |!8=x%-40:q%!12=y|
00005fd0  25 2d 34 30 3a 71 25 21  31 36 3d 78 25 2b 34 30  |%-40:q%!16=x%+40|
00005fe0  3a 71 25 21 32 30 3d 79  25 2b 34 30 3a 71 25 21  |:q%!20=y%+40:q%!|
00005ff0  32 34 3d 30 0d 1c 98 27  71 25 21 32 38 3d 30 3a  |24=0...'q%!28=0:|
00006000  71 25 21 33 32 3d 26 37  46 46 46 46 46 46 46 3a  |q%!32=&7FFFFFFF:|
00006010  71 25 21 33 36 3d 71 25  21 33 32 0d 1c a2 19 c8  |q%!36=q%!32.....|
00006020  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
00006030  2c 2c 71 25 0d 1c ac 05  e1 0d 1c b6 05 3a 0d 1c  |,,q%.........:..|
00006040  c0 0f dd f2 71 75 69 63  6b 73 61 76 65 0d 1c ca  |....quicksave...|
00006050  26 66 75 6c 6c 6e 61 6d  65 24 3d a4 69 6e 64 69  |&fullname$=.indi|
00006060  72 65 63 74 28 63 64 5f  73 61 76 65 62 6f 78 25  |rect(cd_savebox%|
00006070  2c 31 29 0d 1c d4 33 e7  20 66 75 6c 6c 6e 61 6d  |,1)...3. fullnam|
00006080  65 24 3d 22 22 20 8c 20  85 20 31 2c 22 50 6c 65  |e$="" . . 1,"Ple|
00006090  61 73 65 20 69 6e 73 65  72 74 20 61 20 66 69 6c  |ase insert a fil|
000060a0  65 6e 61 6d 65 22 0d 1c  de 4c e7 20 a7 66 75 6c  |ename"...L. .ful|
000060b0  6c 6e 61 6d 65 24 2c 22  2e 22 29 3d 30 20 8c 20  |lname$,".")=0 . |
000060c0  85 20 31 2c 22 54 6f 20  73 61 76 65 2c 20 64 72  |. 1,"To save, dr|
000060d0  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
000060e0  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
000060f0  72 22 0d 1c e8 19 f2 73  61 76 65 5f 64 61 74 61  |r".....save_data|
00006100  28 66 75 6c 6c 6e 61 6d  65 24 29 0d 1c f2 29 f2  |(fullname$)...).|
00006110  75 70 64 61 74 65 5f 69  63 6f 6e 28 63 64 5f 73  |update_icon(cd_s|
00006120  61 76 65 62 6f 78 25 2c  31 2c 66 75 6c 6c 6e 61  |avebox%,1,fullna|
00006130  6d 65 24 29 0d 1c fc 2d  f2 72 65 5f 74 69 74 6c  |me$)...-.re_titl|
00006140  65 28 22 43 44 20 49 6e  64 65 78 22 29 3a f2 63  |e("CD Index"):.c|
00006150  6c 6f 73 65 28 63 64 5f  73 61 76 65 62 6f 78 25  |lose(cd_savebox%|
00006160  29 0d 1d 06 0e 75 6e 73  61 76 65 64 25 3d a3 0d  |)....unsaved%=..|
00006170  1d 10 1c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..... "Wimp_Crea|
00006180  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 1d 1a 05 e1  |teMenu",,-1.....|
00006190  0d 1d 24 05 3a 0d 1d 2e  1b dd f2 69 6e 69 74 69  |..$.:......initi|
000061a0  61 74 65 5f 73 61 76 65  28 66 6e 61 6d 65 24 29  |ate_save(fname$)|
000061b0  0d 1d 38 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..8 .. "Wimp_Get|
000061c0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
000061d0  0d 1d 42 17 e7 20 71 25  21 31 32 3d 63 64 5f 69  |..B.. q%!12=cd_i|
000061e0  6e 64 65 78 25 20 e1 0d  1d 4c 17 71 25 21 32 30  |ndex% ...L.q%!20|
000061f0  3d 71 25 21 31 32 3a 71  25 21 31 32 3d 30 0d 1d  |=q%!12:q%!12=0..|
00006200  56 17 71 25 21 32 34 3d  71 25 21 31 36 3a 71 25  |V.q%!24=q%!16:q%|
00006210  21 31 36 3d 31 0d 1d 60  16 71 25 21 32 38 3d 71  |!16=1..`.q%!28=q|
00006220  25 21 30 3a 71 25 21 30  3d 36 34 0d 1d 6a 19 71  |%!0:q%!0=64..j.q|
00006230  25 21 33 32 3d 71 25 21  34 3a 71 25 21 33 36 3d  |%!32=q%!4:q%!36=|
00006240  38 30 39 36 0d 1d 74 2f  e7 20 73 61 76 65 74 79  |8096..t/. savety|
00006250  70 65 24 3d 22 44 39 30  22 20 8c 20 71 25 21 34  |pe$="D90" . q%!4|
00006260  30 3d 26 44 39 30 20 8b  20 71 25 21 34 30 3d 26  |0=&D90 . q%!40=&|
00006270  46 46 46 0d 1d 7e 21 24  28 71 25 2b 34 34 29 3d  |FFF..~!$(q%+44)=|
00006280  a4 67 65 74 5f 6c 65 61  66 28 66 6e 61 6d 65 24  |.get_leaf(fname$|
00006290  29 2b bd 30 0d 1d 88 25  c8 99 20 22 57 69 6d 70  |)+.0...%.. "Wimp|
000062a0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000062b0  2c 71 25 2c 71 25 21 32  30 0d 1d 92 05 e1 0d 1d  |,q%,q%!20.......|
000062c0  9c 05 3a 0d 1d a6 15 dd  a4 67 65 74 5f 6c 65 61  |..:......get_lea|
000062d0  66 28 6e 61 6d 65 24 29  0d 1d b0 12 c8 95 20 a7  |f(name$)...... .|
000062e0  6e 61 6d 65 24 2c 22 2e  22 29 0d 1d ba 1f 6e 61  |name$,".")....na|
000062f0  6d 65 24 3d c1 6e 61 6d  65 24 2c a7 6e 61 6d 65  |me$=.name$,.name|
00006300  24 2c 22 2e 22 29 2b 31  29 0d 1d c4 05 ce 0d 1d  |$,".")+1).......|
00006310  ce 0d 3d 6e 61 6d 65 24  2b bd 30 0d 1d d8 05 3a  |..=name$+.0....:|
00006320  0d 1d e2 0e dd f2 64 61  74 61 73 61 76 65 0d 1d  |......datasave..|
00006330  ec 1c 66 75 6c 6c 6e 61  6d 65 24 3d a4 73 74 72  |..fullname$=.str|
00006340  69 6e 67 28 71 25 2b 34  34 29 0d 1d f6 12 c8 8e  |ing(q%+44)......|
00006350  20 73 61 76 65 74 79 70  65 24 20 ca 0d 1e 00 0b  | savetype$ .....|
00006360  c9 20 22 44 39 30 22 0d  1e 0a 19 f2 73 61 76 65  |. "D90".....save|
00006370  5f 64 61 74 61 28 66 75  6c 6c 6e 61 6d 65 24 29  |_data(fullname$)|
00006380  0d 1e 14 16 71 25 21 31  32 3d 71 25 21 38 3a 71  |....q%!12=q%!8:q|
00006390  25 21 31 36 3d 33 0d 1e  1e 24 c8 99 20 22 57 69  |%!16=3...$.. "Wi|
000063a0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000063b0  31 37 2c 71 25 2c 71 25  21 34 0d 1e 28 25 ff 20  |17,q%,q%!4..(%. |
000063c0  22 53 65 74 54 79 70 65  20 22 2b 66 75 6c 6c 6e  |"SetType "+fulln|
000063d0  61 6d 65 24 2b 22 20 43  44 49 6e 64 65 78 22 0d  |ame$+" CDIndex".|
000063e0  1e 32 1c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.2... "Wimp_Crea|
000063f0  74 65 4d 65 6e 75 22 2c  2c 2d 31 0d 1e 3c 19 f2  |teMenu",,-1..<..|
00006400  72 65 5f 74 69 74 6c 65  28 22 43 44 20 49 6e 64  |re_title("CD Ind|
00006410  65 78 22 29 0d 1e 46 30  f2 63 6c 6f 73 65 28 63  |ex")..F0.close(c|
00006420  64 5f 73 61 76 65 62 6f  78 25 29 3a f2 6d 6f 76  |d_savebox%):.mov|
00006430  65 5f 63 61 72 65 74 28  63 64 5f 69 6e 64 65 78  |e_caret(cd_index|
00006440  25 2c 39 29 0d 1e 50 0e  75 6e 73 61 76 65 64 25  |%,9)..P.unsaved%|
00006450  3d a3 0d 1e 5a 0b c9 20  22 46 46 46 22 0d 1e 64  |=...Z.. "FFF"..d|
00006460  19 f2 73 61 76 65 5f 74  65 78 74 28 66 75 6c 6c  |..save_text(full|
00006470  6e 61 6d 65 24 29 0d 1e  6e 16 71 25 21 31 32 3d  |name$)..n.q%!12=|
00006480  71 25 21 38 3a 71 25 21  31 36 3d 33 0d 1e 78 24  |q%!8:q%!16=3..x$|
00006490  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000064a0  73 61 67 65 22 2c 31 37  2c 71 25 2c 71 25 21 34  |sage",17,q%,q%!4|
000064b0  0d 1e 82 22 ff 20 22 53  65 74 54 79 70 65 20 22  |...". "SetType "|
000064c0  2b 66 75 6c 6c 6e 61 6d  65 24 2b 22 20 54 65 78  |+fullname$+" Tex|
000064d0  74 22 0d 1e 8c 1c c8 99  20 22 57 69 6d 70 5f 43  |t"...... "Wimp_C|
000064e0  72 65 61 74 65 4d 65 6e  75 22 2c 2c 2d 31 0d 1e  |reateMenu",,-1..|
000064f0  96 30 f2 63 6c 6f 73 65  28 63 64 5f 73 61 76 65  |.0.close(cd_save|
00006500  62 6f 78 25 29 3a f2 6d  6f 76 65 5f 63 61 72 65  |box%):.move_care|
00006510  74 28 63 64 5f 69 6e 64  65 78 25 2c 39 29 0d 1e  |t(cd_index%,9)..|
00006520  a0 05 cb 0d 1e aa 05 e1  0d 1e b4 05 3a 0d 1e be  |............:...|
00006530  10 dd a4 73 74 72 69 6e  67 28 61 25 29 0d 1e c8  |...string(a%)...|
00006540  08 ea 20 62 24 0d 1e d2  09 62 24 3d 22 22 0d 1e  |.. b$....b$=""..|
00006550  dc 0d c8 95 20 3f 61 25  3c 3e 30 0d 1e e6 0c 62  |.... ?a%<>0....b|
00006560  24 2b 3d bd 3f 61 25 0d  1e f0 09 61 25 2b 3d 31  |$+=.?a%....a%+=1|
00006570  0d 1e fa 05 ce 0d 1f 04  07 3d 62 24 0d 1f 0e 05  |.........=b$....|
00006580  3a 0d 1f 18 35 dd a4 73  74 72 69 6e 67 30 28 61  |:...5..string0(a|
00006590  25 29 3a ea 20 61 24 3a  c8 95 20 3f 61 25 3e 33  |%):. a$:.. ?a%>3|
000065a0  31 3a 61 24 2b 3d bd 3f  61 25 3a 61 25 2b 3d 31  |1:a$+=.?a%:a%+=1|
000065b0  3a ce 3a 3d 61 24 0d 1f  22 05 3a 0d 1f 2c 1a dd  |:.:=a$..".:..,..|
000065c0  f2 73 61 76 65 5f 64 61  74 61 28 66 75 6c 6c 6e  |.save_data(fulln|
000065d0  61 6d 65 24 29 0d 1f 36  15 c8 99 20 22 48 6f 75  |ame$)..6... "Hou|
000065e0  72 67 6c 61 73 73 5f 4f  6e 22 0d 1f 40 12 43 48  |rglass_On"..@.CH|
000065f0  25 3d ae 66 75 6c 6c 6e  61 6d 65 24 0d 1f 4a 15  |%=.fullname$..J.|
00006600  f1 23 43 48 25 2c 6d 61  78 5f 72 65 63 6f 72 64  |.#CH%,max_record|
00006610  25 0d 1f 54 18 e3 20 49  25 3d 31 20 b8 20 6d 61  |%..T.. I%=1 . ma|
00006620  78 5f 72 65 63 6f 72 64  25 0d 1f 5e 62 f1 23 43  |x_record%..^b.#C|
00006630  48 25 2c 61 72 74 69 73  74 24 28 49 25 29 2c 74  |H%,artist$(I%),t|
00006640  69 74 6c 65 24 28 49 25  29 2c 66 6f 72 6d 61 74  |itle$(I%),format|
00006650  24 28 49 25 29 2c 73 69  7a 65 24 28 49 25 29 2c  |$(I%),size$(I%),|
00006660  74 72 61 63 6b 73 24 28  49 25 29 2c 6c 65 6e 67  |tracks$(I%),leng|
00006670  74 68 24 28 49 25 29 2c  74 79 70 65 24 28 49 25  |th$(I%),type$(I%|
00006680  29 2c 79 65 61 72 24 28  49 25 29 0d 1f 68 e3 f1  |),year$(I%)..h..|
00006690  23 43 48 25 2c 74 31 24  28 49 25 29 2c 74 32 24  |#CH%,t1$(I%),t2$|
000066a0  28 49 25 29 2c 74 33 24  28 49 25 29 2c 74 34 24  |(I%),t3$(I%),t4$|
000066b0  28 49 25 29 2c 74 35 24  28 49 25 29 2c 74 36 24  |(I%),t5$(I%),t6$|
000066c0  28 49 25 29 2c 74 37 24  28 49 25 29 2c 74 38 24  |(I%),t7$(I%),t8$|
000066d0  28 49 25 29 2c 74 39 24  28 49 25 29 2c 74 31 30  |(I%),t9$(I%),t10|
000066e0  24 28 49 25 29 2c 74 31  31 24 28 49 25 29 2c 74  |$(I%),t11$(I%),t|
000066f0  31 32 24 28 49 25 29 2c  74 31 33 24 28 49 25 29  |12$(I%),t13$(I%)|
00006700  2c 74 31 34 24 28 49 25  29 2c 74 31 35 24 28 49  |,t14$(I%),t15$(I|
00006710  25 29 2c 74 31 36 24 28  49 25 29 2c 74 31 37 24  |%),t16$(I%),t17$|
00006720  28 49 25 29 2c 74 31 38  24 28 49 25 29 2c 74 31  |(I%),t18$(I%),t1|
00006730  39 24 28 49 25 29 2c 74  32 30 24 28 49 25 29 2c  |9$(I%),t20$(I%),|
00006740  74 32 31 24 28 49 25 29  2c 74 32 32 24 28 49 25  |t21$(I%),t22$(I%|
00006750  29 2c 74 32 33 24 28 49  25 29 2c 74 32 34 24 28  |),t23$(I%),t24$(|
00006760  49 25 29 2c 74 72 61 63  6b 24 28 49 25 29 0d 1f  |I%),track$(I%)..|
00006770  72 08 ed 20 49 25 0d 1f  7c 09 d9 23 43 48 25 0d  |r.. I%..|..#CH%.|
00006780  1f 86 16 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |..... "Hourglass|
00006790  5f 4f 66 66 22 0d 1f 90  05 e1 0d 1f 9a 05 3a 0d  |_Off".........:.|
000067a0  1f a4 1a dd f2 73 61 76  65 5f 74 65 78 74 28 66  |.....save_text(f|
000067b0  75 6c 6c 6e 61 6d 65 24  29 0d 1f ae 15 c8 99 20  |ullname$)...... |
000067c0  22 48 6f 75 72 67 6c 61  73 73 5f 4f 6e 22 0d 1f  |"Hourglass_On"..|
000067d0  b8 12 43 48 25 3d ae 66  75 6c 6c 6e 61 6d 65 24  |..CH%=.fullname$|
000067e0  0d 1f c2 18 e3 20 49 25  3d 31 20 b8 20 6d 61 78  |..... I%=1 . max|
000067f0  5f 72 65 63 6f 72 64 25  0d 1f cc 28 e7 20 61 72  |_record%...(. ar|
00006800  74 69 73 74 24 28 49 25  29 3c 3e 22 22 20 84 20  |tist$(I%)<>"" . |
00006810  74 69 74 6c 65 24 28 49  25 29 3c 3e 22 22 20 8c  |title$(I%)<>"" .|
00006820  0d 1f d6 53 61 3d a9 28  74 69 74 6c 65 24 28 49  |...Sa=.(title$(I|
00006830  25 29 29 3a 62 3d a9 28  79 65 61 72 24 28 49 25  |%)):b=.(year$(I%|
00006840  29 29 3a 63 3d a9 28 74  72 61 63 6b 73 24 28 49  |)):c=.(tracks$(I|
00006850  25 29 29 3a 64 3d a9 28  74 79 70 65 24 28 49 25  |%)):d=.(type$(I%|
00006860  29 29 3a 65 3d a9 28 66  6f 72 6d 61 74 24 28 49  |)):e=.(format$(I|
00006870  25 29 29 0d 1f e0 1a d5  23 43 48 25 2c 22 52 65  |%)).....#CH%,"Re|
00006880  63 6f 72 64 3a 20 22 2b  c3 28 49 25 29 0d 1f ea  |cord: "+.(I%)...|
00006890  20 d5 23 43 48 25 2c 22  41 72 74 69 73 74 3a 20  | .#CH%,"Artist: |
000068a0  22 2b 61 72 74 69 73 74  24 28 49 25 29 0d 1f f4  |"+artist$(I%)...|
000068b0  44 d5 23 43 48 25 2c 22  54 69 74 6c 65 3a 20 20  |D.#CH%,"Title:  |
000068c0  22 2b 74 69 74 6c 65 24  28 49 25 29 2b c4 34 34  |"+title$(I%)+.44|
000068d0  2d 61 2c 22 20 22 29 2b  22 54 72 61 63 6b 20 4c  |-a," ")+"Track L|
000068e0  69 73 74 3a 20 22 2b 74  72 61 63 6b 24 28 49 25  |ist: "+track$(I%|
000068f0  29 0d 1f fe 60 d5 23 43  48 25 2c 22 59 65 61 72  |)...`.#CH%,"Year|
00006900  3a 20 22 2b 79 65 61 72  24 28 49 25 29 2b c4 32  |: "+year$(I%)+.2|
00006910  36 2d 62 2c 22 20 22 29  2b 22 54 72 61 63 6b 73  |6-b," ")+"Tracks|
00006920  3a 20 22 2b 74 72 61 63  6b 73 24 28 49 25 29 2b  |: "+tracks$(I%)+|
00006930  c4 31 32 2d 63 2c 22 20  22 29 2b 22 4c 65 6e 67  |.12-c," ")+"Leng|
00006940  74 68 3a 20 22 2b 6c 65  6e 67 74 68 24 28 49 25  |th: "+length$(I%|
00006950  29 0d 20 08 62 d5 23 43  48 25 2c 22 4d 75 73 69  |). .b.#CH%,"Musi|
00006960  63 20 54 79 70 65 3a 20  22 2b 74 79 70 65 24 28  |c Type: "+type$(|
00006970  49 25 29 2b c4 32 30 2d  64 2c 22 20 22 29 2b 22  |I%)+.20-d," ")+"|
00006980  46 6f 72 6d 61 74 3a 20  22 2b 66 6f 72 6d 61 74  |Format: "+format|
00006990  24 28 49 25 29 2b c4 31  32 2d 65 2c 22 20 22 29  |$(I%)+.12-e," ")|
000069a0  2b 22 53 69 7a 65 3a 20  22 2b 73 69 7a 65 24 28  |+"Size: "+size$(|
000069b0  49 25 29 0d 20 12 05 cd  0d 20 14 0d d5 23 43 48  |I%). .... ...#CH|
000069c0  25 2c 22 20 22 0d 20 1c  08 ed 20 49 25 0d 20 26  |%," ". ... I%. &|
000069d0  09 d9 23 43 48 25 0d 20  30 16 c8 99 20 22 48 6f  |..#CH%. 0... "Ho|
000069e0  75 72 67 6c 61 73 73 5f  4f 66 66 22 0d 20 3a 05  |urglass_Off". :.|
000069f0  e1 0d 20 44 05 3a 0d 20  4e 0b dd f2 70 72 69 6e  |.. D.:. N...prin|
00006a00  74 0d 20 58 4f f2 75 70  64 61 74 65 5f 69 63 6f  |t. XO.update_ico|
00006a10  6e 28 63 64 5f 77 61 69  74 25 2c 30 2c 22 50 72  |n(cd_wait%,0,"Pr|
00006a20  69 6e 74 69 6e 67 20 49  6e 20 50 72 6f 67 72 65  |inting In Progre|
00006a30  73 73 20 50 6c 65 61 73  65 20 57 61 69 74 22 29  |ss Please Wait")|
00006a40  3a f2 6f 70 65 6e 28 63  64 5f 77 61 69 74 25 29  |:.open(cd_wait%)|
00006a50  0d 20 62 1c f2 72 65 64  72 61 77 5f 77 69 6e 64  |. b..redraw_wind|
00006a60  6f 77 28 63 64 5f 77 61  69 74 25 29 0d 20 6c 15  |ow(cd_wait%). l.|
00006a70  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 6e  |.. "Hourglass_On|
00006a80  22 0d 20 76 25 63 6f 70  69 65 73 25 3d bb 28 a4  |". v%copies%=.(.|
00006a90  69 6e 64 69 72 65 63 74  28 63 64 5f 70 72 69 6e  |indirect(cd_prin|
00006aa0  74 25 2c 36 29 29 0d 20  80 75 e7 20 63 6f 70 69  |t%,6)). .u. copi|
00006ab0  65 73 25 3d 30 20 8c 20  c8 99 20 22 48 6f 75 72  |es%=0 . .. "Hour|
00006ac0  67 6c 61 73 73 5f 4f 66  66 22 3a c8 99 20 22 57  |glass_Off":.. "W|
00006ad0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00006ae0  2c 2d 31 3a 85 20 31 2c  22 53 65 74 20 6e 75 6d  |,-1:. 1,"Set num|
00006af0  62 65 72 20 6f 66 20 63  6f 70 69 65 73 20 74 6f  |ber of copies to|
00006b00  20 61 20 76 61 6c 75 65  20 67 72 65 61 74 65 72  | a value greater|
00006b10  20 74 68 61 6e 20 30 2e  22 3a e1 0d 20 8a 11 c8  | than 0.":.. ...|
00006b20  8e 20 70 72 69 6e 74 65  72 24 20 ca 0d 20 94 0d  |. printer$ .. ..|
00006b30  c9 20 22 44 72 61 66 74  22 0d 20 9e 20 63 6f 70  |. "Draft". . cop|
00006b40  79 3d 30 3a ef 20 32 3a  ef 20 31 2c 32 37 2c 31  |y=0:. 2:. 1,27,1|
00006b50  2c 31 32 30 2c 31 2c 34  38 0d 20 a8 05 f5 0d 20  |,120,1,48. .... |
00006b60  b2 13 c8 8e 20 70 72 69  6e 74 77 68 61 74 24 20  |.... printwhat$ |
00006b70  ca 0d 20 bc 16 c9 20 22  41 54 22 3a f2 70 72 69  |.. ... "AT":.pri|
00006b80  6e 74 5f 68 61 6c 66 0d  20 c6 19 c9 20 22 43 61  |nt_half. ... "Ca|
00006b90  73 73 22 3a f2 70 72 69  6e 74 5f 69 6e 6c 61 79  |ss":.print_inlay|
00006ba0  0d 20 d0 18 c9 20 22 41  6c 6c 22 3a f2 70 72 69  |. ... "All":.pri|
00006bb0  6e 74 5f 74 61 62 6c 65  0d 20 da 05 cb 0d 20 e4  |nt_table. .... .|
00006bc0  1a 63 6f 70 79 2b 3d 31  3a fd 20 63 6f 70 79 3d  |.copy+=1:. copy=|
00006bd0  63 6f 70 69 65 73 25 0d  20 ee 07 ef 20 33 0d 20  |copies%. ... 3. |
00006be0  f8 0b c9 20 22 4e 4c 51  22 0d 21 02 20 63 6f 70  |... "NLQ".!. cop|
00006bf0  79 3d 30 3a ef 20 32 3a  ef 20 31 2c 32 37 2c 31  |y=0:. 2:. 1,27,1|
00006c00  2c 31 32 30 2c 31 2c 34  39 0d 21 0c 05 f5 0d 21  |,120,1,49.!....!|
00006c10  16 13 c8 8e 20 70 72 69  6e 74 77 68 61 74 24 20  |.... printwhat$ |
00006c20  ca 0d 21 20 16 c9 20 22  41 54 22 3a f2 70 72 69  |..! .. "AT":.pri|
00006c30  6e 74 5f 68 61 6c 66 0d  21 2a 19 c9 20 22 43 61  |nt_half.!*.. "Ca|
00006c40  73 73 22 3a f2 70 72 69  6e 74 5f 69 6e 6c 61 79  |ss":.print_inlay|
00006c50  0d 21 34 18 c9 20 22 41  6c 6c 22 3a f2 70 72 69  |.!4.. "All":.pri|
00006c60  6e 74 5f 74 61 62 6c 65  0d 21 3e 05 cb 0d 21 48  |nt_table.!>...!H|
00006c70  1a 63 6f 70 79 2b 3d 31  3a fd 20 63 6f 70 79 3d  |.copy+=1:. copy=|
00006c80  63 6f 70 69 65 73 25 0d  21 52 15 ef 20 31 2c 32  |copies%.!R.. 1,2|
00006c90  37 2c 31 2c 31 32 30 2c  31 2c 34 38 0d 21 5c 07  |7,1,120,1,48.!\.|
00006ca0  ef 20 33 0d 21 66 05 cb  0d 21 70 16 c8 99 20 22  |. 3.!f...!p... "|
00006cb0  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 21  |Hourglass_Off".!|
00006cc0  7a 1c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |z... "Wimp_Creat|
00006cd0  65 4d 65 6e 75 22 2c 2c  2d 31 0d 21 84 26 f2 63  |eMenu",,-1.!.&.c|
00006ce0  6c 6f 73 65 28 63 64 5f  77 61 69 74 25 29 3a f2  |lose(cd_wait%):.|
00006cf0  63 6c 6f 73 65 28 63 64  5f 70 72 69 6e 74 25 29  |close(cd_print%)|
00006d00  0d 21 8e 05 e1 0d 21 98  05 3a 0d 21 a2 10 dd f2  |.!....!..:.!....|
00006d10  70 72 69 6e 74 5f 68 61  6c 66 0d 21 ac 14 6e 65  |print_half.!..ne|
00006d20  65 64 73 70 72 69 6e 74  69 6e 67 25 3d 30 0d 21  |edsprinting%=0.!|
00006d30  b6 18 e3 20 49 25 3d 31  20 b8 20 6d 61 78 5f 72  |... I%=1 . max_r|
00006d40  65 63 6f 72 64 25 0d 21  c0 3a e7 20 61 72 74 69  |ecord%.!.:. arti|
00006d50  73 74 24 28 49 25 29 3c  3e 22 22 20 84 20 74 69  |st$(I%)<>"" . ti|
00006d60  74 6c 65 24 28 49 25 29  3c 3e 22 22 20 8c 20 6e  |tle$(I%)<>"" . n|
00006d70  65 65 64 73 70 72 69 6e  74 69 6e 67 25 2b 3d 31  |eedsprinting%+=1|
00006d80  0d 21 ca 08 ed 20 49 25  0d 21 d4 60 73 75 62 69  |.!... I%.!.`subi|
00006d90  74 65 6d 25 3d 30 3a 70  72 69 6e 74 65 64 25 3d  |tem%=0:printed%=|
00006da0  30 3a e7 20 6e 65 65 64  73 70 72 69 6e 74 69 6e  |0:. needsprintin|
00006db0  67 25 3d 30 20 8c 20 ef  20 33 3a f2 63 6c 6f 73  |g%=0 . . 3:.clos|
00006dc0  65 28 63 64 5f 77 61 69  74 25 29 3a 85 20 31 2c  |e(cd_wait%):. 1,|
00006dd0  22 4e 6f 20 72 65 63 6f  72 64 73 20 74 6f 20 70  |"No records to p|
00006de0  72 69 6e 74 2e 22 3a e1  0d 21 de 18 e3 20 49 25  |rint.":..!... I%|
00006df0  3d 31 20 b8 20 6d 61 78  5f 72 65 63 6f 72 64 25  |=1 . max_record%|
00006e00  0d 21 e8 28 e7 20 61 72  74 69 73 74 24 28 49 25  |.!.(. artist$(I%|
00006e10  29 3c 3e 22 22 20 84 20  74 69 74 6c 65 24 28 49  |)<>"" . title$(I|
00006e20  25 29 3c 3e 22 22 20 8c  0d 21 f2 1d f1 3a 73 75  |%)<>"" ..!...:su|
00006e30  62 69 74 65 6d 25 2b 3d  31 3a 70 72 69 6e 74 65  |bitem%+=1:printe|
00006e40  64 25 2b 3d 31 0d 21 fc  0f ef 20 31 2c 32 37 2c  |d%+=1.!... 1,27,|
00006e50  31 2c 37 31 0d 22 06 1a  f1 20 8a 30 29 3b 22 52  |1,71."... .0);"R|
00006e60  65 63 6f 72 64 3a 20 22  2b c3 28 49 25 29 0d 22  |ecord: "+.(I%)."|
00006e70  10 20 f1 20 8a 30 29 3b  22 41 72 74 69 73 74 3a  |. . .0);"Artist:|
00006e80  20 22 2b 61 72 74 69 73  74 24 28 49 25 29 0d 22  | "+artist$(I%)."|
00006e90  1a 1f f1 20 8a 30 29 3b  22 54 69 74 6c 65 3a 20  |... .0);"Title: |
00006ea0  20 22 2b 74 69 74 6c 65  24 28 49 25 29 0d 22 24  | "+title$(I%)."$|
00006eb0  0f ef 20 31 2c 32 37 2c  31 2c 37 32 0d 22 2e 05  |.. 1,27,1,72."..|
00006ec0  cd 0d 22 38 25 e7 20 73  75 62 69 74 65 6d 25 3d  |.."8%. subitem%=|
00006ed0  31 36 20 8c 20 73 75 62  69 74 65 6d 25 3d 30 3a  |16 . subitem%=0:|
00006ee0  ef 20 31 2c 31 32 0d 22  42 07 ef 20 33 0d 22 4c  |. 1,12."B.. 3."L|
00006ef0  68 e7 20 a8 28 28 70 72  69 6e 74 65 64 25 2f 6e  |h. .((printed%/n|
00006f00  65 65 64 73 70 72 69 6e  74 69 6e 67 25 29 2a 31  |eedsprinting%)*1|
00006f10  30 30 29 3c 3e 31 30 30  20 8c 20 c8 99 20 22 48  |00)<>100 . .. "H|
00006f20  6f 75 72 67 6c 61 73 73  5f 50 65 72 63 65 6e 74  |ourglass_Percent|
00006f30  61 67 65 22 2c a8 28 28  70 72 69 6e 74 65 64 25  |age",.((printed%|
00006f40  2f 6e 65 65 64 73 70 72  69 6e 74 69 6e 67 25 29  |/needsprinting%)|
00006f50  2a 31 30 30 29 0d 22 56  07 ef 20 32 0d 22 60 08  |*100)."V.. 2."`.|
00006f60  ed 20 49 25 0d 22 6a 0a  ef 20 31 2c 31 32 0d 22  |. I%."j.. 1,12."|
00006f70  74 05 e1 0d 22 7e 05 3a  0d 22 88 11 dd f2 70 72  |t..."~.:."....pr|
00006f80  69 6e 74 5f 69 6e 6c 61  79 0d 22 92 2c 69 6e 6c  |int_inlay.".,inl|
00006f90  61 79 5f 6e 75 6d 62 65  72 25 3d bb 28 a4 69 6e  |ay_number%=.(.in|
00006fa0  64 69 72 65 63 74 28 63  64 5f 70 72 69 6e 74 25  |direct(cd_print%|
00006fb0  2c 31 33 29 29 0d 22 9c  0a ef 20 31 2c 31 35 0d  |,13))."... 1,15.|
00006fc0  22 a6 0f ef 20 31 2c 32  37 2c 31 2c 37 31 0d 22  |"... 1,27,1,71."|
00006fd0  b0 2c f1 20 8a 30 29 3b  22 20 41 72 74 69 73 74  |.,. .0);" Artist|
00006fe0  3a 20 22 2b 61 72 74 69  73 74 24 28 69 6e 6c 61  |: "+artist$(inla|
00006ff0  79 5f 6e 75 6d 62 65 72  25 29 0d 22 ba 2b f1 20  |y_number%).".+. |
00007000  8a 30 29 3b 22 20 54 69  74 6c 65 3a 20 20 22 2b  |.0);" Title:  "+|
00007010  74 69 74 6c 65 24 28 69  6e 6c 61 79 5f 6e 75 6d  |title$(inlay_num|
00007020  62 65 72 25 29 0d 22 c4  0f ef 20 31 2c 32 37 2c  |ber%)."... 1,27,|
00007030  31 2c 37 32 0d 22 ce 12  f1 20 8a 30 29 3b c4 36  |1,72."... .0);.6|
00007040  37 2c 22 3d 22 29 0d 22  d8 45 f1 20 8a 31 29 3b  |7,"=").".E. .1);|
00007050  c0 74 31 24 28 69 6e 6c  61 79 5f 6e 75 6d 62 65  |.t1$(inlay_numbe|
00007060  72 25 29 2c 33 31 29 3b  8a 33 32 29 3b 22 20 7c  |r%),31);.32);" ||
00007070  20 22 3b c0 74 31 33 24  28 69 6e 6c 61 79 5f 6e  | ";.t13$(inlay_n|
00007080  75 6d 62 65 72 25 29 2c  33 31 29 0d 22 e2 45 f1  |umber%),31).".E.|
00007090  20 8a 31 29 3b c0 74 32  24 28 69 6e 6c 61 79 5f  | .1);.t2$(inlay_|
000070a0  6e 75 6d 62 65 72 25 29  2c 33 31 29 3b 8a 33 32  |number%),31);.32|
000070b0  29 3b 22 20 7c 20 22 3b  c0 74 31 34 24 28 69 6e  |);" | ";.t14$(in|
000070c0  6c 61 79 5f 6e 75 6d 62  65 72 25 29 2c 33 31 29  |lay_number%),31)|
000070d0  0d 22 ec 45 f1 20 8a 31  29 3b c0 74 33 24 28 69  |.".E. .1);.t3$(i|
000070e0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 29 2c 33 31  |nlay_number%),31|
000070f0  29 3b 8a 33 32 29 3b 22  20 7c 20 22 3b c0 74 31  |);.32);" | ";.t1|
00007100  35 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |5$(inlay_number%|
00007110  29 2c 33 31 29 0d 22 f6  45 f1 20 8a 31 29 3b c0  |),31).".E. .1);.|
00007120  74 34 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |t4$(inlay_number|
00007130  25 29 2c 33 31 29 3b 8a  33 32 29 3b 22 20 7c 20  |%),31);.32);" | |
00007140  22 3b c0 74 31 36 24 28  69 6e 6c 61 79 5f 6e 75  |";.t16$(inlay_nu|
00007150  6d 62 65 72 25 29 2c 33  31 29 0d 23 00 45 f1 20  |mber%),31).#.E. |
00007160  8a 31 29 3b c0 74 35 24  28 69 6e 6c 61 79 5f 6e  |.1);.t5$(inlay_n|
00007170  75 6d 62 65 72 25 29 2c  33 31 29 3b 8a 33 32 29  |umber%),31);.32)|
00007180  3b 22 20 7c 20 22 3b c0  74 31 37 24 28 69 6e 6c  |;" | ";.t17$(inl|
00007190  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 0d  |ay_number%),31).|
000071a0  23 0a 45 f1 20 8a 31 29  3b c0 74 36 24 28 69 6e  |#.E. .1);.t6$(in|
000071b0  6c 61 79 5f 6e 75 6d 62  65 72 25 29 2c 33 31 29  |lay_number%),31)|
000071c0  3b 8a 33 32 29 3b 22 20  7c 20 22 3b c0 74 31 38  |;.32);" | ";.t18|
000071d0  24 28 69 6e 6c 61 79 5f  6e 75 6d 62 65 72 25 29  |$(inlay_number%)|
000071e0  2c 33 31 29 0d 23 14 45  f1 20 8a 31 29 3b c0 74  |,31).#.E. .1);.t|
000071f0  37 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |7$(inlay_number%|
00007200  29 2c 33 31 29 3b 8a 33  32 29 3b 22 20 7c 20 22  |),31);.32);" | "|
00007210  3b c0 74 31 39 24 28 69  6e 6c 61 79 5f 6e 75 6d  |;.t19$(inlay_num|
00007220  62 65 72 25 29 2c 33 31  29 0d 23 1e 45 f1 20 8a  |ber%),31).#.E. .|
00007230  31 29 3b c0 74 38 24 28  69 6e 6c 61 79 5f 6e 75  |1);.t8$(inlay_nu|
00007240  6d 62 65 72 25 29 2c 33  31 29 3b 8a 33 32 29 3b  |mber%),31);.32);|
00007250  22 20 7c 20 22 3b c0 74  32 30 24 28 69 6e 6c 61  |" | ";.t20$(inla|
00007260  79 5f 6e 75 6d 62 65 72  25 29 2c 33 31 29 0d 23  |y_number%),31).#|
00007270  28 45 f1 20 8a 31 29 3b  c0 74 39 24 28 69 6e 6c  |(E. .1);.t9$(inl|
00007280  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 3b  |ay_number%),31);|
00007290  8a 33 32 29 3b 22 20 7c  20 22 3b c0 74 32 31 24  |.32);" | ";.t21$|
000072a0  28 69 6e 6c 61 79 5f 6e  75 6d 62 65 72 25 29 2c  |(inlay_number%),|
000072b0  33 31 29 0d 23 32 46 f1  20 8a 31 29 3b c0 74 31  |31).#2F. .1);.t1|
000072c0  30 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |0$(inlay_number%|
000072d0  29 2c 33 31 29 3b 8a 33  32 29 3b 22 20 7c 20 22  |),31);.32);" | "|
000072e0  3b c0 74 32 32 24 28 69  6e 6c 61 79 5f 6e 75 6d  |;.t22$(inlay_num|
000072f0  62 65 72 25 29 2c 33 31  29 0d 23 3c 46 f1 20 8a  |ber%),31).#<F. .|
00007300  31 29 3b c0 74 31 31 24  28 69 6e 6c 61 79 5f 6e  |1);.t11$(inlay_n|
00007310  75 6d 62 65 72 25 29 2c  33 31 29 3b 8a 33 32 29  |umber%),31);.32)|
00007320  3b 22 20 7c 20 22 3b c0  74 32 33 24 28 69 6e 6c  |;" | ";.t23$(inl|
00007330  61 79 5f 6e 75 6d 62 65  72 25 29 2c 33 31 29 0d  |ay_number%),31).|
00007340  23 46 46 f1 20 8a 31 29  3b c0 74 31 32 24 28 69  |#FF. .1);.t12$(i|
00007350  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 29 2c 33 31  |nlay_number%),31|
00007360  29 3b 8a 33 32 29 3b 22  20 7c 20 22 3b c0 74 32  |);.32);" | ";.t2|
00007370  34 24 28 69 6e 6c 61 79  5f 6e 75 6d 62 65 72 25  |4$(inlay_number%|
00007380  29 2c 33 31 29 0d 23 50  12 f1 20 8a 30 29 3b c4  |),31).#P.. .0);.|
00007390  36 37 2c 22 3d 22 29 0d  23 5a 0f ef 20 31 2c 32  |67,"=").#Z.. 1,2|
000073a0  37 2c 31 2c 37 31 0d 23  64 2c f1 20 8a 30 29 3b  |7,1,71.#d,. .0);|
000073b0  22 20 41 72 74 69 73 74  3a 20 22 2b 61 72 74 69  |" Artist: "+arti|
000073c0  73 74 24 28 69 6e 6c 61  79 5f 6e 75 6d 62 65 72  |st$(inlay_number|
000073d0  25 29 0d 23 6e 2b f1 20  8a 30 29 3b 22 20 54 69  |%).#n+. .0);" Ti|
000073e0  74 6c 65 3a 20 20 22 2b  74 69 74 6c 65 24 28 69  |tle:  "+title$(i|
000073f0  6e 6c 61 79 5f 6e 75 6d  62 65 72 25 29 0d 23 78  |nlay_number%).#x|
00007400  0f ef 20 31 2c 32 37 2c  31 2c 37 32 0d 23 82 12  |.. 1,27,1,72.#..|
00007410  f1 20 8a 30 29 3b c4 36  37 2c 22 3d 22 29 0d 23  |. .0);.67,"=").#|
00007420  8c 1b e3 20 58 3d 31 20  b8 20 33 3a f1 20 8a 33  |... X=1 . 3:. .3|
00007430  32 29 3b 22 20 7c 22 3a  ed 0d 23 96 12 f1 20 8a  |2);" |":..#... .|
00007440  30 29 3b c4 36 37 2c 22  3d 22 29 0d 23 a0 0a ef  |0);.67,"=").#...|
00007450  20 31 2c 31 38 0d 23 aa  0a ef 20 31 2c 31 32 0d  | 1,18.#... 1,12.|
00007460  23 b4 05 e1 0d 23 be 05  3a 0d 23 c8 11 dd f2 70  |#....#..:.#....p|
00007470  72 69 6e 74 5f 74 61 62  6c 65 0d 23 d2 14 6e 65  |rint_table.#..ne|
00007480  65 64 73 70 72 69 6e 74  69 6e 67 25 3d 30 0d 23  |edsprinting%=0.#|
00007490  dc 18 e3 20 49 25 3d 31  20 b8 20 6d 61 78 5f 72  |... I%=1 . max_r|
000074a0  65 63 6f 72 64 25 0d 23  e6 3a e7 20 61 72 74 69  |ecord%.#.:. arti|
000074b0  73 74 24 28 49 25 29 3c  3e 22 22 20 84 20 74 69  |st$(I%)<>"" . ti|
000074c0  74 6c 65 24 28 49 25 29  3c 3e 22 22 20 8c 20 6e  |tle$(I%)<>"" . n|
000074d0  65 65 64 73 70 72 69 6e  74 69 6e 67 25 2b 3d 31  |eedsprinting%+=1|
000074e0  0d 23 f0 08 ed 20 49 25  0d 23 fa 60 73 75 62 69  |.#... I%.#.`subi|
000074f0  74 65 6d 25 3d 30 3a 70  72 69 6e 74 65 64 25 3d  |tem%=0:printed%=|
00007500  30 3a e7 20 6e 65 65 64  73 70 72 69 6e 74 69 6e  |0:. needsprintin|
00007510  67 25 3d 30 20 8c 20 85  20 ef 20 33 3a f2 63 6c  |g%=0 . . . 3:.cl|
00007520  6f 73 65 28 63 64 5f 77  61 69 74 25 29 3a 31 2c  |ose(cd_wait%):1,|
00007530  22 4e 6f 20 72 65 63 6f  72 64 73 20 74 6f 20 70  |"No records to p|
00007540  72 69 6e 74 2e 22 3a e1  0d 24 04 18 e3 20 49 25  |rint.":..$... I%|
00007550  3d 31 20 b8 20 6d 61 78  5f 72 65 63 6f 72 64 25  |=1 . max_record%|
00007560  0d 24 0e 28 e7 20 61 72  74 69 73 74 24 28 49 25  |.$.(. artist$(I%|
00007570  29 3c 3e 22 22 20 84 20  74 69 74 6c 65 24 28 49  |)<>"" . title$(I|
00007580  25 29 3c 3e 22 22 20 8c  0d 24 18 1d f1 3a 73 75  |%)<>"" ..$...:su|
00007590  62 69 74 65 6d 25 2b 3d  31 3a 70 72 69 6e 74 65  |bitem%+=1:printe|
000075a0  64 25 2b 3d 31 0d 24 22  0f ef 20 31 2c 32 37 2c  |d%+=1.$".. 1,27,|
000075b0  31 2c 37 31 0d 24 2c 1a  f1 20 8a 30 29 3b 22 52  |1,71.$,.. .0);"R|
000075c0  65 63 6f 72 64 3a 20 22  2b c3 28 49 25 29 0d 24  |ecord: "+.(I%).$|
000075d0  36 20 f1 20 8a 30 29 3b  22 41 72 74 69 73 74 3a  |6 . .0);"Artist:|
000075e0  20 22 2b 61 72 74 69 73  74 24 28 49 25 29 0d 24  | "+artist$(I%).$|
000075f0  40 20 f1 20 8a 30 29 3b  22 54 69 74 6c 65 3a 20  |@ . .0);"Title: |
00007600  20 22 2b 74 69 74 6c 65  24 28 49 25 29 3b 0d 24  | "+title$(I%);.$|
00007610  4a 0f ef 20 31 2c 32 37  2c 31 2c 37 32 0d 24 54  |J.. 1,27,1,72.$T|
00007620  24 f1 20 8a 34 35 29 3b  22 54 72 61 63 6b 20 4c  |$. .45);"Track L|
00007630  69 73 74 3a 20 22 2b 74  72 61 63 6b 24 28 49 25  |ist: "+track$(I%|
00007640  29 0d 24 5e 54 f1 20 8a  30 29 3b 22 59 65 61 72  |).$^T. .0);"Year|
00007650  3a 20 22 3b 79 65 61 72  24 28 49 25 29 3b 8a 33  |: ";year$(I%);.3|
00007660  30 29 3b 22 54 72 61 63  6b 73 3a 20 22 3b 74 72  |0);"Tracks: ";tr|
00007670  61 63 6b 73 24 28 49 25  29 3b 8a 34 35 29 3b 22  |acks$(I%);.45);"|
00007680  4c 65 6e 67 74 68 3a 20  22 3b 6c 65 6e 67 74 68  |Length: ";length|
00007690  24 28 49 25 29 0d 24 68  56 f1 20 8a 30 29 3b 22  |$(I%).$hV. .0);"|
000076a0  4d 75 73 69 63 20 54 79  70 65 3a 20 22 3b 74 79  |Music Type: ";ty|
000076b0  70 65 24 28 49 25 29 3b  8a 33 30 29 3b 22 46 6f  |pe$(I%);.30);"Fo|
000076c0  72 6d 61 74 3a 20 22 3b  66 6f 72 6d 61 74 24 28  |rmat: ";format$(|
000076d0  49 25 29 3b 8a 34 35 29  3b 22 53 69 7a 65 3a 20  |I%);.45);"Size: |
000076e0  22 3b 73 69 7a 65 24 28  49 25 29 0d 24 72 05 cd  |";size$(I%).$r..|
000076f0  0d 24 7c 25 e7 20 73 75  62 69 74 65 6d 25 3d 31  |.$|%. subitem%=1|
00007700  30 20 8c 20 73 75 62 69  74 65 6d 25 3d 30 3a ef  |0 . subitem%=0:.|
00007710  20 31 2c 31 32 0d 24 86  07 ef 20 33 0d 24 90 68  | 1,12.$... 3.$.h|
00007720  e7 20 a8 28 28 70 72 69  6e 74 65 64 25 2f 6e 65  |. .((printed%/ne|
00007730  65 64 73 70 72 69 6e 74  69 6e 67 25 29 2a 31 30  |edsprinting%)*10|
00007740  30 29 3c 3e 31 30 30 20  8c 20 c8 99 20 22 48 6f  |0)<>100 . .. "Ho|
00007750  75 72 67 6c 61 73 73 5f  50 65 72 63 65 6e 74 61  |urglass_Percenta|
00007760  67 65 22 2c a8 28 28 70  72 69 6e 74 65 64 25 2f  |ge",.((printed%/|
00007770  6e 65 65 64 73 70 72 69  6e 74 69 6e 67 25 29 2a  |needsprinting%)*|
00007780  31 30 30 29 0d 24 9a 07  ef 20 32 0d 24 a4 08 ed  |100).$... 2.$...|
00007790  20 49 25 0d 24 ae 0a ef  20 31 2c 31 32 0d 24 b8  | I%.$... 1,12.$.|
000077a0  05 e1 0d 24 c2 05 3a 0d  24 cc 1c dd f2 72 65 64  |...$..:.$....red|
000077b0  72 61 77 5f 77 69 6e 64  6f 77 28 77 69 6e 64 6f  |raw_window(windo|
000077c0  77 25 29 0d 24 d6 0f 21  71 25 3d 77 69 6e 64 6f  |w%).$..!q%=windo|
000077d0  77 25 0d 24 e0 26 c8 99  20 22 57 69 6d 70 5f 52  |w%.$.&.. "Wimp_R|
000077e0  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 2c 71 25  |edrawWindow",,q%|
000077f0  20 b8 20 6d 6f 72 65 25  0d 24 ea 0c c8 95 20 6d  | . more%.$.... m|
00007800  6f 72 65 25 0d 24 f4 1e  c8 99 20 22 57 69 6d 70  |ore%.$.... "Wimp|
00007810  5f 42 6f 72 64 65 72 57  69 6e 64 6f 77 22 2c 2c  |_BorderWindow",,|
00007820  71 25 0d 24 fe 26 c8 99  20 22 57 69 6d 70 5f 47  |q%.$.&.. "Wimp_G|
00007830  65 74 52 65 63 74 61 6e  67 6c 65 22 2c 2c 71 25  |etRectangle",,q%|
00007840  20 b8 20 6d 6f 72 65 25  0d 25 08 05 ce 0d 25 12  | . more%.%....%.|
00007850  05 e1 0d 25 1c 05 3a 0d  25 26 11 dd f2 72 65 64  |...%..:.%&...red|
00007860  72 61 77 5f 69 63 6f 6e  0d 25 30 14 c8 8e 20 77  |raw_icon.%0... w|
00007870  69 6e 64 6f 77 74 79 70  65 24 20 ca 0d 25 3a 0a  |indowtype$ ..%:.|
00007880  c9 20 22 33 44 22 0d 25  44 1c c8 99 20 22 57 69  |. "3D".%D... "Wi|
00007890  6d 70 5f 42 6f 72 64 65  72 49 63 6f 6e 22 2c 2c  |mp_BorderIcon",,|
000078a0  71 25 0d 25 4e 0a 71 25  21 38 3d 30 0d 25 58 1c  |q%.%N.q%!8=0.%X.|
000078b0  c8 99 20 22 57 69 6d 70  5f 42 6f 72 64 65 72 49  |.. "Wimp_BorderI|
000078c0  63 6f 6e 22 2c 2c 71 25  0d 25 62 0d c9 20 22 50  |con",,q%.%b.. "P|
000078d0  6c 61 69 6e 22 0d 25 6c  05 cb 0d 25 76 05 e1 0d  |lain".%l...%v...|
000078e0  25 80 05 3a 0d 25 8a 0e  dd f2 61 6e 6e 6f 75 6e  |%..:.%....announ|
000078f0  63 65 0d 25 94 19 c8 97  20 c8 93 20 32 37 34 2c  |ce.%.... .. 274,|
00007900  33 32 30 2c 37 33 30 2c  34 36 30 0d 25 9e 15 c8  |320,730,460.%...|
00007910  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |. "Hourglass_On"|
00007920  0d 25 a8 17 f2 6f 70 65  6e 28 63 64 5f 61 6e 6e  |.%...open(cd_ann|
00007930  6f 75 6e 63 65 25 29 0d  25 b2 25 f2 75 70 64 61  |ounce%).%.%.upda|
00007940  74 65 5f 69 63 6f 6e 28  63 64 5f 61 6e 6e 6f 75  |te_icon(cd_annou|
00007950  6e 63 65 25 2c 34 2c 76  65 72 24 29 0d 25 bc 20  |nce%,4,ver$).%. |
00007960  f2 72 65 64 72 61 77 5f  77 69 6e 64 6f 77 28 63  |.redraw_window(c|
00007970  64 5f 61 6e 6e 6f 75 6e  63 65 25 29 0d 25 c6 0f  |d_announce%).%..|
00007980  f2 6d 61 6b 65 5f 6d 65  6e 75 73 0d 25 d0 11 f2  |.make_menus.%...|
00007990  69 6e 73 74 61 6c 6c 5f  69 63 6f 6e 0d 25 da 08  |install_icon.%..|
000079a0  f2 6e 65 77 0d 25 e4 11  f2 63 6c 65 61 72 5f 73  |.new.%...clear_s|
000079b0  65 61 72 63 68 0d 25 ee  17 e3 20 77 61 69 74 25  |earch.%... wait%|
000079c0  3d 31 20 b8 20 32 35 3a  c8 96 3a ed 0d 25 f8 18  |=1 . 25:..:..%..|
000079d0  f2 63 6c 6f 73 65 28 63  64 5f 61 6e 6e 6f 75 6e  |.close(cd_announ|
000079e0  63 65 25 29 0d 26 02 15  c8 97 20 c8 93 20 30 2c  |ce%).&.... .. 0,|
000079f0  30 2c 63 78 25 2c 63 79  25 0d 26 0c 16 c8 99 20  |0,cx%,cy%.&.... |
00007a00  22 48 6f 75 72 67 6c 61  73 73 5f 4f 66 66 22 0d  |"Hourglass_Off".|
00007a10  26 16 05 e1 0d 26 20 05  3a 0d 26 2a 1e dd f2 74  |&....& .:.&*...t|
00007a20  69 63 6b 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |ick(menu%,item%,|
00007a30  74 6f 74 61 6c 25 29 0d  26 34 27 e3 20 69 25 3d  |total%).&4'. i%=|
00007a40  30 20 b8 20 74 6f 74 61  6c 25 3a f2 6e 6f 74 69  |0 . total%:.noti|
00007a50  63 6b 28 6d 65 6e 75 25  2c 69 25 29 3a ed 0d 26  |ck(menu%,i%):..&|
00007a60  3e 0e ea 20 61 64 64 72  65 73 73 25 0d 26 48 20  |>.. address%.&H |
00007a70  61 64 64 72 65 73 73 25  3d 6d 65 6e 75 25 2b 32  |address%=menu%+2|
00007a80  38 2b 28 32 34 2a 69 74  65 6d 25 29 0d 26 52 1f  |8+(24*item%).&R.|
00007a90  61 64 64 72 65 73 73 25  21 30 3d 61 64 64 72 65  |address%!0=addre|
00007aa0  73 73 25 21 30 20 82 20  26 30 31 0d 26 5c 05 e1  |ss%!0 . &01.&\..|
00007ab0  0d 26 66 05 3a 0d 26 70  19 dd f2 6e 6f 74 69 63  |.&f.:.&p...notic|
00007ac0  6b 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 26  |k(menu%,item%).&|
00007ad0  7a 0e ea 20 61 64 64 72  65 73 73 25 0d 26 84 20  |z.. address%.&. |
00007ae0  61 64 64 72 65 73 73 25  3d 6d 65 6e 75 25 2b 32  |address%=menu%+2|
00007af0  38 2b 28 32 34 2a 69 74  65 6d 25 29 0d 26 8e 21  |8+(24*item%).&.!|
00007b00  61 64 64 72 65 73 73 25  21 30 3d 61 64 64 72 65  |address%!0=addre|
00007b10  73 73 25 21 30 20 80 20  ac 20 26 30 31 0d 26 98  |ss%!0 . . &01.&.|
00007b20  05 e1 0d 26 a2 05 3a 0d  26 ac 12 dd f2 73 61 76  |...&..:.&....sav|
00007b30  65 5f 63 68 6f 69 63 65  73 0d 26 b6 2a 63 68 6f  |e_choices.&.*cho|
00007b40  69 63 65 73 25 3d ae 22  3c 43 44 24 44 69 72 3e  |ices%=."<CD$Dir>|
00007b50  2e 52 65 73 6f 75 72 63  65 73 2e 43 68 6f 69 63  |.Resources.Choic|
00007b60  65 73 22 0d 26 c0 1d f1  23 63 68 6f 69 63 65 73  |es".&...#choices|
00007b70  25 2c 6e 65 77 77 69 6e  64 6f 77 74 79 70 65 24  |%,newwindowtype$|
00007b80  0d 26 ca 1a f1 23 63 68  6f 69 63 65 73 25 2c 6d  |.&...#choices%,m|
00007b90  61 78 5f 72 65 63 6f 72  64 25 0d 26 d4 16 f1 23  |ax_record%.&...#|
00007ba0  63 68 6f 69 63 65 73 25  2c 61 6e 69 6d 6f 6e 24  |choices%,animon$|
00007bb0  0d 26 de 0e d9 23 63 68  6f 69 63 65 73 25 0d 26  |.&...#choices%.&|
00007bc0  e8 05 e1 0d 26 f2 05 3a  0d 26 fc 12 dd f2 6c 6f  |....&..:.&....lo|
00007bd0  61 64 5f 63 68 6f 69 63  65 73 0d 27 06 2a 63 68  |ad_choices.'.*ch|
00007be0  6f 69 63 65 73 25 3d 8e  22 3c 43 44 24 44 69 72  |oices%=."<CD$Dir|
00007bf0  3e 2e 52 65 73 6f 75 72  63 65 73 2e 43 68 6f 69  |>.Resources.Choi|
00007c00  63 65 73 22 0d 27 10 13  e7 20 63 68 6f 69 63 65  |ces".'... choice|
00007c10  73 25 3c 3e 30 20 8c 0d  27 1a 1a e8 23 63 68 6f  |s%<>0 ..'...#cho|
00007c20  69 63 65 73 25 2c 77 69  6e 64 6f 77 74 79 70 65  |ices%,windowtype|
00007c30  24 0d 27 24 1a e8 23 63  68 6f 69 63 65 73 25 2c  |$.'$..#choices%,|
00007c40  6d 61 78 5f 72 65 63 6f  72 64 25 0d 27 2e 16 e8  |max_record%.'...|
00007c50  23 63 68 6f 69 63 65 73  25 2c 61 6e 69 6d 6f 6e  |#choices%,animon|
00007c60  24 0d 27 38 0e d9 23 63  68 6f 69 63 65 73 25 0d  |$.'8..#choices%.|
00007c70  27 42 05 cc 0d 27 4c 17  77 69 6e 64 6f 77 74 79  |'B...'L.windowty|
00007c80  70 65 24 3d 22 50 6c 61  69 6e 22 0d 27 56 13 6d  |pe$="Plain".'V.m|
00007c90  61 78 5f 72 65 63 6f 72  64 25 3d 31 30 30 0d 27  |ax_record%=100.'|
00007ca0  60 10 61 6e 69 6d 6f 6e  24 3d 22 4f 6e 22 0d 27  |`.animon$="On".'|
00007cb0  6a 05 cd 0d 27 74 1e 6e  65 77 77 69 6e 64 6f 77  |j...'t.newwindow|
00007cc0  74 79 70 65 24 3d 77 69  6e 64 6f 77 74 79 70 65  |type$=windowtype|
00007cd0  24 0d 27 7e 05 e1 0d 27  88 05 3a 0d 27 92 11 dd  |$.'~...'..:.'...|
00007ce0  f2 72 65 63 6f 72 64 5f  6d 65 6e 75 0d 27 9c 14  |.record_menu.'..|
00007cf0  c8 8e 20 6d 61 78 5f 72  65 63 6f 72 64 25 20 ca  |.. max_record% .|
00007d00  0d 27 a6 4a c9 20 31 30  30 3a f2 62 75 66 66 65  |.'.J. 100:.buffe|
00007d10  72 73 69 7a 65 28 31 35  30 2c 22 31 30 30 22 29  |rsize(150,"100")|
00007d20  3a e7 20 62 75 66 66 65  72 6f 6b 25 3d b9 20 8c  |:. bufferok%=. .|
00007d30  20 f2 74 69 63 6b 28 6d  61 78 72 65 63 6f 72 64  | .tick(maxrecord|
00007d40  6d 65 6e 75 25 2c 30 2c  35 29 0d 27 b0 4a c9 20  |menu%,0,5).'.J. |
00007d50  32 30 30 3a f2 62 75 66  66 65 72 73 69 7a 65 28  |200:.buffersize(|
00007d60  31 35 30 2c 22 32 30 30  22 29 3a e7 20 62 75 66  |150,"200"):. buf|
00007d70  66 65 72 6f 6b 25 3d b9  20 8c 20 f2 74 69 63 6b  |ferok%=. . .tick|
00007d80  28 6d 61 78 72 65 63 6f  72 64 6d 65 6e 75 25 2c  |(maxrecordmenu%,|
00007d90  31 2c 35 29 0d 27 ba 4a  c9 20 33 30 30 3a f2 62  |1,5).'.J. 300:.b|
00007da0  75 66 66 65 72 73 69 7a  65 28 31 35 30 2c 22 33  |uffersize(150,"3|
00007db0  30 30 22 29 3a e7 20 62  75 66 66 65 72 6f 6b 25  |00"):. bufferok%|
00007dc0  3d b9 20 8c 20 f2 74 69  63 6b 28 6d 61 78 72 65  |=. . .tick(maxre|
00007dd0  63 6f 72 64 6d 65 6e 75  25 2c 32 2c 35 29 0d 27  |cordmenu%,2,5).'|
00007de0  c4 4a c9 20 34 30 30 3a  f2 62 75 66 66 65 72 73  |.J. 400:.buffers|
00007df0  69 7a 65 28 31 35 30 2c  22 34 30 30 22 29 3a e7  |ize(150,"400"):.|
00007e00  20 62 75 66 66 65 72 6f  6b 25 3d b9 20 8c 20 f2  | bufferok%=. . .|
00007e10  74 69 63 6b 28 6d 61 78  72 65 63 6f 72 64 6d 65  |tick(maxrecordme|
00007e20  6e 75 25 2c 33 2c 35 29  0d 27 ce 4a c9 20 35 30  |nu%,3,5).'.J. 50|
00007e30  30 3a f2 62 75 66 66 65  72 73 69 7a 65 28 31 35  |0:.buffersize(15|
00007e40  30 2c 22 35 30 30 22 29  3a e7 20 62 75 66 66 65  |0,"500"):. buffe|
00007e50  72 6f 6b 25 3d b9 20 8c  20 f2 74 69 63 6b 28 6d  |rok%=. . .tick(m|
00007e60  61 78 72 65 63 6f 72 64  6d 65 6e 75 25 2c 34 2c  |axrecordmenu%,4,|
00007e70  35 29 0d 27 d8 4c c9 20  31 30 30 30 3a f2 62 75  |5).'.L. 1000:.bu|
00007e80  66 66 65 72 73 69 7a 65  28 31 35 30 2c 22 31 30  |ffersize(150,"10|
00007e90  30 30 22 29 3a e7 20 62  75 66 66 65 72 6f 6b 25  |00"):. bufferok%|
00007ea0  3d b9 20 8c 20 f2 74 69  63 6b 28 6d 61 78 72 65  |=. . .tick(maxre|
00007eb0  63 6f 72 64 6d 65 6e 75  25 2c 35 2c 35 29 0d 27  |cordmenu%,5,5).'|
00007ec0  e2 05 cb 0d 27 ec 05 e1  0d 27 f6 05 3a 0d 28 00  |....'....'..:.(.|
00007ed0  19 dd f2 63 6c 65 61 72  5f 64 61 74 61 5f 71 75  |...clear_data_qu|
00007ee0  65 73 74 69 6f 6e 0d 28  0a 07 ef 20 37 0d 28 14  |estion.(... 7.(.|
00007ef0  14 f2 6f 70 65 6e 28 63  64 5f 63 6c 65 61 72 25  |..open(cd_clear%|
00007f00  29 0d 28 1e 19 c8 97 20  c8 93 20 32 38 34 2c 34  |).(.... .. 284,4|
00007f10  32 30 2c 37 34 32 2c 32  32 38 0d 28 28 05 e1 0d  |20,742,228.((...|
00007f20  28 32 05 3a 0d 28 3c 10  dd f2 63 6c 65 61 72 5f  |(2.:.(<...clear_|
00007f30  64 61 74 61 0d 28 46 08  f2 6e 65 77 0d 28 50 0b  |data.(F..new.(P.|
00007f40  f2 75 70 64 61 74 65 0d  28 5a 19 f2 72 65 5f 74  |.update.(Z..re_t|
00007f50  69 74 6c 65 28 22 43 44  20 49 6e 64 65 78 22 29  |itle("CD Index")|
00007f60  0d 28 64 0e 75 6e 73 61  76 65 64 25 3d a3 0d 28  |.(d.unsaved%=..(|
00007f70  6e 0e f2 63 6c 6f 73 65  5f 61 6c 6c 0d 28 78 15  |n..close_all.(x.|
00007f80  c8 97 20 c8 93 20 30 2c  30 2c 63 78 25 2c 63 79  |.. .. 0,0,cx%,cy|
00007f90  25 0d 28 82 05 e1 0d 28  8c 05 3a 0d 28 96 10 dd  |%.(....(..:.(...|
00007fa0  f2 71 75 69 74 5f 63 68  65 63 6b 0d 28 a0 11 c8  |.quit_check.(...|
00007fb0  8e 20 75 6e 73 61 76 65  64 25 20 ca 0d 28 aa 07  |. unsaved% ..(..|
00007fc0  c9 20 b9 0d 28 b4 07 ef  20 37 0d 28 be 13 f2 6f  |. ..(... 7.(...o|
00007fd0  70 65 6e 28 63 64 5f 71  75 69 74 25 29 0d 28 c8  |pen(cd_quit%).(.|
00007fe0  19 c8 97 20 c8 93 20 32  38 34 2c 34 32 30 2c 37  |... .. 284,420,7|
00007ff0  34 32 2c 32 32 38 0d 28  d2 0f c9 20 a3 3a 71 75  |42,228.(... .:qu|
00008000  69 74 25 3d b9 0d 28 dc  05 cb 0d 28 e6 05 e1 0d  |it%=..(....(....|
00008010  28 f0 05 3a 0d 28 fa 14  dd f2 6f 70 65 6e 5f 61  |(..:.(....open_a|
00008020  6e 69 6d 61 74 69 6f 6e  0d 29 04 17 e7 20 61 6e  |nimation.)... an|
00008030  69 6d 6f 6e 24 3d 22 4f  66 66 22 20 8c 20 e1 0d  |imon$="Off" . ..|
00008040  29 0e 33 f2 63 68 61 6e  67 65 5f 69 63 6f 6e 28  |).3.change_icon(|
00008050  71 25 2c 2d 32 2c 61 70  70 69 63 6f 6e 25 2c 22  |q%,-2,appicon%,"|
00008060  61 6e 69 6d 32 22 29 3a  f2 61 6e 69 6d 5f 77 61  |anim2"):.anim_wa|
00008070  69 74 0d 29 18 33 f2 63  68 61 6e 67 65 5f 69 63  |it.).3.change_ic|
00008080  6f 6e 28 71 25 2c 2d 32  2c 61 70 70 69 63 6f 6e  |on(q%,-2,appicon|
00008090  25 2c 22 61 6e 69 6d 33  22 29 3a f2 61 6e 69 6d  |%,"anim3"):.anim|
000080a0  5f 77 61 69 74 0d 29 22  33 f2 63 68 61 6e 67 65  |_wait.)"3.change|
000080b0  5f 69 63 6f 6e 28 71 25  2c 2d 32 2c 61 70 70 69  |_icon(q%,-2,appi|
000080c0  63 6f 6e 25 2c 22 61 6e  69 6d 34 22 29 3a f2 61  |con%,"anim4"):.a|
000080d0  6e 69 6d 5f 77 61 69 74  0d 29 2c 33 f2 63 68 61  |nim_wait.),3.cha|
000080e0  6e 67 65 5f 69 63 6f 6e  28 71 25 2c 2d 32 2c 61  |nge_icon(q%,-2,a|
000080f0  70 70 69 63 6f 6e 25 2c  22 61 6e 69 6d 35 22 29  |ppicon%,"anim5")|
00008100  3a f2 61 6e 69 6d 5f 77  61 69 74 0d 29 36 33 f2  |:.anim_wait.)63.|
00008110  63 68 61 6e 67 65 5f 69  63 6f 6e 28 71 25 2c 2d  |change_icon(q%,-|
00008120  32 2c 61 70 70 69 63 6f  6e 25 2c 22 61 6e 69 6d  |2,appicon%,"anim|
00008130  31 22 29 3a f2 61 6e 69  6d 5f 77 61 69 74 0d 29  |1"):.anim_wait.)|
00008140  40 05 e1 0d 29 4a 05 3a  0d 29 54 15 dd f2 63 6c  |@...)J.:.)T...cl|
00008150  6f 73 65 5f 61 6e 69 6d  61 74 69 6f 6e 0d 29 5e  |ose_animation.)^|
00008160  17 e7 20 61 6e 69 6d 6f  6e 24 3d 22 4f 66 66 22  |.. animon$="Off"|
00008170  20 8c 20 e1 0d 29 68 33  f2 63 68 61 6e 67 65 5f  | . ..)h3.change_|
00008180  69 63 6f 6e 28 71 25 2c  2d 32 2c 61 70 70 69 63  |icon(q%,-2,appic|
00008190  6f 6e 25 2c 22 61 6e 69  6d 31 22 29 3a f2 61 6e  |on%,"anim1"):.an|
000081a0  69 6d 5f 77 61 69 74 0d  29 72 33 f2 63 68 61 6e  |im_wait.)r3.chan|
000081b0  67 65 5f 69 63 6f 6e 28  71 25 2c 2d 32 2c 61 70  |ge_icon(q%,-2,ap|
000081c0  70 69 63 6f 6e 25 2c 22  61 6e 69 6d 35 22 29 3a  |picon%,"anim5"):|
000081d0  f2 61 6e 69 6d 5f 77 61  69 74 0d 29 7c 33 f2 63  |.anim_wait.)|3.c|
000081e0  68 61 6e 67 65 5f 69 63  6f 6e 28 71 25 2c 2d 32  |hange_icon(q%,-2|
000081f0  2c 61 70 70 69 63 6f 6e  25 2c 22 61 6e 69 6d 34  |,appicon%,"anim4|
00008200  22 29 3a f2 61 6e 69 6d  5f 77 61 69 74 0d 29 86  |"):.anim_wait.).|
00008210  33 f2 63 68 61 6e 67 65  5f 69 63 6f 6e 28 71 25  |3.change_icon(q%|
00008220  2c 2d 32 2c 61 70 70 69  63 6f 6e 25 2c 22 61 6e  |,-2,appicon%,"an|
00008230  69 6d 33 22 29 3a f2 61  6e 69 6d 5f 77 61 69 74  |im3"):.anim_wait|
00008240  0d 29 90 33 f2 63 68 61  6e 67 65 5f 69 63 6f 6e  |.).3.change_icon|
00008250  28 71 25 2c 2d 32 2c 61  70 70 69 63 6f 6e 25 2c  |(q%,-2,appicon%,|
00008260  22 61 6e 69 6d 32 22 29  3a f2 61 6e 69 6d 5f 77  |"anim2"):.anim_w|
00008270  61 69 74 0d 29 9a 0e f2  63 6c 6f 73 65 5f 61 6c  |ait.)...close_al|
00008280  6c 0d 29 a4 05 e1 0d 29  ae 05 3a 0d 29 b8 0f dd  |l.)....)..:.)...|
00008290  f2 61 6e 69 6d 5f 77 61  69 74 0d 29 c2 0e e3 20  |.anim_wait.)... |
000082a0  49 25 3d 31 20 b8 20 35  0d 29 cc 06 c8 96 0d 29  |I%=1 . 5.).....)|
000082b0  d6 05 ed 0d 29 e0 05 e1  0d 29 ea 05 3a 0d 29 f4  |....)....)..:.).|
000082c0  28 dd f2 63 68 61 6e 67  65 5f 69 63 6f 6e 28 71  |(..change_icon(q|
000082d0  25 2c 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |%,window%,icon%,|
000082e0  6e 65 77 24 29 0d 29 fe  15 24 73 70 72 69 74 65  |new$).)..$sprite|
000082f0  25 3d 22 53 22 2b 6e 65  77 24 0d 2a 08 35 21 71  |%="S"+new$.*.5!q|
00008300  25 3d 77 69 6e 64 6f 77  25 3a 71 25 21 34 3d 69  |%=window%:q%!4=i|
00008310  63 6f 6e 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |con%:.. "Wimp_Ge|
00008320  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 71 25 0d  |tIconState",,q%.|
00008330  2a 12 11 71 25 21 32 38  3d 73 70 72 69 74 65 25  |*..q%!28=sprite%|
00008340  0d 2a 1c 44 21 71 25 3d  77 69 6e 64 6f 77 25 3a  |.*.D!q%=window%:|
00008350  71 25 21 34 3d 69 63 6f  6e 25 3a 71 25 21 38 3d  |q%!4=icon%:q%!8=|
00008360  30 3a 71 25 21 31 32 3d  30 3a c8 99 20 22 57 69  |0:q%!12=0:.. "Wi|
00008370  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00008380  2c 2c 71 25 0d 2a 26 05  e1 0d 2a 30 05 3a 0d 2a  |,,q%.*&...*0.:.*|
00008390  3a 29 dd f2 73 77 61 70  5f 63 61 73 65 28 77 69  |:)..swap_case(wi|
000083a0  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 5f  |ndow%,icon%,key_|
000083b0  69 6e 64 65 78 25 29 0d  2a 44 36 e7 20 6b 65 79  |index%).*D6. key|
000083c0  5f 69 6e 64 65 78 25 3c  a9 28 a4 72 65 61 64 5f  |_index%<.(.read_|
000083d0  69 63 6f 6e 5f 74 65 78  74 28 77 69 6e 64 6f 77  |icon_text(window|
000083e0  25 2c 69 63 6f 6e 25 2c  a3 29 29 20 8c 0d 2a 4e  |%,icon%,.)) ..*N|
000083f0  2e 49 63 6f 6e 54 65 78  74 24 3d a4 72 65 61 64  |.IconText$=.read|
00008400  5f 69 63 6f 6e 5f 74 65  78 74 28 77 69 6e 64 6f  |_icon_text(windo|
00008410  77 25 2c 69 63 6f 6e 25  2c a3 29 0d 2a 58 2a 43  |w%,icon%,.).*X*C|
00008420  25 3d 97 28 c1 49 63 6f  6e 54 65 78 74 24 2c 6b  |%=.(.IconText$,k|
00008430  65 79 5f 69 6e 64 65 78  25 2b 31 2c 31 29 29 20  |ey_index%+1,1)) |
00008440  80 20 26 44 46 0d 2a 62  19 e7 20 43 25 3e 3d 26  |. &DF.*b.. C%>=&|
00008450  34 31 20 80 20 43 25 3c  3d 26 35 41 20 8c 0d 2a  |41 . C%<=&5A ..*|
00008460  6c 2d 43 24 3d bd 28 97  28 c1 49 63 6f 6e 54 65  |l-C$=.(.(.IconTe|
00008470  78 74 24 2c 6b 65 79 5f  69 6e 64 65 78 25 2b 31  |xt$,key_index%+1|
00008480  2c 31 29 29 20 82 20 26  32 30 29 0d 2a 76 21 c1  |,1)) . &20).*v!.|
00008490  49 63 6f 6e 54 65 78 74  24 2c 6b 65 79 5f 69 6e  |IconText$,key_in|
000084a0  64 65 78 25 2b 31 2c 31  29 3d 43 24 0d 2a 80 29  |dex%+1,1)=C$.*.)|
000084b0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 77 69 6e  |.update_icon(win|
000084c0  64 6f 77 25 2c 69 63 6f  6e 25 2c 49 63 6f 6e 54  |dow%,icon%,IconT|
000084d0  65 78 74 24 29 0d 2a 8a  05 cd 0d 2a 94 32 f2 5f  |ext$).*....*.2._|
000084e0  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
000084f0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 6b  |(window%,icon%,k|
00008500  65 79 5f 69 6e 64 65 78  25 2b 31 29 0d 2a 9e 05  |ey_index%+1).*..|
00008510  cd 0d 2a a8 05 e1 0d 2a  b2 05 3a 0d 2a bc 31 dd  |..*....*..:.*.1.|
00008520  f2 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |._SetCaretPositi|
00008530  6f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |on(window%,icon%|
00008540  2c 6b 65 79 5f 69 6e 64  65 78 25 29 0d 2a c6 33  |,key_index%).*.3|
00008550  49 63 6f 6e 4c 65 6e 67  74 68 25 3d a9 28 a4 72  |IconLength%=.(.r|
00008560  65 61 64 5f 69 63 6f 6e  5f 74 65 78 74 28 77 69  |ead_icon_text(wi|
00008570  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c a3 29 29 0d  |ndow%,icon%,.)).|
00008580  2a d0 35 e7 20 6b 65 79  5f 69 6e 64 65 78 25 3e  |*.5. key_index%>|
00008590  49 63 6f 6e 4c 65 6e 67  74 68 25 20 8c 20 6b 65  |IconLength% . ke|
000085a0  79 5f 69 6e 64 65 78 25  3d 49 63 6f 6e 4c 65 6e  |y_index%=IconLen|
000085b0  67 74 68 25 0d 2a da 3c  c8 99 20 22 57 69 6d 70  |gth%.*.<.. "Wimp|
000085c0  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
000085d0  6e 22 2c 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |n",window%,icon%|
000085e0  2c 2c 2c 2d 31 2c 6b 65  79 5f 69 6e 64 65 78 25  |,,,-1,key_index%|
000085f0  0d 2a e4 22 c8 99 20 22  57 69 6d 70 5f 47 65 74  |.*.".. "Wimp_Get|
00008600  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 2c  |CaretPosition",,|
00008610  71 25 0d 2a ee 05 e1 0d  2a f8 05 3a 0d 2b 02 28  |q%.*....*..:.+.(|
00008620  dd a4 72 65 61 64 5f 69  63 6f 6e 5f 74 65 78 74  |..read_icon_text|
00008630  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 50  |(window%,icon%,P|
00008640  61 64 25 29 0d 2b 0c 0d  ea 20 52 65 73 75 6c 74  |ad%).+... Result|
00008650  24 0d 2b 16 0f 21 71 25  3d 77 69 6e 64 6f 77 25  |$.+..!q%=window%|
00008660  0d 2b 20 0e 71 25 21 34  3d 69 63 6f 6e 25 0d 2b  |.+ .q%!4=icon%.+|
00008670  2a 1e c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |*... "Wimp_GetIc|
00008680  6f 6e 53 74 61 74 65 22  2c 2c 71 25 0d 2b 34 1b  |onState",,q%.+4.|
00008690  e7 20 28 71 25 21 32 34  20 80 20 28 31 3c 3c 38  |. (q%!24 . (1<<8|
000086a0  29 29 3c 3e 30 20 8c 0d  2b 3e 14 52 65 73 75 6c  |))<>0 ..+>.Resul|
000086b0  74 24 3d 24 28 71 25 21  32 38 29 0d 2b 48 05 cc  |t$=$(q%!28).+H..|
000086c0  0d 2b 52 14 52 65 73 75  6c 74 24 3d 24 28 71 25  |.+R.Result$=$(q%|
000086d0  2b 32 38 29 0d 2b 5c 05  cd 0d 2b 66 29 e7 20 50  |+28).+\...+f). P|
000086e0  61 64 25 3e 30 20 8c 20  3d c0 52 65 73 75 6c 74  |ad%>0 . =.Result|
000086f0  24 2b c4 50 61 64 25 2c  22 20 22 29 2c 50 61 64  |$+.Pad%," "),Pad|
00008700  25 29 0d 2b 70 0c 3d 52  65 73 75 6c 74 24 0d 2b  |%).+p.=Result$.+|
00008710  7a 05 3a 0d 2b 84 14 dd  f2 6d 73 5f 6c 6f 61 64  |z.:.+....ms_load|
00008720  28 6e 61 6d 65 24 29 0d  2b 8e 24 c8 99 22 4d 65  |(name$).+.$.."Me|
00008730  73 73 61 67 65 54 72 61  6e 73 5f 46 69 6c 65 49  |ssageTrans_FileI|
00008740  6e 66 6f 22 2c 2c 6e 61  6d 65 24 0d 2b 98 10 de  |nfo",,name$.+...|
00008750  6d 73 5f 74 65 78 74 25  32 35 36 0d 2b a2 2c c8  |ms_text%256.+.,.|
00008760  99 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 36 2c 2c  |."OS_Module",6,,|
00008770  2c 31 37 2b a9 28 6e 61  6d 65 24 29 b8 2c 2c 6d  |,17+.(name$).,,m|
00008780  73 5f 64 65 73 63 25 0d  2b ac 18 24 28 6d 73 5f  |s_desc%.+..$(ms_|
00008790  64 65 73 63 25 2b 31 36  29 3d 6e 61 6d 65 24 0d  |desc%+16)=name$.|
000087a0  2b b6 32 c8 99 22 4d 65  73 73 61 67 65 54 72 61  |+.2.."MessageTra|
000087b0  6e 73 5f 4f 70 65 6e 46  69 6c 65 22 2c 6d 73 5f  |ns_OpenFile",ms_|
000087c0  64 65 73 63 25 2c 6d 73  5f 64 65 73 63 25 2b 31  |desc%,ms_desc%+1|
000087d0  36 0d 2b c0 05 e1 0d 2b  ca 05 3a 0d 2b d4 0c dd  |6.+....+..:.+...|
000087e0  f2 6d 73 5f 65 6e 64 0d  2b de 28 c8 99 22 58 4d  |.ms_end.+.(.."XM|
000087f0  65 73 73 61 67 65 54 72  61 6e 73 5f 43 6c 6f 73  |essageTrans_Clos|
00008800  65 46 69 6c 65 22 2c 6d  73 5f 64 65 73 63 25 0d  |eFile",ms_desc%.|
00008810  2b e8 1e c8 99 22 58 4f  53 5f 4d 6f 64 75 6c 65  |+...."XOS_Module|
00008820  22 2c 37 2c 2c 6d 73 5f  64 65 73 63 25 0d 2b f2  |",7,,ms_desc%.+.|
00008830  05 e1 0d 2b fc 05 3a 0d  2c 06 10 dd a4 6d 73 5f  |...+..:.,....ms_|
00008840  30 28 74 61 67 24 29 0d  2c 10 16 3d a4 6d 73 5f  |0(tag$).,..=.ms_|
00008850  32 28 74 61 67 24 2c 22  22 2c 22 22 29 0d 2c 1a  |2(tag$,"","").,.|
00008860  05 3a 0d 2c 24 16 dd a4  6d 73 5f 31 28 74 61 67  |.:.,$...ms_1(tag|
00008870  24 2c 61 72 67 31 24 29  0d 2c 2e 19 3d a4 6d 73  |$,arg1$).,..=.ms|
00008880  5f 32 28 74 61 67 24 2c  61 72 67 31 24 2c 22 22  |_2(tag$,arg1$,""|
00008890  29 0d 2c 38 05 3a 0d 2c  42 1c dd a4 6d 73 5f 32  |).,8.:.,B...ms_2|
000088a0  28 74 61 67 24 2c 61 72  67 31 24 2c 61 72 67 32  |(tag$,arg1$,arg2|
000088b0  24 29 0d 2c 4c 0a ea 46  25 2c 4c 25 0d 2c 56 4c  |$).,L..F%,L%.,VL|
000088c0  c8 99 22 58 4d 65 73 73  61 67 65 54 72 61 6e 73  |.."XMessageTrans|
000088d0  5f 4c 6f 6f 6b 75 70 22  2c 6d 73 5f 64 65 73 63  |_Lookup",ms_desc|
000088e0  25 2c 74 61 67 24 2c 6d  73 5f 74 65 78 74 25 2c  |%,tag$,ms_text%,|
000088f0  32 35 36 2c 61 72 67 31  24 2c 61 72 67 32 24 b8  |256,arg1$,arg2$.|
00008900  2c 2c 2c 4c 25 3b 46 25  0d 2c 60 0f e7 46 25 80  |,,,L%;F%.,`..F%.|
00008910  20 31 8c 4c 25 3d 30 0d  2c 6a 12 6d 73 5f 74 65  | 1.L%=0.,j.ms_te|
00008920  78 74 25 3f 4c 25 3d 31  33 0d 2c 74 0e 3d 24 6d  |xt%?L%=13.,t.=$m|
00008930  73 5f 74 65 78 74 25 0d  2c 7e 05 3a 0d 2c 88 11  |s_text%.,~.:.,..|
00008940  dd f2 68 65 6c 70 28 68  65 6c 70 24 29 0d 2c 92  |..help(help$).,.|
00008950  08 ea 20 43 25 0d 2c 9c  0f 43 25 3d a9 68 65 6c  |.. C%.,..C%=.hel|
00008960  70 24 2b 31 0d 2c a6 0e  71 25 21 31 32 3d 71 25  |p$+1.,..q%!12=q%|
00008970  21 38 0d 2c b0 0e 71 25  21 31 36 3d 26 35 30 33  |!8.,..q%!16=&503|
00008980  0d 2c ba 15 24 28 71 25  2b 32 30 29 3d 68 65 6c  |.,..$(q%+20)=hel|
00008990  70 24 2b bd 30 0d 2c c4  12 21 71 25 3d 28 32 34  |p$+.0.,..!q%=(24|
000089a0  2b 43 25 29 80 ac 33 0d  2c ce 23 c8 99 22 57 69  |+C%)..3.,.#.."Wi|
000089b0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000089c0  31 37 2c 71 25 2c 71 25  21 34 0d 2c d8 05 cd 0d  |17,q%,q%!4.,....|
000089d0  2c e2 05 e1 0d 2c ec 05  3a 0d 2c f6 0f dd a4 68  |,....,..:.,....h|
000089e0  65 6c 70 5f 74 65 78 74  0d 2d 00 0b ea 20 74 65  |elp_text.-... te|
000089f0  78 74 24 0d 2d 0a 0c 74  65 78 74 24 3d 22 22 0d  |xt$.-..text$="".|
00008a00  2d 14 0e c8 8e 20 71 25  21 33 32 20 ca 0d 2d 1e  |-.... q%!32 ..-.|
00008a10  08 c9 20 2d 32 0d 2d 28  2d e7 20 71 25 21 33 36  |.. -2.-(-. q%!36|
00008a20  3d 61 70 70 69 63 6f 6e  25 20 8c 20 74 65 78 74  |=appicon% . text|
00008a30  24 3d a4 6d 73 5f 30 28  22 49 63 6f 6e 42 61 72  |$=.ms_0("IconBar|
00008a40  22 29 0d 2d 32 24 c9 20  63 64 5f 69 6e 66 6f 62  |").-2$. cd_infob|
00008a50  6f 78 25 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |ox%:text$=.ms_0(|
00008a60  22 41 64 64 22 29 0d 2d  3c 1a c9 20 63 64 5f 69  |"Add").-<.. cd_i|
00008a70  6e 64 65 78 25 3a c8 8e  20 71 25 21 33 36 20 ca  |ndex%:.. q%!36 .|
00008a80  0d 2d 46 24 c9 20 39 2c  31 30 2c 31 33 2c 31 34  |.-F$. 9,10,13,14|
00008a90  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 54 65  |:text$=.ms_0("Te|
00008aa0  78 74 22 29 0d 2d 50 25  c9 20 31 31 2c 31 32 2c  |xt").-P%. 11,12,|
00008ab0  31 35 2c 31 36 3a 74 65  78 74 24 3d a4 6d 73 5f  |15,16:text$=.ms_|
00008ac0  30 28 22 54 65 4d 65 22  29 0d 2d 5a 26 c9 20 31  |0("TeMe").-Z&. 1|
00008ad0  38 3a 74 65 78 74 24 3d  a4 6d 73 5f 31 28 22 4d  |8:text$=.ms_1("M|
00008ae0  65 6e 75 22 2c 22 46 6f  72 6d 61 74 73 22 29 0d  |enu","Formats").|
00008af0  2d 64 24 c9 20 31 39 3a  74 65 78 74 24 3d a4 6d  |-d$. 19:text$=.m|
00008b00  73 5f 31 28 22 4d 65 6e  75 22 2c 22 53 69 7a 65  |s_1("Menu","Size|
00008b10  73 22 29 0d 2d 6e 2a c9  20 32 36 3a 74 65 78 74  |s").-n*. 26:text|
00008b20  24 3d a4 6d 73 5f 31 28  22 4d 65 6e 75 22 2c 22  |$=.ms_1("Menu","|
00008b30  4d 75 73 69 63 20 54 79  70 65 73 22 29 0d 2d 78  |Music Types").-x|
00008b40  24 c9 20 32 30 3a 74 65  78 74 24 3d a4 6d 73 5f  |$. 20:text$=.ms_|
00008b50  31 28 22 4d 65 6e 75 22  2c 22 59 65 61 72 73 22  |1("Menu","Years"|
00008b60  29 0d 2d 82 05 cb 0d 2d  8c 2e c9 20 63 64 5f 73  |).-....-... cd_s|
00008b70  6f 72 74 25 3a e7 20 71  25 21 33 36 3d 32 20 8c  |ort%:. q%!36=2 .|
00008b80  20 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 53 6f  | text$=.ms_0("So|
00008b90  72 74 22 29 0d 2d 96 19  c9 20 63 64 5f 70 61 6e  |rt").-... cd_pan|
00008ba0  65 25 3a c8 8e 20 71 25  21 33 36 20 ca 0d 2d a0  |e%:.. q%!36 ..-.|
00008bb0  1c c9 20 30 2c 31 3a 74  65 78 74 24 3d a4 6d 73  |.. 0,1:text$=.ms|
00008bc0  5f 30 28 22 4f 6e 65 22  29 0d 2d aa 1c c9 20 32  |_0("One").-... 2|
00008bd0  2c 33 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  |,3:text$=.ms_0("|
00008be0  54 65 6e 22 29 0d 2d b4  1a c9 20 36 3a 74 65 78  |Ten").-... 6:tex|
00008bf0  74 24 3d a4 6d 73 5f 30  28 22 52 65 63 22 29 0d  |t$=.ms_0("Rec").|
00008c00  2d be 05 cb 0d 2d c8 1c  c9 20 63 64 5f 73 61 76  |-....-... cd_sav|
00008c10  65 62 6f 78 25 3a c8 8e  20 71 25 21 33 36 20 ca  |ebox%:.. q%!36 .|
00008c20  0d 2d d2 1b c9 20 30 3a  74 65 78 74 24 3d a4 6d  |.-... 0:text$=.m|
00008c30  73 5f 30 28 22 44 72 61  67 22 29 0d 2d dc 1b c9  |s_0("Drag").-...|
00008c40  20 31 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  | 1:text$=.ms_0("|
00008c50  46 69 6c 65 22 29 0d 2d  e6 1b c9 20 32 3a 74 65  |File").-... 2:te|
00008c60  78 74 24 3d a4 6d 73 5f  30 28 22 53 61 76 65 22  |xt$=.ms_0("Save"|
00008c70  29 0d 2d f0 05 cb 0d 2d  fa 19 c9 20 63 64 5f 71  |).-....-... cd_q|
00008c80  75 69 74 25 3a c8 8e 20  71 25 21 33 36 20 ca 0d  |uit%:.. q%!36 ..|
00008c90  2e 04 1d c9 20 31 2c 32  3a 74 65 78 74 24 3d a4  |.... 1,2:text$=.|
00008ca0  6d 73 5f 30 28 22 51 75  65 73 22 29 0d 2e 0e 05  |ms_0("Ques")....|
00008cb0  cb 0d 2e 18 1a c9 20 63  64 5f 63 6c 65 61 72 25  |...... cd_clear%|
00008cc0  3a c8 8e 20 71 25 21 33  36 20 ca 0d 2e 22 1d c9  |:.. q%!36 ..."..|
00008cd0  20 31 2c 32 3a 74 65 78  74 24 3d a4 6d 73 5f 30  | 1,2:text$=.ms_0|
00008ce0  28 22 51 75 65 73 22 29  0d 2e 2c 05 cb 0d 2e 36  |("Ques")..,....6|
00008cf0  1a c9 20 63 64 5f 70 72  69 6e 74 25 3a c8 8e 20  |.. cd_print%:.. |
00008d00  71 25 21 33 36 20 ca 0d  2e 40 1b c9 20 36 3a 74  |q%!36 ...@.. 6:t|
00008d10  65 78 74 24 3d a4 6d 73  5f 30 28 22 43 6f 70 79  |ext$=.ms_0("Copy|
00008d20  22 29 0d 2e 4a 1b c9 20  37 3a 74 65 78 74 24 3d  |")..J.. 7:text$=|
00008d30  a4 6d 73 5f 30 28 22 50  72 69 6e 22 29 0d 2e 54  |.ms_0("Prin")..T|
00008d40  05 cb 0d 2e 5e 1b c9 20  63 64 5f 73 65 61 72 63  |....^.. cd_searc|
00008d50  68 25 3a c8 8e 20 71 25  21 33 36 20 ca 0d 2e 68  |h%:.. q%!36 ...h|
00008d60  1e c9 20 31 3a 74 65 78  74 24 3d a4 6d 73 5f 30  |.. 1:text$=.ms_0|
00008d70  28 22 53 65 61 54 65 78  74 22 29 0d 2e 72 1e c9  |("SeaText")..r..|
00008d80  20 37 3a 74 65 78 74 24  3d a4 6d 73 5f 30 28 22  | 7:text$=.ms_0("|
00008d90  53 65 61 50 72 65 76 22  29 0d 2e 7c 1d c9 20 35  |SeaPrev")..|.. 5|
00008da0  3a 74 65 78 74 24 3d a4  6d 73 5f 30 28 22 53 65  |:text$=.ms_0("Se|
00008db0  61 72 47 6f 22 29 0d 2e  86 19 7f 3a 74 65 78 74  |arGo").....:text|
00008dc0  24 3d a4 6d 73 5f 30 28  22 43 61 73 65 22 29 0d  |$=.ms_0("Case").|
00008dd0  2e 90 05 cb 0d 2e 9a 24  c9 20 63 64 5f 66 6f 75  |.......$. cd_fou|
00008de0  6e 64 25 3a 74 65 78 74  24 3d a4 6d 73 5f 30 28  |nd%:text$=.ms_0(|
00008df0  22 46 6f 75 6e 64 22 29  0d 2e a4 25 c9 20 63 64  |"Found")...%. cd|
00008e00  5f 74 72 61 63 6b 73 25  3a 74 65 78 74 24 3d a4  |_tracks%:text$=.|
00008e10  6d 73 5f 30 28 22 54 72  61 63 6b 22 29 0d 2e ae  |ms_0("Track")...|
00008e20  05 cb 0d 2e b8 0a 3d 74  65 78 74 24 0d 2e c2 05  |......=text$....|
00008e30  3a 0d 2e cc 13 dd f2 67  65 74 5f 6d 6f 64 65 5f  |:......get_mode_|
00008e40  69 6e 66 6f 0d 2e d6 1f  63 78 25 3d 28 a4 6d 76  |info....cx%=(.mv|
00008e50  28 eb 2c 31 31 29 29 3c  3c 28 a4 6d 76 28 eb 2c  |(.,11))<<(.mv(.,|
00008e60  34 29 29 0d 2e e0 1f 63  79 25 3d 28 a4 6d 76 28  |4))....cy%=(.mv(|
00008e70  eb 2c 31 32 29 29 3c 3c  28 a4 6d 76 28 eb 2c 35  |.,12))<<(.mv(.,5|
00008e80  29 29 0d 2e ea 05 e1 0d  2e f4 05 3a 0d 2e fe 14  |)).........:....|
00008e90  dd a4 6d 76 28 6d 6f 64  65 25 2c 76 61 72 25 29  |..mv(mode%,var%)|
00008ea0  0d 2f 08 08 ea 20 76 25  0d 2f 12 2e c8 99 20 22  |./... v%./.... "|
00008eb0  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
00008ec0  62 6c 65 22 2c 6d 6f 64  65 25 2c 76 61 72 25 20  |ble",mode%,var% |
00008ed0  b8 20 2c 2c 76 25 0d 2f  1c 07 3d 76 25 0d 2f 26  |. ,,v%./..=v%./&|
00008ee0  05 3a 0d 2f 30 12 dd f2  63 6c 65 61 72 5f 73 65  |.:./0...clear_se|
00008ef0  61 72 63 68 0d 2f 3a 1b  ea 20 69 63 6f 6e 25 3a  |arch./:.. icon%:|
00008f00  e3 20 69 63 6f 6e 25 3d  30 20 b8 20 31 32 31 0d  |. icon%=0 . 121.|
00008f10  2f 44 25 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |/D%.update_icon(|
00008f20  63 64 5f 66 6f 75 6e 64  25 2c 69 63 6f 6e 25 2c  |cd_found%,icon%,|
00008f30  22 20 22 29 0d 2f 4e 05  ed 0d 2f 58 48 f2 75 70  |" ")./N.../XH.up|
00008f40  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 66 6f 75  |date_icon(cd_fou|
00008f50  6e 64 25 2c 31 2c 22 63  6f 75 6c 64 20 62 65 20  |nd%,1,"could be |
00008f60  66 6f 75 6e 64 20 69 6e  20 74 68 65 20 66 6f 6c  |found in the fol|
00008f70  6c 6f 77 69 6e 67 20 72  65 63 6f 72 64 73 3a 22  |lowing records:"|
00008f80  29 0d 2f 62 05 e1 0d 2f  6c 05 3a 0d 2f 76 14 dd  |)./b.../l.:./v..|
00008f90  f2 73 65 61 72 63 68 28  66 69 65 6c 64 24 29 0d  |.search(field$).|
00008fa0  2f 80 15 c8 99 20 22 48  6f 75 72 67 6c 61 73 73  |/.... "Hourglass|
00008fb0  5f 4f 6e 22 0d 2f 8a 19  66 6f 75 6e 64 69 63 6f  |_On"./..foundico|
00008fc0  6e 25 3d 32 3a 66 6f 75  6e 64 25 3d 30 0d 2f 94  |n%=2:found%=0./.|
00008fd0  29 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d a4  |)searchstring$=.|
00008fe0  69 6e 64 69 72 65 63 74  28 63 64 5f 73 65 61 72  |indirect(cd_sear|
00008ff0  63 68 25 2c 31 29 0d 2f  9e 5f e7 20 73 65 61 72  |ch%,1)./._. sear|
00009000  63 68 73 74 72 69 6e 67  24 3d 22 22 20 8c 20 f2  |chstring$="" . .|
00009010  63 6c 6f 73 65 28 63 64  5f 73 65 61 72 63 68 25  |close(cd_search%|
00009020  29 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |):.. "Wimp_Creat|
00009030  65 4d 65 6e 75 22 2c 2c  2d 31 3a 85 20 31 2c 22  |eMenu",,-1:. 1,"|
00009040  45 6e 74 65 72 20 73 65  61 72 63 68 20 73 74 72  |Enter search str|
00009050  69 6e 67 2e 22 0d 2f a8  2b f2 75 70 64 61 74 65  |ing."./.+.update|
00009060  5f 69 63 6f 6e 28 63 64  5f 66 6f 75 6e 64 25 2c  |_icon(cd_found%,|
00009070  30 2c 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |0,searchstring$)|
00009080  0d 2f b2 0f c8 8e 20 66  69 65 6c 64 24 20 ca 0d  |./.... field$ ..|
00009090  2f bc 0e c9 20 22 41 72  74 69 73 74 22 0d 2f c6  |/... "Artist"./.|
000090a0  1d e3 20 6e 75 6d 62 65  72 25 3d 31 20 b8 20 6d  |.. number%=1 . m|
000090b0  61 78 5f 72 65 63 6f 72  64 25 0d 2f d0 c7 e7 20  |ax_record%./... |
000090c0  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d 61 72  |searchstring$=ar|
000090d0  74 69 73 74 24 28 6e 75  6d 62 65 72 25 29 20 84  |tist$(number%) .|
000090e0  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d c0  | searchstring$=.|
000090f0  61 72 74 69 73 74 24 28  6e 75 6d 62 65 72 25 29  |artist$(number%)|
00009100  2c a9 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |,.searchstring$)|
00009110  20 84 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  | . searchstring$|
00009120  3d c2 61 72 74 69 73 74  24 28 6e 75 6d 62 65 72  |=.artist$(number|
00009130  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
00009140  24 29 20 84 20 a7 61 72  74 69 73 74 24 28 6e 75  |$) . .artist$(nu|
00009150  6d 62 65 72 25 29 2c 73  65 61 72 63 68 73 74 72  |mber%),searchstr|
00009160  69 6e 67 24 29 3c 3e 30  20 8c 20 f2 61 64 64 5f  |ing$)<>0 . .add_|
00009170  74 6f 5f 66 6f 75 6e 64  28 6e 75 6d 62 65 72 25  |to_found(number%|
00009180  29 0d 2f da 05 ed 0d 2f  e4 0d c9 20 22 54 69 74  |)./..../... "Tit|
00009190  6c 65 22 0d 2f ee 1d e3  20 6e 75 6d 62 65 72 25  |le"./... number%|
000091a0  3d 31 20 b8 20 6d 61 78  5f 72 65 63 6f 72 64 25  |=1 . max_record%|
000091b0  0d 2f f8 c3 e7 20 73 65  61 72 63 68 73 74 72 69  |./... searchstri|
000091c0  6e 67 24 3d 74 69 74 6c  65 24 28 6e 75 6d 62 65  |ng$=title$(numbe|
000091d0  72 25 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |r%) . searchstri|
000091e0  6e 67 24 3d c0 74 69 74  6c 65 24 28 6e 75 6d 62  |ng$=.title$(numb|
000091f0  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
00009200  6e 67 24 29 20 84 20 73  65 61 72 63 68 73 74 72  |ng$) . searchstr|
00009210  69 6e 67 24 3d c2 74 69  74 6c 65 24 28 6e 75 6d  |ing$=.title$(num|
00009220  62 65 72 25 29 2c a9 73  65 61 72 63 68 73 74 72  |ber%),.searchstr|
00009230  69 6e 67 24 29 20 84 20  a7 74 69 74 6c 65 24 28  |ing$) . .title$(|
00009240  6e 75 6d 62 65 72 25 29  2c 73 65 61 72 63 68 73  |number%),searchs|
00009250  74 72 69 6e 67 24 29 3c  3e 30 20 8c 20 f2 61 64  |tring$)<>0 . .ad|
00009260  64 5f 74 6f 5f 66 6f 75  6e 64 28 6e 75 6d 62 65  |d_to_found(numbe|
00009270  72 25 29 0d 30 02 05 ed  0d 30 0c 0e c9 20 22 54  |r%).0....0... "T|
00009280  72 61 63 6b 73 22 0d 30  16 1d e3 20 6e 75 6d 62  |racks".0... numb|
00009290  65 72 25 3d 31 20 b8 20  6d 61 78 5f 72 65 63 6f  |er%=1 . max_reco|
000092a0  72 64 25 0d 30 20 b7 e7  20 73 65 61 72 63 68 73  |rd%.0 .. searchs|
000092b0  74 72 69 6e 67 24 3d 74  31 24 28 6e 75 6d 62 65  |tring$=t1$(numbe|
000092c0  72 25 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |r%) . searchstri|
000092d0  6e 67 24 3d c0 74 31 24  28 6e 75 6d 62 65 72 25  |ng$=.t1$(number%|
000092e0  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
000092f0  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
00009300  24 3d c2 74 31 24 28 6e  75 6d 62 65 72 25 29 2c  |$=.t1$(number%),|
00009310  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
00009320  84 20 a7 74 31 24 28 6e  75 6d 62 65 72 25 29 2c  |. .t1$(number%),|
00009330  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 3c 3e  |searchstring$)<>|
00009340  30 20 8c 20 f2 61 64 64  5f 74 6f 5f 66 6f 75 6e  |0 . .add_to_foun|
00009350  64 28 6e 75 6d 62 65 72  25 29 0d 30 2a b7 e7 20  |d(number%).0*.. |
00009360  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d 74 32  |searchstring$=t2|
00009370  24 28 6e 75 6d 62 65 72  25 29 20 84 20 73 65 61  |$(number%) . sea|
00009380  72 63 68 73 74 72 69 6e  67 24 3d c0 74 32 24 28  |rchstring$=.t2$(|
00009390  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
000093a0  73 74 72 69 6e 67 24 29  20 84 20 73 65 61 72 63  |string$) . searc|
000093b0  68 73 74 72 69 6e 67 24  3d c2 74 32 24 28 6e 75  |hstring$=.t2$(nu|
000093c0  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
000093d0  72 69 6e 67 24 29 20 84  20 a7 74 32 24 28 6e 75  |ring$) . .t2$(nu|
000093e0  6d 62 65 72 25 29 2c 73  65 61 72 63 68 73 74 72  |mber%),searchstr|
000093f0  69 6e 67 24 29 3c 3e 30  20 8c 20 f2 61 64 64 5f  |ing$)<>0 . .add_|
00009400  74 6f 5f 66 6f 75 6e 64  28 6e 75 6d 62 65 72 25  |to_found(number%|
00009410  29 0d 30 34 b7 e7 20 73  65 61 72 63 68 73 74 72  |).04.. searchstr|
00009420  69 6e 67 24 3d 74 33 24  28 6e 75 6d 62 65 72 25  |ing$=t3$(number%|
00009430  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
00009440  24 3d c0 74 33 24 28 6e  75 6d 62 65 72 25 29 2c  |$=.t3$(number%),|
00009450  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
00009460  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
00009470  c2 74 33 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |.t3$(number%),.s|
00009480  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
00009490  a7 74 33 24 28 6e 75 6d  62 65 72 25 29 2c 73 65  |.t3$(number%),se|
000094a0  61 72 63 68 73 74 72 69  6e 67 24 29 3c 3e 30 20  |archstring$)<>0 |
000094b0  8c 20 f2 61 64 64 5f 74  6f 5f 66 6f 75 6e 64 28  |. .add_to_found(|
000094c0  6e 75 6d 62 65 72 25 29  0d 30 3e b7 e7 20 73 65  |number%).0>.. se|
000094d0  61 72 63 68 73 74 72 69  6e 67 24 3d 74 34 24 28  |archstring$=t4$(|
000094e0  6e 75 6d 62 65 72 25 29  20 84 20 73 65 61 72 63  |number%) . searc|
000094f0  68 73 74 72 69 6e 67 24  3d c0 74 34 24 28 6e 75  |hstring$=.t4$(nu|
00009500  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
00009510  72 69 6e 67 24 29 20 84  20 73 65 61 72 63 68 73  |ring$) . searchs|
00009520  74 72 69 6e 67 24 3d c2  74 34 24 28 6e 75 6d 62  |tring$=.t4$(numb|
00009530  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
00009540  6e 67 24 29 20 84 20 a7  74 34 24 28 6e 75 6d 62  |ng$) . .t4$(numb|
00009550  65 72 25 29 2c 73 65 61  72 63 68 73 74 72 69 6e  |er%),searchstrin|
00009560  67 24 29 3c 3e 30 20 8c  20 f2 61 64 64 5f 74 6f  |g$)<>0 . .add_to|
00009570  5f 66 6f 75 6e 64 28 6e  75 6d 62 65 72 25 29 0d  |_found(number%).|
00009580  30 48 b7 e7 20 73 65 61  72 63 68 73 74 72 69 6e  |0H.. searchstrin|
00009590  67 24 3d 74 35 24 28 6e  75 6d 62 65 72 25 29 20  |g$=t5$(number%) |
000095a0  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
000095b0  c0 74 35 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |.t5$(number%),.s|
000095c0  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
000095d0  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c2 74  |searchstring$=.t|
000095e0  35 24 28 6e 75 6d 62 65  72 25 29 2c a9 73 65 61  |5$(number%),.sea|
000095f0  72 63 68 73 74 72 69 6e  67 24 29 20 84 20 a7 74  |rchstring$) . .t|
00009600  35 24 28 6e 75 6d 62 65  72 25 29 2c 73 65 61 72  |5$(number%),sear|
00009610  63 68 73 74 72 69 6e 67  24 29 3c 3e 30 20 8c 20  |chstring$)<>0 . |
00009620  f2 61 64 64 5f 74 6f 5f  66 6f 75 6e 64 28 6e 75  |.add_to_found(nu|
00009630  6d 62 65 72 25 29 0d 30  52 b7 e7 20 73 65 61 72  |mber%).0R.. sear|
00009640  63 68 73 74 72 69 6e 67  24 3d 74 36 24 28 6e 75  |chstring$=t6$(nu|
00009650  6d 62 65 72 25 29 20 84  20 73 65 61 72 63 68 73  |mber%) . searchs|
00009660  74 72 69 6e 67 24 3d c0  74 36 24 28 6e 75 6d 62  |tring$=.t6$(numb|
00009670  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
00009680  6e 67 24 29 20 84 20 73  65 61 72 63 68 73 74 72  |ng$) . searchstr|
00009690  69 6e 67 24 3d c2 74 36  24 28 6e 75 6d 62 65 72  |ing$=.t6$(number|
000096a0  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
000096b0  24 29 20 84 20 a7 74 36  24 28 6e 75 6d 62 65 72  |$) . .t6$(number|
000096c0  25 29 2c 73 65 61 72 63  68 73 74 72 69 6e 67 24  |%),searchstring$|
000096d0  29 3c 3e 30 20 8c 20 f2  61 64 64 5f 74 6f 5f 66  |)<>0 . .add_to_f|
000096e0  6f 75 6e 64 28 6e 75 6d  62 65 72 25 29 0d 30 5c  |ound(number%).0\|
000096f0  b7 e7 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  |.. searchstring$|
00009700  3d 74 37 24 28 6e 75 6d  62 65 72 25 29 20 84 20  |=t7$(number%) . |
00009710  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c0 74  |searchstring$=.t|
00009720  37 24 28 6e 75 6d 62 65  72 25 29 2c a9 73 65 61  |7$(number%),.sea|
00009730  72 63 68 73 74 72 69 6e  67 24 29 20 84 20 73 65  |rchstring$) . se|
00009740  61 72 63 68 73 74 72 69  6e 67 24 3d c2 74 37 24  |archstring$=.t7$|
00009750  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
00009760  68 73 74 72 69 6e 67 24  29 20 84 20 a7 74 37 24  |hstring$) . .t7$|
00009770  28 6e 75 6d 62 65 72 25  29 2c 73 65 61 72 63 68  |(number%),search|
00009780  73 74 72 69 6e 67 24 29  3c 3e 30 20 8c 20 f2 61  |string$)<>0 . .a|
00009790  64 64 5f 74 6f 5f 66 6f  75 6e 64 28 6e 75 6d 62  |dd_to_found(numb|
000097a0  65 72 25 29 0d 30 66 b7  e7 20 73 65 61 72 63 68  |er%).0f.. search|
000097b0  73 74 72 69 6e 67 24 3d  74 38 24 28 6e 75 6d 62  |string$=t8$(numb|
000097c0  65 72 25 29 20 84 20 73  65 61 72 63 68 73 74 72  |er%) . searchstr|
000097d0  69 6e 67 24 3d c0 74 38  24 28 6e 75 6d 62 65 72  |ing$=.t8$(number|
000097e0  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
000097f0  24 29 20 84 20 73 65 61  72 63 68 73 74 72 69 6e  |$) . searchstrin|
00009800  67 24 3d c2 74 38 24 28  6e 75 6d 62 65 72 25 29  |g$=.t8$(number%)|
00009810  2c a9 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |,.searchstring$)|
00009820  20 84 20 a7 74 38 24 28  6e 75 6d 62 65 72 25 29  | . .t8$(number%)|
00009830  2c 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 3c  |,searchstring$)<|
00009840  3e 30 20 8c 20 f2 61 64  64 5f 74 6f 5f 66 6f 75  |>0 . .add_to_fou|
00009850  6e 64 28 6e 75 6d 62 65  72 25 29 0d 30 70 b7 e7  |nd(number%).0p..|
00009860  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d 74  | searchstring$=t|
00009870  39 24 28 6e 75 6d 62 65  72 25 29 20 84 20 73 65  |9$(number%) . se|
00009880  61 72 63 68 73 74 72 69  6e 67 24 3d c0 74 39 24  |archstring$=.t9$|
00009890  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
000098a0  68 73 74 72 69 6e 67 24  29 20 84 20 73 65 61 72  |hstring$) . sear|
000098b0  63 68 73 74 72 69 6e 67  24 3d c2 74 39 24 28 6e  |chstring$=.t9$(n|
000098c0  75 6d 62 65 72 25 29 2c  a9 73 65 61 72 63 68 73  |umber%),.searchs|
000098d0  74 72 69 6e 67 24 29 20  84 20 a7 74 39 24 28 6e  |tring$) . .t9$(n|
000098e0  75 6d 62 65 72 25 29 2c  73 65 61 72 63 68 73 74  |umber%),searchst|
000098f0  72 69 6e 67 24 29 3c 3e  30 20 8c 20 f2 61 64 64  |ring$)<>0 . .add|
00009900  5f 74 6f 5f 66 6f 75 6e  64 28 6e 75 6d 62 65 72  |_to_found(number|
00009910  25 29 0d 30 7a bb e7 20  73 65 61 72 63 68 73 74  |%).0z.. searchst|
00009920  72 69 6e 67 24 3d 74 31  30 24 28 6e 75 6d 62 65  |ring$=t10$(numbe|
00009930  72 25 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |r%) . searchstri|
00009940  6e 67 24 3d c0 74 31 30  24 28 6e 75 6d 62 65 72  |ng$=.t10$(number|
00009950  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
00009960  24 29 20 84 20 73 65 61  72 63 68 73 74 72 69 6e  |$) . searchstrin|
00009970  67 24 3d c2 74 31 30 24  28 6e 75 6d 62 65 72 25  |g$=.t10$(number%|
00009980  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
00009990  29 20 84 20 a7 74 31 30  24 28 6e 75 6d 62 65 72  |) . .t10$(number|
000099a0  25 29 2c 73 65 61 72 63  68 73 74 72 69 6e 67 24  |%),searchstring$|
000099b0  29 3c 3e 30 20 8c 20 f2  61 64 64 5f 74 6f 5f 66  |)<>0 . .add_to_f|
000099c0  6f 75 6e 64 28 6e 75 6d  62 65 72 25 29 0d 30 84  |ound(number%).0.|
000099d0  bb e7 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  |.. searchstring$|
000099e0  3d 74 31 31 24 28 6e 75  6d 62 65 72 25 29 20 84  |=t11$(number%) .|
000099f0  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d c0  | searchstring$=.|
00009a00  74 31 31 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |t11$(number%),.s|
00009a10  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
00009a20  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c2 74  |searchstring$=.t|
00009a30  31 31 24 28 6e 75 6d 62  65 72 25 29 2c a9 73 65  |11$(number%),.se|
00009a40  61 72 63 68 73 74 72 69  6e 67 24 29 20 84 20 a7  |archstring$) . .|
00009a50  74 31 31 24 28 6e 75 6d  62 65 72 25 29 2c 73 65  |t11$(number%),se|
00009a60  61 72 63 68 73 74 72 69  6e 67 24 29 3c 3e 30 20  |archstring$)<>0 |
00009a70  8c 20 f2 61 64 64 5f 74  6f 5f 66 6f 75 6e 64 28  |. .add_to_found(|
00009a80  6e 75 6d 62 65 72 25 29  0d 30 8e bb e7 20 73 65  |number%).0... se|
00009a90  61 72 63 68 73 74 72 69  6e 67 24 3d 74 31 32 24  |archstring$=t12$|
00009aa0  28 6e 75 6d 62 65 72 25  29 20 84 20 73 65 61 72  |(number%) . sear|
00009ab0  63 68 73 74 72 69 6e 67  24 3d c0 74 31 32 24 28  |chstring$=.t12$(|
00009ac0  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
00009ad0  73 74 72 69 6e 67 24 29  20 84 20 73 65 61 72 63  |string$) . searc|
00009ae0  68 73 74 72 69 6e 67 24  3d c2 74 31 32 24 28 6e  |hstring$=.t12$(n|
00009af0  75 6d 62 65 72 25 29 2c  a9 73 65 61 72 63 68 73  |umber%),.searchs|
00009b00  74 72 69 6e 67 24 29 20  84 20 a7 74 31 32 24 28  |tring$) . .t12$(|
00009b10  6e 75 6d 62 65 72 25 29  2c 73 65 61 72 63 68 73  |number%),searchs|
00009b20  74 72 69 6e 67 24 29 3c  3e 30 20 8c 20 f2 61 64  |tring$)<>0 . .ad|
00009b30  64 5f 74 6f 5f 66 6f 75  6e 64 28 6e 75 6d 62 65  |d_to_found(numbe|
00009b40  72 25 29 0d 30 98 bb e7  20 73 65 61 72 63 68 73  |r%).0... searchs|
00009b50  74 72 69 6e 67 24 3d 74  31 33 24 28 6e 75 6d 62  |tring$=t13$(numb|
00009b60  65 72 25 29 20 84 20 73  65 61 72 63 68 73 74 72  |er%) . searchstr|
00009b70  69 6e 67 24 3d c0 74 31  33 24 28 6e 75 6d 62 65  |ing$=.t13$(numbe|
00009b80  72 25 29 2c a9 73 65 61  72 63 68 73 74 72 69 6e  |r%),.searchstrin|
00009b90  67 24 29 20 84 20 73 65  61 72 63 68 73 74 72 69  |g$) . searchstri|
00009ba0  6e 67 24 3d c2 74 31 33  24 28 6e 75 6d 62 65 72  |ng$=.t13$(number|
00009bb0  25 29 2c a9 73 65 61 72  63 68 73 74 72 69 6e 67  |%),.searchstring|
00009bc0  24 29 20 84 20 a7 74 31  33 24 28 6e 75 6d 62 65  |$) . .t13$(numbe|
00009bd0  72 25 29 2c 73 65 61 72  63 68 73 74 72 69 6e 67  |r%),searchstring|
00009be0  24 29 3c 3e 30 20 8c 20  f2 61 64 64 5f 74 6f 5f  |$)<>0 . .add_to_|
00009bf0  66 6f 75 6e 64 28 6e 75  6d 62 65 72 25 29 0d 30  |found(number%).0|
00009c00  a2 bb e7 20 73 65 61 72  63 68 73 74 72 69 6e 67  |... searchstring|
00009c10  24 3d 74 31 34 24 28 6e  75 6d 62 65 72 25 29 20  |$=t14$(number%) |
00009c20  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
00009c30  c0 74 31 34 24 28 6e 75  6d 62 65 72 25 29 2c a9  |.t14$(number%),.|
00009c40  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 20 84  |searchstring$) .|
00009c50  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d c2  | searchstring$=.|
00009c60  74 31 34 24 28 6e 75 6d  62 65 72 25 29 2c a9 73  |t14$(number%),.s|
00009c70  65 61 72 63 68 73 74 72  69 6e 67 24 29 20 84 20  |earchstring$) . |
00009c80  a7 74 31 34 24 28 6e 75  6d 62 65 72 25 29 2c 73  |.t14$(number%),s|
00009c90  65 61 72 63 68 73 74 72  69 6e 67 24 29 3c 3e 30  |earchstring$)<>0|
00009ca0  20 8c 20 f2 61 64 64 5f  74 6f 5f 66 6f 75 6e 64  | . .add_to_found|
00009cb0  28 6e 75 6d 62 65 72 25  29 0d 30 ac bb e7 20 73  |(number%).0... s|
00009cc0  65 61 72 63 68 73 74 72  69 6e 67 24 3d 74 31 35  |earchstring$=t15|
00009cd0  24 28 6e 75 6d 62 65 72  25 29 20 84 20 73 65 61  |$(number%) . sea|
00009ce0  72 63 68 73 74 72 69 6e  67 24 3d c0 74 31 35 24  |rchstring$=.t15$|
00009cf0  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
00009d00  68 73 74 72 69 6e 67 24  29 20 84 20 73 65 61 72  |hstring$) . sear|
00009d10  63 68 73 74 72 69 6e 67  24 3d c2 74 31 35 24 28  |chstring$=.t15$(|
00009d20  6e 75 6d 62 65 72 25 29  2c a9 73 65 61 72 63 68  |number%),.search|
00009d30  73 74 72 69 6e 67 24 29  20 84 20 a7 74 31 35 24  |string$) . .t15$|
00009d40  28 6e 75 6d 62 65 72 25  29 2c 73 65 61 72 63 68  |(number%),search|
00009d50  73 74 72 69 6e 67 24 29  3c 3e 30 20 8c 20 f2 61  |string$)<>0 . .a|
00009d60  64 64 5f 74 6f 5f 66 6f  75 6e 64 28 6e 75 6d 62  |dd_to_found(numb|
00009d70  65 72 25 29 0d 30 b6 bb  e7 20 73 65 61 72 63 68  |er%).0... search|
00009d80  73 74 72 69 6e 67 24 3d  74 31 36 24 28 6e 75 6d  |string$=t16$(num|
00009d90  62 65 72 25 29 20 84 20  73 65 61 72 63 68 73 74  |ber%) . searchst|
00009da0  72 69 6e 67 24 3d c0 74  31 36 24 28 6e 75 6d 62  |ring$=.t16$(numb|
00009db0  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
00009dc0  6e 67 24 29 20 84 20 73  65 61 72 63 68 73 74 72  |ng$) . searchstr|
00009dd0  69 6e 67 24 3d c2 74 31  36 24 28 6e 75 6d 62 65  |ing$=.t16$(numbe|
00009de0  72 25 29 2c a9 73 65 61  72 63 68 73 74 72 69 6e  |r%),.searchstrin|
00009df0  67 24 29 20 84 20 a7 74  31 36 24 28 6e 75 6d 62  |g$) . .t16$(numb|
00009e00  65 72 25 29 2c 73 65 61  72 63 68 73 74 72 69 6e  |er%),searchstrin|
00009e10  67 24 29 3c 3e 30 20 8c  20 f2 61 64 64 5f 74 6f  |g$)<>0 . .add_to|
00009e20  5f 66 6f 75 6e 64 28 6e  75 6d 62 65 72 25 29 0d  |_found(number%).|
00009e30  30 c0 bb e7 20 73 65 61  72 63 68 73 74 72 69 6e  |0... searchstrin|
00009e40  67 24 3d 74 31 37 24 28  6e 75 6d 62 65 72 25 29  |g$=t17$(number%)|
00009e50  20 84 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  | . searchstring$|
00009e60  3d c0 74 31 37 24 28 6e  75 6d 62 65 72 25 29 2c  |=.t17$(number%),|
00009e70  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
00009e80  84 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
00009e90  c2 74 31 37 24 28 6e 75  6d 62 65 72 25 29 2c a9  |.t17$(number%),.|
00009ea0  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 20 84  |searchstring$) .|
00009eb0  20 a7 74 31 37 24 28 6e  75 6d 62 65 72 25 29 2c  | .t17$(number%),|
00009ec0  73 65 61 72 63 68 73 74  72 69 6e 67 24 29 3c 3e  |searchstring$)<>|
00009ed0  30 20 8c 20 f2 61 64 64  5f 74 6f 5f 66 6f 75 6e  |0 . .add_to_foun|
00009ee0  64 28 6e 75 6d 62 65 72  25 29 0d 30 ca bb e7 20  |d(number%).0... |
00009ef0  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d 74 31  |searchstring$=t1|
00009f00  38 24 28 6e 75 6d 62 65  72 25 29 20 84 20 73 65  |8$(number%) . se|
00009f10  61 72 63 68 73 74 72 69  6e 67 24 3d c0 74 31 38  |archstring$=.t18|
00009f20  24 28 6e 75 6d 62 65 72  25 29 2c a9 73 65 61 72  |$(number%),.sear|
00009f30  63 68 73 74 72 69 6e 67  24 29 20 84 20 73 65 61  |chstring$) . sea|
00009f40  72 63 68 73 74 72 69 6e  67 24 3d c2 74 31 38 24  |rchstring$=.t18$|
00009f50  28 6e 75 6d 62 65 72 25  29 2c a9 73 65 61 72 63  |(number%),.searc|
00009f60  68 73 74 72 69 6e 67 24  29 20 84 20 a7 74 31 38  |hstring$) . .t18|
00009f70  24 28 6e 75 6d 62 65 72  25 29 2c 73 65 61 72 63  |$(number%),searc|
00009f80  68 73 74 72 69 6e 67 24  29 3c 3e 30 20 8c 20 f2  |hstring$)<>0 . .|
00009f90  61 64 64 5f 74 6f 5f 66  6f 75 6e 64 28 6e 75 6d  |add_to_found(num|
00009fa0  62 65 72 25 29 0d 30 d4  bb e7 20 73 65 61 72 63  |ber%).0... searc|
00009fb0  68 73 74 72 69 6e 67 24  3d 74 31 39 24 28 6e 75  |hstring$=t19$(nu|
00009fc0  6d 62 65 72 25 29 20 84  20 73 65 61 72 63 68 73  |mber%) . searchs|
00009fd0  74 72 69 6e 67 24 3d c0  74 31 39 24 28 6e 75 6d  |tring$=.t19$(num|
00009fe0  62 65 72 25 29 2c a9 73  65 61 72 63 68 73 74 72  |ber%),.searchstr|
00009ff0  69 6e 67 24 29 20 84 20  73 65 61 72 63 68 73 74  |ing$) . searchst|
0000a000  72 69 6e 67 24 3d c2 74  31 39 24 28 6e 75 6d 62  |ring$=.t19$(numb|
0000a010  65 72 25 29 2c a9 73 65  61 72 63 68 73 74 72 69  |er%),.searchstri|
0000a020  6e 67 24 29 20 84 20 a7  74 31 39 24 28 6e 75 6d  |ng$) . .t19$(num|
0000a030  62 65 72 25 29 2c 73 65  61 72 63 68 73 74 72 69  |ber%),searchstri|
0000a040  6e 67 24 29 3c 3e 30 20  8c 20 f2 61 64 64 5f 74  |ng$)<>0 . .add_t|
0000a050  6f 5f 66 6f 75 6e 64 28  6e 75 6d 62 65 72 25 29  |o_found(number%)|
0000a060  0d 30 de bb e7 20 73 65  61 72 63 68 73 74 72 69  |.0... searchstri|
0000a070  6e 67 24 3d 74 32 30 24  28 6e 75 6d 62 65 72 25  |ng$=t20$(number%|
0000a080  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
0000a090  24 3d c0 74 32 30 24 28  6e 75 6d 62 65 72 25 29  |$=.t20$(number%)|
0000a0a0  2c a9 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |,.searchstring$)|
0000a0b0  20 84 20 73 65 61 72 63  68 73 74 72 69 6e 67 24  | . searchstring$|
0000a0c0  3d c2 74 32 30 24 28 6e  75 6d 62 65 72 25 29 2c  |=.t20$(number%),|
0000a0d0  a9 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 20  |.searchstring$) |
0000a0e0  84 20 a7 74 32 30 24 28  6e 75 6d 62 65 72 25 29  |. .t20$(number%)|
0000a0f0  2c 73 65 61 72 63 68 73  74 72 69 6e 67 24 29 3c  |,searchstring$)<|
0000a100  3e 30 20 8c 20 f2 61 64  64 5f 74 6f 5f 66 6f 75  |>0 . .add_to_fou|
0000a110  6e 64 28 6e 75 6d 62 65  72 25 29 0d 30 e8 bb e7  |nd(number%).0...|
0000a120  20 73 65 61 72 63 68 73  74 72 69 6e 67 24 3d 74  | searchstring$=t|
0000a130  32 31 24 28 6e 75 6d 62  65 72 25 29 20 84 20 73  |21$(number%) . s|
0000a140  65 61 72 63 68 73 74 72  69 6e 67 24 3d c0 74 32  |earchstring$=.t2|
0000a150  31 24 28 6e 75 6d 62 65  72 25 29 2c a9 73 65 61  |1$(number%),.sea|
0000a160  72 63 68 73 74 72 69 6e  67 24 29 20 84 20 73 65  |rchstring$) . se|
0000a170  61 72 63 68 73 74 72 69  6e 67 24 3d c2 74 32 31  |archstring$=.t21|
0000a180  24 28 6e 75 6d 62 65 72  25 29 2c a9 73 65 61 72  |$(number%),.sear|
0000a190  63 68 73 74 72 69 6e 67  24 29 20 84 20 a7 74 32  |chstring$) . .t2|
0000a1a0  31 24 28 6e 75 6d 62 65  72 25 29 2c 73 65 61 72  |1$(number%),sear|
0000a1b0  63 68 73 74 72 69 6e 67  24 29 3c 3e 30 20 8c 20  |chstring$)<>0 . |
0000a1c0  f2 61 64 64 5f 74 6f 5f  66 6f 75 6e 64 28 6e 75  |.add_to_found(nu|
0000a1d0  6d 62 65 72 25 29 0d 30  f2 bb e7 20 73 65 61 72  |mber%).0... sear|
0000a1e0  63 68 73 74 72 69 6e 67  24 3d 74 32 32 24 28 6e  |chstring$=t22$(n|
0000a1f0  75 6d 62 65 72 25 29 20  84 20 73 65 61 72 63 68  |umber%) . search|
0000a200  73 74 72 69 6e 67 24 3d  c0 74 32 32 24 28 6e 75  |string$=.t22$(nu|
0000a210  6d 62 65 72 25 29 2c a9  73 65 61 72 63 68 73 74  |mber%),.searchst|
0000a220  72 69 6e 67 24 29 20 84  20 73 65 61 72 63 68 73  |ring$) . searchs|
0000a230  74 72 69 6e 67 24 3d c2  74 32 32 24 28 6e 75 6d  |tring$=.t22$(num|
0000a240  62 65 72 25 29 2c a9 73  65 61 72 63 68 73 74 72  |ber%),.searchstr|
0000a250  69 6e 67 24 29 20 84 20  a7 74 32 32 24 28 6e 75  |ing$) . .t22$(nu|
0000a260  6d 62 65 72 25 29 2c 73  65 61 72 63 68 73 74 72  |mber%),searchstr|
0000a270  69 6e 67 24 29 3c 3e 30  20 8c 20 f2 61 64 64 5f  |ing$)<>0 . .add_|
0000a280  74 6f 5f 66 6f 75 6e 64  28 6e 75 6d 62 65 72 25  |to_found(number%|
0000a290  29 0d 30 fc bb e7 20 73  65 61 72 63 68 73 74 72  |).0... searchstr|
0000a2a0  69 6e 67 24 3d 74 32 33  24 28 6e 75 6d 62 65 72  |ing$=t23$(number|
0000a2b0  25 29 20 84 20 73 65 61  72 63 68 73 74 72 69 6e  |%) . searchstrin|
0000a2c0  67 24 3d c0 74 32 33 24  28 6e 75 6d 62 65 72 25  |g$=.t23$(number%|
0000a2d0  29 2c a9 73 65 61 72 63  68 73 74 72 69 6e 67 24  |),.searchstring$|
0000a2e0  29 20 84 20 73 65 61 72  63 68 73 74 72 69 6e 67  |) . searchstring|
0000a2f0  24 3d c2 74 32 33 24 28  6e 75 6d 62 65 72 25 29  |$=.t23$(number%)|
0000a300  2c a9 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |,.searchstring$)|
0000a310  20 84 20 a7 74 32 33 24  28 6e 75 6d 62 65 72 25  | . .t23$(number%|
0000a320  29 2c 73 65 61 72 63 68  73 74 72 69 6e 67 24 29  |),searchstring$)|
0000a330  3c 3e 30 20 8c 20 f2 61  64 64 5f 74 6f 5f 66 6f  |<>0 . .add_to_fo|
0000a340  75 6e 64 28 6e 75 6d 62  65 72 25 29 0d 31 06 bb  |und(number%).1..|
0000a350  e7 20 73 65 61 72 63 68  73 74 72 69 6e 67 24 3d  |. searchstring$=|
0000a360  74 32 34 24 28 6e 75 6d  62 65 72 25 29 20 84 20  |t24$(number%) . |
0000a370  73 65 61 72 63 68 73 74  72 69 6e 67 24 3d c0 74  |searchstring$=.t|
0000a380  32 34 24 28 6e 75 6d 62  65 72 25 29 2c a9 73 65  |24$(number%),.se|
0000a390  61 72 63 68 73 74 72 69  6e 67 24 29 20 84 20 73  |archstring$) . s|
0000a3a0  65 61 72 63 68 73 74 72  69 6e 67 24 3d c2 74 32  |earchstring$=.t2|
0000a3b0  34 24 28 6e 75 6d 62 65  72 25 29 2c a9 73 65 61  |4$(number%),.sea|
0000a3c0  72 63 68 73 74 72 69 6e  67 24 29 20 84 20 a7 74  |rchstring$) . .t|
0000a3d0  32 34 24 28 6e 75 6d 62  65 72 25 29 2c 73 65 61  |24$(number%),sea|
0000a3e0  72 63 68 73 74 72 69 6e  67 24 29 3c 3e 30 20 8c  |rchstring$)<>0 .|
0000a3f0  20 f2 61 64 64 5f 74 6f  5f 66 6f 75 6e 64 28 6e  | .add_to_found(n|
0000a400  75 6d 62 65 72 25 29 0d  31 10 05 ed 0d 31 1a 05  |umber%).1....1..|
0000a410  cb 0d 31 24 16 f2 63 6c  6f 73 65 28 63 64 5f 73  |..1$..close(cd_s|
0000a420  65 61 72 63 68 25 29 0d  31 2e 21 f2 75 70 64 61  |earch%).1.!.upda|
0000a430  74 65 5f 69 63 6f 6e 28  63 64 5f 73 65 61 72 63  |te_icon(cd_searc|
0000a440  68 25 2c 31 2c 22 22 29  0d 31 38 1c f2 6d 6f 76  |h%,1,"").18..mov|
0000a450  65 5f 63 61 72 65 74 28  63 64 5f 69 6e 64 65 78  |e_caret(cd_index|
0000a460  25 2c 39 29 0d 31 42 1c  c8 99 20 22 57 69 6d 70  |%,9).1B... "Wimp|
0000a470  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
0000a480  0d 31 4c 16 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.1L... "Hourglas|
0000a490  73 5f 4f 66 66 22 0d 31  56 55 e7 20 66 6f 75 6e  |s_Off".1VU. foun|
0000a4a0  64 25 3c 3e 30 20 8c 20  f2 6f 70 65 6e 28 63 64  |d%<>0 . .open(cd|
0000a4b0  5f 66 6f 75 6e 64 25 29  20 8b 20 f2 65 72 72 6f  |_found%) . .erro|
0000a4c0  72 28 31 2c 73 65 61 72  63 68 73 74 72 69 6e 67  |r(1,searchstring|
0000a4d0  24 2b 22 20 63 6f 75 6c  64 20 6e 6f 74 20 62 65  |$+" could not be|
0000a4e0  20 66 6f 75 6e 64 2e 22  2c 31 29 0d 31 60 05 e1  | found.",1).1`..|
0000a4f0  0d 31 6a 05 3a 0d 31 74  20 dd f2 61 64 64 5f 74  |.1j.:.1t ..add_t|
0000a500  6f 5f 66 6f 75 6e 64 28  66 6f 75 6e 64 72 65 63  |o_found(foundrec|
0000a510  6f 72 64 25 29 0d 31 7e  36 f2 75 70 64 61 74 65  |ord%).1~6.update|
0000a520  5f 69 63 6f 6e 28 63 64  5f 66 6f 75 6e 64 25 2c  |_icon(cd_found%,|
0000a530  66 6f 75 6e 64 69 63 6f  6e 25 2c c3 28 66 6f 75  |foundicon%,.(fou|
0000a540  6e 64 72 65 63 6f 72 64  25 29 29 0d 31 88 1b 66  |ndrecord%)).1..f|
0000a550  6f 75 6e 64 69 63 6f 6e  25 2b 3d 31 3a 66 6f 75  |oundicon%+=1:fou|
0000a560  6e 64 25 2b 3d 31 0d 31  92 05 e1 0d 31 9c 05 3a  |nd%+=1.1....1..:|
0000a570  0d 31 a6 0f dd f2 63 6c  6f 73 65 5f 61 6c 6c 0d  |.1....close_all.|
0000a580  31 b0 75 f2 63 6c 6f 73  65 28 63 64 5f 77 61 69  |1.u.close(cd_wai|
0000a590  74 25 29 3a f2 63 6c 6f  73 65 28 63 64 5f 70 72  |t%):.close(cd_pr|
0000a5a0  69 6e 74 25 29 3a f2 63  6c 6f 73 65 28 63 64 5f  |int%):.close(cd_|
0000a5b0  73 65 61 72 63 68 25 29  3a f2 63 6c 6f 73 65 28  |search%):.close(|
0000a5c0  63 64 5f 66 6f 75 6e 64  25 29 3a f2 63 6c 6f 73  |cd_found%):.clos|
0000a5d0  65 28 63 64 5f 71 75 69  74 25 29 3a c8 99 20 22  |e(cd_quit%):.. "|
0000a5e0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
0000a5f0  2c 2c 2d 31 0d 31 ba 72  f2 63 6c 6f 73 65 28 63  |,,-1.1.r.close(c|
0000a600  64 5f 63 6c 65 61 72 25  29 3a f2 63 6c 6f 73 65  |d_clear%):.close|
0000a610  28 63 64 5f 68 65 6c 70  25 29 3a f2 63 6c 6f 73  |(cd_help%):.clos|
0000a620  65 28 63 64 5f 69 6e 66  6f 62 6f 78 25 29 3a f2  |e(cd_infobox%):.|
0000a630  63 6c 6f 73 65 28 63 64  5f 73 61 76 65 62 6f 78  |close(cd_savebox|
0000a640  25 29 3a f2 63 6c 6f 73  65 28 63 64 5f 73 6f 72  |%):.close(cd_sor|
0000a650  74 25 29 3a f2 63 6c 6f  73 65 28 63 64 5f 74 72  |t%):.close(cd_tr|
0000a660  61 63 6b 73 25 29 0d 31  c4 15 c8 97 20 c8 93 20  |acks%).1.... .. |
0000a670  30 2c 30 2c 63 78 25 2c  63 79 25 0d 31 ce 05 e1  |0,0,cx%,cy%.1...|
0000a680  0d 31 d8 05 3a 0d 31 e2  14 dd f2 72 65 61 64 5f  |.1..:.1....read_|
0000a690  74 72 61 63 6b 6c 69 73  74 0d 31 ec 2a 74 72 61  |tracklist.1.*tra|
0000a6a0  63 6b 5f 6e 75 6d 62 65  72 25 3d bb 28 a4 69 6e  |ck_number%=.(.in|
0000a6b0  64 69 72 65 63 74 28 63  64 5f 70 61 6e 65 25 2c  |direct(cd_pane%,|
0000a6c0  36 29 29 0d 31 f6 2f 74  31 24 28 74 72 61 63 6b  |6)).1./t1$(track|
0000a6d0  5f 6e 75 6d 62 65 72 25  29 3d a4 69 6e 64 69 72  |_number%)=.indir|
0000a6e0  65 63 74 28 63 64 5f 74  72 61 63 6b 73 25 2c 32  |ect(cd_tracks%,2|
0000a6f0  34 29 0d 32 00 2f 74 32  24 28 74 72 61 63 6b 5f  |4).2./t2$(track_|
0000a700  6e 75 6d 62 65 72 25 29  3d a4 69 6e 64 69 72 65  |number%)=.indire|
0000a710  63 74 28 63 64 5f 74 72  61 63 6b 73 25 2c 32 35  |ct(cd_tracks%,25|
0000a720  29 0d 32 0a 2f 74 33 24  28 74 72 61 63 6b 5f 6e  |).2./t3$(track_n|
0000a730  75 6d 62 65 72 25 29 3d  a4 69 6e 64 69 72 65 63  |umber%)=.indirec|
0000a740  74 28 63 64 5f 74 72 61  63 6b 73 25 2c 32 36 29  |t(cd_tracks%,26)|
0000a750  0d 32 14 2f 74 34 24 28  74 72 61 63 6b 5f 6e 75  |.2./t4$(track_nu|
0000a760  6d 62 65 72 25 29 3d a4  69 6e 64 69 72 65 63 74  |mber%)=.indirect|
0000a770  28 63 64 5f 74 72 61 63  6b 73 25 2c 32 37 29 0d  |(cd_tracks%,27).|
0000a780  32 1e 2f 74 35 24 28 74  72 61 63 6b 5f 6e 75 6d  |2./t5$(track_num|
0000a790  62 65 72 25 29 3d a4 69  6e 64 69 72 65 63 74 28  |ber%)=.indirect(|
0000a7a0  63 64 5f 74 72 61 63 6b  73 25 2c 32 38 29 0d 32  |cd_tracks%,28).2|
0000a7b0  28 2f 74 36 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |(/t6$(track_numb|
0000a7c0  65 72 25 29 3d a4 69 6e  64 69 72 65 63 74 28 63  |er%)=.indirect(c|
0000a7d0  64 5f 74 72 61 63 6b 73  25 2c 32 39 29 0d 32 32  |d_tracks%,29).22|
0000a7e0  2f 74 37 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |/t7$(track_numbe|
0000a7f0  72 25 29 3d a4 69 6e 64  69 72 65 63 74 28 63 64  |r%)=.indirect(cd|
0000a800  5f 74 72 61 63 6b 73 25  2c 33 30 29 0d 32 3c 2f  |_tracks%,30).2</|
0000a810  74 38 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |t8$(track_number|
0000a820  25 29 3d a4 69 6e 64 69  72 65 63 74 28 63 64 5f  |%)=.indirect(cd_|
0000a830  74 72 61 63 6b 73 25 2c  33 31 29 0d 32 46 2f 74  |tracks%,31).2F/t|
0000a840  39 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |9$(track_number%|
0000a850  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a860  72 61 63 6b 73 25 2c 33  32 29 0d 32 50 30 74 31  |racks%,32).2P0t1|
0000a870  30 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |0$(track_number%|
0000a880  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a890  72 61 63 6b 73 25 2c 33  33 29 0d 32 5a 30 74 31  |racks%,33).2Z0t1|
0000a8a0  31 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |1$(track_number%|
0000a8b0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a8c0  72 61 63 6b 73 25 2c 33  34 29 0d 32 64 30 74 31  |racks%,34).2d0t1|
0000a8d0  32 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |2$(track_number%|
0000a8e0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a8f0  72 61 63 6b 73 25 2c 33  35 29 0d 32 6e 30 74 31  |racks%,35).2n0t1|
0000a900  33 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |3$(track_number%|
0000a910  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a920  72 61 63 6b 73 25 2c 33  36 29 0d 32 78 30 74 31  |racks%,36).2x0t1|
0000a930  34 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |4$(track_number%|
0000a940  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a950  72 61 63 6b 73 25 2c 33  37 29 0d 32 82 30 74 31  |racks%,37).2.0t1|
0000a960  35 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |5$(track_number%|
0000a970  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a980  72 61 63 6b 73 25 2c 33  38 29 0d 32 8c 30 74 31  |racks%,38).2.0t1|
0000a990  36 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |6$(track_number%|
0000a9a0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a9b0  72 61 63 6b 73 25 2c 33  39 29 0d 32 96 30 74 31  |racks%,39).2.0t1|
0000a9c0  37 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |7$(track_number%|
0000a9d0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000a9e0  72 61 63 6b 73 25 2c 34  30 29 0d 32 a0 30 74 31  |racks%,40).2.0t1|
0000a9f0  38 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |8$(track_number%|
0000aa00  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aa10  72 61 63 6b 73 25 2c 34  31 29 0d 32 aa 30 74 31  |racks%,41).2.0t1|
0000aa20  39 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |9$(track_number%|
0000aa30  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aa40  72 61 63 6b 73 25 2c 34  32 29 0d 32 b4 30 74 32  |racks%,42).2.0t2|
0000aa50  30 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |0$(track_number%|
0000aa60  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aa70  72 61 63 6b 73 25 2c 34  33 29 0d 32 be 30 74 32  |racks%,43).2.0t2|
0000aa80  31 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |1$(track_number%|
0000aa90  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aaa0  72 61 63 6b 73 25 2c 34  34 29 0d 32 c8 30 74 32  |racks%,44).2.0t2|
0000aab0  32 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |2$(track_number%|
0000aac0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000aad0  72 61 63 6b 73 25 2c 34  35 29 0d 32 d2 30 74 32  |racks%,45).2.0t2|
0000aae0  33 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |3$(track_number%|
0000aaf0  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ab00  72 61 63 6b 73 25 2c 34  36 29 0d 32 dc 30 74 32  |racks%,46).2.0t2|
0000ab10  34 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |4$(track_number%|
0000ab20  29 3d a4 69 6e 64 69 72  65 63 74 28 63 64 5f 74  |)=.indirect(cd_t|
0000ab30  72 61 63 6b 73 25 2c 34  37 29 0d 32 e6 1e 74 72  |racks%,47).2..tr|
0000ab40  61 63 6b 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |ack$(track_numbe|
0000ab50  72 25 29 3d 22 4e 6f 22  0d 32 f0 b7 e7 20 74 31  |r%)="No".2... t1|
0000ab60  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000ab70  3c 3e 22 22 20 84 20 74  32 24 28 74 72 61 63 6b  |<>"" . t2$(track|
0000ab80  5f 6e 75 6d 62 65 72 25  29 3c 3e 22 22 20 84 20  |_number%)<>"" . |
0000ab90  74 33 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |t3$(track_number|
0000aba0  25 29 3c 3e 22 22 20 84  20 74 34 24 28 74 72 61  |%)<>"" . t4$(tra|
0000abb0  63 6b 5f 6e 75 6d 62 65  72 25 29 3c 3e 22 22 20  |ck_number%)<>"" |
0000abc0  84 20 74 35 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |. t5$(track_numb|
0000abd0  65 72 25 29 3c 3e 22 22  20 84 20 74 36 24 28 74  |er%)<>"" . t6$(t|
0000abe0  72 61 63 6b 5f 6e 75 6d  62 65 72 25 29 3c 3e 22  |rack_number%)<>"|
0000abf0  22 20 8c 20 74 72 61 63  6b 24 28 74 72 61 63 6b  |" . track$(track|
0000ac00  5f 6e 75 6d 62 65 72 25  29 3d 22 59 65 73 22 0d  |_number%)="Yes".|
0000ac10  32 fa bb e7 20 74 31 37  24 28 74 72 61 63 6b 5f  |2... t17$(track_|
0000ac20  6e 75 6d 62 65 72 25 29  3c 3e 22 22 20 84 20 74  |number%)<>"" . t|
0000ac30  38 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |8$(track_number%|
0000ac40  29 3c 3e 22 22 20 84 20  74 39 24 28 74 72 61 63  |)<>"" . t9$(trac|
0000ac50  6b 5f 6e 75 6d 62 65 72  25 29 3c 3e 22 22 20 84  |k_number%)<>"" .|
0000ac60  20 74 31 30 24 28 74 72  61 63 6b 5f 6e 75 6d 62  | t10$(track_numb|
0000ac70  65 72 25 29 3c 3e 22 22  20 84 20 74 31 31 24 28  |er%)<>"" . t11$(|
0000ac80  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 3c 3e  |track_number%)<>|
0000ac90  22 22 20 84 20 74 31 32  24 28 74 72 61 63 6b 5f  |"" . t12$(track_|
0000aca0  6e 75 6d 62 65 72 25 29  3c 3e 22 22 20 8c 20 74  |number%)<>"" . t|
0000acb0  72 61 63 6b 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |rack$(track_numb|
0000acc0  65 72 25 29 3d 22 59 65  73 22 0d 33 04 bd e7 20  |er%)="Yes".3... |
0000acd0  74 31 33 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |t13$(track_numbe|
0000ace0  72 25 29 3c 3e 22 22 20  84 20 74 31 34 24 28 74  |r%)<>"" . t14$(t|
0000acf0  72 61 63 6b 5f 6e 75 6d  62 65 72 25 29 3c 3e 22  |rack_number%)<>"|
0000ad00  22 20 84 20 74 31 35 24  28 74 72 61 63 6b 5f 6e  |" . t15$(track_n|
0000ad10  75 6d 62 65 72 25 29 3c  3e 22 22 20 84 20 74 31  |umber%)<>"" . t1|
0000ad20  36 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |6$(track_number%|
0000ad30  29 3c 3e 22 22 20 84 20  74 31 37 24 28 74 72 61  |)<>"" . t17$(tra|
0000ad40  63 6b 5f 6e 75 6d 62 65  72 25 29 3c 3e 22 22 20  |ck_number%)<>"" |
0000ad50  84 20 74 31 38 24 28 74  72 61 63 6b 5f 6e 75 6d  |. t18$(track_num|
0000ad60  62 65 72 25 29 3c 3e 22  22 20 8c 20 74 72 61 63  |ber%)<>"" . trac|
0000ad70  6b 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |k$(track_number%|
0000ad80  29 3d 22 59 65 73 22 0d  33 0e bd e7 20 74 31 39  |)="Yes".3... t19|
0000ad90  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000ada0  3c 3e 22 22 20 84 20 74  32 30 24 28 74 72 61 63  |<>"" . t20$(trac|
0000adb0  6b 5f 6e 75 6d 62 65 72  25 29 3c 3e 22 22 20 84  |k_number%)<>"" .|
0000adc0  20 74 32 31 24 28 74 72  61 63 6b 5f 6e 75 6d 62  | t21$(track_numb|
0000add0  65 72 25 29 3c 3e 22 22  20 84 20 74 32 32 24 28  |er%)<>"" . t22$(|
0000ade0  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 3c 3e  |track_number%)<>|
0000adf0  22 22 20 84 20 74 32 33  24 28 74 72 61 63 6b 5f  |"" . t23$(track_|
0000ae00  6e 75 6d 62 65 72 25 29  3c 3e 22 22 20 84 20 74  |number%)<>"" . t|
0000ae10  32 34 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |24$(track_number|
0000ae20  25 29 3c 3e 22 22 20 8c  20 74 72 61 63 6b 24 28  |%)<>"" . track$(|
0000ae30  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 3d 22  |track_number%)="|
0000ae40  59 65 73 22 0d 33 18 05  e1 0d 33 22 05 3a 0d 33  |Yes".3....3".:.3|
0000ae50  2c 13 dd f2 75 70 64 61  74 65 5f 74 72 61 63 6b  |,...update_track|
0000ae60  73 0d 33 36 31 e3 20 58  25 3d 32 34 20 b8 20 34  |s.361. X%=24 . 4|
0000ae70  37 3a f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |7:.update_icon(c|
0000ae80  64 5f 74 72 61 63 6b 73  25 2c 58 25 2c 22 22 29  |d_tracks%,X%,"")|
0000ae90  3a ed 0d 33 40 2a 74 72  61 63 6b 5f 6e 75 6d 62  |:..3@*track_numb|
0000aea0  65 72 25 3d bb 28 a4 69  6e 64 69 72 65 63 74 28  |er%=.(.indirect(|
0000aeb0  63 64 5f 70 61 6e 65 25  2c 36 29 29 0d 33 4a 32  |cd_pane%,6)).3J2|
0000aec0  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 64 5f  |.update_icon(cd_|
0000aed0  74 72 61 63 6b 73 25 2c  32 34 2c 74 31 24 28 74  |tracks%,24,t1$(t|
0000aee0  72 61 63 6b 5f 6e 75 6d  62 65 72 25 29 29 0d 33  |rack_number%)).3|
0000aef0  54 32 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |T2.update_icon(c|
0000af00  64 5f 74 72 61 63 6b 73  25 2c 32 35 2c 74 32 24  |d_tracks%,25,t2$|
0000af10  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 29 29  |(track_number%))|
0000af20  0d 33 5e 32 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.3^2.update_icon|
0000af30  28 63 64 5f 74 72 61 63  6b 73 25 2c 32 36 2c 74  |(cd_tracks%,26,t|
0000af40  33 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |3$(track_number%|
0000af50  29 29 0d 33 68 32 f2 75  70 64 61 74 65 5f 69 63  |)).3h2.update_ic|
0000af60  6f 6e 28 63 64 5f 74 72  61 63 6b 73 25 2c 32 37  |on(cd_tracks%,27|
0000af70  2c 74 34 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |,t4$(track_numbe|
0000af80  72 25 29 29 0d 33 72 32  f2 75 70 64 61 74 65 5f  |r%)).3r2.update_|
0000af90  69 63 6f 6e 28 63 64 5f  74 72 61 63 6b 73 25 2c  |icon(cd_tracks%,|
0000afa0  32 38 2c 74 35 24 28 74  72 61 63 6b 5f 6e 75 6d  |28,t5$(track_num|
0000afb0  62 65 72 25 29 29 0d 33  7c 32 f2 75 70 64 61 74  |ber%)).3|2.updat|
0000afc0  65 5f 69 63 6f 6e 28 63  64 5f 74 72 61 63 6b 73  |e_icon(cd_tracks|
0000afd0  25 2c 32 39 2c 74 36 24  28 74 72 61 63 6b 5f 6e  |%,29,t6$(track_n|
0000afe0  75 6d 62 65 72 25 29 29  0d 33 86 32 f2 75 70 64  |umber%)).3.2.upd|
0000aff0  61 74 65 5f 69 63 6f 6e  28 63 64 5f 74 72 61 63  |ate_icon(cd_trac|
0000b000  6b 73 25 2c 33 30 2c 74  37 24 28 74 72 61 63 6b  |ks%,30,t7$(track|
0000b010  5f 6e 75 6d 62 65 72 25  29 29 0d 33 90 32 f2 75  |_number%)).3.2.u|
0000b020  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 74 72  |pdate_icon(cd_tr|
0000b030  61 63 6b 73 25 2c 33 31  2c 74 38 24 28 74 72 61  |acks%,31,t8$(tra|
0000b040  63 6b 5f 6e 75 6d 62 65  72 25 29 29 0d 33 9a 32  |ck_number%)).3.2|
0000b050  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 64 5f  |.update_icon(cd_|
0000b060  74 72 61 63 6b 73 25 2c  33 32 2c 74 39 24 28 74  |tracks%,32,t9$(t|
0000b070  72 61 63 6b 5f 6e 75 6d  62 65 72 25 29 29 0d 33  |rack_number%)).3|
0000b080  a4 33 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |.3.update_icon(c|
0000b090  64 5f 74 72 61 63 6b 73  25 2c 33 33 2c 74 31 30  |d_tracks%,33,t10|
0000b0a0  24 28 74 72 61 63 6b 5f  6e 75 6d 62 65 72 25 29  |$(track_number%)|
0000b0b0  29 0d 33 ae 33 f2 75 70  64 61 74 65 5f 69 63 6f  |).3.3.update_ico|
0000b0c0  6e 28 63 64 5f 74 72 61  63 6b 73 25 2c 33 34 2c  |n(cd_tracks%,34,|
0000b0d0  74 31 31 24 28 74 72 61  63 6b 5f 6e 75 6d 62 65  |t11$(track_numbe|
0000b0e0  72 25 29 29 0d 33 b8 33  f2 75 70 64 61 74 65 5f  |r%)).3.3.update_|
0000b0f0  69 63 6f 6e 28 63 64 5f  74 72 61 63 6b 73 25 2c  |icon(cd_tracks%,|
0000b100  33 35 2c 74 31 32 24 28  74 72 61 63 6b 5f 6e 75  |35,t12$(track_nu|
0000b110  6d 62 65 72 25 29 29 0d  33 c2 33 f2 75 70 64 61  |mber%)).3.3.upda|
0000b120  74 65 5f 69 63 6f 6e 28  63 64 5f 74 72 61 63 6b  |te_icon(cd_track|
0000b130  73 25 2c 33 36 2c 74 31  33 24 28 74 72 61 63 6b  |s%,36,t13$(track|
0000b140  5f 6e 75 6d 62 65 72 25  29 29 0d 33 cc 33 f2 75  |_number%)).3.3.u|
0000b150  70 64 61 74 65 5f 69 63  6f 6e 28 63 64 5f 74 72  |pdate_icon(cd_tr|
0000b160  61 63 6b 73 25 2c 33 37  2c 74 31 34 24 28 74 72  |acks%,37,t14$(tr|
0000b170  61 63 6b 5f 6e 75 6d 62  65 72 25 29 29 0d 33 d6  |ack_number%)).3.|
0000b180  33 f2 75 70 64 61 74 65  5f 69 63 6f 6e 28 63 64  |3.update_icon(cd|
0000b190  5f 74 72 61 63 6b 73 25  2c 33 38 2c 74 31 35 24  |_tracks%,38,t15$|
0000b1a0  28 74 72 61 63 6b 5f 6e  75 6d 62 65 72 25 29 29  |(track_number%))|
0000b1b0  0d 33 e0 33 f2 75 70 64  61 74 65 5f 69 63 6f 6e  |.3.3.update_icon|
0000b1c0  28 63 64 5f 74 72 61 63  6b 73 25 2c 33 39 2c 74  |(cd_tracks%,39,t|
0000b1d0  31 36 24 28 74 72 61 63  6b 5f 6e 75 6d 62 65 72  |16$(track_number|
0000b1e0  25 29 29 0d 33 ea 33 f2  75 70 64 61 74 65 5f 69  |%)).3.3.update_i|
0000b1f0  63 6f 6e 28 63 64 5f 74  72 61 63 6b 73 25 2c 34  |con(cd_tracks%,4|
0000b200  30 2c 74 31 37 24 28 74  72 61 63 6b 5f 6e 75 6d  |0,t17$(track_num|
0000b210  62 65 72 25 29 29 0d 33  f4 33 f2 75 70 64 61 74  |ber%)).3.3.updat|
0000b220  65 5f 69 63 6f 6e 28 63  64 5f 74 72 61 63 6b 73  |e_icon(cd_tracks|
0000b230  25 2c 34 31 2c 74 31 38  24 28 74 72 61 63 6b 5f  |%,41,t18$(track_|
0000b240  6e 75 6d 62 65 72 25 29  29 0d 33 fe 33 f2 75 70  |number%)).3.3.up|
0000b250  64 61 74 65 5f 69 63 6f  6e 28 63 64 5f 74 72 61  |date_icon(cd_tra|
0000b260  63 6b 73 25 2c 34 32 2c  74 31 39 24 28 74 72 61  |cks%,42,t19$(tra|
0000b270  63 6b 5f 6e 75 6d 62 65  72 25 29 29 0d 34 08 33  |ck_number%)).4.3|
0000b280  f2 75 70 64 61 74 65 5f  69 63 6f 6e 28 63 64 5f  |.update_icon(cd_|
0000b290  74 72 61 63 6b 73 25 2c  34 33 2c 74 32 30 24 28  |tracks%,43,t20$(|
0000b2a0  74 72 61 63 6b 5f 6e 75  6d 62 65 72 25 29 29 0d  |track_number%)).|
0000b2b0  34 12 33 f2 75 70 64 61  74 65 5f 69 63 6f 6e 28  |4.3.update_icon(|
0000b2c0  63 64 5f 74 72 61 63 6b  73 25 2c 34 34 2c 74 32  |cd_tracks%,44,t2|
0000b2d0  31 24 28 74 72 61 63 6b  5f 6e 75 6d 62 65 72 25  |1$(track_number%|
0000b2e0  29 29 0d 34 1c 33 f2 75  70 64 61 74 65 5f 69 63  |)).4.3.update_ic|
0000b2f0  6f 6e 28 63 64 5f 74 72  61 63 6b 73 25 2c 34 35  |on(cd_tracks%,45|
0000b300  2c 74 32 32 24 28 74 72  61 63 6b 5f 6e 75 6d 62  |,t22$(track_numb|
0000b310  65 72 25 29 29 0d 34 26  33 f2 75 70 64 61 74 65  |er%)).4&3.update|
0000b320  5f 69 63 6f 6e 28 63 64  5f 74 72 61 63 6b 73 25  |_icon(cd_tracks%|
0000b330  2c 34 36 2c 74 32 33 24  28 74 72 61 63 6b 5f 6e  |,46,t23$(track_n|
0000b340  75 6d 62 65 72 25 29 29  0d 34 30 33 f2 75 70 64  |umber%)).403.upd|
0000b350  61 74 65 5f 69 63 6f 6e  28 63 64 5f 74 72 61 63  |ate_icon(cd_trac|
0000b360  6b 73 25 2c 34 37 2c 74  32 34 24 28 74 72 61 63  |ks%,47,t24$(trac|
0000b370  6b 5f 6e 75 6d 62 65 72  25 29 29 0d 34 3a 05 e1  |k_number%)).4:..|
0000b380  0d 34 44 05 3a 0d 34 4e  1f dd f2 62 75 66 66 65  |.4D.:.4N...buffe|
0000b390  72 73 69 7a 65 28 73 69  7a 65 25 2c 6e 75 6d 62  |rsize(size%,numb|
0000b3a0  65 72 24 29 0d 34 58 1a  6e 65 77 62 75 66 73 69  |er$).4X.newbufsi|
0000b3b0  7a 65 25 3d 73 69 7a 65  25 2a 31 30 32 34 0d 34  |ze%=size%*1024.4|
0000b3c0  62 37 c8 99 20 22 57 69  6d 70 5f 53 6c 6f 74 53  |b7.. "Wimp_SlotS|
0000b3d0  69 7a 65 22 2c 72 61 25  2d 26 38 30 30 30 2b 6e  |ize",ra%-&8000+n|
0000b3e0  65 77 62 75 66 73 69 7a  65 25 2c 2d 31 20 b8 20  |ewbufsize%,-1 . |
0000b3f0  73 6f 63 73 25 0d 34 6c  0f 62 75 66 66 65 72 6f  |socs%.4l.buffero|
0000b400  6b 25 3d b9 0d 34 76 99  e7 20 73 6f 63 73 25 3c  |k%=..4v.. socs%<|
0000b410  28 72 61 25 2d 26 38 30  30 30 2b 6e 65 77 62 75  |(ra%-&8000+newbu|
0000b420  66 73 69 7a 65 25 29 20  8c 20 c8 99 20 22 57 69  |fsize%) . .. "Wi|
0000b430  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 72 61 25  |mp_SlotSize",ra%|
0000b440  2d 26 38 30 30 30 2b 72  61 73 69 7a 65 25 3a 62  |-&8000+rasize%:b|
0000b450  75 66 66 65 72 6f 6b 25  3d a3 3a f2 6d 65 73 73  |ufferok%=.:.mess|
0000b460  61 67 65 28 22 49 6e 73  75 66 66 69 63 69 65 6e  |age("Insufficien|
0000b470  74 20 6d 65 6d 6f 72 79  20 61 76 61 69 6c 61 62  |t memory availab|
0000b480  6c 65 20 66 6f 72 20 22  2b 6e 75 6d 62 65 72 24  |le for "+number$|
0000b490  2b 22 20 72 65 63 6f 72  64 73 2e 22 29 0d 34 80  |+" records.").4.|
0000b4a0  1f 72 61 73 69 7a 65 25  3d 73 6f 63 73 25 2d 28  |.rasize%=socs%-(|
0000b4b0  72 61 25 2d 26 38 30 30  30 29 2d 31 0d 34 8a 05  |ra%-&8000)-1.4..|
0000b4c0  e1 0d 34 94 05 3a 0d 34  9e 11 dd f2 6d 65 73 73  |..4..:.4....mess|
0000b4d0  61 67 65 28 6d 24 29 0d  34 a8 14 21 71 25 3d 30  |age(m$).4..!q%=0|
0000b4e0  3a 24 28 71 25 2b 34 29  3d 6d 24 0d 34 b2 29 c8  |:$(q%+4)=m$.4.).|
0000b4f0  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
0000b500  72 6f 72 22 2c 71 25 2c  31 2c 22 43 44 20 49 6e  |ror",q%,1,"CD In|
0000b510  64 65 78 22 0d 34 bc 05  e1 0d 34 c6 05 3a 0d 34  |dex".4....4..:.4|
0000b520  d0 12 dd f2 63 6c 65 61  72 5f 73 69 6e 67 6c 65  |....clear_single|
0000b530  0d 34 da 0e e3 20 58 3d  39 20 b8 20 31 36 0d 34  |.4... X=9 . 16.4|
0000b540  e4 20 f2 75 70 64 61 74  65 5f 69 63 6f 6e 28 63  |. .update_icon(c|
0000b550  64 5f 69 6e 64 65 78 25  2c 58 2c 22 22 29 0d 34  |d_index%,X,"").4|
0000b560  ee 05 ed 0d 34 f8 0f e3  20 58 3d 32 34 20 b8 20  |....4... X=24 . |
0000b570  34 37 0d 35 02 21 f2 75  70 64 61 74 65 5f 69 63  |47.5.!.update_ic|
0000b580  6f 6e 28 63 64 5f 74 72  61 63 6b 73 25 2c 58 2c  |on(cd_tracks%,X,|
0000b590  22 22 29 0d 35 0c 05 ed  0d 35 16 19 f2 72 65 61  |"").5....5...rea|
0000b5a0  64 3a f2 72 65 61 64 5f  74 72 61 63 6b 6c 69 73  |d:.read_tracklis|
0000b5b0  74 0d 35 20 05 e1 0d ff                           |t.5 ....|
0000b5b8

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .