Home » Archimedes archive » Acorn User » AU 1994-04.adf » !StarInfo_StarInfo » Bright/!Cassette/Resources/LIBRARY
Bright/!Cassette/Resources/LIBRARY
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 » Acorn User » AU 1994-04.adf » !StarInfo_StarInfo |
| Filename: | Bright/!Cassette/Resources/LIBRARY |
| Read OK: | ✔ |
| File size: | 27ED bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM Library procedure : give help to !Help ( Or !Spy) 20REM ************************************************************ 30REM Give help to the interactive help by sending a message to it 40REM ************************************************************ 50DEF PROC_GiveHelp(Window%,Icon%,MouseX%,MouseY%) 60LOCAL Message$ 70 CASE Window% OF 80 WHEN -2 : Message$="Cassette Label Printer|MUtility to aid the printing out of cassette inlay sleeves.|M" 90 IF New% THEN 100 Message$+="|<SELECT> to start with blank screen|M|<ADJUST> to start with on-screen hints." 110 ELSE 120 Message$+="|<SELECT> or |<ADJUST> to show current Inlay" 130 ENDIF 140 WHEN Main% : Track%=(Icon% DIV 2)+1 150 CASE Icon% OF 160 WHEN 49 : Message$="Click any mouse button to send the contents of the window to the printer.|MPressing the |<PRINT> Key performs the same function." 170 WHEN 0,2,4,6,8,10,12,14,16,18,20,22 180 IF Icon%=00 THEN 190 Up$="|<CURSOR UP> to move to track 17.|M" 200 ELSE 210 Up$="|<CURSOR UP> to move to track "+STR$(Track%-1)+".|M" 220 ENDIF 230 IF Icon%=22 THEN 240 Down$="|<CURSOR DOWN> to move to track 13.|M" 250 ELSE 260 Down$="|<CURSOR DOWN> to move to track "+STR$(Track%+1)+".|M" 270 ENDIF 280 Tab$="|<TAB> to move to track "+STR$(Track%)+" Side B:" 290 Message$="Enter the title of track number "+STR$(Track%)+" Side A:|M"+Up$+Down$+Tab$ 300 WHEN 1,3,5,7,9,11,13,15,17,19,21,23 310 IF Icon%=01 THEN 320 Up$="|<CURSOR UP> to move to track 17.|M" 330 ELSE 340 Up$="|<CURSOR UP> to move to track "+STR$(Track%-1)+".|M" 350 ENDIF 360 IF Icon%=23 THEN 370 Down$="|<CURSOR DOWN> to move to track 13.|M" 380 ELSE 390 Down$="|<CURSOR DOWN> to move to track "+STR$(Track%+1)+".|M" 400 ENDIF 410 Tab$="|<TAB> to move to track "+STR$(Track%)+" Side A: " 420 Message$="Enter the title of track number "+STR$(Track%)+" Side B:|M"+Up$+Down$+Tab$ 430 WHEN 24,26 440 Side$=CHR$(65 - 1*(Icon%=26)) 450 Up$="" : Down$="" 460 IF Icon%=24 THEN Down$="|<CURSOR DOWN> to move to album title side B:|M" ELSE Down$="" 470 IF Icon%=26 THEN Up$="|<CURSOR UP> to move to album title side A:|M" ELSE Up$="" 480 Tab$="|<TAB> to move to artist on side "+Side$ 490 Message$="Enter the title of the album on side "+Side$+":|M"+Up$+Down$+Tab$ 500 WHEN 25,27 510 Side$=CHR$(65 - 1*(Icon%=27)) 520 Up$="" : Down$="" 530 IF Icon%=25 THEN Down$="|<CURSOR DOWN> to move to artist side B:|M" ELSE Down$="" 540 IF Icon%=27 THEN Up$="|<CURSOR UP> to move to artist side A:|M" ELSE Up$="" 550 Tab$="|<TAB> to move to album title on side "+Side$ 560 Message$="Enter the Name of the artist on side "+Side$+":|M"+Up$+Down$+Tab$ 570 WHEN 28,30,32,34,36 580 IF Icon%=28 THEN 590 Up$="|<CURSOR UP> to move to track 12.|M" 600 ELSE 610 Up$="|<CURSOR UP> to move to track "+STR$(Track%-3)+".|M" 620 ENDIF 630 IF Icon%=36 THEN 640 Down$="|<CURSOR DOWN> to move to track 1.|M" 650 ELSE 660 Down$="|<CURSOR DOWN> to move to track "+STR$(Track%-1)+".|M" 670 ENDIF 680 Tab$="|<TAB> to move to track "+STR$(Track%-2)+" Side B: " 690 Message$="Enter the title of track number "+STR$(Track%-2)+" Side A:|M"+Up$+Down$+Tab$ 700 WHEN 29,31,33,35,37 710 IF Icon%=29 THEN 720 Up$="|<CURSOR UP> to move to track 12.|M" 730 ELSE 740 Up$="|<CURSOR UP> to move to track "+STR$(Track%-3)+".|M" 750 ENDIF 760 IF Icon%=37 THEN 770 Down$="|<CURSOR DOWN> to move to track 1.|M" 780 ELSE 790 Down$="|<CURSOR DOWN> to move to track "+STR$(Track%-1)+".|M" 800 ENDIF 810 Tab$="|<TAB> to move to track "+STR$(Track%-2)+" Side A: " 820 Message$="Enter the title of track number "+STR$(Track%-2)+" Side B:|M"+Up$+Down$+Tab$ 830 WHEN 38 : Message$="Mark is a 30 year old BT engineer, who loves computers (especially Archimedes) and Amanda (His wife!). He drives a Red SR Nova, and a Yellow B.T. van! |MThis is his 1st RiscWare Program! " 840 WHEN TapeNumber% 850 Message$="This is the Index number for this cassette!" 860 WHEN 45 : Message$="This is the Current Installed Printer - See Options Menu" 870 OTHERWISE 880 Message$="Misc. Help :|M|<f10> - Swap case |<f11> - Delete to end of line|M|<Shift>|<f9> - Wipe all fields. |<Home> - Go to Track 1|M" 890 ENDCASE 900 WHEN Options% : 910 CASE Icon% OF 920 WHEN -1 : Message$="This is the options window. Changes made here will take effect immediately, but will not be saved unless |<SELECT> is clicked over the save button." 930 WHEN 01 : Message$="Select Draft printing mode" 940 WHEN 00 : Message$="Select NLQ printing mode" 950 WHEN 05 : Message$="Select RiscOS printer driver printing mode" 960 WHEN 12 : Message$="Enter your printer code for NLQ ON if it is different from the code shown." 970 WHEN 16 : Message$="Enter your printer code for NLQ OFF if it is different from the code shown." 980 WHEN 20 : Message$="Enter how many lines you want the paper to feed after character mode printing to clear the tear off bar" 990 WHEN 28 : Message$="Save all the above preferences to the configuration file." 1000 ENDCASE 1010 WHEN Info% : 1020 CASE Icon% OF 1030 WHEN -1 : Message$="This box gives information about the program and the author." 1040 WHEN 04 : Message$="This is the name of the program." 1050 WHEN 09 : Message$="This is the purpose of the program." 1060 WHEN 12 : Message$="This is the Name of the author. (ME!)" 1070 WHEN 15 : Message$="This is the version number of the program you are using. (Please quote this number in any bug reports)" 1080 ENDCASE 1090 WHEN Save% : 1100 CASE Icon% OF 1110 WHEN -1 : Message$="This box allows you to save data in a file, or transfer it to another application." 1120 WHEN 00 : Message$="Drag this icon to the directory in which you want to save the file. Or, drag it to the program into which you want to transfer the data." 1130 WHEN 04 : Message$="This shows the filename for this data. If it is not a full pathname, drag the icon into a directory display." 1140 WHEN 11 : Message$="Click here to save the data with the current filename. If it is not a full pathname, you must drag the icon to a directory first." 1150 ENDCASE 1160 OTHERWISE 1170 REM ***************************************************************************************************************** 1180 REM By the time you reach here, there should be no more windows that you know about, so anything else must be a menu! 1190 REM ***************************************************************************************************************** 1200: 1210 IF Version>=218 AND Icon%<>-1 THEN 1220 SYS "Wimp_GetMenuState",1,Block%+1024,Window%,Icon% 1230 CASE MenuActive% OF 1240 WHEN IconBarMenu% : CASE Block%!1024 OF 1250 WHEN 0 : IF Block%!1028=-1 THEN Message$="\Rsee information about Cassette" 1260 WHEN 1 : Message$="\Rto see options." 1270 WHEN 2 : Message$="\Squit Cassette." 1280 ENDCASE 1290 WHEN MainWinMenu% : CASE Block%!1024 OF 1300 WHEN 0 : IF Block%!1028=-1 THEN Message$="\Rsee information about Cassette" 1310 WHEN 1 : Message$="\Rto save the current label." 1320 WHEN 2 : Message$="\Sto standardise the case of the currently displayed label." 1330 WHEN 3 : Message$="\Rto see options." 1340 WHEN 4 : Message$="\Sto delete all of the text from the current label." 1350 ENDCASE 1360 OTHERWISE Message$="UNKNOWN MENU|MThis is a bug, please report this to the author quoting 'UNKNOWN MENU &"+STR$~(Menu%)+"'" 1370 ENDCASE 1380 ENDIF 1390 ENDCASE 1400: 1410 REM ************************************************************************** 1420 REM Now that the message has been decided, send it to the calling application! 1430 REM ************************************************************************** 1440: 1450 Block%!12=Block%!8 1460 Block%!16=&503 1470 !Block%=(LEN(Message$)+25)AND NOT 3 1480 $(Block%+20)=Message$+CHR$0 1490 SYS "Wimp_SendMessage",17,Block%,Block%!4 1500ENDPROC
7� Library procedure : give help to !Help ( Or !Spy) B� ************************************************************ B� Give help to the interactive help by sending a message to it (B� ************************************************************ 2/� �_GiveHelp(Window%,Icon%,MouseX%,MouseY%) <� Message$ F Ȏ Window% � Ps � -2 : Message$="Cassette Label Printer|MUtility to aid the printing out of cassette inlay sleeves.|M" Z � New% � dt Message$+="|<SELECT> to start with blank screen|M|<ADJUST> to start with on-screen hints." n � xR Message$+="|<SELECT> or |<ADJUST> to show current Inlay" � � �( � Main% : Track%=(Icon% � 2)+1 �! Ȏ Icon% � �� � 49 : Message$="Click any mouse button to send the contents of the window to the printer.|MPressing the |<PRINT> Key performs the same function." �: � 0,2,4,6,8,10,12,14,16,18,20,22 �0 � Icon%=00 � �P Up$="|<CURSOR UP> to move to track 17.|M" �% � �] Up$="|<CURSOR UP> to move to track "+�(Track%-1)+".|M" �% � �0 � Icon%=22 � �T Down$="|<CURSOR DOWN> to move to track 13.|M" �% � a Down$="|<CURSOR DOWN> to move to track "+�(Track%+1)+".|M" % � X Tab$="|<TAB> to move to track "+�(Track%)+" Side B:" "u Message$="Enter the title of track number "+�(Track%)+" Side A:|M"+Up$+Down$+Tab$ ,: � 1,3,5,7,9,11,13,15,17,19,21,23 60 � Icon%=01 � @P Up$="|<CURSOR UP> to move to track 17.|M" J% � T] Up$="|<CURSOR UP> to move to track "+�(Track%-1)+".|M" ^% � h0 � Icon%=23 � rT Down$="|<CURSOR DOWN> to move to track 13.|M" |% � �a Down$="|<CURSOR DOWN> to move to track "+�(Track%+1)+".|M" �% � �Y Tab$="|<TAB> to move to track "+�(Track%)+" Side A: " �u Message$="Enter the title of track number "+�(Track%)+" Side B:|M"+Up$+Down$+Tab$ �! � 24,26 �> Side$=�(65 - 1*(Icon%=26)) �5 Up$="" : Down$="" �s � Icon%=24 � Down$="|<CURSOR DOWN> to move to album title side B:|M" � Down$="" �m � Icon%=26 � Up$="|<CURSOR UP> to move to album title side A:|M" � Up$="" �R Tab$="|<TAB> to move to artist on side "+Side$ �o Message$="Enter the title of the album on side "+Side$+":|M"+Up$+Down$+Tab$ �! � 25,27 �> Side$=�(65 - 1*(Icon%=27)) 5 Up$="" : Down$="" n � Icon%=25 � Down$="|<CURSOR DOWN> to move to artist side B:|M" � Down$="" h � Icon%=27 � Up$="|<CURSOR UP> to move to artist side A:|M" � Up$="" &W Tab$="|<TAB> to move to album title on side "+Side$ 0o Message$="Enter the Name of the artist on side "+Side$+":|M"+Up$+Down$+Tab$ :* � 28,30,32,34,36 D0 � Icon%=28 � NP Up$="|<CURSOR UP> to move to track 12.|M" X% � b] Up$="|<CURSOR UP> to move to track "+�(Track%-3)+".|M" l% � v0 � Icon%=36 � �S Down$="|<CURSOR DOWN> to move to track 1.|M" �% � �a Down$="|<CURSOR DOWN> to move to track "+�(Track%-1)+".|M" �% � �[ Tab$="|<TAB> to move to track "+�(Track%-2)+" Side B: " �w Message$="Enter the title of track number "+�(Track%-2)+" Side A:|M"+Up$+Down$+Tab$ �* � 29,31,33,35,37 �0 � Icon%=29 � �P Up$="|<CURSOR UP> to move to track 12.|M" �% � �] Up$="|<CURSOR UP> to move to track "+�(Track%-3)+".|M" �% � �0 � Icon%=37 � S Down$="|<CURSOR DOWN> to move to track 1.|M" % � a Down$="|<CURSOR DOWN> to move to track "+�(Track%-1)+".|M" % � *[ Tab$="|<TAB> to move to track "+�(Track%-2)+" Side A: " 4w Message$="Enter the title of track number "+�(Track%-2)+" Side B:|M"+Up$+Down$+Tab$ >� � 38 : Message$="Mark is a 30 year old BT engineer, who loves computers (especially Archimedes) and Amanda (His wife!). He drives a Red SR Nova, and a Yellow B.T. van! |MThis is his 1st RiscWare Program! " H' � TapeNumber% RZ Message$="This is the Index number for this cassette!" \d � 45 : Message$="This is the Current Installed Printer - See Options Menu" f p� Message$="Misc. Help :|M|<f10> - Swap case |<f11> - Delete to end of line|M|<Shift>|<f9> - Wipe all fields. |<Home> - Go to Track 1|M" z � � � Options% : � Ȏ Icon% � �� � -1 : Message$="This is the options window. Changes made here will take effect immediately, but will not be saved unless |<SELECT> is clicked over the save button." �< � 01 : Message$="Select Draft printing mode" �: � 00 : Message$="Select NLQ printing mode" �L � 05 : Message$="Select RiscOS printer driver printing mode" �l � 12 : Message$="Enter your printer code for NLQ ON if it is different from the code shown." �m � 16 : Message$="Enter your printer code for NLQ OFF if it is different from the code shown." ԉ � 20 : Message$="Enter how many lines you want the paper to feed after character mode printing to clear the tear off bar" �[ � 28 : Message$="Save all the above preferences to the configuration file." � � � � Info% : � Ȏ Icon% � ^ � -1 : Message$="This box gives information about the program and the author." B � 04 : Message$="This is the name of the program." E � 09 : Message$="This is the purpose of the program." $G � 12 : Message$="This is the Name of the author. (ME!)" .� � 15 : Message$="This is the version number of the program you are using. (Please quote this number in any bug reports)" 8 � B � Save% : L Ȏ Icon% � Vt � -1 : Message$="This box allows you to save data in a file, or transfer it to another application." `� � 00 : Message$="Drag this icon to the directory in which you want to save the file. Or, drag it to the program into which you want to transfer the data." j� � 04 : Message$="This shows the filename for this data. If it is not a full pathname, drag the icon into a directory display." t� � 11 : Message$="Click here to save the data with the current filename. If it is not a full pathname, you must drag the icon to a directory first." ~ � � �} � ***************************************************************************************************************** �} � By the time you reach here, there should be no more windows that you know about, so anything else must be a menu! �} � ***************************************************************************************************************** �: �& � Version>=218 � Icon%<>-1 � �? ș "Wimp_GetMenuState",1,Block%+1024,Window%,Icon% � Ȏ MenuActive% � �1 � IconBarMenu% : Ȏ Block%!1024 � �k � 0 : � Block%!1028=-1 � Message$="\Rsee information about Cassette" �I � 1 : Message$="\Rto see options." �H � 2 : Message$="\Squit Cassette." % � 1 � MainWinMenu% : Ȏ Block%!1024 � k � 0 : � Block%!1028=-1 � Message$="\Rsee information about Cassette" T � 1 : Message$="\Rto save the current label." (s � 2 : Message$="\Sto standardise the case of the currently displayed label." 2I � 3 : Message$="\Rto see options." <k � 4 : Message$="\Sto delete all of the text from the current label." F% � P� Message$="UNKNOWN MENU|MThis is a bug, please report this to the author quoting 'UNKNOWN MENU &"+�~(Menu%)+"'" Z � d � n � x: �S � ************************************************************************** �S � Now that the message has been decided, send it to the calling application! �S � ************************************************************************** �: � Block%!12=Block%!8 � Block%!16=&503 �$ !Block%=(�(Message$)+25)� � 3 � $(Block%+20)=Message$+�0 �/ ș "Wimp_SendMessage",17,Block%,Block%!4 �� �
00000000 0d 00 0a 37 f4 20 4c 69 62 72 61 72 79 20 70 72 |...7. Library pr| 00000010 6f 63 65 64 75 72 65 20 3a 20 67 69 76 65 20 68 |ocedure : give h| 00000020 65 6c 70 20 74 6f 20 21 48 65 6c 70 20 28 20 4f |elp to !Help ( O| 00000030 72 20 21 53 70 79 29 0d 00 14 42 f4 20 2a 2a 2a |r !Spy)...B. ***| 00000040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00000070 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 1e 42 f4 20 47 |*********...B. G| 00000080 69 76 65 20 68 65 6c 70 20 74 6f 20 74 68 65 20 |ive help to the | 00000090 69 6e 74 65 72 61 63 74 69 76 65 20 68 65 6c 70 |interactive help| 000000a0 20 62 79 20 73 65 6e 64 69 6e 67 20 61 20 6d 65 | by sending a me| 000000b0 73 73 61 67 65 20 74 6f 20 69 74 0d 00 28 42 f4 |ssage to it..(B.| 000000c0 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************| 000000d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 000000f0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 00 32 |*************..2| 00000100 2f dd 20 f2 5f 47 69 76 65 48 65 6c 70 28 57 69 |/. ._GiveHelp(Wi| 00000110 6e 64 6f 77 25 2c 49 63 6f 6e 25 2c 4d 6f 75 73 |ndow%,Icon%,Mous| 00000120 65 58 25 2c 4d 6f 75 73 65 59 25 29 0d 00 3c 0e |eX%,MouseY%)..<.| 00000130 ea 20 4d 65 73 73 61 67 65 24 0d 00 46 13 20 20 |. Message$..F. | 00000140 20 c8 8e 20 57 69 6e 64 6f 77 25 20 ca 0d 00 50 | .. Window% ...P| 00000150 73 20 20 20 20 20 20 c9 20 2d 32 20 20 20 20 3a |s . -2 :| 00000160 20 4d 65 73 73 61 67 65 24 3d 22 43 61 73 73 65 | Message$="Casse| 00000170 74 74 65 20 4c 61 62 65 6c 20 50 72 69 6e 74 65 |tte Label Printe| 00000180 72 7c 4d 55 74 69 6c 69 74 79 20 74 6f 20 61 69 |r|MUtility to ai| 00000190 64 20 74 68 65 20 70 72 69 6e 74 69 6e 67 20 6f |d the printing o| 000001a0 75 74 20 6f 66 20 63 61 73 73 65 74 74 65 20 69 |ut of cassette i| 000001b0 6e 6c 61 79 20 73 6c 65 65 76 65 73 2e 7c 4d 22 |nlay sleeves.|M"| 000001c0 0d 00 5a 1f 20 20 20 20 20 20 20 20 20 20 20 20 |..Z. | 000001d0 20 20 20 20 20 20 20 e7 20 4e 65 77 25 20 8c 0d | . New% ..| 000001e0 00 64 74 20 20 20 20 20 20 20 20 20 20 20 20 20 |.dt | 000001f0 20 20 20 20 20 20 20 20 20 4d 65 73 73 61 67 65 | Message| 00000200 24 2b 3d 22 7c 3c 53 45 4c 45 43 54 3e 20 74 6f |$+="|<SELECT> to| 00000210 20 73 74 61 72 74 20 77 69 74 68 20 62 6c 61 6e | start with blan| 00000220 6b 20 73 63 72 65 65 6e 7c 4d 7c 3c 41 44 4a 55 |k screen|M|<ADJU| 00000230 53 54 3e 20 74 6f 20 73 74 61 72 74 20 77 69 74 |ST> to start wit| 00000240 68 20 6f 6e 2d 73 63 72 65 65 6e 20 68 69 6e 74 |h on-screen hint| 00000250 73 2e 22 0d 00 6e 18 20 20 20 20 20 20 20 20 20 |s."..n. | 00000260 20 20 20 20 20 20 20 20 20 20 cc 0d 00 78 52 20 | ...xR | 00000270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000280 20 20 20 20 20 4d 65 73 73 61 67 65 24 2b 3d 22 | Message$+="| 00000290 7c 3c 53 45 4c 45 43 54 3e 20 6f 72 20 7c 3c 41 ||<SELECT> or |<A| 000002a0 44 4a 55 53 54 3e 20 74 6f 20 73 68 6f 77 20 63 |DJUST> to show c| 000002b0 75 72 72 65 6e 74 20 49 6e 6c 61 79 22 0d 00 82 |urrent Inlay"...| 000002c0 18 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000002d0 20 20 20 20 cd 0d 00 8c 28 20 20 20 20 20 20 c9 | ....( .| 000002e0 20 4d 61 69 6e 25 20 3a 20 54 72 61 63 6b 25 3d | Main% : Track%=| 000002f0 28 49 63 6f 6e 25 20 81 20 32 29 2b 31 0d 00 96 |(Icon% . 2)+1...| 00000300 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |! | 00000310 20 20 20 20 c8 8e 20 49 63 6f 6e 25 20 ca 0d 00 | .. Icon% ...| 00000320 a0 ac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000330 20 20 20 20 20 20 20 20 c9 20 34 39 20 3a 20 4d | . 49 : M| 00000340 65 73 73 61 67 65 24 3d 22 43 6c 69 63 6b 20 61 |essage$="Click a| 00000350 6e 79 20 6d 6f 75 73 65 20 62 75 74 74 6f 6e 20 |ny mouse button | 00000360 74 6f 20 73 65 6e 64 20 74 68 65 20 63 6f 6e 74 |to send the cont| 00000370 65 6e 74 73 20 6f 66 20 74 68 65 20 77 69 6e 64 |ents of the wind| 00000380 6f 77 20 74 6f 20 74 68 65 20 70 72 69 6e 74 65 |ow to the printe| 00000390 72 2e 7c 4d 50 72 65 73 73 69 6e 67 20 74 68 65 |r.|MPressing the| 000003a0 20 7c 3c 50 52 49 4e 54 3e 20 4b 65 79 20 70 65 | |<PRINT> Key pe| 000003b0 72 66 6f 72 6d 73 20 74 68 65 20 73 61 6d 65 20 |rforms the same | 000003c0 66 75 6e 63 74 69 6f 6e 2e 22 0d 00 aa 3a 20 20 |function."...: | 000003d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003e0 20 20 20 20 c9 20 30 2c 32 2c 34 2c 36 2c 38 2c | . 0,2,4,6,8,| 000003f0 31 30 2c 31 32 2c 31 34 2c 31 36 2c 31 38 2c 32 |10,12,14,16,18,2| 00000400 30 2c 32 32 0d 00 b4 30 20 20 20 20 20 20 20 20 |0,22...0 | 00000410 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000420 20 20 20 20 20 20 20 20 e7 20 49 63 6f 6e 25 3d | . Icon%=| 00000430 30 30 20 8c 0d 00 be 50 20 20 20 20 20 20 20 20 |00 ....P | 00000440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000450 20 20 20 20 20 20 20 20 20 20 20 55 70 24 3d 22 | Up$="| 00000460 7c 3c 43 55 52 53 4f 52 20 55 50 3e 20 74 6f 20 ||<CURSOR UP> to | 00000470 6d 6f 76 65 20 74 6f 20 74 72 61 63 6b 20 31 37 |move to track 17| 00000480 2e 7c 4d 22 0d 00 c8 25 20 20 20 20 20 20 20 20 |.|M"...% | 00000490 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004a0 20 20 20 20 20 20 20 20 cc 0d 00 d2 5d 20 20 20 | ....] | 000004b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000004d0 55 70 24 3d 22 7c 3c 43 55 52 53 4f 52 20 55 50 |Up$="|<CURSOR UP| 000004e0 3e 20 74 6f 20 6d 6f 76 65 20 74 6f 20 74 72 61 |> to move to tra| 000004f0 63 6b 20 22 2b c3 28 54 72 61 63 6b 25 2d 31 29 |ck "+.(Track%-1)| 00000500 2b 22 2e 7c 4d 22 0d 00 dc 25 20 20 20 20 20 20 |+".|M"...% | 00000510 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000520 20 20 20 20 20 20 20 20 20 20 cd 0d 00 e6 30 20 | ....0 | 00000530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 | .| 00000550 20 49 63 6f 6e 25 3d 32 32 20 8c 0d 00 f0 54 20 | Icon%=22 ....T | 00000560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000580 20 20 44 6f 77 6e 24 3d 22 7c 3c 43 55 52 53 4f | Down$="|<CURSO| 00000590 52 20 44 4f 57 4e 3e 20 74 6f 20 6d 6f 76 65 20 |R DOWN> to move | 000005a0 74 6f 20 74 72 61 63 6b 20 31 33 2e 7c 4d 22 0d |to track 13.|M".| 000005b0 00 fa 25 20 20 20 20 20 20 20 20 20 20 20 20 20 |..% | 000005c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005d0 20 20 20 cc 0d 01 04 61 20 20 20 20 20 20 20 20 | ....a | 000005e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005f0 20 20 20 20 20 20 20 20 20 20 20 44 6f 77 6e 24 | Down$| 00000600 3d 22 7c 3c 43 55 52 53 4f 52 20 44 4f 57 4e 3e |="|<CURSOR DOWN>| 00000610 20 74 6f 20 6d 6f 76 65 20 74 6f 20 74 72 61 63 | to move to trac| 00000620 6b 20 22 2b c3 28 54 72 61 63 6b 25 2b 31 29 2b |k "+.(Track%+1)+| 00000630 22 2e 7c 4d 22 0d 01 0e 25 20 20 20 20 20 20 20 |".|M"...% | 00000640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000650 20 20 20 20 20 20 20 20 20 cd 0d 01 18 58 20 20 | ....X | 00000660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000670 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 61 | Ta| 00000680 62 24 3d 22 7c 3c 54 41 42 3e 20 74 6f 20 6d 6f |b$="|<TAB> to mo| 00000690 76 65 20 74 6f 20 74 72 61 63 6b 20 22 2b c3 28 |ve to track "+.(| 000006a0 54 72 61 63 6b 25 29 2b 22 20 53 69 64 65 20 42 |Track%)+" Side B| 000006b0 3a 22 0d 01 22 75 20 20 20 20 20 20 20 20 20 20 |:".."u | 000006c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000006d0 20 20 20 20 20 20 4d 65 73 73 61 67 65 24 3d 22 | Message$="| 000006e0 45 6e 74 65 72 20 74 68 65 20 74 69 74 6c 65 20 |Enter the title | 000006f0 6f 66 20 74 72 61 63 6b 20 6e 75 6d 62 65 72 20 |of track number | 00000700 22 2b c3 28 54 72 61 63 6b 25 29 2b 22 20 53 69 |"+.(Track%)+" Si| 00000710 64 65 20 41 3a 7c 4d 22 2b 55 70 24 2b 44 6f 77 |de A:|M"+Up$+Dow| 00000720 6e 24 2b 54 61 62 24 0d 01 2c 3a 20 20 20 20 20 |n$+Tab$..,: | 00000730 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000740 20 c9 20 31 2c 33 2c 35 2c 37 2c 39 2c 31 31 2c | . 1,3,5,7,9,11,| 00000750 31 33 2c 31 35 2c 31 37 2c 31 39 2c 32 31 2c 32 |13,15,17,19,21,2| 00000760 33 0d 01 36 30 20 20 20 20 20 20 20 20 20 20 20 |3..60 | 00000770 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000780 20 20 20 20 20 e7 20 49 63 6f 6e 25 3d 30 31 20 | . Icon%=01 | 00000790 8c 0d 01 40 50 20 20 20 20 20 20 20 20 20 20 20 |...@P | 000007a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000007b0 20 20 20 20 20 20 20 20 55 70 24 3d 22 7c 3c 43 | Up$="|<C| 000007c0 55 52 53 4f 52 20 55 50 3e 20 74 6f 20 6d 6f 76 |URSOR UP> to mov| 000007d0 65 20 74 6f 20 74 72 61 63 6b 20 31 37 2e 7c 4d |e to track 17.|M| 000007e0 22 0d 01 4a 25 20 20 20 20 20 20 20 20 20 20 20 |"..J% | 000007f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000800 20 20 20 20 20 cc 0d 01 54 5d 20 20 20 20 20 20 | ...T] | 00000810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000820 20 20 20 20 20 20 20 20 20 20 20 20 20 55 70 24 | Up$| 00000830 3d 22 7c 3c 43 55 52 53 4f 52 20 55 50 3e 20 74 |="|<CURSOR UP> t| 00000840 6f 20 6d 6f 76 65 20 74 6f 20 74 72 61 63 6b 20 |o move to track | 00000850 22 2b c3 28 54 72 61 63 6b 25 2d 31 29 2b 22 2e |"+.(Track%-1)+".| 00000860 7c 4d 22 0d 01 5e 25 20 20 20 20 20 20 20 20 20 ||M"..^% | 00000870 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000880 20 20 20 20 20 20 20 cd 0d 01 68 30 20 20 20 20 | ...h0 | 00000890 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008a0 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 49 63 | . Ic| 000008b0 6f 6e 25 3d 32 33 20 8c 0d 01 72 54 20 20 20 20 |on%=23 ...rT | 000008c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 | D| 000008e0 6f 77 6e 24 3d 22 7c 3c 43 55 52 53 4f 52 20 44 |own$="|<CURSOR D| 000008f0 4f 57 4e 3e 20 74 6f 20 6d 6f 76 65 20 74 6f 20 |OWN> to move to | 00000900 74 72 61 63 6b 20 31 33 2e 7c 4d 22 0d 01 7c 25 |track 13.|M"..|%| 00000910 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000930 cc 0d 01 86 61 20 20 20 20 20 20 20 20 20 20 20 |....a | 00000940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000950 20 20 20 20 20 20 20 20 44 6f 77 6e 24 3d 22 7c | Down$="|| 00000960 3c 43 55 52 53 4f 52 20 44 4f 57 4e 3e 20 74 6f |<CURSOR DOWN> to| 00000970 20 6d 6f 76 65 20 74 6f 20 74 72 61 63 6b 20 22 | move to track "| 00000980 2b c3 28 54 72 61 63 6b 25 2b 31 29 2b 22 2e 7c |+.(Track%+1)+".|| 00000990 4d 22 0d 01 90 25 20 20 20 20 20 20 20 20 20 20 |M"...% | 000009a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009b0 20 20 20 20 20 20 cd 0d 01 9a 59 20 20 20 20 20 | ....Y | 000009c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009d0 20 20 20 20 20 20 20 20 20 20 20 54 61 62 24 3d | Tab$=| 000009e0 22 7c 3c 54 41 42 3e 20 74 6f 20 6d 6f 76 65 20 |"|<TAB> to move | 000009f0 74 6f 20 74 72 61 63 6b 20 22 2b c3 28 54 72 61 |to track "+.(Tra| 00000a00 63 6b 25 29 2b 22 20 53 69 64 65 20 41 3a 20 22 |ck%)+" Side A: "| 00000a10 0d 01 a4 75 20 20 20 20 20 20 20 20 20 20 20 20 |...u | 00000a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000a30 20 20 20 20 4d 65 73 73 61 67 65 24 3d 22 45 6e | Message$="En| 00000a40 74 65 72 20 74 68 65 20 74 69 74 6c 65 20 6f 66 |ter the title of| 00000a50 20 74 72 61 63 6b 20 6e 75 6d 62 65 72 20 22 2b | track number "+| 00000a60 c3 28 54 72 61 63 6b 25 29 2b 22 20 53 69 64 65 |.(Track%)+" Side| 00000a70 20 42 3a 7c 4d 22 2b 55 70 24 2b 44 6f 77 6e 24 | B:|M"+Up$+Down$| 00000a80 2b 54 61 62 24 0d 01 ae 21 20 20 20 20 20 20 20 |+Tab$...! | 00000a90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 | .| 00000aa0 20 32 34 2c 32 36 0d 01 b8 3e 20 20 20 20 20 20 | 24,26...> | 00000ab0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000ac0 20 20 20 20 20 20 20 20 20 20 53 69 64 65 24 3d | Side$=| 00000ad0 bd 28 36 35 20 2d 20 31 2a 28 49 63 6f 6e 25 3d |.(65 - 1*(Icon%=| 00000ae0 32 36 29 29 0d 01 c2 35 20 20 20 20 20 20 20 20 |26))...5 | 00000af0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000b00 20 20 20 20 20 20 20 20 55 70 24 3d 22 22 20 3a | Up$="" :| 00000b10 20 44 6f 77 6e 24 3d 22 22 0d 01 cc 73 20 20 20 | Down$=""...s | 00000b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000b30 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 20 49 | . I| 00000b40 63 6f 6e 25 3d 32 34 20 8c 20 44 6f 77 6e 24 3d |con%=24 . Down$=| 00000b50 22 7c 3c 43 55 52 53 4f 52 20 44 4f 57 4e 3e 20 |"|<CURSOR DOWN> | 00000b60 74 6f 20 6d 6f 76 65 20 74 6f 20 61 6c 62 75 6d |to move to album| 00000b70 20 74 69 74 6c 65 20 73 69 64 65 20 42 3a 7c 4d | title side B:|M| 00000b80 22 20 8b 20 44 6f 77 6e 24 3d 22 22 0d 01 d6 6d |" . Down$=""...m| 00000b90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000bb0 e7 20 49 63 6f 6e 25 3d 32 36 20 8c 20 55 70 24 |. Icon%=26 . Up$| 00000bc0 3d 22 7c 3c 43 55 52 53 4f 52 20 55 50 3e 20 74 |="|<CURSOR UP> t| 00000bd0 6f 20 6d 6f 76 65 20 74 6f 20 61 6c 62 75 6d 20 |o move to album | 00000be0 74 69 74 6c 65 20 73 69 64 65 20 41 3a 7c 4d 22 |title side A:|M"| 00000bf0 20 8b 20 55 70 24 3d 22 22 0d 01 e0 52 20 20 20 | . Up$=""...R | 00000c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000c10 20 20 20 20 20 20 20 20 20 20 20 20 20 54 61 62 | Tab| 00000c20 24 3d 22 7c 3c 54 41 42 3e 20 74 6f 20 6d 6f 76 |$="|<TAB> to mov| 00000c30 65 20 74 6f 20 61 72 74 69 73 74 20 6f 6e 20 73 |e to artist on s| 00000c40 69 64 65 20 22 2b 53 69 64 65 24 0d 01 ea 6f 20 |ide "+Side$...o | 00000c50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000c60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d | M| 00000c70 65 73 73 61 67 65 24 3d 22 45 6e 74 65 72 20 74 |essage$="Enter t| 00000c80 68 65 20 74 69 74 6c 65 20 6f 66 20 74 68 65 20 |he title of the | 00000c90 61 6c 62 75 6d 20 6f 6e 20 73 69 64 65 20 22 2b |album on side "+| 00000ca0 53 69 64 65 24 2b 22 3a 7c 4d 22 2b 55 70 24 2b |Side$+":|M"+Up$+| 00000cb0 44 6f 77 6e 24 2b 54 61 62 24 0d 01 f4 21 20 20 |Down$+Tab$...! | 00000cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000cd0 20 20 20 20 c9 20 32 35 2c 32 37 0d 01 fe 3e 20 | . 25,27...> | 00000ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000cf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S| 00000d00 69 64 65 24 3d bd 28 36 35 20 2d 20 31 2a 28 49 |ide$=.(65 - 1*(I| 00000d10 63 6f 6e 25 3d 32 37 29 29 0d 02 08 35 20 20 20 |con%=27))...5 | 00000d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000d30 20 20 20 20 20 20 20 20 20 20 20 20 20 55 70 24 | Up$| 00000d40 3d 22 22 20 3a 20 44 6f 77 6e 24 3d 22 22 0d 02 |="" : Down$=""..| 00000d50 12 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.n | 00000d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000d70 20 20 e7 20 49 63 6f 6e 25 3d 32 35 20 8c 20 44 | . Icon%=25 . D| 00000d80 6f 77 6e 24 3d 22 7c 3c 43 55 52 53 4f 52 20 44 |own$="|<CURSOR D| 00000d90 4f 57 4e 3e 20 74 6f 20 6d 6f 76 65 20 74 6f 20 |OWN> to move to | 00000da0 61 72 74 69 73 74 20 73 69 64 65 20 42 3a 7c 4d |artist side B:|M| 00000db0 22 20 8b 20 44 6f 77 6e 24 3d 22 22 0d 02 1c 68 |" . Down$=""...h| 00000dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000de0 e7 20 49 63 6f 6e 25 3d 32 37 20 8c 20 55 70 24 |. Icon%=27 . Up$| 00000df0 3d 22 7c 3c 43 55 52 53 4f 52 20 55 50 3e 20 74 |="|<CURSOR UP> t| 00000e00 6f 20 6d 6f 76 65 20 74 6f 20 61 72 74 69 73 74 |o move to artist| 00000e10 20 73 69 64 65 20 41 3a 7c 4d 22 20 8b 20 55 70 | side A:|M" . Up| 00000e20 24 3d 22 22 0d 02 26 57 20 20 20 20 20 20 20 20 |$=""..&W | 00000e30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000e40 20 20 20 20 20 20 20 20 54 61 62 24 3d 22 7c 3c | Tab$="|<| 00000e50 54 41 42 3e 20 74 6f 20 6d 6f 76 65 20 74 6f 20 |TAB> to move to | 00000e60 61 6c 62 75 6d 20 74 69 74 6c 65 20 6f 6e 20 73 |album title on s| 00000e70 69 64 65 20 22 2b 53 69 64 65 24 0d 02 30 6f 20 |ide "+Side$..0o | 00000e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000e90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d | M| 00000ea0 65 73 73 61 67 65 24 3d 22 45 6e 74 65 72 20 74 |essage$="Enter t| 00000eb0 68 65 20 4e 61 6d 65 20 6f 66 20 74 68 65 20 61 |he Name of the a| 00000ec0 72 74 69 73 74 20 6f 6e 20 73 69 64 65 20 22 2b |rtist on side "+| 00000ed0 53 69 64 65 24 2b 22 3a 7c 4d 22 2b 55 70 24 2b |Side$+":|M"+Up$+| 00000ee0 44 6f 77 6e 24 2b 54 61 62 24 0d 02 3a 2a 20 20 |Down$+Tab$..:* | 00000ef0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000f00 20 20 20 20 c9 20 32 38 2c 33 30 2c 33 32 2c 33 | . 28,30,32,3| 00000f10 34 2c 33 36 0d 02 44 30 20 20 20 20 20 20 20 20 |4,36..D0 | 00000f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000f30 20 20 20 20 20 20 20 20 e7 20 49 63 6f 6e 25 3d | . Icon%=| 00000f40 32 38 20 8c 0d 02 4e 50 20 20 20 20 20 20 20 20 |28 ...NP | 00000f50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000f60 20 20 20 20 20 20 20 20 20 20 20 55 70 24 3d 22 | Up$="| 00000f70 7c 3c 43 55 52 53 4f 52 20 55 50 3e 20 74 6f 20 ||<CURSOR UP> to | 00000f80 6d 6f 76 65 20 74 6f 20 74 72 61 63 6b 20 31 32 |move to track 12| 00000f90 2e 7c 4d 22 0d 02 58 25 20 20 20 20 20 20 20 20 |.|M"..X% | 00000fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000fb0 20 20 20 20 20 20 20 20 cc 0d 02 62 5d 20 20 20 | ...b] | 00000fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000fe0 55 70 24 3d 22 7c 3c 43 55 52 53 4f 52 20 55 50 |Up$="|<CURSOR UP| 00000ff0 3e 20 74 6f 20 6d 6f 76 65 20 74 6f 20 74 72 61 |> to move to tra| 00001000 63 6b 20 22 2b c3 28 54 72 61 63 6b 25 2d 33 29 |ck "+.(Track%-3)| 00001010 2b 22 2e 7c 4d 22 0d 02 6c 25 20 20 20 20 20 20 |+".|M"..l% | 00001020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001030 20 20 20 20 20 20 20 20 20 20 cd 0d 02 76 30 20 | ...v0 | 00001040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001050 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e7 | .| 00001060 20 49 63 6f 6e 25 3d 33 36 20 8c 0d 02 80 53 20 | Icon%=36 ....S | 00001070 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00001090 20 20 44 6f 77 6e 24 3d 22 7c 3c 43 55 52 53 4f | Down$="|<CURSO| 000010a0 52 20 44 4f 57 4e 3e 20 74 6f 20 6d 6f 76 65 20 |R DOWN> to move | 000010b0 74 6f 20 74 72 61 63 6b 20 31 2e 7c 4d 22 0d 02 |to track 1.|M"..| 000010c0 8a 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.% | 000010d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000010e0 20 20 cc 0d 02 94 61 20 20 20 20 20 20 20 20 20 | ....a | 000010f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001100 20 20 20 20 20 20 20 20 20 20 44 6f 77 6e 24 3d | Down$=| 00001110 22 7c 3c 43 55 52 53 4f 52 20 44 4f 57 4e 3e 20 |"|<CURSOR DOWN> | 00001120 74 6f 20 6d 6f 76 65 20 74 6f 20 74 72 61 63 6b |to move to track| 00001130 20 22 2b c3 28 54 72 61 63 6b 25 2d 31 29 2b 22 | "+.(Track%-1)+"| 00001140 2e 7c 4d 22 0d 02 9e 25 20 20 20 20 20 20 20 20 |.|M"...% | 00001150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001160 20 20 20 20 20 20 20 20 cd 0d 02 a8 5b 20 20 20 | ....[ | 00001170 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001180 20 20 20 20 20 20 20 20 20 20 20 20 20 54 61 62 | Tab| 00001190 24 3d 22 7c 3c 54 41 42 3e 20 74 6f 20 6d 6f 76 |$="|<TAB> to mov| 000011a0 65 20 74 6f 20 74 72 61 63 6b 20 22 2b c3 28 54 |e to track "+.(T| 000011b0 72 61 63 6b 25 2d 32 29 2b 22 20 53 69 64 65 20 |rack%-2)+" Side | 000011c0 42 3a 20 22 0d 02 b2 77 20 20 20 20 20 20 20 20 |B: "...w | 000011d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000011e0 20 20 20 20 20 20 20 20 4d 65 73 73 61 67 65 24 | Message$| 000011f0 3d 22 45 6e 74 65 72 20 74 68 65 20 74 69 74 6c |="Enter the titl| 00001200 65 20 6f 66 20 74 72 61 63 6b 20 6e 75 6d 62 65 |e of track numbe| 00001210 72 20 22 2b c3 28 54 72 61 63 6b 25 2d 32 29 2b |r "+.(Track%-2)+| 00001220 22 20 53 69 64 65 20 41 3a 7c 4d 22 2b 55 70 24 |" Side A:|M"+Up$| 00001230 2b 44 6f 77 6e 24 2b 54 61 62 24 0d 02 bc 2a 20 |+Down$+Tab$...* | 00001240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001250 20 20 20 20 20 c9 20 32 39 2c 33 31 2c 33 33 2c | . 29,31,33,| 00001260 33 35 2c 33 37 0d 02 c6 30 20 20 20 20 20 20 20 |35,37...0 | 00001270 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001280 20 20 20 20 20 20 20 20 20 e7 20 49 63 6f 6e 25 | . Icon%| 00001290 3d 32 39 20 8c 0d 02 d0 50 20 20 20 20 20 20 20 |=29 ....P | 000012a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000012b0 20 20 20 20 20 20 20 20 20 20 20 20 55 70 24 3d | Up$=| 000012c0 22 7c 3c 43 55 52 53 4f 52 20 55 50 3e 20 74 6f |"|<CURSOR UP> to| 000012d0 20 6d 6f 76 65 20 74 6f 20 74 72 61 63 6b 20 31 | move to track 1| 000012e0 32 2e 7c 4d 22 0d 02 da 25 20 20 20 20 20 20 20 |2.|M"...% | 000012f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001300 20 20 20 20 20 20 20 20 20 cc 0d 02 e4 5d 20 20 | ....] | 00001310 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00001330 20 55 70 24 3d 22 7c 3c 43 55 52 53 4f 52 20 55 | Up$="|<CURSOR U| 00001340 50 3e 20 74 6f 20 6d 6f 76 65 20 74 6f 20 74 72 |P> to move to tr| 00001350 61 63 6b 20 22 2b c3 28 54 72 61 63 6b 25 2d 33 |ack "+.(Track%-3| 00001360 29 2b 22 2e 7c 4d 22 0d 02 ee 25 20 20 20 20 20 |)+".|M"...% | 00001370 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001380 20 20 20 20 20 20 20 20 20 20 20 cd 0d 02 f8 30 | ....0| 00001390 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000013b0 e7 20 49 63 6f 6e 25 3d 33 37 20 8c 0d 03 02 53 |. Icon%=37 ....S| 000013c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000013e0 20 20 20 44 6f 77 6e 24 3d 22 7c 3c 43 55 52 53 | Down$="|<CURS| 000013f0 4f 52 20 44 4f 57 4e 3e 20 74 6f 20 6d 6f 76 65 |OR DOWN> to move| 00001400 20 74 6f 20 74 72 61 63 6b 20 31 2e 7c 4d 22 0d | to track 1.|M".| 00001410 03 0c 25 20 20 20 20 20 20 20 20 20 20 20 20 20 |..% | 00001420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001430 20 20 20 cc 0d 03 16 61 20 20 20 20 20 20 20 20 | ....a | 00001440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001450 20 20 20 20 20 20 20 20 20 20 20 44 6f 77 6e 24 | Down$| 00001460 3d 22 7c 3c 43 55 52 53 4f 52 20 44 4f 57 4e 3e |="|<CURSOR DOWN>| 00001470 20 74 6f 20 6d 6f 76 65 20 74 6f 20 74 72 61 63 | to move to trac| 00001480 6b 20 22 2b c3 28 54 72 61 63 6b 25 2d 31 29 2b |k "+.(Track%-1)+| 00001490 22 2e 7c 4d 22 0d 03 20 25 20 20 20 20 20 20 20 |".|M".. % | 000014a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014b0 20 20 20 20 20 20 20 20 20 cd 0d 03 2a 5b 20 20 | ...*[ | 000014c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000014d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 54 61 | Ta| 000014e0 62 24 3d 22 7c 3c 54 41 42 3e 20 74 6f 20 6d 6f |b$="|<TAB> to mo| 000014f0 76 65 20 74 6f 20 74 72 61 63 6b 20 22 2b c3 28 |ve to track "+.(| 00001500 54 72 61 63 6b 25 2d 32 29 2b 22 20 53 69 64 65 |Track%-2)+" Side| 00001510 20 41 3a 20 22 0d 03 34 77 20 20 20 20 20 20 20 | A: "..4w | 00001520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001530 20 20 20 20 20 20 20 20 20 4d 65 73 73 61 67 65 | Message| 00001540 24 3d 22 45 6e 74 65 72 20 74 68 65 20 74 69 74 |$="Enter the tit| 00001550 6c 65 20 6f 66 20 74 72 61 63 6b 20 6e 75 6d 62 |le of track numb| 00001560 65 72 20 22 2b c3 28 54 72 61 63 6b 25 2d 32 29 |er "+.(Track%-2)| 00001570 2b 22 20 53 69 64 65 20 42 3a 7c 4d 22 2b 55 70 |+" Side B:|M"+Up| 00001580 24 2b 44 6f 77 6e 24 2b 54 61 62 24 0d 03 3e e7 |$+Down$+Tab$..>.| 00001590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015a0 20 20 20 20 20 20 c9 20 33 38 20 3a 20 4d 65 73 | . 38 : Mes| 000015b0 73 61 67 65 24 3d 22 4d 61 72 6b 20 69 73 20 61 |sage$="Mark is a| 000015c0 20 33 30 20 79 65 61 72 20 6f 6c 64 20 42 54 20 | 30 year old BT | 000015d0 65 6e 67 69 6e 65 65 72 2c 20 77 68 6f 20 6c 6f |engineer, who lo| 000015e0 76 65 73 20 63 6f 6d 70 75 74 65 72 73 20 28 65 |ves computers (e| 000015f0 73 70 65 63 69 61 6c 6c 79 20 41 72 63 68 69 6d |specially Archim| 00001600 65 64 65 73 29 20 61 6e 64 20 41 6d 61 6e 64 61 |edes) and Amanda| 00001610 20 28 48 69 73 20 77 69 66 65 21 29 2e 20 48 65 | (His wife!). He| 00001620 20 64 72 69 76 65 73 20 61 20 52 65 64 20 53 52 | drives a Red SR| 00001630 20 4e 6f 76 61 2c 20 61 6e 64 20 61 20 59 65 6c | Nova, and a Yel| 00001640 6c 6f 77 20 42 2e 54 2e 20 76 61 6e 21 20 7c 4d |low B.T. van! |M| 00001650 54 68 69 73 20 69 73 20 68 69 73 20 31 73 74 20 |This is his 1st | 00001660 52 69 73 63 57 61 72 65 20 50 72 6f 67 72 61 6d |RiscWare Program| 00001670 21 20 22 0d 03 48 27 20 20 20 20 20 20 20 20 20 |! "..H' | 00001680 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 54 | . T| 00001690 61 70 65 4e 75 6d 62 65 72 25 0d 03 52 5a 20 20 |apeNumber%..RZ | 000016a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000016b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 65 | Me| 000016c0 73 73 61 67 65 24 3d 22 54 68 69 73 20 69 73 20 |ssage$="This is | 000016d0 74 68 65 20 49 6e 64 65 78 20 6e 75 6d 62 65 72 |the Index number| 000016e0 20 66 6f 72 20 74 68 69 73 20 63 61 73 73 65 74 | for this casset| 000016f0 74 65 21 22 0d 03 5c 64 20 20 20 20 20 20 20 20 |te!"..\d | 00001700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . | 00001710 34 35 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 54 |45 : Message$="T| 00001720 68 69 73 20 69 73 20 74 68 65 20 43 75 72 72 65 |his is the Curre| 00001730 6e 74 20 49 6e 73 74 61 6c 6c 65 64 20 50 72 69 |nt Installed Pri| 00001740 6e 74 65 72 20 2d 20 53 65 65 20 4f 70 74 69 6f |nter - See Optio| 00001750 6e 73 20 4d 65 6e 75 22 0d 03 66 18 20 20 20 20 |ns Menu"..f. | 00001760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7f | .| 00001770 0d 03 70 a4 20 20 20 20 20 20 20 20 20 20 20 20 |..p. | 00001780 20 20 20 20 20 20 20 20 20 20 4d 65 73 73 61 67 | Messag| 00001790 65 24 3d 22 4d 69 73 63 2e 20 48 65 6c 70 20 3a |e$="Misc. Help :| 000017a0 7c 4d 7c 3c 66 31 30 3e 20 2d 20 53 77 61 70 20 ||M|<f10> - Swap | 000017b0 63 61 73 65 20 20 20 7c 3c 66 31 31 3e 20 2d 20 |case |<f11> - | 000017c0 44 65 6c 65 74 65 20 74 6f 20 65 6e 64 20 6f 66 |Delete to end of| 000017d0 20 6c 69 6e 65 7c 4d 7c 3c 53 68 69 66 74 3e 7c | line|M|<Shift>|| 000017e0 3c 66 39 3e 20 2d 20 57 69 70 65 20 61 6c 6c 20 |<f9> - Wipe all | 000017f0 66 69 65 6c 64 73 2e 20 20 20 7c 3c 48 6f 6d 65 |fields. |<Home| 00001800 3e 20 2d 20 47 6f 20 74 6f 20 54 72 61 63 6b 20 |> - Go to Track | 00001810 31 7c 4d 22 0d 03 7a 18 20 20 20 20 20 20 20 20 |1|M"..z. | 00001820 20 20 20 20 20 20 20 20 20 20 20 cb 0d 03 84 16 | .....| 00001830 20 20 20 20 20 20 c9 20 4f 70 74 69 6f 6e 73 25 | . Options%| 00001840 20 3a 0d 03 8e 17 20 20 20 20 20 20 20 20 20 c8 | :.... .| 00001850 8e 20 49 63 6f 6e 25 20 ca 0d 03 98 b5 20 20 20 |. Icon% ..... | 00001860 20 20 20 20 20 20 20 20 20 c9 20 2d 31 20 3a 20 | . -1 : | 00001870 4d 65 73 73 61 67 65 24 3d 22 54 68 69 73 20 69 |Message$="This i| 00001880 73 20 74 68 65 20 6f 70 74 69 6f 6e 73 20 77 69 |s the options wi| 00001890 6e 64 6f 77 2e 20 43 68 61 6e 67 65 73 20 6d 61 |ndow. Changes ma| 000018a0 64 65 20 68 65 72 65 20 77 69 6c 6c 20 74 61 6b |de here will tak| 000018b0 65 20 65 66 66 65 63 74 20 69 6d 6d 65 64 69 61 |e effect immedia| 000018c0 74 65 6c 79 2c 20 62 75 74 20 77 69 6c 6c 20 6e |tely, but will n| 000018d0 6f 74 20 62 65 20 73 61 76 65 64 20 75 6e 6c 65 |ot be saved unle| 000018e0 73 73 20 7c 3c 53 45 4c 45 43 54 3e 20 69 73 20 |ss |<SELECT> is | 000018f0 63 6c 69 63 6b 65 64 20 6f 76 65 72 20 74 68 65 |clicked over the| 00001900 20 73 61 76 65 20 62 75 74 74 6f 6e 2e 22 0d 03 | save button."..| 00001910 a2 3c 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 |.< . | 00001920 30 31 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 53 |01 : Message$="S| 00001930 65 6c 65 63 74 20 44 72 61 66 74 20 70 72 69 6e |elect Draft prin| 00001940 74 69 6e 67 20 6d 6f 64 65 22 0d 03 ac 3a 20 20 |ting mode"...: | 00001950 20 20 20 20 20 20 20 20 20 20 c9 20 30 30 20 3a | . 00 :| 00001960 20 4d 65 73 73 61 67 65 24 3d 22 53 65 6c 65 63 | Message$="Selec| 00001970 74 20 4e 4c 51 20 70 72 69 6e 74 69 6e 67 20 6d |t NLQ printing m| 00001980 6f 64 65 22 0d 03 b6 4c 20 20 20 20 20 20 20 20 |ode"...L | 00001990 20 20 20 20 c9 20 30 35 20 3a 20 4d 65 73 73 61 | . 05 : Messa| 000019a0 67 65 24 3d 22 53 65 6c 65 63 74 20 52 69 73 63 |ge$="Select Risc| 000019b0 4f 53 20 70 72 69 6e 74 65 72 20 64 72 69 76 65 |OS printer drive| 000019c0 72 20 70 72 69 6e 74 69 6e 67 20 6d 6f 64 65 22 |r printing mode"| 000019d0 0d 03 c0 6c 20 20 20 20 20 20 20 20 20 20 20 20 |...l | 000019e0 c9 20 31 32 20 3a 20 4d 65 73 73 61 67 65 24 3d |. 12 : Message$=| 000019f0 22 45 6e 74 65 72 20 79 6f 75 72 20 70 72 69 6e |"Enter your prin| 00001a00 74 65 72 20 63 6f 64 65 20 66 6f 72 20 4e 4c 51 |ter code for NLQ| 00001a10 20 4f 4e 20 69 66 20 69 74 20 69 73 20 64 69 66 | ON if it is dif| 00001a20 66 65 72 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 |ferent from the | 00001a30 63 6f 64 65 20 73 68 6f 77 6e 2e 22 0d 03 ca 6d |code shown."...m| 00001a40 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 36 | . 16| 00001a50 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 45 6e 74 | : Message$="Ent| 00001a60 65 72 20 79 6f 75 72 20 70 72 69 6e 74 65 72 20 |er your printer | 00001a70 63 6f 64 65 20 66 6f 72 20 4e 4c 51 20 4f 46 46 |code for NLQ OFF| 00001a80 20 69 66 20 69 74 20 69 73 20 64 69 66 66 65 72 | if it is differ| 00001a90 65 6e 74 20 66 72 6f 6d 20 74 68 65 20 63 6f 64 |ent from the cod| 00001aa0 65 20 73 68 6f 77 6e 2e 22 0d 03 d4 89 20 20 20 |e shown.".... | 00001ab0 20 20 20 20 20 20 20 20 20 c9 20 32 30 20 3a 20 | . 20 : | 00001ac0 4d 65 73 73 61 67 65 24 3d 22 45 6e 74 65 72 20 |Message$="Enter | 00001ad0 68 6f 77 20 6d 61 6e 79 20 6c 69 6e 65 73 20 79 |how many lines y| 00001ae0 6f 75 20 77 61 6e 74 20 74 68 65 20 70 61 70 65 |ou want the pape| 00001af0 72 20 74 6f 20 66 65 65 64 20 61 66 74 65 72 20 |r to feed after | 00001b00 63 68 61 72 61 63 74 65 72 20 6d 6f 64 65 20 70 |character mode p| 00001b10 72 69 6e 74 69 6e 67 20 74 6f 20 63 6c 65 61 72 |rinting to clear| 00001b20 20 74 68 65 20 74 65 61 72 20 6f 66 66 20 62 61 | the tear off ba| 00001b30 72 22 0d 03 de 5b 20 20 20 20 20 20 20 20 20 20 |r"...[ | 00001b40 20 20 c9 20 32 38 20 3a 20 4d 65 73 73 61 67 65 | . 28 : Message| 00001b50 24 3d 22 53 61 76 65 20 61 6c 6c 20 74 68 65 20 |$="Save all the | 00001b60 61 62 6f 76 65 20 70 72 65 66 65 72 65 6e 63 65 |above preference| 00001b70 73 20 74 6f 20 74 68 65 20 63 6f 6e 66 69 67 75 |s to the configu| 00001b80 72 61 74 69 6f 6e 20 66 69 6c 65 2e 22 0d 03 e8 |ration file."...| 00001b90 0e 20 20 20 20 20 20 20 20 20 cb 0d 03 f2 13 20 |. ..... | 00001ba0 20 20 20 20 20 c9 20 49 6e 66 6f 25 20 3a 0d 03 | . Info% :..| 00001bb0 fc 17 20 20 20 20 20 20 20 20 20 c8 8e 20 49 63 |.. .. Ic| 00001bc0 6f 6e 25 20 ca 0d 04 06 5e 20 20 20 20 20 20 20 |on% ....^ | 00001bd0 20 20 20 20 20 c9 20 2d 31 20 3a 20 4d 65 73 73 | . -1 : Mess| 00001be0 61 67 65 24 3d 22 54 68 69 73 20 62 6f 78 20 67 |age$="This box g| 00001bf0 69 76 65 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e |ives information| 00001c00 20 61 62 6f 75 74 20 74 68 65 20 70 72 6f 67 72 | about the progr| 00001c10 61 6d 20 61 6e 64 20 74 68 65 20 61 75 74 68 6f |am and the autho| 00001c20 72 2e 22 0d 04 10 42 20 20 20 20 20 20 20 20 20 |r."...B | 00001c30 20 20 20 c9 20 30 34 20 3a 20 4d 65 73 73 61 67 | . 04 : Messag| 00001c40 65 24 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 |e$="This is the | 00001c50 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 72 6f 67 |name of the prog| 00001c60 72 61 6d 2e 22 0d 04 1a 45 20 20 20 20 20 20 20 |ram."...E | 00001c70 20 20 20 20 20 c9 20 30 39 20 3a 20 4d 65 73 73 | . 09 : Mess| 00001c80 61 67 65 24 3d 22 54 68 69 73 20 69 73 20 74 68 |age$="This is th| 00001c90 65 20 70 75 72 70 6f 73 65 20 6f 66 20 74 68 65 |e purpose of the| 00001ca0 20 70 72 6f 67 72 61 6d 2e 22 0d 04 24 47 20 20 | program."..$G | 00001cb0 20 20 20 20 20 20 20 20 20 20 c9 20 31 32 20 3a | . 12 :| 00001cc0 20 4d 65 73 73 61 67 65 24 3d 22 54 68 69 73 20 | Message$="This | 00001cd0 69 73 20 74 68 65 20 4e 61 6d 65 20 6f 66 20 74 |is the Name of t| 00001ce0 68 65 20 61 75 74 68 6f 72 2e 20 28 4d 45 21 29 |he author. (ME!)| 00001cf0 22 0d 04 2e 88 20 20 20 20 20 20 20 20 20 20 20 |".... | 00001d00 20 c9 20 31 35 20 3a 20 4d 65 73 73 61 67 65 24 | . 15 : Message$| 00001d10 3d 22 54 68 69 73 20 69 73 20 74 68 65 20 76 65 |="This is the ve| 00001d20 72 73 69 6f 6e 20 6e 75 6d 62 65 72 20 6f 66 20 |rsion number of | 00001d30 74 68 65 20 70 72 6f 67 72 61 6d 20 79 6f 75 20 |the program you | 00001d40 61 72 65 20 75 73 69 6e 67 2e 20 28 50 6c 65 61 |are using. (Plea| 00001d50 73 65 20 71 75 6f 74 65 20 74 68 69 73 20 6e 75 |se quote this nu| 00001d60 6d 62 65 72 20 69 6e 20 61 6e 79 20 62 75 67 20 |mber in any bug | 00001d70 72 65 70 6f 72 74 73 29 22 0d 04 38 0e 20 20 20 |reports)"..8. | 00001d80 20 20 20 20 20 20 cb 0d 04 42 13 20 20 20 20 20 | ...B. | 00001d90 20 c9 20 53 61 76 65 25 20 3a 0d 04 4c 17 20 20 | . Save% :..L. | 00001da0 20 20 20 20 20 20 20 c8 8e 20 49 63 6f 6e 25 20 | .. Icon% | 00001db0 ca 0d 04 56 74 20 20 20 20 20 20 20 20 20 20 20 |...Vt | 00001dc0 20 c9 20 2d 31 20 3a 20 4d 65 73 73 61 67 65 24 | . -1 : Message$| 00001dd0 3d 22 54 68 69 73 20 62 6f 78 20 61 6c 6c 6f 77 |="This box allow| 00001de0 73 20 79 6f 75 20 74 6f 20 73 61 76 65 20 64 61 |s you to save da| 00001df0 74 61 20 69 6e 20 61 20 66 69 6c 65 2c 20 6f 72 |ta in a file, or| 00001e00 20 74 72 61 6e 73 66 65 72 20 69 74 20 74 6f 20 | transfer it to | 00001e10 61 6e 6f 74 68 65 72 20 61 70 70 6c 69 63 61 74 |another applicat| 00001e20 69 6f 6e 2e 22 0d 04 60 aa 20 20 20 20 20 20 20 |ion."..`. | 00001e30 20 20 20 20 20 c9 20 30 30 20 3a 20 4d 65 73 73 | . 00 : Mess| 00001e40 61 67 65 24 3d 22 44 72 61 67 20 74 68 69 73 20 |age$="Drag this | 00001e50 69 63 6f 6e 20 74 6f 20 74 68 65 20 64 69 72 65 |icon to the dire| 00001e60 63 74 6f 72 79 20 69 6e 20 77 68 69 63 68 20 79 |ctory in which y| 00001e70 6f 75 20 77 61 6e 74 20 74 6f 20 73 61 76 65 20 |ou want to save | 00001e80 74 68 65 20 66 69 6c 65 2e 20 4f 72 2c 20 64 72 |the file. Or, dr| 00001e90 61 67 20 69 74 20 74 6f 20 74 68 65 20 70 72 6f |ag it to the pro| 00001ea0 67 72 61 6d 20 69 6e 74 6f 20 77 68 69 63 68 20 |gram into which | 00001eb0 79 6f 75 20 77 61 6e 74 20 74 6f 20 74 72 61 6e |you want to tran| 00001ec0 73 66 65 72 20 74 68 65 20 64 61 74 61 2e 22 0d |sfer the data.".| 00001ed0 04 6a 8e 20 20 20 20 20 20 20 20 20 20 20 20 c9 |.j. .| 00001ee0 20 30 34 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 | 04 : Message$="| 00001ef0 54 68 69 73 20 73 68 6f 77 73 20 74 68 65 20 66 |This shows the f| 00001f00 69 6c 65 6e 61 6d 65 20 66 6f 72 20 74 68 69 73 |ilename for this| 00001f10 20 64 61 74 61 2e 20 49 66 20 69 74 20 69 73 20 | data. If it is | 00001f20 6e 6f 74 20 61 20 66 75 6c 6c 20 70 61 74 68 6e |not a full pathn| 00001f30 61 6d 65 2c 20 64 72 61 67 20 74 68 65 20 69 63 |ame, drag the ic| 00001f40 6f 6e 20 69 6e 74 6f 20 61 20 64 69 72 65 63 74 |on into a direct| 00001f50 6f 72 79 20 64 69 73 70 6c 61 79 2e 22 0d 04 74 |ory display."..t| 00001f60 a3 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 31 |. . 1| 00001f70 31 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 43 6c |1 : Message$="Cl| 00001f80 69 63 6b 20 68 65 72 65 20 74 6f 20 73 61 76 65 |ick here to save| 00001f90 20 74 68 65 20 64 61 74 61 20 77 69 74 68 20 74 | the data with t| 00001fa0 68 65 20 63 75 72 72 65 6e 74 20 66 69 6c 65 6e |he current filen| 00001fb0 61 6d 65 2e 20 49 66 20 69 74 20 69 73 20 6e 6f |ame. If it is no| 00001fc0 74 20 61 20 66 75 6c 6c 20 70 61 74 68 6e 61 6d |t a full pathnam| 00001fd0 65 2c 20 79 6f 75 20 6d 75 73 74 20 64 72 61 67 |e, you must drag| 00001fe0 20 74 68 65 20 69 63 6f 6e 20 74 6f 20 61 20 64 | the icon to a d| 00001ff0 69 72 65 63 74 6f 72 79 20 66 69 72 73 74 2e 22 |irectory first."| 00002000 0d 04 7e 0e 20 20 20 20 20 20 20 20 20 cb 0d 04 |..~. ...| 00002010 88 08 20 20 20 7f 0d 04 92 7d 20 20 20 20 20 20 |.. ....} | 00002020 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |. **************| 00002030 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00002090 2a 2a 2a 0d 04 9c 7d 20 20 20 20 20 20 f4 20 42 |***...} . B| 000020a0 79 20 74 68 65 20 74 69 6d 65 20 79 6f 75 20 72 |y the time you r| 000020b0 65 61 63 68 20 68 65 72 65 2c 20 74 68 65 72 65 |each here, there| 000020c0 20 73 68 6f 75 6c 64 20 62 65 20 6e 6f 20 6d 6f | should be no mo| 000020d0 72 65 20 77 69 6e 64 6f 77 73 20 74 68 61 74 20 |re windows that | 000020e0 79 6f 75 20 6b 6e 6f 77 20 61 62 6f 75 74 2c 20 |you know about, | 000020f0 73 6f 20 61 6e 79 74 68 69 6e 67 20 65 6c 73 65 |so anything else| 00002100 20 6d 75 73 74 20 62 65 20 61 20 6d 65 6e 75 21 | must be a menu!| 00002110 0d 04 a6 7d 20 20 20 20 20 20 f4 20 2a 2a 2a 2a |...} . ****| 00002120 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00002180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 04 b0 |*************...| 00002190 05 3a 0d 04 ba 26 20 20 20 20 20 20 e7 20 56 65 |.:...& . Ve| 000021a0 72 73 69 6f 6e 3e 3d 32 31 38 20 80 20 49 63 6f |rsion>=218 . Ico| 000021b0 6e 25 3c 3e 2d 31 20 8c 0d 04 c4 3f 20 20 20 20 |n%<>-1 ....? | 000021c0 20 20 20 20 20 c8 99 20 22 57 69 6d 70 5f 47 65 | .. "Wimp_Ge| 000021d0 74 4d 65 6e 75 53 74 61 74 65 22 2c 31 2c 42 6c |tMenuState",1,Bl| 000021e0 6f 63 6b 25 2b 31 30 32 34 2c 57 69 6e 64 6f 77 |ock%+1024,Window| 000021f0 25 2c 49 63 6f 6e 25 0d 04 ce 1d 20 20 20 20 20 |%,Icon%.... | 00002200 20 20 20 20 c8 8e 20 4d 65 6e 75 41 63 74 69 76 | .. MenuActiv| 00002210 65 25 20 ca 0d 04 d8 31 20 20 20 20 20 20 20 20 |e% ....1 | 00002220 20 20 20 20 c9 20 49 63 6f 6e 42 61 72 4d 65 6e | . IconBarMen| 00002230 75 25 20 3a 20 c8 8e 20 42 6c 6f 63 6b 25 21 31 |u% : .. Block%!1| 00002240 30 32 34 20 ca 0d 04 e2 6b 20 20 20 20 20 20 20 |024 ....k | 00002250 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002260 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 30 20 | . 0 | 00002270 3a 20 e7 20 42 6c 6f 63 6b 25 21 31 30 32 38 3d |: . Block%!1028=| 00002280 2d 31 20 8c 20 4d 65 73 73 61 67 65 24 3d 22 5c |-1 . Message$="\| 00002290 52 73 65 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e |Rsee information| 000022a0 20 61 62 6f 75 74 20 43 61 73 73 65 74 74 65 22 | about Cassette"| 000022b0 0d 04 ec 49 20 20 20 20 20 20 20 20 20 20 20 20 |...I | 000022c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000022d0 20 20 20 20 20 20 20 c9 20 31 20 3a 20 4d 65 73 | . 1 : Mes| 000022e0 73 61 67 65 24 3d 22 5c 52 74 6f 20 73 65 65 20 |sage$="\Rto see | 000022f0 6f 70 74 69 6f 6e 73 2e 22 0d 04 f6 48 20 20 20 |options."...H | 00002300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00002320 c9 20 32 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 |. 2 : Message$="| 00002330 5c 53 71 75 69 74 20 43 61 73 73 65 74 74 65 2e |\Squit Cassette.| 00002340 22 0d 05 00 25 20 20 20 20 20 20 20 20 20 20 20 |"...% | 00002350 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002360 20 20 20 20 20 cb 0d 05 0a 31 20 20 20 20 20 20 | ....1 | 00002370 20 20 20 20 20 20 c9 20 4d 61 69 6e 57 69 6e 4d | . MainWinM| 00002380 65 6e 75 25 20 3a 20 c8 8e 20 42 6c 6f 63 6b 25 |enu% : .. Block%| 00002390 21 31 30 32 34 20 ca 0d 05 14 6b 20 20 20 20 20 |!1024 ....k | 000023a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000023b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 | . | 000023c0 30 20 3a 20 e7 20 42 6c 6f 63 6b 25 21 31 30 32 |0 : . Block%!102| 000023d0 38 3d 2d 31 20 8c 20 4d 65 73 73 61 67 65 24 3d |8=-1 . Message$=| 000023e0 22 5c 52 73 65 65 20 69 6e 66 6f 72 6d 61 74 69 |"\Rsee informati| 000023f0 6f 6e 20 61 62 6f 75 74 20 43 61 73 73 65 74 74 |on about Cassett| 00002400 65 22 0d 05 1e 54 20 20 20 20 20 20 20 20 20 20 |e"...T | 00002410 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002420 20 20 20 20 20 20 20 20 20 c9 20 31 20 3a 20 4d | . 1 : M| 00002430 65 73 73 61 67 65 24 3d 22 5c 52 74 6f 20 73 61 |essage$="\Rto sa| 00002440 76 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c |ve the current l| 00002450 61 62 65 6c 2e 22 0d 05 28 73 20 20 20 20 20 20 |abel."..(s | 00002460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002470 20 20 20 20 20 20 20 20 20 20 20 20 20 c9 20 32 | . 2| 00002480 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 5c 53 74 | : Message$="\St| 00002490 6f 20 73 74 61 6e 64 61 72 64 69 73 65 20 74 68 |o standardise th| 000024a0 65 20 63 61 73 65 20 6f 66 20 74 68 65 20 63 75 |e case of the cu| 000024b0 72 72 65 6e 74 6c 79 20 64 69 73 70 6c 61 79 65 |rrently displaye| 000024c0 64 20 6c 61 62 65 6c 2e 22 0d 05 32 49 20 20 20 |d label."..2I | 000024d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 000024f0 c9 20 33 20 3a 20 4d 65 73 73 61 67 65 24 3d 22 |. 3 : Message$="| 00002500 5c 52 74 6f 20 73 65 65 20 6f 70 74 69 6f 6e 73 |\Rto see options| 00002510 2e 22 0d 05 3c 6b 20 20 20 20 20 20 20 20 20 20 |."..<k | 00002520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002530 20 20 20 20 20 20 20 20 20 c9 20 34 20 3a 20 4d | . 4 : M| 00002540 65 73 73 61 67 65 24 3d 22 5c 53 74 6f 20 64 65 |essage$="\Sto de| 00002550 6c 65 74 65 20 61 6c 6c 20 6f 66 20 74 68 65 20 |lete all of the | 00002560 74 65 78 74 20 66 72 6f 6d 20 74 68 65 20 63 75 |text from the cu| 00002570 72 72 65 6e 74 20 6c 61 62 65 6c 2e 22 0d 05 46 |rrent label."..F| 00002580 25 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |% | 00002590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000025a0 20 cb 0d 05 50 80 20 20 20 20 20 20 20 20 20 20 | ...P. | 000025b0 20 20 7f 20 4d 65 73 73 61 67 65 24 3d 22 55 4e | . Message$="UN| 000025c0 4b 4e 4f 57 4e 20 4d 45 4e 55 7c 4d 54 68 69 73 |KNOWN MENU|MThis| 000025d0 20 69 73 20 61 20 62 75 67 2c 20 70 6c 65 61 73 | is a bug, pleas| 000025e0 65 20 72 65 70 6f 72 74 20 74 68 69 73 20 74 6f |e report this to| 000025f0 20 74 68 65 20 61 75 74 68 6f 72 20 71 75 6f 74 | the author quot| 00002600 69 6e 67 20 27 55 4e 4b 4e 4f 57 4e 20 4d 45 4e |ing 'UNKNOWN MEN| 00002610 55 20 26 22 2b c3 7e 28 4d 65 6e 75 25 29 2b 22 |U &"+.~(Menu%)+"| 00002620 27 22 0d 05 5a 0e 20 20 20 20 20 20 20 20 20 cb |'"..Z. .| 00002630 0d 05 64 0b 20 20 20 20 20 20 cd 0d 05 6e 08 20 |..d. ...n. | 00002640 20 20 cb 0d 05 78 05 3a 0d 05 82 53 20 20 20 f4 | ...x.:...S .| 00002650 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************| 00002660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00002690 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 05 8c 53 20 |***********...S | 000026a0 20 20 f4 20 4e 6f 77 20 74 68 61 74 20 74 68 65 | . Now that the| 000026b0 20 6d 65 73 73 61 67 65 20 68 61 73 20 62 65 65 | message has bee| 000026c0 6e 20 64 65 63 69 64 65 64 2c 20 73 65 6e 64 20 |n decided, send | 000026d0 69 74 20 74 6f 20 74 68 65 20 63 61 6c 6c 69 6e |it to the callin| 000026e0 67 20 61 70 70 6c 69 63 61 74 69 6f 6e 21 0d 05 |g application!..| 000026f0 96 53 20 20 20 f4 20 2a 2a 2a 2a 2a 2a 2a 2a 2a |.S . *********| 00002700 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************| * 00002740 2a 0d 05 a0 05 3a 0d 05 aa 19 20 20 20 42 6c 6f |*....:.... Blo| 00002750 63 6b 25 21 31 32 3d 42 6c 6f 63 6b 25 21 38 0d |ck%!12=Block%!8.| 00002760 05 b4 15 20 20 20 42 6c 6f 63 6b 25 21 31 36 3d |... Block%!16=| 00002770 26 35 30 33 0d 05 be 24 20 20 20 21 42 6c 6f 63 |&503...$ !Bloc| 00002780 6b 25 3d 28 a9 28 4d 65 73 73 61 67 65 24 29 2b |k%=(.(Message$)+| 00002790 32 35 29 80 20 ac 20 33 0d 05 c8 1f 20 20 20 24 |25). . 3.... $| 000027a0 28 42 6c 6f 63 6b 25 2b 32 30 29 3d 4d 65 73 73 |(Block%+20)=Mess| 000027b0 61 67 65 24 2b bd 30 0d 05 d2 2f 20 20 20 c8 99 |age$+.0.../ ..| 000027c0 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 | "Wimp_SendMessa| 000027d0 67 65 22 2c 31 37 2c 42 6c 6f 63 6b 25 2c 42 6c |ge",17,Block%,Bl| 000027e0 6f 63 6b 25 21 34 0d 05 dc 05 e1 0d ff |ock%!4.......| 000027ed
.