home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1986 July
/
1986-07.d64
/
keyload_64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
598b
|
18 lines
0 print""
1 poke198,15:poke631,19:poke632,13:poke633,19:poke634,17:poke635,13:poke636,19
2 poke637,29:poke638,29:poke639,29:poke640,42:poke641,13:poke642,82
3 poke643,213:poke644,54:poke645,13
4 print"[147]l[207]"chr$(34)"$"chr$(34)",8
5 [153]"list1-":[128]
6 x$[178]" "
7 [153]"disk loader":[153]x$
8 [153]"crsrwait to desired program, press returnwait.
9 printx$:print"* "chr$(34):print"* "
10 poke198,5:poke631,157:poke632,157:poke633,32:poke634,17:poke635,157
11 inputf$:iff$=""thenend
12 ifmid$(f$,7+n,1)=chr$(34)then14
13 n=n+1:goto12
14 ifleft$(f$,1)="l"thenpoke198,2:poke631,19:poke632,13:goto16
15 poke198,6:poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13
16 print"[147]load"chr$(34)"0:"mid$(f$,7,n)chr$(34)",8,1":end