home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 7
/
Commodore_Disc_07_19xx_-_de.d64
/
64.merge
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
610b
|
22 lines
1 rem == 1.programm laden ==========
2 rem == aufruf: sys 49152 =========
3 rem == 2.programm laden ==========
4 rem == verbinden mit sys 49182 ===
5 rem == 12.04.87 h.b ==============
10 dimhx(75)
11 fori=0to9:hx(48+i)=i:hx(65+i)=i+10
12 next
13 fori=49152to49226:readmc$
14 hi=asc(left$(mc$,1)):lo=asc(right$(mc$,1))
15 dz=hx(hi)*16+hx(lo):pokei,dz:next:new
1000 dataa5,2b,85,fb,a5,2c,85,fc
1001 dataa5,2d,e9,01,29,ff,85,2b
1002 dataa5,2e,29,ff,85,2c,a9,27
1003 dataa0,c0,20,1e,ab,60,a5,fb
1004 data85,2b,a5,fc,85,2c,60,20
1005 data20,32,2e,50,52,4f,47,52
1006 data41,4d,4d,20,4c,41,44,45
1007 data4e,2c,44,41,4e,4e,2c,27
1008 data53,59,53,20,34,39,31,38
1009 data32,27,00