Classic Computer Magazine Archive COMPUTE! ISSUE 72 / MAY 1986 / PAGE 72

Applesoft
List Enhancer

Steven Roth

Tired of program listings that whiz across the screen at unreadable speeds? This short utility for Apple II computers lets you scroll through a listing at your own pace, one screenful at a time. For all Apple II-series computers with DOS 3.3 and ProDOS.


LIST is one of the most frequently used commands in Applesoft BASIC, yet it has some inconvenient features. The program listing scrolls upward too fast to read, unless you repeatedly press CTRL-S. If you pass the program lines you want to see, you have to LIST the program again.
    "Applesoft List Enhancer" is a machine language program that solves both of these problems. It divides the program listing into pages, and each page consists of one screenful of the listing. Instead of scrolling through the listing in only one direction, you now page through it, either forward or backward.
    Type in and save the program below, then run it. This BASIC program automatically creates a machine language file on disk named ALE. (Don't use the name ALE for the BASIC program or you'll get a FILE TYPE MISMATCH error.) Once that's done, you don't need the BASIC program again except to create new copies of ALE.
    Enter BRUN ALE to install and activate the List Enhancer. Now load any Applesoft BASIC program. To list it, type an ampersand (&) followed by an optional starting line number. If you don't enter any line number, the program is listed from the beginning.
    The right and left arrow keys let you page forward or backward through the listing. Press the right arrow key to display the next screenful of program lines; the left arrow key displays the previous page. To exit listing mode so you can edit a line, press either the ESC key or CTRL-C.

Applesoff LIST Enhancer
For instructions on entering this listing, please
refer to "COMPUTEI's Guide to Typing In
Programs" in this issue of COMPUTE!.


l0 100 FOR I = 24576 TO 24847: R
       EAD A: POKE I,A:CK = CK +
        A: NEXT
1D 110 IF CK < > 33557 THEN PRIN
       T "ERROR IN DATA STATEMEN
       TS.": STOP
40 120 PRINT CHR$ (4)"BSAVE ALE,
       A$6000,L$110"
2D 130 DATA 169,32,141,245,3,169
       ,16,141
52 140 DATA 246,3,169,96,141,247
       ,3,96
D9 150 DATA 32,12,218,32,26,214,
       165,80
71 160 DATA 141,32,97,165,81,141
       ,33,97
24 170 DATA 32,88,252,160,0,132,
       6,200
66 180 DATA 132,30,132,249,177,1
       55,240,75
8A 190 DATA 200,177,155,170,200,
       177,155,132
01 200 DATA 9,133,8,134,7,32,36,
       237
1C 210 DATA 164,9,169,32,32,92,2
       19,165
El 220 DATA 36,201,33,144,15,230
       ,30,16S
82 230 DATA 30,201,23,240,48,32,
       142,253
61 240 DATA 169,5,133,36,200,177
       ,155,208
5E 250 DATA 81,168,177,155,170,2
       00,177,155
50 260 DATA 134,155,133,156,32,1
       42,253,230
A1 270 DATA 30,165,30,201,23,240
       ,14,160
18 280 DATA 1,208,177,230,6,230,
       6,169
61 290 DATA 0,133,249,240,17,230
       ,6,230
68 300 DATA 6,164,6,165,7,153,32
       ,97
45 310 DATA 200,165,8,153,32,97,
       32,12
DD 320 DATA 253,201,155,240,18,2
       01,131,240
A0 330 DATA 14,201,149,240,101,2
       01,136,240
17 340 DATA 58,32,58,255,76,150,
       96,76
A4 350 DATA 208,3,16,144,56,233,
       127,170
CA 360 DATA 132,9,160,208,132,15
       7,160,207
78 370 DATA 132,158,160,255,202,
       240,7,32
37 380 DATA 44,215,16;251,48;246
       ,169,32
B2 390 DATA 32,92,219,32,44,215,
       48,5
17 400 DATA 32,92,219,208,246,32
       ,92,219
25 410 DATA 76,64,96,165,6,201,2
       ,240
5F 420 DATA 192,56,233,4,133,6,1
       66,6
C7 430 DATA 189,32,97,133,80,232
       ,189,32
09 440 DATA 97,133,81,32,26,214,
       32,88
97 450 DATA 252,160,1,132,30,132
       ,249,76
CA 460 DATA 44,96,165,249,208,22
       4,240,153