Loadstar 196/196.d81/z.startup-zip

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