home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 77
/
Tiger_Disk_077_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
basic-routine
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
34 lines
10 poke53280,12:poke53281,12:poke646,1:print"[147] startadresse ermitteln "
20 f$="":input"file-name ";f$:iff$=""then90
30 open1,8,2,"0:"+f$+",p,r"
40 get#1,a$,b$:d=asc(a$+chr$(0))+256*asc(b$+chr$(0)):close1
50 print"start-adresse (dez) "d
60 h$="":m=4096:n=3:ifd<256thenm=16:n=1
70 forh=0ton:c=int(d/m):d=d-c*m:m=m/16:c=c+48:ifc>57thenc=c+7
80 h$=h$+chr$(c):next:printtab(17)"(hex) $"h$
90 print" high- / low-byte-berechnung ":print"eingabe hex.: $[ffff]"
100 eg$="":input"";eg$:ifeg$=""thenend
110 he=1:ifleft$(eg$,1)<>"$"thena=val(eg$):he=0:goto170
120 h$=right$(eg$,len(eg$)-1):l=len(h$):ifl>4then100
130 a=0:forq=lto1step-1:c$=mid$(h$,q,1)
140 ifasc(c$)>47andasc(c$)<58thenr=asc(c$)-48:goto160
150 r=asc(c$)-55
160 a=a+r*16^(l-q):next:d$=str$(a):d1$=right$(d$,len(d$)-1):print" #"d1$
170 ifa<256then100
180 hi=int(a/256):lo=a-hi*256:print"high-byte :";hi:hb$=chr$(hi)
190 print"low-byte :";lo:lb$=chr$(lo)
200 poke198,0:wait198,1:poke198,0:print"[147]";
210 dimb$(25)
220 forx=1to22step3:b$(x)="tiger-disk":next
230 forx=2to23step3:b$(x)="by tigercrew":next
240 forx=3to24step3:b$(x)="monatlich neu!!":next
250 fora1=1to24:printb$(a1):next:a1=a1-1
260 poke198,0:wait198,1:poke198,0:print"[147]"
270 f1$="":input"file-name ";f1$:iff1$=""thenend
280 print"hi-byte","low-byte"," dez.",:ifhe=1thenprint"hex."
290 print:printhi,lo,a,:ifhe=1thenprinteg$
300 open2,8,2,f1$+",p,w"
310 print#2,lb$;hb$;
320 forw=1toa1:print#2,b$(w):next:close2:print:print"taste druecken!"
330 poke198,0:wait198,1:poke198,0:run