Sorcery: SORCERY.B

Является частью релиза: Sorcery
Размер файла: 1433
md5: 33a121edbc90db5ddbd44e25275c8cb3
  1 CLEAR 31574: BORDER 0: PAPER 0: INK 0: BRIGHT 1: CLS 
  3 LOAD ""SCREEN$ : BRIGHT 0
  4 PRINT #0; INK 6; BRIGHT 1;"    © 1984 BY VIRGIN GAMES"
  10 FOR c=0 TO 767: POKE 31831+c,PEEK (15616+c): NEXT c: LET a=31831-256: LET b=INT (a/256): LET c=a-b*256: POKE 23606,c: POKE 23607,b
  11 PRINT AT 7,0;: LOAD ""CODE 
  12 PRINT AT 7,0;: LOAD ""CODE 
  13 PRINT AT 7,0;: LOAD ""CODE 
  40 INK 9: BRIGHT 0
  48 PRINT AT 9,12;"      ";AT 10,12;"      ": FOR f=11 TO 17: PRINT AT f,3;"                        ": NEXT f: PRINT AT 18,3;"                      ";AT 19,5;"                    ";AT 20,6;"                  "
  49 PLOT   INK 4;40,20: DRAW  INK 4;70,20: DRAW  INK 4;-84,3: PLOT   INK 4;200,20: DRAW  INK 4;-70,20: DRAW  INK 4;84,5: PRINT AT 16,14;"[A][B]";AT 17,14;"[C][D]";AT 18,14;"[E][F]";AT 21,7;"                  "
  50 LET a$="                                AT LAST, IT IS TIME TO BEGIN YOUR QUEST. GOOD LUCK WITH RESCUING YOUR FELLOW SORCERERS. Q...LEFT.  A...RIGHT.  0...FLY.                                        "
  60 FOR f=0 TO 155: PRINT AT 12,3; INK (2+RND*6);a$( TO 25): PAUSE 6: LET a$=a$(2 TO )
  70 NEXT f
  80 PRINT AT 16,14;"  ";AT 17,14;"  ";AT 18,14;"  ": LET p=20: FOR f=30 TO 0 STEP -3: BEEP 1/p,f: LET p=p+30: NEXT f
  90 PAUSE 20: POKE 23658,8: RANDOMIZE USR 40000