Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape18b_acorn_eu_1991_january.wav » WizLoad

WizLoad

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 tapes » Electron_User » Electron_User_tape18b_acorn_eu_1991_january.wav
Filename: WizLoad
Read OK:
File size: 07D4 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

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

File contents
   10REM WizBlob - Listing I - WizLoad
   20REM By Rob Walmsley
   30REM (c) The Micro User
   40MODE7:VDU23,1,0;0;0;0;0;
   50PROCStuff
   60PROCTitle(FNs(11)+"Wizblob")
   70PRINTTAB(22,0)CHR$133CHR$140"by Rob Walmsley";
   80PRINTTAB(0,2);
   90PROCwrap(129,"Wizblob is a round green creature and he has caught hiccups which make him bounce perpetually.")
  100PROCwrap(130,"Unfortunately Wizblob's hiccups have annoyed his friends and they have banished him to the caves.")
  110PROCwrap(134,"Luckily Wizblob can bounce high enough to escape through holes in the cave roof and you must guide him out.")
  120PROCwrap(131,"You can rotate Wizblob as he bounces but he will only change direction when he bounces up off the floor.")
  130PRINT'SPC4"Use the keys:-":PRINT
  140PRINTSPC10"A - Rotate left"
  150PRINTSPC10"S - Rotate right":*FX21
  160REPEAT UNTIL GET=32
  170CHAIN"WizBlob"
  180:
  190DEFPROCTitle(T$):VDU30
  200FORI%=0TO1:VDU131,157,132,141
  210PRINTT$:NEXT:ENDPROC
  220:
  230DEFPROCwrap(C%,T$):PRINT'CHR$C%;
  240LOCAL w$:REPEAT w$=FNw
  250IFCOUNT+LENw$>37PRINT'CHR$C%;ELSEIFCOUNT>1PRINT" ";
  260PRINTw$;:UNTILT$="":PRINT:ENDPROC
  270:
  280DEFFNw:LOCALw$,P%
  290P%=INSTR(T$+" "," ")
  300w$=LEFT$(T$,P%-1):T$=MID$(T$,P%+1)
  310=w$
  320:
  330DEFPROCStuff
  340ENVELOPE1,4,-4,-1,-1,20,20,20,1,0,0,0,1,1
  350ENVELOPE2,1,2,2,2,5,5,5,126,-20,-20,-20,126,0
  360ENVELOPE3,1,0,0,0,0,0,0,126,0,-2,-2,126,0
  370VDU&E017;&0800;&3E3E;&6B7F;&7F7F;
  380VDU&E117;&7F7F;&4177;&3663;&083E;
  390VDU&E217;&0800;&3E3E;&777F;&7D7F;
  400VDU&E317;&5F7F;&6347;&3E63;&083E;
  410VDU&E417;&0800;&3E3E;&7B7F;&5F7F;
  420VDU&E517;&4D4F;&474F;&3E77;&083E;
  430VDU&E617;&0800;&3E3E;&6F7F;&4F6D;
  440VDU&E717;&4F4F;&6D6F;&3E6F;&083E;
  450VDU&E817;&0800;&3E3E;&777F;&4F47;
  460VDU&E917;&5F4D;&7F5F;&3E7B;&083E;
  470VDU&EA17;&0800;&3E3E;&637F;&4767;
  480VDU&EB17;&7F5F;&7F7D;&3E77;&083E;
  490VDU&EC17;&0800;&3E3E;&6377;&7F41;
  500VDU&ED17;&7F7F;&7F7F;&3E6B;&083E;
  510VDU&EE17;&0800;&3E3E;&637F;&7173;
  520VDU&EF17;&7F7D;&7F5F;&3E77;&083E;
  530VDU&F017;&0800;&3E3E;&777F;&7979;
  540VDU&F117;&7D59;&7F7D;&3E6F;&083E;
  550VDU&F217;&0800;&3E3E;&7B7F;&795B;
  560VDU&F317;&7979;&5B7B;&3E7B;&083E;
  570VDU&F417;&0800;&3E3E;&6F7F;&7D7F;
  580VDU&F517;&5979;&7379;&3E77;&083E;
  590VDU&F617;&0800;&3E3E;&777F;&5F7F;
  600VDU&F717;&7D7F;&7379;&3E63;&083E;
  610ENDPROC
  620:
  630DEFFNs(N%)=STRING$(N%," ")

