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