home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 77
/
64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_B.d64
/
install
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
60 lines
1 :
10 rem ***************
20 rem * hypra-speed *
30 rem ***************
32 :
34 rem 64'er ldm 09/89
40 :
50 rem installationsprogramm rev/3
52 rem von nikolaus heusler 21.4.89
53 rem revised 16.6.89
54 rem fuer 64'er redaktion (nh/ah)
56 :
60 rem (c)opyright markt & technik
70 :
80 rem i'm ja so sorry !
85 :
90 rem dieses programm soll exakt so
91 rem abgetippt werden, wie es hier
92 rem abgedruckt ist, sonst arbeitet
93 rem es nicht immer korrekt !
94 rem alle leerzeichen zwischen ba-
96 rem sic - befehlen weglassen !
100 :
105 poke56,32:clr
110 ifpeek(49153)*peek(49766)+peek(49459)<>4534+peek(50017)thenload"catch!",8,8
120 :
130 print"[147][154][142][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
131 print"hypra-speed installationsprogramm";
132 print"3n.heusler, red. 64'er 9/89 210489-arr[150]
134 [151]53280,.:[151]53281,.
140 [158]49152:[139][194](4)[167][128]
150 [153]"printokay. installation kann durchgefuehrt werden.
160 print"bitte waehlen sie den eprom-typ ihres
162 [153]"c64 oder c128 (siehe artikel):
164 print" (1) normaler c64: eprom 2764
166 [153]" (2) neuer c64 (aldi): eprom 27128
168 print" (3) commodore 128: eprom 27128":poke198,.
170 geta$:ifa$<"1"ora$>"3"then170
172 ifa$="3"thena$="2
174 [153]"file wird auf disk erzeugt !
176 poke49783,96:t=47-(a$>"1")*25:print"das dauert etwa"t"sekunden.
180 [158]49161,"delta.c64",8,8:[158]49155:[158]49783:[158]49958:[139]a$[178]"2"[167][158]49158
182 [151]3,64[171](a$[177]"1")[172]32:[151]2,32:[158]49164,"kernal-rom",8
200 [129]i[178]4[164]24:[151]781,i:[158]59903:[130]:[153]"
202 print"bitte waehlen sie jetzt den eprom-typ
204 [153]"fuer die floppy: (gemaess artikel)
206 print" (1) 8 kbyte (2764)
208 [151]198,.:[153]" (2) 16 kbyte (27128)
210 geta$:ifa$<"1"ora$>"2"then210
212 print"file wird auf disk erzeugt !
214 t[178]247[171](a$[177]"1")[172]226:t%[178]t[173]60:t[178]t[171]t%[172]60:[153]"das dauert etwa"t%"min"t"sek.
216 sys49167,224:sys49161,"delta.dos",8,8:sys49170:sys49767
218 poke2,64:poke3,96:ifa$="2"thensys49167,192:poke2,32:poke3,96
220 sys49164,"floppy-rom",8
222 print"[147]die beiden files 'kernal-rom' und
224 [153]"'floppy-rom' koennen direkt in die ent-
226 print"sprechenden eproms gebrannt werden.
228 [153]"viel erfolg !
230 print"ihre 64'er redaktion (nh/ah)