Home » Personal collection » Acorn hard disk » apps » Alps » !Convert/!RunImage
!Convert/!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 » Personal collection » Acorn hard disk » apps » Alps |
| Filename: | !Convert/!RunImage |
| Read OK: | ✔ |
| File size: | 075C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » ALPS.ADF » !Convert/!RunImage
- Personal collection » Acorn hard disk » apps » Alps » !Convert/!RunImage
File contents
10REM >!Convert.!RunImage
20REM Converts directory for older (pre 5.08) ALPS to 5.08 format
30REM LEN 1989 Alpine Software
40REM Author Philip Hawthorne
50REM Version 1.0
60REM 23.10.89
70PROCinit
80MODE 12
90PROCcentre(" Convert ALPS 5.07 files to ALPS 5.08 format. ",0,3,4)
100PROCcentre(" Make sure you have created a new style '!whatever' directory on your old ",2,0,7)
110PROCcentre(" data disk, using the new 'Set Up' option. (See Intro. Guide, page 4) ",3,0,7)
120PROCcentre(" If not press [ESCAPE] and do so now. ",4,0,7)
130PROCcentre(" Now insert your old data disk. ",6,15,7)
140COLOUR 128:COLOUR 3
150INPUT''"Old ALPS file name: "oldname$
160INPUT''"Full path name of new ALPS directory, eg $.!Game: "path$
170INPUT''"Screen Mode (12 or 15): "mode%
180PROCcentre(" Converting files. Please wait .... ",VPOS+2,1,7)
190FOR file=1 TO 17
200OSCLI("COPY $.ALPS."+dir$(file)+"."+oldname$+" "+path$+".ALPS."+dir$(file)+" ~F~C~V")
210OSCLI("SETTYPE "+path$+".ALPS."+dir$(file)+" Data")
220NEXT
230OSCLI("COPY $.Resources.ALPS.charset "+path$+".ALPS.charset ~F~C~V")
240OSCLI("SETTYPE "+path$+".ALPS.charset BBC Font")
250OSCLI("COPY $.Resources.ALPS.!Palette "+path$+".ALPS.!Palette ~F~C~V")
260OSCLI("CREATE "+path$+".Alps.GameData 100")
270OSCLI("SETTYPE "+path$+".Alps.GameData Data")
280out%=OPENUP(path$+".Alps.GameData")
290BPUT#out%,mode%
300CLOSE#out%
310OSCLI("CREATE "+path$+"."+oldname$+" 100")
320OSCLI("SETTYPE "+path$+"."+oldname$+" "+type$)
330PROCcentre(" Finished ",VPOS+2,3,4)
340PROCcentre(" If you have used graphics you must now copy the sprites ",VPOS+2,0,7)
350PROCcentre(" from the old ALPS.PICTURES directory to the new !Game.PICTURES directory. ",VPOS,0,7)
360END
370:
380DEF PROCinit
390type$="CF8":REM 'Alps' file type
400DIM dir$(17)
410FOR I%=1 TO 17
420READ dir$(I%)
430NEXT
440ENDPROC
450
460DATA Nouns,Verbs,Adjectives,Nref,Aref,VerbType,Conjunc,Noise,Specials,Rooms
470DATA Text,Dict,Objects,Flags,Program,Pictures,Prepos,
480:
490DEF PROCcentre(T$,Y%,F%,B%)
500COLOUR F%:COLOUR B%+128:PRINTTAB((80-LEN(T$))/2,Y%);T$
510ENDPROC
520
� >!Convert.!RunImage
A� Converts directory for older (pre 5.08) ALPS to 5.08 format
� � 1989 Alpine Software
( � Author Philip Hawthorne
2� Version 1.0
<� 23.10.89
F �init
P� 12
ZC�centre(" Convert ALPS 5.07 files to ALPS 5.08 format. ",0,3,4)
d_�centre(" Make sure you have created a new style '!whatever' directory on your old ",2,0,7)
n[�centre(" data disk, using the new 'Set Up' option. (See Intro. Guide, page 4) ",3,0,7)
x;�centre(" If not press [ESCAPE] and do so now. ",4,0,7)
�6�centre(" Now insert your old data disk. ",6,15,7)
�
� 128:� 3
�%�''"Old ALPS file name: "oldname$
�@�''"Full path name of new ALPS directory, eg $.!Game: "path$
�&�''"Screen Mode (12 or 15): "mode%
�;�centre(" Converting files. Please wait .... ",�+2,1,7)
�� file=1 � 17
�U�("COPY $.ALPS."+dir$(file)+"."+oldname$+" "+path$+".ALPS."+dir$(file)+" ~F~C~V")
�3�("SETTYPE "+path$+".ALPS."+dir$(file)+" Data")
��
�D�("COPY $.Resources.ALPS.charset "+path$+".ALPS.charset ~F~C~V")
�0�("SETTYPE "+path$+".ALPS.charset BBC Font")
�F�("COPY $.Resources.ALPS.!Palette "+path$+".ALPS.!Palette ~F~C~V")
+�("CREATE "+path$+".Alps.GameData 100")
-�("SETTYPE "+path$+".Alps.GameData Data")
"out%=�(path$+".Alps.GameData")
"�#out%,mode%
,
�#out%
6*�("CREATE "+path$+"."+oldname$+" 100")
@.�("SETTYPE "+path$+"."+oldname$+" "+type$)
J!�centre(" Finished ",�+2,3,4)
TP�centre(" If you have used graphics you must now copy the sprites ",�+2,0,7)
^`�centre(" from the old ALPS.PICTURES directory to the new !Game.PICTURES directory. ",�,0,7)
h�
r:
| � �init
�"type$="CF8":� 'Alps' file type
�� dir$(17)
�� I%=1 � 17
�� dir$(I%)
��
��
�
�L� Nouns,Verbs,Adjectives,Nref,Aref,VerbType,Conjunc,Noise,Specials,Rooms
�6� Text,Dict,Objects,Flags,Program,Pictures,Prepos,
�:
�� �centre(T$,Y%,F%,B%)
�'� F%:� B%+128:�(80-�(T$))/2,Y%);T$
��
� 00000000 0d 00 0a 19 f4 20 3e 21 43 6f 6e 76 65 72 74 2e |..... >!Convert.|
00000010 21 52 75 6e 49 6d 61 67 65 0d 00 14 41 f4 20 43 |!RunImage...A. C|
00000020 6f 6e 76 65 72 74 73 20 64 69 72 65 63 74 6f 72 |onverts director|
00000030 79 20 66 6f 72 20 6f 6c 64 65 72 20 28 70 72 65 |y for older (pre|
00000040 20 35 2e 30 38 29 20 41 4c 50 53 20 74 6f 20 35 | 5.08) ALPS to 5|
00000050 2e 30 38 20 66 6f 72 6d 61 74 0d 00 1e 1c f4 20 |.08 format..... |
00000060 a9 20 31 39 38 39 20 41 6c 70 69 6e 65 20 53 6f |. 1989 Alpine So|
00000070 66 74 77 61 72 65 0d 00 28 1d f4 20 41 75 74 68 |ftware..(.. Auth|
00000080 6f 72 20 50 68 69 6c 69 70 20 48 61 77 74 68 6f |or Philip Hawtho|
00000090 72 6e 65 0d 00 32 11 f4 20 56 65 72 73 69 6f 6e |rne..2.. Version|
000000a0 20 31 2e 30 0d 00 3c 0e f4 20 32 33 2e 31 30 2e | 1.0..<.. 23.10.|
000000b0 38 39 0d 00 46 09 f2 69 6e 69 74 0d 00 50 08 eb |89..F..init..P..|
000000c0 20 31 32 0d 00 5a 43 f2 63 65 6e 74 72 65 28 22 | 12..ZC.centre("|
000000d0 20 43 6f 6e 76 65 72 74 20 41 4c 50 53 20 35 2e | Convert ALPS 5.|
000000e0 30 37 20 66 69 6c 65 73 20 74 6f 20 41 4c 50 53 |07 files to ALPS|
000000f0 20 35 2e 30 38 20 66 6f 72 6d 61 74 2e 20 22 2c | 5.08 format. ",|
00000100 30 2c 33 2c 34 29 0d 00 64 5f f2 63 65 6e 74 72 |0,3,4)..d_.centr|
00000110 65 28 22 20 4d 61 6b 65 20 73 75 72 65 20 79 6f |e(" Make sure yo|
00000120 75 20 68 61 76 65 20 63 72 65 61 74 65 64 20 61 |u have created a|
00000130 20 6e 65 77 20 73 74 79 6c 65 20 27 21 77 68 61 | new style '!wha|
00000140 74 65 76 65 72 27 20 64 69 72 65 63 74 6f 72 79 |tever' directory|
00000150 20 6f 6e 20 79 6f 75 72 20 6f 6c 64 20 22 2c 32 | on your old ",2|
00000160 2c 30 2c 37 29 0d 00 6e 5b f2 63 65 6e 74 72 65 |,0,7)..n[.centre|
00000170 28 22 20 64 61 74 61 20 64 69 73 6b 2c 20 75 73 |(" data disk, us|
00000180 69 6e 67 20 74 68 65 20 6e 65 77 20 27 53 65 74 |ing the new 'Set|
00000190 20 55 70 27 20 6f 70 74 69 6f 6e 2e 20 28 53 65 | Up' option. (Se|
000001a0 65 20 49 6e 74 72 6f 2e 20 47 75 69 64 65 2c 20 |e Intro. Guide, |
000001b0 70 61 67 65 20 34 29 20 22 2c 33 2c 30 2c 37 29 |page 4) ",3,0,7)|
000001c0 0d 00 78 3b f2 63 65 6e 74 72 65 28 22 20 49 66 |..x;.centre(" If|
000001d0 20 6e 6f 74 20 70 72 65 73 73 20 5b 45 53 43 41 | not press [ESCA|
000001e0 50 45 5d 20 61 6e 64 20 64 6f 20 73 6f 20 6e 6f |PE] and do so no|
000001f0 77 2e 20 22 2c 34 2c 30 2c 37 29 0d 00 82 36 f2 |w. ",4,0,7)...6.|
00000200 63 65 6e 74 72 65 28 22 20 4e 6f 77 20 69 6e 73 |centre(" Now ins|
00000210 65 72 74 20 79 6f 75 72 20 6f 6c 64 20 64 61 74 |ert your old dat|
00000220 61 20 64 69 73 6b 2e 20 22 2c 36 2c 31 35 2c 37 |a disk. ",6,15,7|
00000230 29 0d 00 8c 0d fb 20 31 32 38 3a fb 20 33 0d 00 |)..... 128:. 3..|
00000240 96 25 e8 27 27 22 4f 6c 64 20 41 4c 50 53 20 66 |.%.''"Old ALPS f|
00000250 69 6c 65 20 6e 61 6d 65 3a 20 22 6f 6c 64 6e 61 |ile name: "oldna|
00000260 6d 65 24 0d 00 a0 40 e8 27 27 22 46 75 6c 6c 20 |me$...@.''"Full |
00000270 70 61 74 68 20 6e 61 6d 65 20 6f 66 20 6e 65 77 |path name of new|
00000280 20 41 4c 50 53 20 64 69 72 65 63 74 6f 72 79 2c | ALPS directory,|
00000290 20 65 67 20 24 2e 21 47 61 6d 65 3a 20 22 70 61 | eg $.!Game: "pa|
000002a0 74 68 24 0d 00 aa 26 e8 27 27 22 53 63 72 65 65 |th$...&.''"Scree|
000002b0 6e 20 4d 6f 64 65 20 28 31 32 20 6f 72 20 31 35 |n Mode (12 or 15|
000002c0 29 3a 20 22 6d 6f 64 65 25 0d 00 b4 3b f2 63 65 |): "mode%...;.ce|
000002d0 6e 74 72 65 28 22 20 43 6f 6e 76 65 72 74 69 6e |ntre(" Convertin|
000002e0 67 20 66 69 6c 65 73 2e 20 50 6c 65 61 73 65 20 |g files. Please |
000002f0 77 61 69 74 20 2e 2e 2e 2e 20 22 2c bc 2b 32 2c |wait .... ",.+2,|
00000300 31 2c 37 29 0d 00 be 11 e3 20 66 69 6c 65 3d 31 |1,7)..... file=1|
00000310 20 b8 20 31 37 0d 00 c8 55 ff 28 22 43 4f 50 59 | . 17...U.("COPY|
00000320 20 24 2e 41 4c 50 53 2e 22 2b 64 69 72 24 28 66 | $.ALPS."+dir$(f|
00000330 69 6c 65 29 2b 22 2e 22 2b 6f 6c 64 6e 61 6d 65 |ile)+"."+oldname|
00000340 24 2b 22 20 22 2b 70 61 74 68 24 2b 22 2e 41 4c |$+" "+path$+".AL|
00000350 50 53 2e 22 2b 64 69 72 24 28 66 69 6c 65 29 2b |PS."+dir$(file)+|
00000360 22 20 7e 46 7e 43 7e 56 22 29 0d 00 d2 33 ff 28 |" ~F~C~V")...3.(|
00000370 22 53 45 54 54 59 50 45 20 22 2b 70 61 74 68 24 |"SETTYPE "+path$|
00000380 2b 22 2e 41 4c 50 53 2e 22 2b 64 69 72 24 28 66 |+".ALPS."+dir$(f|
00000390 69 6c 65 29 2b 22 20 44 61 74 61 22 29 0d 00 dc |ile)+" Data")...|
000003a0 05 ed 0d 00 e6 44 ff 28 22 43 4f 50 59 20 24 2e |.....D.("COPY $.|
000003b0 52 65 73 6f 75 72 63 65 73 2e 41 4c 50 53 2e 63 |Resources.ALPS.c|
000003c0 68 61 72 73 65 74 20 22 2b 70 61 74 68 24 2b 22 |harset "+path$+"|
000003d0 2e 41 4c 50 53 2e 63 68 61 72 73 65 74 20 7e 46 |.ALPS.charset ~F|
000003e0 7e 43 7e 56 22 29 0d 00 f0 30 ff 28 22 53 45 54 |~C~V")...0.("SET|
000003f0 54 59 50 45 20 22 2b 70 61 74 68 24 2b 22 2e 41 |TYPE "+path$+".A|
00000400 4c 50 53 2e 63 68 61 72 73 65 74 20 42 42 43 20 |LPS.charset BBC |
00000410 46 6f 6e 74 22 29 0d 00 fa 46 ff 28 22 43 4f 50 |Font")...F.("COP|
00000420 59 20 24 2e 52 65 73 6f 75 72 63 65 73 2e 41 4c |Y $.Resources.AL|
00000430 50 53 2e 21 50 61 6c 65 74 74 65 20 22 2b 70 61 |PS.!Palette "+pa|
00000440 74 68 24 2b 22 2e 41 4c 50 53 2e 21 50 61 6c 65 |th$+".ALPS.!Pale|
00000450 74 74 65 20 7e 46 7e 43 7e 56 22 29 0d 01 04 2b |tte ~F~C~V")...+|
00000460 ff 28 22 43 52 45 41 54 45 20 22 2b 70 61 74 68 |.("CREATE "+path|
00000470 24 2b 22 2e 41 6c 70 73 2e 47 61 6d 65 44 61 74 |$+".Alps.GameDat|
00000480 61 20 31 30 30 22 29 0d 01 0e 2d ff 28 22 53 45 |a 100")...-.("SE|
00000490 54 54 59 50 45 20 22 2b 70 61 74 68 24 2b 22 2e |TTYPE "+path$+".|
000004a0 41 6c 70 73 2e 47 61 6d 65 44 61 74 61 20 44 61 |Alps.GameData Da|
000004b0 74 61 22 29 0d 01 18 22 6f 75 74 25 3d ad 28 70 |ta")..."out%=.(p|
000004c0 61 74 68 24 2b 22 2e 41 6c 70 73 2e 47 61 6d 65 |ath$+".Alps.Game|
000004d0 44 61 74 61 22 29 0d 01 22 10 d5 23 6f 75 74 25 |Data").."..#out%|
000004e0 2c 6d 6f 64 65 25 0d 01 2c 0a d9 23 6f 75 74 25 |,mode%..,..#out%|
000004f0 0d 01 36 2a ff 28 22 43 52 45 41 54 45 20 22 2b |..6*.("CREATE "+|
00000500 70 61 74 68 24 2b 22 2e 22 2b 6f 6c 64 6e 61 6d |path$+"."+oldnam|
00000510 65 24 2b 22 20 31 30 30 22 29 0d 01 40 2e ff 28 |e$+" 100")..@..(|
00000520 22 53 45 54 54 59 50 45 20 22 2b 70 61 74 68 24 |"SETTYPE "+path$|
00000530 2b 22 2e 22 2b 6f 6c 64 6e 61 6d 65 24 2b 22 20 |+"."+oldname$+" |
00000540 22 2b 74 79 70 65 24 29 0d 01 4a 21 f2 63 65 6e |"+type$)..J!.cen|
00000550 74 72 65 28 22 20 46 69 6e 69 73 68 65 64 20 22 |tre(" Finished "|
00000560 2c bc 2b 32 2c 33 2c 34 29 0d 01 54 50 f2 63 65 |,.+2,3,4)..TP.ce|
00000570 6e 74 72 65 28 22 20 49 66 20 79 6f 75 20 68 61 |ntre(" If you ha|
00000580 76 65 20 75 73 65 64 20 67 72 61 70 68 69 63 73 |ve used graphics|
00000590 20 79 6f 75 20 6d 75 73 74 20 6e 6f 77 20 63 6f | you must now co|
000005a0 70 79 20 74 68 65 20 73 70 72 69 74 65 73 20 22 |py the sprites "|
000005b0 2c bc 2b 32 2c 30 2c 37 29 0d 01 5e 60 f2 63 65 |,.+2,0,7)..^`.ce|
000005c0 6e 74 72 65 28 22 20 66 72 6f 6d 20 74 68 65 20 |ntre(" from the |
000005d0 6f 6c 64 20 41 4c 50 53 2e 50 49 43 54 55 52 45 |old ALPS.PICTURE|
000005e0 53 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 74 |S directory to t|
000005f0 68 65 20 6e 65 77 20 21 47 61 6d 65 2e 50 49 43 |he new !Game.PIC|
00000600 54 55 52 45 53 20 64 69 72 65 63 74 6f 72 79 2e |TURES directory.|
00000610 20 22 2c bc 2c 30 2c 37 29 0d 01 68 05 e0 0d 01 | ",.,0,7)..h....|
00000620 72 05 3a 0d 01 7c 0b dd 20 f2 69 6e 69 74 0d 01 |r.:..|.. .init..|
00000630 86 22 74 79 70 65 24 3d 22 43 46 38 22 3a f4 20 |."type$="CF8":. |
00000640 27 41 6c 70 73 27 20 66 69 6c 65 20 74 79 70 65 |'Alps' file type|
00000650 0d 01 90 0e de 20 64 69 72 24 28 31 37 29 0d 01 |..... dir$(17)..|
00000660 9a 0f e3 20 49 25 3d 31 20 b8 20 31 37 0d 01 a4 |... I%=1 . 17...|
00000670 0e f3 20 64 69 72 24 28 49 25 29 0d 01 ae 05 ed |.. dir$(I%).....|
00000680 0d 01 b8 05 e1 0d 01 c2 04 0d 01 cc 4c dc 20 4e |............L. N|
00000690 6f 75 6e 73 2c 56 65 72 62 73 2c 41 64 6a 65 63 |ouns,Verbs,Adjec|
000006a0 74 69 76 65 73 2c 4e 72 65 66 2c 41 72 65 66 2c |tives,Nref,Aref,|
000006b0 56 65 72 62 54 79 70 65 2c 43 6f 6e 6a 75 6e 63 |VerbType,Conjunc|
000006c0 2c 4e 6f 69 73 65 2c 53 70 65 63 69 61 6c 73 2c |,Noise,Specials,|
000006d0 52 6f 6f 6d 73 0d 01 d6 36 dc 20 54 65 78 74 2c |Rooms...6. Text,|
000006e0 44 69 63 74 2c 4f 62 6a 65 63 74 73 2c 46 6c 61 |Dict,Objects,Fla|
000006f0 67 73 2c 50 72 6f 67 72 61 6d 2c 50 69 63 74 75 |gs,Program,Pictu|
00000700 72 65 73 2c 50 72 65 70 6f 73 2c 0d 01 e0 05 3a |res,Prepos,....:|
00000710 0d 01 ea 1a dd 20 f2 63 65 6e 74 72 65 28 54 24 |..... .centre(T$|
00000720 2c 59 25 2c 46 25 2c 42 25 29 0d 01 f4 27 fb 20 |,Y%,F%,B%)...'. |
00000730 46 25 3a fb 20 42 25 2b 31 32 38 3a f1 8a 28 38 |F%:. B%+128:..(8|
00000740 30 2d a9 28 54 24 29 29 2f 32 2c 59 25 29 3b 54 |0-.(T$))/2,Y%);T|
00000750 24 0d 01 fe 05 e1 0d 02 08 04 0d ff |$...........|
0000075c 
.