home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-10_1987_Verlag_Heinz_Weise_de.d64 / compact1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 0 rem               programmpresse
  2. 1 poke56,25:clr:gosub54:c=6405:dimii%(800):x=1:poke53280,12:poke53281,12:printchr$(8)chr$(14)chr$(144):input"nach print verk. (ja=0, nein=1)0[157][157][157]";pr:ifpr<>0andpr<>1thenrun
  3. 2 input"programmname";n$:ifn$=""thenrun
  4. 3 open2,8,2,n$+",p,r":y=c
  5. 4 get#2,a$:poke y,asc(a$+chr$(0)):ifst<>0thenclose2:gosub51:goto7
  6. 5 y=y+1:ify<53247then4
  7. 6 print"programm ist zu lang!":close2:gosub51:end
  8. 7 ti$="000000":print" pass 1":gosub33:n=5:qq=0:l=c+6:i=l:goto23
  9. 8 i=l+qq:n=n+1:ifusr(i)=0andn>4then11
  10. 9 ifn>4then28
  11. 10 pokel,usr(i):poke216,1:printchr$(usr(l));:poke216,0:l=l+1:goto8
  12. 11 ifusr(i+1)=0andusr(i+2)=0thenpokel,0:pokel+1,0:pokel+2,0:goto32
  13. 12 x=1:a=usr(i+3)+256*usr(i+4):ifsp=1thensp=0:goto23
  14. 13 ifii%(x)=(a-32767)then23
  15. 14 x=x+1:ifx<tt+1then13
  16. 15 ll=i+5:f=f+3
  17. 16 u=usr(ll):ifu=139oru=142oru=143oru=137thensp=1
  18. 17 ifpr=1then:ifu=153thensp=1
  19. 18 ifda=1then:ifu=131thensp=1
  20. 19 ifu=0then21
  21. 20 ll=ll+1:goto16
  22. 21 ifll>(f+255)then9
  23. 22 pokel,58:print":";:qq=qq+4:q=q-4:l=l+1:goto8
  24. 23 ll=i+5
  25. 24 u=usr(ll):ifu=139oru=142oru=143oru=137thensp=1
  26. 25 ifpr=1then:ifu=153thensp=1
  27. 26 ifu=0then9
  28. 27 ll=ll+1:goto24
  29. 28 ifusr(i)=0thenn=0:f=i:print:print"";usr(i+3)+256*usr(i+4);"[146]";:goto30
  30. 29 goto10
  31. 30 ifusr(i+1)=0andusr(i+2)=0thenpokel,0:pokel+1,0:pokel+2,0:print,l,q:goto32
  32. 31 goto10
  33. 32 print:print:printti$:open2,8,2,"pr-"+n$+",p,w":fory=ctoq:print#2,chr$(usr(y));:next:close2:gosub51:end
  34. 33 l=c+1:goto49
  35. 34 ifusr(l)=0then49
  36. 35 u=usr(l):ifu=141oru=137oru=138oru=167then37
  37. 36 l=l+1:goto34
  38. 37 l=l+1:ifusr(l)=32then37
  39. 38 a=l:ifusr(l)<48orusr(l)>57then34
  40. 39 l=l+1:ifusr(l)<48orusr(l)>57thencc=l:l=l-1:goto41
  41. 40 goto39
  42. 41 b=usr(l)-48:ifusr(l+1)=44theno=1
  43. 42 ifl=athen47
  44. 43 l=l-1:b=b+(usr(l)-48)*10:ifl=athen47
  45. 44 l=l-1:b=b+(usr(l)-48)*100:ifl=athen47
  46. 45 l=l-1:b=b+(usr(l)-48)*1000:ifl=athen47
  47. 46 l=l-1:b=b+(usr(l)-48)*10000:ifl<>athen35
  48. 47 ii%(x)=(b-32767):print"sprung nach";b;:x=x+1:ifo=1theno=0:l=cc:goto37
  49. 48 goto36
  50. 49 ifusr(l+1)=0andusr(l+2)=0thenq=l+3:tt=x:print:print:print" pass 2":return
  51. 50 print:printusr(l+3)+256*usr(l+4),:l=l+5:goto34
  52. 51 open1,8,15:print:print"";
  53. 52 get#1,a$:printa$;:ifst=0anda$<>chr$(13)then52
  54. 53 print#1,"m-w";chr$(106);chr$(0);chr$(1);chr$(133):print#1,"i":print#1,"m-w";chr$(6);chr$(0);chr$(2);chr$(36);chr$(1):print#1,"m-w";chr$(0);chr$(0);chr$(1);chr$(128):close1:return
  55. 54 forl=704to738:reada:pokel,a:next:data165,20,72,165,21,72,32,247,183,165,1,72:data169,52,120,133,1,160,0,177,20,168,104:data133,1,88,104,133,21,104,133,20,76,162,179:poke785,192:poke786,2:return
  56.