Является частью релиза: | 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