home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 242
/
242.d81
/
b.bassem
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
226b
|
8 lines
1 ifpeek(56)<>110thenpoke56,110:poke55,0:run
5 dv=peek(186):ifdv<8thendv=8
10 sys57812"bassem.2",dv,0:poke780,0:poke781,222:poke782,135:sys65493
30 q=08:poke44,q:poke43,1:pokeq*256,0
40 sys34782
59999 end
60000 dv=peek(186):n$="b.bassem":open15,dv,15,"s0:"+n$:close15:saven$,dv:end