The Wizards Skull: Skull LOAD.B

Is a part of release: The Wizards Skull
File size: 1636
md5: 918e6cb2cf158f7356d3a52c646c6d6d
  10 BORDER 0: PAPER 0: INK 0
  11 CLS 
  12 LOAD ""CODE 62600
  13 LOAD ""CODE 64445
  14 LOAD ""CODE 65000
  18  GO TO 170
  103 IF PEEK 34324=1 THEN  STOP 
  104 IF PEEK 34324=0 THEN  RANDOMIZE USR 64445: STOP 
  105 IF PEEK 34324=1 THEN  STOP 
  106 FOR a=0 TO 10: PAUSE 2: RANDOMIZE USR 64545: NEXT a: STOP 
  107 IF PEEK 34324=1 THEN  STOP 
  108 RANDOMIZE USR 64495: STOP 
  109 IF PEEK 34324=1 THEN  STOP 
  110 RANDOMIZE USR 64645: STOP 
  111 IF PEEK 34324=1 THEN  STOP 
  112 RANDOMIZE USR 64595: STOP 
  113 IF PEEK 34324=1 THEN  STOP 
  114 FOR a=0 TO 3: RANDOMIZE USR 64695: PAUSE 2: NEXT a: STOP 
  115 IF PEEK 34324=1 THEN  STOP 
  116 RANDOMIZE USR 64745: STOP 
  117 IF PEEK 34324=1 THEN  STOP 
  118 FOR a=0 TO 11: RANDOMIZE USR 64795: NEXT a: STOP 
  119 IF PEEK 34324=1 THEN  STOP 
  120 FOR a=0 TO 3: RANDOMIZE USR 64835: RANDOMIZE USR 64855: NEXT a: STOP 
  121 LET start=0
  123 LET x=65000
  125 LET a$="Coming soon from COMPASS SOFTWARE...  'FORBIDDEN PLANET' then... 'DREAMTIME' and then... 'THE BLACK EGG!' Look now and gaze upon the egg keeper...   "
  130  FOR n=1 TO LEN a$: POKE x-n+1,CODE a$(n): NEXT n
  140 POKE x+1,start-(INT (start/256)*256)
  145 POKE x+2,INT (start/256)
  150 POKE x+11,LEN a$-(INT (LEN a$/256)*256)
  152 POKE x+12,INT (LEN a$/256)
  153 REM TEXT COLOUR
  155 POKE x+13,3
  157 PAUSE 10
  160 RANDOMIZE USR (x+22)
  161 RANDOMIZE USR 62600: PAUSE 300: RANDOMIZE USR 0
  171 CLEAR 28799
  172 LET  extvec =34768
  173 BORDER 0: PAPER 0: INK 0
  174 CLS 
  175 LOAD ""SCREEN$ 
  176 POKE 23689,25
  179 LOAD ""CODE 
  180 POKE extvec,195
  182 POKE extvec+12,0
  185 RANDOMIZE USR (extvec+9)
  45940 POKE x CONTINUE  CLEAR  INPUT [Q][P]A[P]HUMAN, THANK YOU FOR SAVING MY DAUGHTERS LIFE. KEEP THE TIME ORB WITH YOU AT ALL TIMES.  WHEN WE MEET AGAIN YOU WILL NEED IT.  FEARWELL MY EARTH MAN FRIEND!   RNDxtve READ ▜ LLIST x