> There is also:
> SpeedScript - in Nibble magazine
> Edit - by Bill Tudor which is on Softdisk
> GraphicWriter - though more of a presentation software
> HomeWord
> Softword
> DotWriter
>
> SuperTextHomeOffice
> TextPro
> WriterRabbit
> There are also some very good Text Editors with assemblers and Terminal programs
> SC Assembler
> Merlin 8
> Edasm
> Proterm has an excellent word processor
My personal favorite is the one I wrote (of course :)
Right here Right now!
QUICKNOTES (the program)(requires 80 column card of a IIe/IIc/IIGS)
- make quick notes without loading big applications
- up to 10 screen fulls can be created and saved in a text file
- when saving a file, enter the filename to save in the current path
or, enter the full path to save anywhere on the volume.
i.e /MYVOL/DIR/FILENAME
USAGE:
- use the ESC sequence with the arrow keys to navigate
- does not have insert mode
- press RTN or ESC down-arrow until you get to the 22nd line, then RTN for menu
- when the menu is displayed, you can page forward and backward with the arrows
- you may also go directly to any page by pressing its page number 0-9
- if you use the ESC sequence past line #22, the screen will scroll up and lose
the top lines. Don't fret. Use ESC to go back up to line# 22, press return
to get the menu, press the up arrow to scroll the screen down, and retype
the top few lines that scrolled off the screen
- B) Blank Screen blanks the current page only. It does not advance to the
next page. Use the arrow keys to advance to the next page.
0 REM uses scrn801
1 LOMEM: 8192
3 DIM B$(21,9):D$ = CHR$ (4): IF PEEK (3574) < > 14 OR PEEK (1015) < > 14 THEN PRINT D$"-/
my.work/cmds2000/scrn801"
4 PRINT CHR$ (27): GOSUB 130: GOTO 15
5 GOSUB 60: ONERR GOTO 7
6 ON NOT FL GOTO 15: PRINT D$C$(FL)F$: PRINT D$D$(FL - 1)F$: GOSUB 70
7 PRINT D$"CLOSE":X = PEEK (222): POKE 216,0: IF X = 5 AND I = 0 AND J = 0 THEN PRINT D$"DELETE"F$
8 CALL - 3288
9 I = 0: GOSUB 400: GOSUB 100: GOTO 15
10 VTAB 1: POKE 1403,0
14 CALL 64879: ON PEEK (37) > 21 GOTO 15: ON PEEK (49168) = 13 GOTO 14
15 TEXT : GOSUB 100: & GET X: ON X = 27 GOTO 57
16 IF X > 47 AND X < 58 THEN GOSUB 300:I = X - 48: GOSUB 400: PRINT CHR$ (25): GOTO 15
17 IF X = 21 OR X = 8 THEN GOSUB 300:J = I:I = I + (X = 21) * (I < 9) - (X = 8) * (I > 0): ON J < > I GOSUB 400: PRINT CHR$ (25);: GOTO 15
18 IF X = 11 THEN POKE 35,22: PRINT CHR$ (22);: GOTO 15
19 IF X = 10 THEN POKE 35,22: PRINT CHR$ (23);: GOTO 15
20 ON X = 76 OR X = 108 GOTO 5
25 IF X = 63 THEN HOME : PRINT D$"CATALOG": GOTO 15
28 IF X = 32 THEN VTAB 23: PRINT CHR$ (26): PRINT "Use ESC + arrow keys to navigate" CHR$ (29);: GOTO 10
29 IF X = 66 OR X = 98 THEN HOME : GOTO 15
30 ON X < > 83 AND X < > 115 GOTO 15: GOSUB 300
35 VTAB 22: PRINT : PRINT "New name -> " CHR$ (29);: & INPUT F$:X = I
37 ON F$ = "" GOTO 15: ONERR GOTO 45
40 PRINT D$C$(1)F$: PRINT D$D$(1)F$: GOSUB 50
45 PRINT D$"CLOSE": POKE 216,0:I = X: GOTO 15
50 FOR I = 0 TO 9: IF B$(0,I) = "" THEN NEXT : PRINT CHR$ (0);: RETURN
51 ON I = 9 GOTO 52: IF B$(0,I + 1) < > "" THEN FOR K = 21 TO 0 STEP - 1: GOTO 55
52 FOR K = 21 TO 0 STEP - 1: IF B$(K,I) = "" THEN NEXT : STOP
55 FOR J = 0 TO K: PRINT B$(J,I): NEXT :K = 0: NEXT : NEXT : PRINT CHR$ (0);: RETURN
57 TEXT : END
60 VTAB 22: PRINT : PRINT CHR$ (26)"File to load -> ";: & INPUT F$:FL = F$ < > "": RETURN
70 IF NOT FL THEN RETURN
75 FOR I = 0 TO 9: FOR J = 0 TO 21: & INPUT L$:G$ = L$
76 IF LEN (G$) > 79 THEN B$(J,I) = LEFT$ (G$,79):J = J + 1:G$ = MID$ (G$,79):I = I + (J > 21): ON J < 22 GOTO 76:J = 0: GOTO 76
80 B$(J,I) = G$: NEXT : NEXT : RETURN
100 VTAB 23: PRINT : PRINT "ESC-Quit <SPC> Edit B) Blank Scrn L) Load S) Save ^ v <- -> page# "I;
120 RETURN
130 C$(0) = "PR#3":C$(1) = "OPEN":D$(0) = "READ":D$(1) = "WRITE": RETURN
300 FOR J = 0 TO 21: & DEF B$(J,I),J: NEXT : RETURN
400 HOME : FOR J = 0 TO 21: PRINT B$(J,I): NEXT : RETURN
DF0: a9 00 8d f6 03 a9 0e 8d f7 03 60 00 00 00 00 60
: c9 84 d0 2b 20 b1 00 20 e3 df 20 6c dd 85 85 84
: 86 20 6f fd 9e 00 02 bd ff 01 09 80 c9 8d d0 03
: 9e ff 01 a2 ff a9 00 a0 02 20 e9 e3 4c 9a da c9
: be d0 2f 20 b1 00 20 e3 df a9 20 20 ed fd a9 88
: 20 ed fd ad 00 c0 10 fb 29 7f 20 93 eb a4 84 a6
: 83 20 2b eb a9 a0 20 ed fd a9 88 20 ed fd ad 10
: c0 60 c9 b8 d0 49 20 b1 00 20 e3 df 20 6c dd 85
: 85 84 86 20 4c e7 8a 20 47 f8 a0 00 a2 00 2c 55
: c0 b1 26 2c 54 c0 9d 28 02 e8 b1 26 9d 28 02 c8
: e8 e0 50 90 e9 ca 30 07 bd 28 02 c9 a0 f0 f6 e8
: 9e 28 02 a2 ff a9 28 a0 02 20 e9 e3 4c 9a da c9
: ba d0 13 20 b1 00 20 7b dd 20 00 e6 86 07 84 06
: aa d0 03 4c 8e fd 60 00
BSAVE SCRN801,A$DF0,L$D8