Loadstar 195/195.d81/b.infocom

Commodore BASIC | 2000-01-01 | 2.0 KB | 36 lines

1 goto 3
2 printtab((w-len(a$))/2);a$:return
3 for x=54272 to 54296
4 : poke x,0 :next
5 poke 53280,14 : poke 53281,6
6 w=40 : p=65 : q=peek(65533)=255
7 if q then p=67 : if peek(215) then w=80 : (NULL) 6,7
8 read a : sys peek(p)+peek(p+1)*256+3
9 if q then sys 16128 : goto 12
10 sys 15616
11 if peek(53436)<128 then sys 15872
12 print"[147]";
13 a$="[201]nfocom [208]artition [211]wap installed." : gosub 2: print"[154]"
14 a$="[210]un this program before playing any" : gosub 2
15 a$="[201]nfocom game on a [195][205][196] partitionable" : gosub 2
16 a$="device.  [213]se the swap 8 command and" : gosub 2
17 a$="then load the game normally.  [196]uring" : gosub 2
18 a$="the game, swap partitions by holding" : gosub 2
19 a$="the control key down, and pressing" : gosub 2
20 a$="a number from 1 through 9.  [193] note" : gosub 2
21 a$="will sound and that partition will be" : gosub 2
22 a$="selected.  [198]or instance, if [201] [205][195][207][208][217]" : gosub 2
23 a$="sides 1 & 2 of [218]ork to 1541 partitions" : gosub 2
24 a$="3 & 4, then during the game [201] can move" : gosub 2
25 a$="to side 1 or 2 by pressing control 3" : gosub 2
26 a$="or control 4.  [211]et up another 1541" : gosub 2
27 a$="partition, such as 6, for saving games." : gosub 2
28 a$="[215]hen a game prompts to load as a 1541," : gosub 2
29 a$="choose '[206]o' or '[194]' to skip [201]nfocom's" : gosub 2
30 a$="serial fastloader.  [212]his program works" : gosub 2
31 a$=" on either a [158]64 or 128!" : gosub 2: print"[144]"
32 a$="[202]on [208]iltingsrud" : gosub 2
33 a$="12346 220th [193]venue" : gosub 2
34 a$="[206]ew [210]ichland, [205][206].  56072" : gosub 2: print"[154][145][145]";
35 data