home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010a.d64 / edit < prev    next >
Text File  |  1995-03-30  |  6KB  |  36 lines
  1. ;╔╬╘╓┴╥ TEANF,TEEND,PRANF,PREND,CONANF,CONEND,VARANF,VAREND
  2. ╔╬╘╓┴╥ ZN┬┘╘┼╓┴╥ SN,BZ,BS,DRIVE╙╘╥╓┴╥ 14 NAME ╙╘╥╓┴╥ 40 A!┴─╥╓┴╥ BEGINN,ZEILE,ZEICHEN,ENDE┴─╥╓┴╥ LOAD,SAVE,DIR,NEW,TEXTS&┴─╥╓┴╥ BEGIN,END,HIDE,DEL2,COPY,CHECK!┴─╥╓┴╥ SCHL,ZEILEAUS,REVERS,LEER"┴─╥╓┴╥ LINKS,RECHTS,DEL,INST,ANFZ ┴─╥╓┴╥ POKE,PEEK,VERSCH,FTASTEN┴─╥╓┴╥ FOUND,WAIT,LEERZEILE╔╬╘╓┴╥ Z,ZM,Z1,Z2,Z3╔╬╘╓┴╥ A0,A1,E1,A2,E2,L0╔╬╘╓┴╥ BLBE,BLEN,VERADR#┴─╥╓┴╥ FI1,FI2,FI3,FI4,FI5,FI6,FI7#┴─╥╓┴╥ FI8,FI9,FI10,FI11,FI12,FI13┴─╥╓┴╥ FI14,FI15,FI16,FI17,S1┴─╥╓┴╥ F1,F3,F5,F7,F2,F4,F6,F8┬┘╘┼╓┴╥ C,HC,B1,TB#╔╬╘╓┴╥ ┴╘ 0182 I182,I184,I186,I188)┬┘╘┼╓┴╥ ┴╘ 0182 B182,B183,B184,B185,B186┬┘╘┼╓┴╥ ┴╘ 50000 B50000╔╬╘╓┴╥ ┴╘ 49662 I49662TEANF_I49662NEWDRIVE_8    ├╠╥ NAMEBZ_0ZN_0000BS_0SN_0
  3. ╟╧╘╧ HIDEBEGINN:(╔╬╘┴╘0334)_BEGINN ╨╧╦┼0333,32VERADR_49152╨╧╦┼ 53270,199╨╧╦┼ 53265,23╨╧╦┼ 53281,0╨╧╦┼ 53280,11
  4. Z_(ZN-BZ)
  5. Z1_(Z+21)    ?"₧ô"╥┼╨┼┴╘ CHECK I182_Z B186_1  ╙┘╙ 49301 ╔╬├ Z╒╬╘╔╠ (Z>Z1)ZEILE:7?"ù   ─╔╙╦   Ñ ┬╠╧├╦  Ñ ├╧═╨   Ñ         ¥¥¥¥¥¥¥¥¥";?(╙╘╥(╥┼┴╠ZN))+?"   ╠╠╔╙╘  ┤ ╔╬╞╧   ┤ ╥╒╬    ┤ ╤╒╔╘    "Z_ZNCHECKTB_0BS_0SN_1I182_ZN
  6. ╙┘╙ 49349 ╨╧╦┼0214,BZ╧╒╘17╧╒╘13SCHL:ZM_((╔╬╘┴╘0209)+(╨┼┼╦0211))REVERS╥┼╨┼┴╘╒╬╘╔╠ ((╨┼┼╦0198)>0)╟┼╘CHC_(C┴╬─127) ╨╧╦┼0212,0REVERS)╔╞(TB┴╬─((C<>20)┴╬─(HC<>13)))╟╧╘╧ZEICHEN#╔╞((HC>=32)┴╬─(HC<=95))╟╧╘╧ZEICHEN?╔╞((((HC=17)╧╥(HC=19))╧╥(HC=13))╧╥((C>132)┴╬─(C<141)))╟╧╘╧ENDE!╔╞((C=29)┴╬─(SN<254))╟╧╙╒┬RECHTS╔╞((C=157)┴╬─(SN>1))╟╧╙╒┬LINKS╔╞((C=20)┴╬─(SN>1))╟╧╙╒┬DEL ╔╞((C=148)┴╬─(SN<254))╟╧╙╒┬INST
  7. ╟╧╘╧ SCHLWAIT: ╨╧╦┼ 0198,0 ╫┴╔╘ 0198,1 ╟┼╘ C╥┼╘╒╥╬    ZEICHEN: ╔╞ (SN>254) ╟╧╘╧ SCHL ╔╞ (C=34) ╟╧╘╧ ANFZ ╨╧╦┼(50000+SN),C ╔╞ (BS>36) ╟╧╘╧ FI1  ╨╧╦┼0212,1  ╧╒╘C      ╔╬├ BS      ╔╬├ SN   ╟╧╘╧ SCHL FI1: ╔╬├ SN ╟╧╙╒┬ ZEILEAUS
  8. ╟╧╘╧ SCHL
  9. ZEILEAUS: ╨╧╦┼ 0214,BZ ╧╒╘ 17 ╧╒╘ 13     B184_80
  10.  B185_195 B186_(SN-BS)  ╙┘╙ 49312 ╧╒╘145 ╧╒╘157 B1_0 ╥┼╨┼┴╘  ╧╒╘29      ╔╬├ B1 ╒╬╘╔╠ (B1>BS)╥┼╘╒╥╬ENDE: SN_1 BS_0 ╟╧╙╒┬ ZEILEAUS REVERS  ╙┘╙ 49392 S1:     I182_ZN
  11.  ╙┘╙49252 ╔╞ (I184>TEEND)   I182_4096   ╙┘╙49252  TEEND_(I184+2)
  12.   ╟╧╘╧ S1 ┼╬─╔╞ ╔╞ (C<>19)╟╧╘╧FI2   B50000_1 FI2:     A0_I184  ╟╧╙╒┬PEEK  A1_(A0+E1) L0_(TEEND-A1) A2_(A0+B50000) TEEND_((TEEND-E1)+B50000) ╟╧╙╒┬ VERSCH
  13.  A1_50000 A2_A0 L0_(╔╬╘(B50000-1),0) ╟╧╙╒┬ VERSCH ╔╞ (L0>0000) ╟╧╘╧ FI3  A1_A0  A2_(╔╬╘B50000,0)  ╟╧╙╒┬ POKE FI3: REVERS' ╔╞ ((C>=133)┴╬─(C<=140)) ╟╧╘╧ FTASTEN ╔╞ (C<>19) ╟╧╘╧ FI4&  ╔╞ ((TEEND-TEANF)<0003) ╟╧╘╧ BEGINN   A1_(A0+1)  A2_A0  L0_(TEEND-A0)   ─┼├ TEEND  ╟╧╙╒┬ VERSCH  ╟╧╘╧ BEGINN FI4: ╔╞ (C<>147) ╟╧╘╧ FI5  A1_A0   A2_(A0+1)  L0_(TEEND-A0)   ╔╬├ TEEND  ╟╧╙╒┬ VERSCH
  14.   A2_0001  ╟╧╙╒┬ POKE  ╟╧╘╧ BEGINN FI5:! ╔╞ ((C<>13)┴╬─(C<>17)) ╟╧╘╧ FI6      ╔╬├ ZN      ╔╬├ BZ  ╔╞ (BZ<=21) ╟╧╘╧ ZEILE  BZ_21
  15.   A1_1144
  16.   A2_1104  FI12:      L0_839  ╟╧╙╒┬ VERSCH  A1_(A1+54272)  A2_(A2+54272)  VERADR_49155  ╟╧╙╒┬ VERSCH  VERADR_49152
  17.   I182_ZN      B186_1   LEERZEILE   ╙┘╙49301  ╟╧╘╧ ZEILE FI6:# ╔╞ ((C<>145)╧╥(ZN=0000)) ╟╧╘╧ FI7      ─┼├ ZN      ─┼├ BZ  ╔╞ (BZ<128) ╟╧╘╧ ZEILE  BZ_0
  18.   A1_1104
  19.   A2_1144   ╟╧╘╧FI12 FI7: ╟╧╘╧ ZEILEVERSCH:$ ╔╞ ((L0=0000) ╧╥ (A1=A2)) ╟╧╘╧ FI8
  20.   I182_A1  E1_(A1+L0)
  21.   I184_E1
  22.   I186_A2  E2_(A2+L0)
  23.   I188_E2   ╙┘╙VERADR FI8:╥┼╘╒╥╬POKE: B182_(╠╧╫A2)     I184_A1  ╙┘╙ 49664╥┼╘╒╥╬PEEK:     I184_A0
  24.  ╙┘╙49680 E1_(╔╬╘B182,0)╥┼╘╒╥╬    FTASTEN:$╟╧╘╧ (╔╬╘┴╘((┴─╥F1)+((C-133)╙╚╠1)))LINKS: ─┼├ SN ─┼├ BS ╔╞ (BS>=38) ╟╧╘╧ FI9  ╧╒╘C      ╥┼╘╒╥╬ FI9: BS_0╟╧╘╧ ZEILEAUSRECHTS: ╔╬├ SN ╔╬├ BS ╔╞ (BS>=38) ╟╧╘╧ FI10  ╧╒╘C      ╥┼╘╒╥╬ FI10: BS_37╟╧╘╧ ZEILEAUSINST: A1_(50000+SN) L0_(0255-SN)  A2_(A1+1) ╟╧╙╒┬ VERSCH  ╨╧╦┼ A1,32╟╧╘╧ ZEILEAUSDEL: ╔╞ (SN>=254) ╟╧╘╧ FI11  A2_(49999+SN)  L0_(0255-SN)   A1_(A2+1)  ╟╧╙╒┬ VERSCH FI11: ╨╧╦┼ 50255,32 ─┼├ SN ─┼├ BS ╔╞(BS<128)╟╧╘╧ ZEILE AUS BS_0╟╧╘╧ZEILEAUSANFZ:  TB_(╬╧╘TB) ╨╧╦┼(50000+SN),C  ╨╧╦┼ZM,34 ╟╧╙╒┬ RECHTS
  25. ╟╧╘╧ SCHLF7:     ╧╒╘ 153 ╧╒╘ 19 ╧╒╘ 13  LEERZEILE  ?"┌EILE:"; ?(╙╘╥(╥┼┴╠ZN)) ╔╬╨╒╘"æ";A     ╧╒╘ 158 ZN_(╔╬╘(╥┼┴╠A)) BZ_10 ╔╞(ZN>=(╔╬╘ BZ,0))╟╧╘╧BEGINN  BZ_(╠╧╫ZN) ╟╧╘╧ BEGINNF8: B182_0╙┘╙0182REVERS: ╨╧╦┼ ZM,((╨┼┼╦ZM)┼╪╧╥128)╥┼╘╒╥╬F1:/ ?"Ö╠╧┴─, ╘┼╪╘╙┴╓┼, ╙┴╓┼, ─╔╥             ₧" WAIT ╔╞(C=76)╟╧╘╧LOAD ╔╞(C=84)╟╧╙╒┬TEXTS ╔╞(C=83)╟╧╙╒┬SAVE ╔╞(C=68)╟╧╙╒┬DIR ╟╧╘╧BEGINNLEER:     ╧╒╘ 145  LEERZEILE  ?"Ö     "; ?NAME ╔╬╨╒╘"æ╬AME:";NAME     ╧╒╘ 158╥┼╘╒╥╬LOAD: LEER BZ_0     ZN_0000 ╧╨┼╬1,DRIVE,0,NAME  I182_TEANF
  26.  ╙┘╙49536 TEEND_(I182-1) ├╠╧╙┼1 ╔╞(TEANF=TEEND)╟╧╙╒┬NEW
  27. ╟╧╘╧ HIDEDIR:     ╧╒╘ 147  ╙┘╙ 49424 WAIT╥┼╘╒╥╬NEW: BZ_0     ZN_0000
  28.  A1_TEANF
  29.  A2_00000  ╟╧╙╒┬ POKE TEEND_(TEANF+2)  BLBE_0000  BLEN_BLBE╥┼╘╒╥╬TEXTS: LEER ╧╨┼╬1,DRIVE,1,("@:"+NAME)  I182_TEANF (╔╬╘┴╘0187)_(TEEND+1)
  30.  ╙┘╙49576 ├╠╧╙┼1╥┼╘╒╥╬SAVE: TEXTS  ╙┘╙ 51000╥┼╘╒╥╬F4:/ ?"ôù     E├OM ╓2.4 VON ╩OHANNES ╘IMMER    ₧" ?"1. ╘EXT   : $" ?"2. ╨ROGRAM: $" ?"3. ├ONST. : $" ?"4. ╓ARIAB.: $" B1_0 ╥┼╨┼┴╘  Z_((┴─╥TEANF)+(B1╙╚╠2))  ?"";  ?(╙╘╥(╔╬╘┴╘Z));   ?" - $";  ?(╙╘╥(╔╬╘┴╘(Z+2)))      ╔╬├ B1 ╒╬╘╔╠ (B1>3) ?"5) ─RIVE:"; ?(╙╘╥DRIVE) WAIT" ╔╞ ((C<49)╧╥ (C>53)) ╟╧╘╧ BEGINN ╔╞ (C=53) ╟╧╘╧ FI13  ╔╬╨╒╘ "$";A   Z_(╔╬╘A)  Z1_((┴─╥TEANF)+((C-49)╙╚╠2))  (╔╬╘┴╘Z1)_Z  (╔╬╘┴╘(Z1+2))_Z  ╔╞ (C<>49) ╟╧╘╧ F4  I49662_TEANF   ╟╧╙╒┬ NEW
  31.   ╟╧╘╧ F4 FI13:  ╔╬├ DRIVE DRIVE_(DRIVE┴╬─15)╟╧╘╧ F4F5:  ╙┘╙ 24064 ╟╧╘╧ BEGINNF6:     ╧╒╘ 147 ╨╧╦┼ 53270,200 ╨╧╦┼ 53265,27  ╙┘╙ PRANF ╧╒╘13 ?"EOP" WAIT ╟╧╘╧ BEGINNF3:/ ?"Ö┬┼╟╔╬, ┼╬─, ├╧╨┘, ─┼╠, ╚╔─┼           ₧" WAIT ╔╞ (C=66) ╟╧╘╧ BEGIN ╔╞ (C=69) ╟╧╘╧ END ╔╞ (C=72) ╟╧╘╧ HIDE╔╞ (BLBE>=BLEN) ╟╧╘╧ ZEILE ╔╞ (C=67) ╟╧╘╧ COPY ╔╞ (C=68) ╟╧╘╧ DEL2 ╟╧╘╧ ZEILEBEGIN:     BLBE_ZN ╟╧╘╧ BEGINNEND:     BLEN_ZN ╟╧╘╧ BEGINNHIDE:  BLBE_0000  BLEN_BLBE ╟╧╘╧ BEGINNCHECK:     ╧╒╘ 158$ ╔╞ ((Z<BLBE)╧╥(Z>=BLEN)) ╟╧╘╧ FI15
  32.   ╧╒╘ 150 FI15:╥┼╘╒╥╬FOUND:  I182_BLEN  ╙┘╙ 49252     A1_I184  I182_BLBE  ╙┘╙ 49252     A2_I184 L0_(TEEND-A1)╥┼╘╒╥╬DEL2: FOUND VERSCH TEEND_(TEEND-(A1-A2))
  33. ╟╧╘╧ HIDECOPY: FOUND L0_((A1-A2)-1) Z1_L0 A1_A2     A2_1024     ╧╒╘ 144     ╧╒╘ 147 VERSCH     I182_ZN  ╙┘╙ 49252 Z_I184 A1_Z A2_((Z+Z1)+1) L0_(TEEND-A1) VERSCH     A1_1024 A2_Z L0_Z1 VERSCH TEEND_((TEEND+L0)+1)
  34. ╟╧╘╧ HIDEF2:  ╧╨┼╬1,4,0
  35.  ├═─╧╒╘ 1 ╨╧╦┼ 0154,4     Z_TEANF C_0 HC_C ╥┼╨┼┴╘  ╙┼╔  ╨╧╦┼ 0001,52  B1_(╨┼┼╦Z)  ╨╧╦┼ 0001,55  ├╠╔  ╔╞ (C>0) ╟╧╘╧ FI16   HC_(C=B1)   C_B1       B1_13  FI16:      ╧╒╘ B1  ─┼├ C  ╔╬├ Z
  36.  ╒╬╘╔╠ HC     ├╠╧╙┼ 1 ├═─┼╬─ ╟╧╘╧ BEGINN LEERZEILE:, ?"                                      æ"╥┼╘╒╥╬╥╧