home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1999-03_1999_CSW_Side_A.d64
/
boot 9.5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
615b
|
18 lines
10 ifmrthen100
15 ifpeek(6)=255thenpoke45,peek(174):poke46,peek(175):clr
17 poke55,0:poke56,160:clr
20 dv=peek(186):ifdv<8ordv>16thendv=8
30 open15,dv,15:v$="9.5":print"[147]":ifpeek(648)=4thenprint"";
40 r=57088:a=1:fori=2to5:poker+i,i:next:fori=2to5:ifpeek(r+i)<>ithena=0
50 next:ifa=0thenpoke1023,0:goto120
55 ifpeek(1023)>=8andpeek(1023)<=16thenu=peek(1023):goto110
56 ifpeek(817)=207thenu=peek(52997):goto110
60 u=0:fori=15to8step-1:open14,i,15:close14:if128andstthenu=i:i=8
70 next:ifu=0thenu=30
80 mr=25344
90 sys65418:print"[204]oading [210][193][205][196][207][211]...":load"ramdos64.bin*",dv,1
100 sysmr+12:poke780,u:poke781,207:sysmr+6-3*(peek(1023)>0)
110 print"[210][193][205]disk installed as device"u:poke1023,u
120 rem open5,2,0,chr$(6):print#5,"at&c1"
130 print"[204]oading [206]ovaterm "v$"!":load"novaterm "+v$,dv