home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_004_19xx_-_de_Disk_1_of_2_Side_A.d64 / b.2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  57 lines
  1. 50 print"[147]lege cav und int disc ein!"
  2. 60 poke198,0:wat198,1
  3. 100 n$=na$:u=8:d=0
  4. 110 v=16: q=32: f=256: n$=left$(n$,v)
  5. 120 h$="0123456789abcdef": z$=chr$(0)
  6. 130 t$=right$(str$(d),1): open 1,u,15,"i"+t$: gosub 620
  7. 140 t$=t$+":"+n$: open 2,u,2,t$+",p,r"
  8. 150 input#1,e,m$,j,k: if e=0 then 240
  9. 160 close 1: close 2: print " file:  ";n$;
  10. 170 if e=62 then print " not found": goto 200
  11. 180 if e=64 then print " not a program": goto 200
  12. 190 print " disk read-error";e: end
  13. 200 for j=1 to 2000: next: goto 90
  14. 210 j=int(c/v): k=c-j*v
  15. 220 m$=m$+mid$(h$,j+1,1)+mid$(h$,k+1,1)
  16. 230 return
  17. 240 get#2,a$,b$: if st then 190
  18. 250 close 2: close 1: m$=""
  19. 260 a=asc(a$+z$): b=asc(b$+z$)
  20. 270 c=b: gosub 210: c=a: gosub 210
  21. 290 cp=b*f+a
  22. 330 p=48640
  23. 340 b=int(p/f): a=p-b*f: p$=chr$(a)+chr$(b): m$=""
  24. 350 c=b: gosub 210: c=a: gosub 210
  25. 390 j=len(n$): if j=v then 410
  26. 400 for x=j+1 to v:n$=n$+chr$(160):next
  27. 410 open 1,u,15: open 2,u,2,"#"
  28. 420 gosub 620: t=18: s=1
  29. 430 print#1,"u1:";2;d;t;s: gosub 620
  30. 440 print#1,"b-p:";2;0: get#2,a$,b$
  31. 450 t=asc(a$+z$): s=asc(b$+z$): h=2
  32. 460 print#1,"b-p:";2;h: get#2,t$
  33. 470 c=asc(t$+z$): if c<>130 then 510
  34. 480 get#2,a$,b$: f$="": for x=1 to v
  35. 490 get#2,t$: f$=f$+t$: next
  36. 500 if f$=n$ then 530
  37. 510 h=h+q: if h<f then 460
  38. 520 goto 430
  39. 530 a=asc(a$+z$): b=asc(b$+z$)
  40. 540 print#1,"u1:";2;d;a;b: gosub 620
  41. 550 print#1,"b-p:";2;2: print#2,p$;
  42. 560 print#1,"u2:";2;d;a;b: gosub 620
  43. 570 close 2: gosub 620: close 1
  44. 580 open1,8,15,"s:b.3":close1:print"boulderlevel gespeichert."
  45. 590 input" noch ein level editieren";x$
  46. 600 if x$="j" then 1993
  47. 610 print "[147]";: end
  48. 620 input#1,e,m$,j,k:if e=0 then return
  49. 630 print " fehler: ";e;m$;j;k
  50. 640 close 2: close 1: end
  51. 1035 goto1020
  52. 1040 n$=gl$:return
  53. 1993 print"[147]lege programmdisc ein!"
  54. 1994 poke198,0:wait198,1
  55. 2000 poke828,0:print"[147]load"+chr$(34)+"boulderedit v1.0"+chr$(34)+",8,1":print"run"
  56. 2010 poke631,13:poke632,13:poke198,2:printchr$(19);:end
  57.