1 A$="PR:VSA70C72.5"
2 ; "Printer"; : INPUT B$
3 B$=CHR$(ASCII(B$) AND 95) : IF B$="N" GOTO 8
4 IF B$<>"J" THEN 2
5 ; "Printerdef (RET=" A$ ")"; : INPUT B$
6 IF B$<>"" THEN A$=B$
7 OPEN A$ AS FILE 9 : F=9
8 ; CHR$(12);
9 ; #F;"Information om ABC80-spelen i detta"
10 ; #F;"spelpaket:"
11 ; #F;" "
12 ; #F;"De spel som finns p} denna skiva {r:"
13 ; #F;" "
14 ; #F;" Tarzan Hoppa i lianer...."
15 ; #F;" Frogger Springa |ver gator...."
16 ; #F;" Moon Ranger K|ra bil p} m}nen...."
17 ; #F;" Polaris Ett U-b}ts spel...."
18 ; #F;" Bumper Hm?! Hoppande gubbar...."
19 ; #F;" SubGame Ingenting f|r spelsugna!"
20 ; #F;" "
21 ; #F;"//////////////////////////////////////"
22 GOSUB 132
23 ; #F;"Tarzan:"
24 ; #F;"======="
25 ; #F;" "
26 ; #F;"Info't om detta spel ligger i f|rsta"
27 ; #F;"filen, d{r {ven alla instruktioner"
28 ; #F;"finns med."
29 ; #F;" "
30 ; #F;"//////////////////////////////////////"
31 GOSUB 132
32 ; #F;"Frogger:"
33 ; #F;"========"
34 ; #F;" "
35 ; #F;"Den gamla vanliga spelet som g}r ut p}"
36 ; #F;"att du ska leda din groda |ver v{gen"
37 ; #F;"utan att bli p}k|rd."
38 ; #F;"Tangenter {r(?):"
39 ; #F;"A-v{nster,S-h|ger,^-upp och [-ner."
40 ; #F;" "
41 ; #F;"//////////////////////////////////////"
42 GOSUB 132
43 ; #F;"Moon Ranger:"
44 ; #F;"============"
45 ; #F;" "
46 ; #F;"I det h{r spelet g{ller det att komma"
47 ; #F;"s} l}ngt som m|jligt utan att bli"
48 ; #F;"tr{ffad av bomber och rullande stenar!"
49 ; #F;" "
50 ; #F;"Du ska {ven skjuta ner s} m}nga UFO's"
51 ; #F;"som m|jligt."
52 ; #F;"F|r att ta uel'en som m}ste du hoppa"
53 ; #F;"upp och skjuta ner den. Stenar kan du"
54 ; #F;"hoppa |ver eller skjuta s|nder."
55 ; #F;" "
56 ; #F;"Tangenter {r:"
57 ; #F;"A-v{nster,S-h|ger,^-hopp och RET-skott."
58 ; #F;" "
59 ; #F;"PS: Titta bilens hjul!"
60 ; #F;" "
61 ; #F;"//////////////////////////////////////"
62 GOSUB 132
63 ; #F;"Polaris:"
64 ; #F;"========"
65 ; #F;" "
66 ; #F;"Det v{lk{nda U-b}tspelet. Det g}r ut"
67 ; #F;"p} att man nere i sin ub}t ska pricka"
68 ; #F;"alla plan och b}tar som inkr{ktar p}"
69 ; #F;"luftrummet ovanf|r..."
70 ; #F;"Tangenter {r:"
71 ; #F;"A-v{nster,S-h|ger,^-upp,[-ner och"
72 ; #F;"RET-skott"
73 ; #F;" "
74 ; #F;"Anm. Det {r tv} versioner p} skivan,"
75 ; #F;"den ena med lite mer ljudeffekter"
76 ; #F;"(version 2 kallas Polaris2 resp. Pol2)"
77 ; #F;" "
78 ; #F;"//////////////////////////////////////"
79 GOSUB 132
80 ; #F;"Bumper:"
81 ; #F;"======="
82 ; #F;" "
83 ; #F;"Jaha, vad ska skriva om det h{r d}??"
84 ; #F;"N}ja, spelet g}r ut p} att du skall"
85 ; #F;"undvika de hoppande sn|gubbarna och"
86 ; #F;"h{mta bokstaven p} |versta v}ningen"
87 ; #F;"och g} med den till nedersta v}ningen"
88 ; #F;"och l{mna den p} sin plats. P} v{gen"
89 ; #F;"kan man ta pistolen om man vill och"
90 ; #F;"skjuta p} gubbarna f|r att f} extra"
91 ; #F;"po{ng."
92 ; #F;"Tangenter {r(?):"
93 ; #F;"A-v{nster,S-h|ger,^-upp,[-ner och"
94 ; #F;"RET-skott"
95 ; #F;" "
96 ; #F;"//////////////////////////////////////"
97 GOSUB 132
98 ; #F;"SubGame:"
99 ; #F;"========"
100 ; #F
101 ; #F "Detta {r inget spel f|r dem som tror"
102 ; #F "det. Det {r d{remot ett program som"
103 ; #F "visar olika programmeringstekniker som"
104 ; #F "har med bildsk{rmen att g|ra."
105 ; #F
106 ; #F "Jag totade ihop programmet en dag n{r"
107 ; #F "jag hade lite att g|ra. Det skulle bli"
108 ; #F "det 'h{ftigaste' spelet till 80'n"
109 ; #F "n}gonsin!! Men efter jag gjort en liten"
110 ; #F "inledning t{nkte jag: '[sch! Varf|r inte"
111 ; #F "snitsa till inledning lite b{ttre!'"
112 ; #F
113 ; #F "S} kom det sig att SubGame bara blev en"
114 ; #F "ca. 5kbyte's l}ng inledning."
115 ; #F
116 ; #F "Starta SubGame, sitt ner och f|rundras!"
117 ; #F;"//////////////////////////////////////"
118 GOSUB 132
119 ; #F;" "
120 ; #F;"F|r att f} b{ttre ljud till alla spel"
121 ; #F;"utom Bumper kan man kortsluta kassett-"
122 ; #F;"utg}ngen (stift 1 med stift 3?)."
123 ; #F;" "
124 ; #F;"Det var v{lan allt }t er p} progred."
125 ; #F;"just nu."
126 ; #F;" "
127 ; #F;"Mvh Hans Holmberg /Mummel <2838>"
128 ; #F;" "
129 ; #F;"//////////////////////////////////////"
130 CLOSE F
131 END
132 IF F RETURN ELSE ; "---> Tryck RETURN!";CHR$(8);
133 INPUT LINE A$ : ; CHR$(12); : RETURN