#� WizBlob - Listing I - WizLoad
� By Rob Walmsley
� (c) The Micro User
(�7:�23,1,0;0;0;0;0;
2
�Stuff
<�Title(�s(11)+"Wizblob")
F%�22,0)�133�140"by Rob Walmsley";
P�0,2);
Zo�wrap(129,"Wizblob is a round green creature and he has caught hiccups which make him bounce perpetually.")
dr�wrap(130,"Unfortunately Wizblob's hiccups have annoyed his friends and they have banished him to the caves.")
n|�wrap(134,"Luckily Wizblob can bounce high enough to escape through holes in the cave roof and you must guide him out.")
xy�wrap(131,"You can rotate Wizblob as he bounces but he will only change direction when he bounces up off the floor.")
��'�4"Use the keys:-":�
��10"A - Rotate left"
� �10"S - Rotate right":*FX21
�� � �=32
��"WizBlob"
�:
���Title(T$):�30
��I%=0�1:�131,157,132,141
��T$:�:�
�:
���wrap(C%,T$):�'�C%;
�� w$:� w$=�w
��+�w$>37�'�C%;��>1�" ";
�w$;:�T$="":�:�
:
ݤw:�w$,P%
"P%=�T$+" "," ")
,w$=�T$,P%-1):T$=�T$,P%+1)
6=w$
@:
J��Stuff
T&�1,4,-4,-1,-1,20,20,20,1,0,0,0,1,1
^*�2,1,2,2,2,5,5,5,126,-20,-20,-20,126,0
h&�3,1,0,0,0,0,0,0,126,0,-2,-2,126,0
r#�&E017;&0800;&3E3E;&6B7F;&7F7F;
|#�&E117;&7F7F;&4177;&3663;&083E;
�#�&E217;&0800;&3E3E;&777F;&7D7F;
�#�&E317;&5F7F;&6347;&3E63;&083E;
�#�&E417;&0800;&3E3E;&7B7F;&5F7F;
�#�&E517;&4D4F;&474F;&3E77;&083E;
�#�&E617;&0800;&3E3E;&6F7F;&4F6D;
�#�&E717;&4F4F;&6D6F;&3E6F;&083E;
�#�&E817;&0800;&3E3E;&777F;&4F47;
�#�&E917;&5F4D;&7F5F;&3E7B;&083E;
�#�&EA17;&0800;&3E3E;&637F;&4767;
�#�&EB17;&7F5F;&7F7D;&3E77;&083E;
�#�&EC17;&0800;&3E3E;&6377;&7F41;
�#�&ED17;&7F7F;&7F7F;&3E6B;&083E;
�#�&EE17;&0800;&3E3E;&637F;&7173;
#�&EF17;&7F7D;&7F5F;&3E77;&083E;
#�&F017;&0800;&3E3E;&777F;&7979;
#�&F117;&7D59;&7F7D;&3E6F;&083E;
&#�&F217;&0800;&3E3E;&7B7F;&795B;
0#�&F317;&7979;&5B7B;&3E7B;&083E;
:#�&F417;&0800;&3E3E;&6F7F;&7D7F;
D#�&F517;&5979;&7379;&3E77;&083E;
N#�&F617;&0800;&3E3E;&777F;&5F7F;
X#�&F717;&7D7F;&7379;&3E63;&083E;
b�
l:
vݤs(N%)=�N%," ")
�
00000000  0d 00 0a 23 f4 20 57 69  7a 42 6c 6f 62 20 2d 20  |...#. WizBlob - |
00000010  4c 69 73 74 69 6e 67 20  49 20 2d 20 57 69 7a 4c  |Listing I - WizL|
00000020  6f 61 64 0d 00 14 15 f4  20 42 79 20 52 6f 62 20  |oad..... By Rob |
00000030  57 61 6c 6d 73 6c 65 79  0d 00 1e 18 f4 20 28 63  |Walmsley..... (c|
00000040  29 20 54 68 65 20 4d 69  63 72 6f 20 55 73 65 72  |) The Micro User|
00000050  0d 00 28 17 eb 37 3a ef  32 33 2c 31 2c 30 3b 30  |..(..7:.23,1,0;0|
00000060  3b 30 3b 30 3b 30 3b 0d  00 32 0a f2 53 74 75 66  |;0;0;0;..2..Stuf|
00000070  66 0d 00 3c 1c f2 54 69  74 6c 65 28 a4 73 28 31  |f..<..Title(.s(1|
00000080  31 29 2b 22 57 69 7a 62  6c 6f 62 22 29 0d 00 46  |1)+"Wizblob")..F|
00000090  25 f1 8a 32 32 2c 30 29  bd 31 33 33 bd 31 34 30  |%..22,0).133.140|
000000a0  22 62 79 20 52 6f 62 20  57 61 6c 6d 73 6c 65 79  |"by Rob Walmsley|
000000b0  22 3b 0d 00 50 0b f1 8a  30 2c 32 29 3b 0d 00 5a  |";..P...0,2);..Z|
000000c0  6f f2 77 72 61 70 28 31  32 39 2c 22 57 69 7a 62  |o.wrap(129,"Wizb|
000000d0  6c 6f 62 20 69 73 20 61  20 72 6f 75 6e 64 20 67  |lob is a round g|
000000e0  72 65 65 6e 20 63 72 65  61 74 75 72 65 20 61 6e  |reen creature an|
000000f0  64 20 68 65 20 68 61 73  20 63 61 75 67 68 74 20  |d he has caught |
00000100  68 69 63 63 75 70 73 20  77 68 69 63 68 20 6d 61  |hiccups which ma|
00000110  6b 65 20 68 69 6d 20 62  6f 75 6e 63 65 20 70 65  |ke him bounce pe|
00000120  72 70 65 74 75 61 6c 6c  79 2e 22 29 0d 00 64 72  |rpetually.")..dr|
00000130  f2 77 72 61 70 28 31 33  30 2c 22 55 6e 66 6f 72  |.wrap(130,"Unfor|
00000140  74 75 6e 61 74 65 6c 79  20 57 69 7a 62 6c 6f 62  |tunately Wizblob|
00000150  27 73 20 68 69 63 63 75  70 73 20 68 61 76 65 20  |'s hiccups have |
00000160  61 6e 6e 6f 79 65 64 20  68 69 73 20 66 72 69 65  |annoyed his frie|
00000170  6e 64 73 20 61 6e 64 20  74 68 65 79 20 68 61 76  |nds and they hav|
00000180  65 20 62 61 6e 69 73 68  65 64 20 68 69 6d 20 74  |e banished him t|
00000190  6f 20 74 68 65 20 63 61  76 65 73 2e 22 29 0d 00  |o the caves.")..|
000001a0  6e 7c f2 77 72 61 70 28  31 33 34 2c 22 4c 75 63  |n|.wrap(134,"Luc|
000001b0  6b 69 6c 79 20 57 69 7a  62 6c 6f 62 20 63 61 6e  |kily Wizblob can|
000001c0  20 62 6f 75 6e 63 65 20  68 69 67 68 20 65 6e 6f  | bounce high eno|
000001d0  75 67 68 20 74 6f 20 65  73 63 61 70 65 20 74 68  |ugh to escape th|
000001e0  72 6f 75 67 68 20 68 6f  6c 65 73 20 69 6e 20 74  |rough holes in t|
000001f0  68 65 20 63 61 76 65 20  72 6f 6f 66 20 61 6e 64  |he cave roof and|
00000200  20 79 6f 75 20 6d 75 73  74 20 67 75 69 64 65 20  | you must guide |
00000210  68 69 6d 20 6f 75 74 2e  22 29 0d 00 78 79 f2 77  |him out.")..xy.w|
00000220  72 61 70 28 31 33 31 2c  22 59 6f 75 20 63 61 6e  |rap(131,"You can|
00000230  20 72 6f 74 61 74 65 20  57 69 7a 62 6c 6f 62 20  | rotate Wizblob |
00000240  61 73 20 68 65 20 62 6f  75 6e 63 65 73 20 62 75  |as he bounces bu|
00000250  74 20 68 65 20 77 69 6c  6c 20 6f 6e 6c 79 20 63  |t he will only c|
00000260  68 61 6e 67 65 20 64 69  72 65 63 74 69 6f 6e 20  |hange direction |
00000270  77 68 65 6e 20 68 65 20  62 6f 75 6e 63 65 73 20  |when he bounces |
00000280  75 70 20 6f 66 66 20 74  68 65 20 66 6c 6f 6f 72  |up off the floor|
00000290  2e 22 29 0d 00 82 1a f1  27 89 34 22 55 73 65 20  |.").....'.4"Use |
000002a0  74 68 65 20 6b 65 79 73  3a 2d 22 3a f1 0d 00 8c  |the keys:-":....|
000002b0  19 f1 89 31 30 22 41 20  2d 20 52 6f 74 61 74 65  |...10"A - Rotate|
000002c0  20 6c 65 66 74 22 0d 00  96 20 f1 89 31 30 22 53  | left"... ..10"S|
000002d0  20 2d 20 52 6f 74 61 74  65 20 72 69 67 68 74 22  | - Rotate right"|
000002e0  3a 2a 46 58 32 31 0d 00  a0 0c f5 20 fd 20 a5 3d  |:*FX21..... . .=|
000002f0  33 32 0d 00 aa 0e d7 22  57 69 7a 42 6c 6f 62 22  |32....."WizBlob"|
00000300  0d 00 b4 05 3a 0d 00 be  13 dd f2 54 69 74 6c 65  |....:......Title|
00000310  28 54 24 29 3a ef 33 30  0d 00 c8 1c e3 49 25 3d  |(T$):.30.....I%=|
00000320  30 b8 31 3a ef 31 33 31  2c 31 35 37 2c 31 33 32  |0.1:.131,157,132|
00000330  2c 31 34 31 0d 00 d2 0b  f1 54 24 3a ed 3a e1 0d  |,141.....T$:.:..|
00000340  00 dc 05 3a 0d 00 e6 18  dd f2 77 72 61 70 28 43  |...:......wrap(C|
00000350  25 2c 54 24 29 3a f1 27  bd 43 25 3b 0d 00 f0 10  |%,T$):.'.C%;....|
00000360  ea 20 77 24 3a f5 20 77  24 3d a4 77 0d 00 fa 1d  |. w$:. w$=.w....|
00000370  e7 9c 2b a9 77 24 3e 33  37 f1 27 bd 43 25 3b 8b  |..+.w$>37.'.C%;.|
00000380  e7 9c 3e 31 f1 22 20 22  3b 0d 01 04 13 f1 77 24  |..>1." ";.....w$|
00000390  3b 3a fd 54 24 3d 22 22  3a f1 3a e1 0d 01 0e 05  |;:.T$="":.:.....|
000003a0  3a 0d 01 18 0e dd a4 77  3a ea 77 24 2c 50 25 0d  |:......w:.w$,P%.|
000003b0  01 22 13 50 25 3d a7 54  24 2b 22 20 22 2c 22 20  |.".P%=.T$+" "," |
000003c0  22 29 0d 01 2c 1d 77 24  3d c0 54 24 2c 50 25 2d  |")..,.w$=.T$,P%-|
000003d0  31 29 3a 54 24 3d c1 54  24 2c 50 25 2b 31 29 0d  |1):T$=.T$,P%+1).|
000003e0  01 36 07 3d 77 24 0d 01  40 05 3a 0d 01 4a 0b dd  |.6.=w$..@.:..J..|
000003f0  f2 53 74 75 66 66 0d 01  54 26 e2 31 2c 34 2c 2d  |.Stuff..T&.1,4,-|
00000400  34 2c 2d 31 2c 2d 31 2c  32 30 2c 32 30 2c 32 30  |4,-1,-1,20,20,20|
00000410  2c 31 2c 30 2c 30 2c 30  2c 31 2c 31 0d 01 5e 2a  |,1,0,0,0,1,1..^*|
00000420  e2 32 2c 31 2c 32 2c 32  2c 32 2c 35 2c 35 2c 35  |.2,1,2,2,2,5,5,5|
00000430  2c 31 32 36 2c 2d 32 30  2c 2d 32 30 2c 2d 32 30  |,126,-20,-20,-20|
00000440  2c 31 32 36 2c 30 0d 01  68 26 e2 33 2c 31 2c 30  |,126,0..h&.3,1,0|
00000450  2c 30 2c 30 2c 30 2c 30  2c 30 2c 31 32 36 2c 30  |,0,0,0,0,0,126,0|
00000460  2c 2d 32 2c 2d 32 2c 31  32 36 2c 30 0d 01 72 23  |,-2,-2,126,0..r#|
00000470  ef 26 45 30 31 37 3b 26  30 38 30 30 3b 26 33 45  |.&E017;&0800;&3E|
00000480  33 45 3b 26 36 42 37 46  3b 26 37 46 37 46 3b 0d  |3E;&6B7F;&7F7F;.|
00000490  01 7c 23 ef 26 45 31 31  37 3b 26 37 46 37 46 3b  |.|#.&E117;&7F7F;|
000004a0  26 34 31 37 37 3b 26 33  36 36 33 3b 26 30 38 33  |&4177;&3663;&083|
000004b0  45 3b 0d 01 86 23 ef 26  45 32 31 37 3b 26 30 38  |E;...#.&E217;&08|
000004c0  30 30 3b 26 33 45 33 45  3b 26 37 37 37 46 3b 26  |00;&3E3E;&777F;&|
000004d0  37 44 37 46 3b 0d 01 90  23 ef 26 45 33 31 37 3b  |7D7F;...#.&E317;|
000004e0  26 35 46 37 46 3b 26 36  33 34 37 3b 26 33 45 36  |&5F7F;&6347;&3E6|
000004f0  33 3b 26 30 38 33 45 3b  0d 01 9a 23 ef 26 45 34  |3;&083E;...#.&E4|
00000500  31 37 3b 26 30 38 30 30  3b 26 33 45 33 45 3b 26  |17;&0800;&3E3E;&|
00000510  37 42 37 46 3b 26 35 46  37 46 3b 0d 01 a4 23 ef  |7B7F;&5F7F;...#.|
00000520  26 45 35 31 37 3b 26 34  44 34 46 3b 26 34 37 34  |&E517;&4D4F;&474|
00000530  46 3b 26 33 45 37 37 3b  26 30 38 33 45 3b 0d 01  |F;&3E77;&083E;..|
00000540  ae 23 ef 26 45 36 31 37  3b 26 30 38 30 30 3b 26  |.#.&E617;&0800;&|
00000550  33 45 33 45 3b 26 36 46  37 46 3b 26 34 46 36 44  |3E3E;&6F7F;&4F6D|
00000560  3b 0d 01 b8 23 ef 26 45  37 31 37 3b 26 34 46 34  |;...#.&E717;&4F4|
00000570  46 3b 26 36 44 36 46 3b  26 33 45 36 46 3b 26 30  |F;&6D6F;&3E6F;&0|
00000580  38 33 45 3b 0d 01 c2 23  ef 26 45 38 31 37 3b 26  |83E;...#.&E817;&|
00000590  30 38 30 30 3b 26 33 45  33 45 3b 26 37 37 37 46  |0800;&3E3E;&777F|
000005a0  3b 26 34 46 34 37 3b 0d  01 cc 23 ef 26 45 39 31  |;&4F47;...#.&E91|
000005b0  37 3b 26 35 46 34 44 3b  26 37 46 35 46 3b 26 33  |7;&5F4D;&7F5F;&3|
000005c0  45 37 42 3b 26 30 38 33  45 3b 0d 01 d6 23 ef 26  |E7B;&083E;...#.&|
000005d0  45 41 31 37 3b 26 30 38  30 30 3b 26 33 45 33 45  |EA17;&0800;&3E3E|
000005e0  3b 26 36 33 37 46 3b 26  34 37 36 37 3b 0d 01 e0  |;&637F;&4767;...|
000005f0  23 ef 26 45 42 31 37 3b  26 37 46 35 46 3b 26 37  |#.&EB17;&7F5F;&7|
00000600  46 37 44 3b 26 33 45 37  37 3b 26 30 38 33 45 3b  |F7D;&3E77;&083E;|
00000610  0d 01 ea 23 ef 26 45 43  31 37 3b 26 30 38 30 30  |...#.&EC17;&0800|
00000620  3b 26 33 45 33 45 3b 26  36 33 37 37 3b 26 37 46  |;&3E3E;&6377;&7F|
00000630  34 31 3b 0d 01 f4 23 ef  26 45 44 31 37 3b 26 37  |41;...#.&ED17;&7|
00000640  46 37 46 3b 26 37 46 37  46 3b 26 33 45 36 42 3b  |F7F;&7F7F;&3E6B;|
00000650  26 30 38 33 45 3b 0d 01  fe 23 ef 26 45 45 31 37  |&083E;...#.&EE17|
00000660  3b 26 30 38 30 30 3b 26  33 45 33 45 3b 26 36 33  |;&0800;&3E3E;&63|
00000670  37 46 3b 26 37 31 37 33  3b 0d 02 08 23 ef 26 45  |7F;&7173;...#.&E|
00000680  46 31 37 3b 26 37 46 37  44 3b 26 37 46 35 46 3b  |F17;&7F7D;&7F5F;|
00000690  26 33 45 37 37 3b 26 30  38 33 45 3b 0d 02 12 23  |&3E77;&083E;...#|
000006a0  ef 26 46 30 31 37 3b 26  30 38 30 30 3b 26 33 45  |.&F017;&0800;&3E|
000006b0  33 45 3b 26 37 37 37 46  3b 26 37 39 37 39 3b 0d  |3E;&777F;&7979;.|
000006c0  02 1c 23 ef 26 46 31 31  37 3b 26 37 44 35 39 3b  |..#.&F117;&7D59;|
000006d0  26 37 46 37 44 3b 26 33  45 36 46 3b 26 30 38 33  |&7F7D;&3E6F;&083|
000006e0  45 3b 0d 02 26 23 ef 26  46 32 31 37 3b 26 30 38  |E;..&#.&F217;&08|
000006f0  30 30 3b 26 33 45 33 45  3b 26 37 42 37 46 3b 26  |00;&3E3E;&7B7F;&|
00000700  37 39 35 42 3b 0d 02 30  23 ef 26 46 33 31 37 3b  |795B;..0#.&F317;|
00000710  26 37 39 37 39 3b 26 35  42 37 42 3b 26 33 45 37  |&7979;&5B7B;&3E7|
00000720  42 3b 26 30 38 33 45 3b  0d 02 3a 23 ef 26 46 34  |B;&083E;..:#.&F4|
00000730  31 37 3b 26 30 38 30 30  3b 26 33 45 33 45 3b 26  |17;&0800;&3E3E;&|
00000740  36 46 37 46 3b 26 37 44  37 46 3b 0d 02 44 23 ef  |6F7F;&7D7F;..D#.|
00000750  26 46 35 31 37 3b 26 35  39 37 39 3b 26 37 33 37  |&F517;&5979;&737|
00000760  39 3b 26 33 45 37 37 3b  26 30 38 33 45 3b 0d 02  |9;&3E77;&083E;..|
00000770  4e 23 ef 26 46 36 31 37  3b 26 30 38 30 30 3b 26  |N#.&F617;&0800;&|
00000780  33 45 33 45 3b 26 37 37  37 46 3b 26 35 46 37 46  |3E3E;&777F;&5F7F|
00000790  3b 0d 02 58 23 ef 26 46  37 31 37 3b 26 37 44 37  |;..X#.&F717;&7D7|
000007a0  46 3b 26 37 33 37 39 3b  26 33 45 36 33 3b 26 30  |F;&7379;&3E63;&0|
000007b0  38 33 45 3b 0d 02 62 05  e1 0d 02 6c 05 3a 0d 02  |83E;..b....l.:..|
000007c0  76 14 dd a4 73 28 4e 25  29 3d c4 4e 25 2c 22 20  |v...s(N%)=.N%," |
000007d0  22 29 0d ff                                       |")..|
000007d4
WizLoad.m0
WizLoad.m1
WizLoad.m2
WizLoad.m4
WizLoad.m5