home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 196
/
196.d81
/
z.startup-zip
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
591b
|
47 lines
1 rem * zip basic startup file *
10 print"[147][149]"
11 poke53280,8
12 poke53281,7
13 print"[147] **** commodore 64 j-dos v6.01 ****"
14 print" go bo farkle!"
20 s=54272
22 for i=0 to 23
24 n=s+i
26 poke n,0
28 next
30 n=s+24
32 poke n,15
34 fori=1to2
35 n=s+19
36 poke n,72
37 n=s+20
38 poke n,129
39 n=s+14
40 poke n,50
41 n=s+18
42 poke n,33
43 n=s+15
44 poke n,45
45 poke 162,0
46 for n=0 to 3
47 n=peek(162)
48 next
49 n=s+18
50 poke n,32
51 poke 162,0
52 for n=0 to 14
53 n=peek(162)
54 next
55 n=s+15
56 poke n,69
57 n=s+18
58 poke n,17
59 poke 162,0
60 for n=0 to 31
61 n=peek(162)
62 next
63 n=s+18
64 poke n,16
66 next
70 end