Compute! Gazette 1994 March/1994-03b.d64/disk

Text File | 2022-09-20 | 1KB | 84 lines

'
'disk maintenance
'
]d0
]g start
@getline
][b=00
za$=""
]o0 0d ">"
@getchr
]s 00d4 00
]o0 a4 9d
]i a 0
]t [a=14:]g del
]t [a=0d:]g enter
]t [a<20:]g getchr
]t [a>7f:]g getchr
za$=za$+chr$([a)
][b+01
]o0 [a
]t [b<4e:]g getchr
@del
]t [b<01:]g getchr
]o0 14
][b-01
za$=left$(za$,len(za$)-1)
]g getchr
@enter
]o0 20 0d
]t [b=00:]g stat
][a=00
ifza$="q"thenpoke49155,1
ifleft$(za$,1)="$"thenpoke49155,2
]t [a=01:]g quit
]t [a=02:]g dir
]p a 0286
]p b d021
]s 0286 [b
print#1,za$]d1

]d0
]o0 91 91 91
]s 0286 [a
@stat
poke781,1:sys65478:forza=-1to0step0:syszc:syszd:za=peek(780)<>13:next:sys65484
]g getline
@dir
open2,8,0,za$
]d1
][c=ff
]i a 2
]i a 2
]i a 2
@dirline
]i a 2
]i a 2
]i b 2
]c bdcd [b [a
]o0 20
]c c7e8
]c ffe4
]p a 030c
]t [a=20:]i a 0
]o0 0d
][c+01
]t [a=03:]g dirend
]i a 2
]t [a>00:]g dirline
][c-01
@dirend
]d0
close2
]o0 12 "[c file(s)." 0d
]g getline
@quit
close1
]e
@start
close1:close2
open1,8,15:zc=65487:zd=61898
]s c7e8 a2 02 20 c6 ff 20 cf ff
]s c7f0 20 d2 ff d0 f8 4c cc ff
]g getline