home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 143
/
143side4.d64
/
u.fargo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-30
|
1KB
|
39 lines
10 poke53280,0:poke53281,0:printchr$(14)
20 print"[147][158] [198] [193] [210] [199] [207]"
30 print"[212]his program will modify your copy"
40 print"of '[198]argo' to give you [213][206][204][201][205][201][212][197][196]"
50 print"[204][201][214][197][211]. [211]elect ([195])onvert for"
60 print"[213]nlimited [204]ives, [211]elect ([210])estore"
70 print"to return the game to normal."
80 print"[201]t's best to use a [195][207][208][217] rather than"
90 print"using your original [204][207][193][196][211][212][193][210] disk!"
100 print"[205]ake sure that the [215]rite-[208]rotect tab"
110 print"is not covered on the disk."
130 print"[212]o make these changes, [201]nsert [204]oadstar"
140 print"[201]ssue #86 [211]ide 2 into [196]rive #8 and"
150 print"[211]elect ([195])onvert or ([210])estore."
152 print"[193]fter selecting, [196]o [206][207][212] touch the"
154 print"keyboard or open the disk drive door"
156 print"until the white [195]ursor appears!!!!!!"
157 print" [211]elect ([195]) or ([210]) [206]ow"
160 geta$:ifa$=""then160
165 ifa$="c"then180
170 ifa$="r"then400
175 goto160
180 q$=chr$(34):f$="fargo"
190 print"[147][144]load"q$f$q$",8"
200 print"840 pokesb+24,15:nl=nl-0:ifnl<0then8000"
250 print"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
260 print"poke646,1
270 [153]""
280 [129]i[178]631[164]640:[151]i,13:[130]:[151]198,10
290 [162]:[128]
400 q$[178][199](34):f$[178]"fargo"
410 [153]"loadstopload"q$f$q$",8"
420 [153]"840 pokesb+24,15:nl=nl-1:ifnl<0then8000"
430 [153]"open15,8,15,"q$"s0:"f$q$":close15:save"q$f$q$",8"
440 [153]"poke646,1
450 print""
460 fori=631to640:pokei,13:next:poke198,10
470 new:end