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: ÅÎÄ ÏÆ ÐÒÏÇÒÁÍ ›