home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_A.d64 / edit < prev    next >
Encoding:
Text File  |  1990-01-01  |  6.3 KB  |  36 lines
  1. ;INTVAR teanf,teend,pranf,prend,conanf,conend,varanf,varend
  2. INTVAR znBYTEVAR sn,bz,bs,driveSTRVAR 14 nameSTRVAR 40 a!ADRVAR beginn,zeile,zeichen,endeADRVAR load,save,dir,new,texts&ADRVAR begin,end,hide,del2,copy,check!ADRVAR schl,zeileaus,revers,leer"ADRVAR links,rechts,del,inst,anfz ADRVAR poke,peek,versch,ftastenADRVAR found,wait,leerzeileINTVAR z,zm,z1,z2,z3INTVAR a0,a1,e1,a2,e2,l0INTVAR blbe,blen,veradr#ADRVAR fi1,fi2,fi3,fi4,fi5,fi6,fi7#ADRVAR fi8,fi9,fi10,fi11,fi12,fi13ADRVAR fi14,fi15,fi16,fi17,s1ADRVAR f1,f3,f5,f7,f2,f4,f6,f8BYTEVAR c,hc,b1,tb#INTVAR AT 0182 i182,i184,i186,i188)BYTEVAR AT 0182 b182,b183,b184,b185,b186BYTEVAR AT 50000 b50000INTVAR AT 49662 i49662
  3. teanf_i49662newdrive_8CLR namebz_0zn_0000bs_0sn_0
  4. GOTO hidebeginn:(INTAT0334)_beginnPOKE0333,32
  5. veradr_49152POKE 53270,199POKE 53265,23
  6. POKE 53281,0POKE 53280,11
  7. z_(zn-bz)
  8. z1_(z+21)?""REPEAT check i182_z b186_1 SYS 49301 INC z
  9. UNTIL (z>z1)zeile:7?"   DISK   {CBM-G} BLOCK  {CBM-G} COMP   {CBM-G}         ";?(STR(REALzn))+?"   LLIST  {CBM-H} INFO   {CBM-H} RUN    {CBM-H} QUIT    "z_znchecktb_0bs_0sn_1i182_zn
  10. SYS 49349POKE0214,bzOUT17OUT13schl:zm_((INTAT0209)+(PEEK0211))reversREPEATUNTIL ((PEEK0198)>0)GETc
  11. hc_(cAND127)POKE0212,0revers)IF(tbAND((c<>20)AND(hc<>13)))GOTOzeichen#IF((hc>=32)AND(hc<=95))GOTOzeichen?IF((((hc=17)OR(hc=19))OR(hc=13))OR((c>132)AND(c<141)))GOTOende!IF((c=29)AND(sn<254))GOSUBrechtsIF((c=157)AND(sn>1))GOSUBlinksIF((c=20)AND(sn>1))GOSUBdel IF((c=148)AND(sn<254))GOSUBinst
  12. GOTO schlwait:
  13.  POKE 0198,0
  14.  WAIT 0198,1 GET cRETURNzeichen: IF (sn>254) GOTO schl IF (c=34) GOTO anfz POKE(50000+sn),c IF (bs>36) GOTO fi1
  15.   POKE0212,1  OUTc  INC bs  INC sn  GOTO schl fi1: INC sn GOSUB zeileaus
  16. GOTO schl
  17. zeileaus: POKE 0214,bz OUT 17 OUT 13 b184_80
  18.  b185_195 b186_(sn-bs) SYS 49312 OUT145 OUT157 b1_0 REPEAT  OUT29  INC b1 UNTIL (b1>bs)RETURNende: sn_1 bs_0 GOSUB zeileaus revers SYS 49392 s1: i182_zn
  19.  SYS49252 IF (i184>teend)  i182_4096  SYS49252  teend_(i184+2)
  20.   GOTO s1 ENDIF IF (c<>19)GOTOfi2  b50000_1 fi2: a0_i184 GOSUBpeek a1_(a0+e1) l0_(teend-a1) a2_(a0+b50000) teend_((teend-e1)+b50000) GOSUB versch
  21.  a1_50000 a2_a0 l0_(INT(b50000-1),0) GOSUB versch IF (l0>0000) GOTO fi3  a1_a0  a2_(INTb50000,0)
  22.   GOSUB poke fi3: revers' IF ((c>=133)AND(c<=140)) GOTO ftasten IF (c<>19) GOTO fi4&  IF ((teend-teanf)<0003) GOTO beginn  a1_(a0+1)  a2_a0  l0_(teend-a0)  DEC teend  GOSUB versch  GOTO beginn fi4: IF (c<>147) GOTO fi5  a1_a0  a2_(a0+1)  l0_(teend-a0)  INC teend  GOSUB versch
  23.   a2_0001
  24.   GOSUB poke  GOTO beginn fi5:! IF ((c<>13)AND(c<>17)) GOTO fi6  INC zn  INC bz  IF (bz<=21) GOTO zeile  bz_21
  25.   a1_1144
  26.   a2_1104  fi12:  l0_839  GOSUB versch  a1_(a1+54272)  a2_(a2+54272)  veradr_49155  GOSUB versch  veradr_49152
  27.   i182_zn  b186_1  leerzeile  SYS49301
  28.   GOTO zeile fi6:# IF ((c<>145)OR(zn=0000)) GOTO fi7  DEC zn  DEC bz  IF (bz<128) GOTO zeile  bz_0
  29.   a1_1104
  30.   a2_1144  GOTOfi12 fi7:GOTO zeileversch:$ IF ((l0=0000) OR (a1=a2)) GOTO fi8
  31.   i182_a1
  32.   e1_(a1+l0)
  33.   i184_e1
  34.   i186_a2
  35.   e2_(a2+l0)
  36.   i188_e2  SYSveradr fi8:RETURNpoke: b182_(LOWa2) i184_a1 SYS 49664RETURNpeek: i184_a0
  37.  SYS49680 e1_(INTb182,0)RETURNftasten:$GOTO (INTAT((ADRf1)+((c-133)SHL1)))links: DEC sn DEC bs IF (bs>=38) GOTO fi9  OUTc  RETURN fi9: bs_0GOTO zeileausrechts: INC sn INC bs IF (bs>=38) GOTO fi10  OUTc  RETURN fi10: bs_37GOTO zeileausinst: a1_(50000+sn) l0_(0255-sn) a2_(a1+1) GOSUB versch POKE a1,32GOTO zeileausdel: IF (sn>=254) GOTO fi11  a2_(49999+sn)  l0_(0255-sn)  a1_(a2+1)  GOSUB versch fi11: POKE 50255,32 DEC sn DEC bs IF(bs<128)GOTO zeile aus bs_0
  38. GOTOzeileausanfz: tb_(NOTtb) POKE(50000+sn),c POKEzm,34 GOSUB rechts
  39. GOTO schlf7: OUT 153 OUT 19 OUT 13 leerzeile ?"Zeile:"; ?(STR(REALzn)) INPUT"";a OUT 158 zn_(INT(REALa)) bz_10 IF(zn>=(INT bz,0))GOTObeginn bz_(LOWzn)GOTO beginnf8: b182_0SYS0182revers: POKE zm,((PEEKzm)EXOR128)RETURNf1:/ ?"LOAD, TEXTSAVE, SAVE, DIR             " wait IF(c=76)GOTOload IF(c=84)GOSUBtexts IF(c=83)GOSUBsave IF(c=68)GOSUBdirGOTObeginnleer: OUT 145 leerzeile ?"     "; ?name INPUT"Name:";name OUT 158RETURNload: leer bz_0 zn_0000 OPEN1,drive,0,name i182_teanf
  40.  SYS49536 teend_(i182-1) CLOSE1 IF(teanf=teend)GOSUBnew
  41. GOTO hidedir: OUT 147 SYS 49424 waitRETURNnew: bz_0 zn_0000
  42.  a1_teanf
  43.  a2_00000 GOSUB poke teend_(teanf+2) blbe_0000 blen_blbeRETURNtexts: leer OPEN1,drive,1,("@:"+name) i182_teanf (INTAT0187)_(teend+1)
  44.  SYS49576 CLOSE1RETURNsave: texts SYS 51000RETURNf4:/ ?"     eCom V2.4 von Johannes Timmer    " ?"1. Text   : $" ?"2. Program: $" ?"3. Const. : $" ?"4. Variab.: $" b1_0 REPEAT  z_((ADRteanf)+(b1SHL2))  ?"";  ?(STR(INTATz));  ?" - $";  ?(STR(INTAT(z+2)))  INC b1 UNTIL (b1>3) ?"5) Drive:";
  45.  ?(STRdrive) wait" IF ((c<49)OR (c>53)) GOTO beginn IF (c=53) GOTO fi13  INPUT "$";a  z_(INTa)  z1_((ADRteanf)+((c-49)SHL2))  (INTATz1)_z  (INTAT(z1+2))_z  IF (c<>49) GOTO f4  i49662_teanf  GOSUB new
  46.   GOTO f4 fi13: INC drive drive_(driveAND15)GOTO f4f5: SYS 24064GOTO beginnf6: OUT 147 POKE 53270,200 POKE 53265,27 SYS pranf OUT13 ?"eop" waitGOTO beginnf3:/ ?"BEGIN, END, COPY, DEL, HIDE           " wait IF (c=66) GOTO begin IF (c=69) GOTO end IF (c=72) GOTO hideIF (blbe>=blen) GOTO zeile IF (c=67) GOTO copy IF (c=68) GOTO del2GOTO zeilebegin: blbe_znGOTO beginnend: blen_znGOTO beginnhide: blbe_0000 blen_blbeGOTO beginncheck: OUT 158$ IF ((z<blbe)OR(z>=blen)) GOTO fi15
  47.   OUT 150 fi15:RETURNfound: i182_blen SYS 49252 a1_i184 i182_blbe SYS 49252 a2_i184 l0_(teend-a1)RETURNdel2: found versch teend_(teend-(a1-a2))
  48. GOTO hidecopy: found l0_((a1-a2)-1) z1_l0 a1_a2 a2_1024 OUT 144 OUT 147 versch i182_zn SYS 49252 z_i184 a1_z a2_((z+z1)+1) l0_(teend-a1) versch a1_1024 a2_z l0_z1 versch teend_((teend+l0)+1)
  49. GOTO hidef2: OPEN1,4,0
  50.  CMDOUT 1
  51.  POKE 0154,4 z_teanf c_0 hc_c REPEAT  SEI  POKE 0001,52
  52.   b1_(PEEKz)  POKE 0001,55  CLI  IF (c>0) GOTO fi16
  53.    hc_(c=b1)   c_b1   b1_13  fi16:  OUT b1  DEC c  INC z
  54.  UNTIL hc CLOSE 1 CMDENDGOTO beginnleerzeile:, ?"                                      "RETURN
  55. RO