9950 R:PILOT AUTO LINE DELETER
9951 R:ANTIC #8 K. W. HARMS
9952 *DELETER
9953 T:} [CLEAR SCREEN
9954 POS:2,11
9955 T:      �����Ԡ������Ҡ
9956 *REENTER
9957 T:
9958 T:ENTER LINE NUMBERS TO BE DELETED:
9959 *NEWSTART
9960 T:START      \
9961 A:#S
9962 T(#S<0)+(#S>9999):�ENTER NEW START      [� IS BELL. TYPE ESC,CTRL,2
9963 J(#S<0)+(#S>9999):*NEWSTART
9964 *NEWEND
9965 T:END        \
9966 A:#E
9967 T(#E<0)+(#E>9999):�ENTER NEW END
9968 J(#E<0)+(#E>9999):*NEWEND
9969 T(#S>#E):�START LARGER THAN END
9970 J(#S>#E):*REENTER
9971 *NEWINCREMENT
9972 T:INCREMENT  \
9973 A:#I
9974 T(#I<1)+(#I>100):�ENTER NEW INCREMENT
9975 J(#I<1)+(#I>100):*NEWINCREMENT
9976 *PRINTLINES
9977 GR:QUIT
9978 C:#L=0 [Line counter
9979 POS:2,2
9980 *PRINTLOOP
9981 C:#L=#L+1[Increment line counter
9982 T:#S     [Line number to delete
9983 C:#S=#S+#I
9984 J(#S>#E):*DELETE [Job done
9985 J(#L=20):*DELETE [Enough lines
9986 J:*PRINTLOOP
9987 *DELETE
9988 T:J:*RESTART[Command on screen
9989 POS:0,0    [Get to top of screen
9990 C:@B842=13 [Set to read screen
9991 E:         [Stops, gives control                  to the screen reader
9992 *RESTART
9993 C:@B842=12  [Set write to screen
9994 T(#S=#E)+(#S>#E):}� �����Š�
9995 E(#S=#E)+(#S>#E):
9996 J:*PRINTLINES
9997 R:���Ġ�Ơ�����͠

---

Back to previous page