Line justifier (Rainbow 1981-08) - Revision history

Luis46coco: /* Links */

2020-11-04T23:13:03Z

Links

← Older revision		Revision as of 19:13, 4 November 2020
Line 73:		Line 73:

	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]		[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]<br>
	Virtual disk with programs from (Rainbow 1981-08): [[File:1981-08.dsk]]		Virtual disk with programs from (Rainbow 1981-08): [[File:1981-08.dsk]]
	[[Category:Word Processing]]		[[Category:Word Processing]]

Luis46coco at 23:12, 4 November 2020

2020-11-04T23:12:40Z

← Older revision		Revision as of 19:12, 4 November 2020
Line 71:		Line 71:
	470 PRINT@X,F1$:PRINT@Y,F2$:PRINT@Z,F3$:PRINT@Q,F4$:RETURN		470 PRINT@X,F1$:PRINT@Y,F2$:PRINT@Z,F3$:PRINT@Q,F4$:RETURN
	</pre>		</pre>
	~~==Files==~~
	~~[[File:Rainbow_1981-08.DSK]]~~

	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]		[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]
			Virtual disk with programs from (Rainbow 1981-08): [[File:1981-08.dsk]]
	[[Category:Word Processing]]		[[Category:Word Processing]]

Luis46coco: /* Files */

2020-09-24T07:13:48Z

Files

← Older revision		Revision as of 03:13, 24 September 2020
Line 72:		Line 72:
	</pre>		</pre>
	==Files==		==Files==
	[[File:~~Rainbow 1981~~-08.DSK]]		[[File:Rainbow_1981-08.DSK]]

	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]		[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]
	[[Category:Word Processing]]		[[Category:Word Processing]]

Luis46coco: /* Files */

2020-09-24T07:12:53Z

Files

← Older revision		Revision as of 03:12, 24 September 2020
Line 72:		Line 72:
	</pre>		</pre>
	==Files==		==Files==
	[[File:1981-08.~~dsk~~]]		[[File:Rainbow 1981-08.DSK]]

	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]		[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]
	[[Category:Word Processing]]		[[Category:Word Processing]]

Luis46coco: /* Files */

2020-09-14T17:29:26Z

Files

← Older revision		Revision as of 13:29, 14 September 2020
Line 72:		Line 72:
	</pre>		</pre>
	==Files==		==Files==
	[[File:~~1981July~~.dsk]]		[[File:1981-08.dsk]]

	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]		[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]
	[[Category:Word Processing]]		[[Category:Word Processing]]

Luis46coco at 17:27, 14 September 2020

2020-09-14T17:27:35Z

← Older revision		Revision as of 13:27, 14 September 2020
Line 71:		Line 71:
	470 PRINT@X,F1$:PRINT@Y,F2$:PRINT@Z,F3$:PRINT@Q,F4$:RETURN		470 PRINT@X,F1$:PRINT@Y,F2$:PRINT@Z,F3$:PRINT@Q,F4$:RETURN
	</pre>		</pre>
			==Files==
			[[File:1981July.dsk]]
	==Links==		==Links==
	[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]		[https://archive.org/details/rainbowmagazine-1981-08/page/n0 See Rainbow Magazine 1981-08 Pag 1, in archive.org]
	[[Category:Word Processing]]		[[Category:Word Processing]]

Luis46coco at 01:54, 14 September 2020

2020-09-14T01:54:24Z

← Older revision		Revision as of 21:54, 13 September 2020
Line 15:		Line 15:

	The remainder of the program is devoted to the display and the graphic signature for the program and the software.		The remainder of the program is devoted to the display and the graphic signature for the program and the software.

	[[File:Falsoft Mini Word Processor.png]]		[[File:Falsoft Mini Word Processor.png]]

			==Notes:==
			Transcriber's note: It only captures the line and prints it, I can't understand why the 2-line version is smaller, the one-line version fits 80 characters (2 lines and a half screen, 15 + 64 = 79)

	==THE LISTING......==		==THE LISTING......==
	<pre>10 CLS		<pre>10 CLS

Luis46coco: /* THE LISTING...... */

2020-09-13T23:51:26Z

THE LISTING......

← Older revision		Revision as of 19:51, 13 September 2020
Line 30:		Line 30:
	110 N$=" ":L=4		110 N$=" ":L=4
	120 GOSUB380:GOSUB390: GOSUB400:PRINT" ONE-COLUMN FORMAT"		120 GOSUB380:GOSUB390: GOSUB400:PRINT" ONE-COLUMN FORMAT"
	130 PRINT@160, STRING$(32,43);:PRINT@271,CHR$(128);"<--SPACE TO HERE":PRINT@288,STRING$(32,45);:PRINT@322,"...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUTA$		130 PRINT@160, STRING$(32,45);:PRINT@271,CHR$(128);"<--SPACE TO HERE":PRINT@288,STRING$(32,45);:PRINT@322," ...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUTA$
	140 IF RIGHT$(A$,1)="" THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,79):GOTO170		140 IF RIGHT$(A$,1)="" THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,79):GOTO170
	150 PRINT#-2,A$		150 PRINT#-2,A$
Line 44:		Line 44:
	250 N$=" ":L=4		250 N$=" ":L=4
	260 GOSUB380:GOSUB390:GOSUB400:PRINT" TWO-COLUMN FORMAT"		260 GOSUB380:GOSUB390:GOSUB400:PRINT" TWO-COLUMN FORMAT"
	270 PRINT@160,STRING$(32,45):PRINT@230,CHR$(128);"<--SPACE TO HERE":PRINT@256,STRING$(32,43);:PRINT@320,"...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUT A$		270 PRINT@160,STRING$(32,45):PRINT@230,CHR$(128);"<--SPACE TO HERE":PRINT@256,STRING$(32,45);:PRINT@320," ...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUT A$
	280 IF RIGHT$(A$,1)=" " THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,37):GOTO310		280 IF RIGHT$(A$,1)=" " THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,37):GOTO310
	290 PRINT#-2,A$		290 PRINT#-2,A$

Luis46coco at 23:05, 13 September 2020

2020-09-13T23:05:20Z

← Older revision		Revision as of 19:05, 13 September 2020
Line 15:		Line 15:

	The remainder of the program is devoted to the display and the graphic signature for the program and the software.		The remainder of the program is devoted to the display and the graphic signature for the program and the software.
			[[File:Falsoft Mini Word Processor.png]]
	==THE LISTING......==		==THE LISTING......==
	<pre>10 CLS		<pre>10 CLS

Luis46coco: /* THE LISTING...... */

2020-09-13T22:56:37Z

THE LISTING......

← Older revision		Revision as of 18:56, 13 September 2020
Line 20:		Line 20:
	20 CLEAR1000		20 CLEAR1000
	30 GOSUB410		30 GOSUB410
	40 ~~GOSUB38~~:GOSUB390:GOSUB400:~~PRINTSTRIN~~$(32,45)		40 GOSUB380:GOSUB390:GOSUB400:PRINTSTRING$(32,45)
	30 PRINT:PRINT"SELECT MODE:"		30 PRINT:PRINT"SELECT MODE:"
	60 PRINT" (1) ONE-COLUMN FORMAT":PRINT" (2) TWO-COLUMN FORMAT":PRINT:INPUT" ENTER HUMBER";ZZ		60 PRINT" (1) ONE-COLUMN FORMAT":PRINT" (2) TWO-COLUMN FORMAT":PRINT:INPUT" ENTER HUMBER";ZZ
	65 ON ZZ ~~GOT0100~~,240		65 ON ZZ GOTO100,240
	70 PRINT:INPUT "ENTER ONLY 1 OR 2 PLEASE";ZZ		70 PRINT:INPUT "ENTER ONLY 1 OR 2 PLEASE";ZZ
	80 ON ZZ GOT0100,240		80 ON ZZ GOT0100,240
	90 IF ZZ<>l OR ZZ<>2 THEN 70		90 IF ZZ<>1 OR ZZ<>2 THEN 70
	100 CLS		100 CLS
	110 N$=" ":L=4		110 N$=" ":L=4
	120 GOSUB380:GOSUB390: GOSUB400:PRINT" ONE-COLUMN FORMAT"		120 GOSUB380:GOSUB390: GOSUB400:PRINT" ONE-COLUMN FORMAT"
	130 PRINT@160, STRING$(32,43);:PRINT@271,CHR$(128); "<--SPACE TO HERE":PRINT@288,STRING$(32,45);:PRINT@322,"~~•••~~ LAST LINE ~~•••~~ ":PRINTA$:PRINT@192,"";:LINE INPUTA$		130 PRINT@160, STRING$(32,43);:PRINT@271,CHR$(128);"<--SPACE TO HERE":PRINT@288,STRING$(32,45);:PRINT@322,"...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUTA$
	140 IF RIGHT$(A$,1)="" THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,79):GOTO170		140 IF RIGHT$(A$,1)="" THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,79):GOTO170
	~~130~~ PRINT#-2,A$		150 PRINT#-2,A$
	160 GOTO100		160 GOTO100
	170 B-INSTR(L,A$,N$)		170 B=INSTR(L,A$,N$)
	180 C$=LEFT$(A$,B)		180 C$=LEFT$(A$,B)
	190 E$=RIGHT$(A$,79-B)		190 E$=RIGHT$(A$,79-B)
Line 44:		Line 44:
	250 N$=" ":L=4		250 N$=" ":L=4
	260 GOSUB380:GOSUB390:GOSUB400:PRINT" TWO-COLUMN FORMAT"		260 GOSUB380:GOSUB390:GOSUB400:PRINT" TWO-COLUMN FORMAT"
	270 PRINT@ 160,STRING$(32,45);PRINT@230,CHR$(128);"<--SPACE TO HERE":'PRINT@256,STRING$(32,43);:PRINT@320," ~~•••~~ LAST LINE ~~•••~~":PRINTA$:PRINT@192,"";:LINE INPUT A$		270 PRINT@160,STRING$(32,45):PRINT@230,CHR$(128);"<--SPACE TO HERE":PRINT@256,STRING$(32,43);:PRINT@320,"...LAST LINE...":PRINTA$:PRINT@192,"";:LINE INPUT A$
	280 IF RIGHT$(A$,1)=" " THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,37):~~GOT0310~~		280 IF RIGHT$(A$,1)=" " THEN A$=RIGHT$(A$,1):A$=LEFT$(A$,37):GOTO310
	290 PRINT#-2,A$		290 PRINT#-2,A$
	300 ~~GOT0240~~		300 GOTO240
	~~311~~ B=INSTR(L,A$,N$)		310 B=INSTR(L,A$,N$)
	320 C$=LEFT$(A$,B)		320 C$=LEFT$(A$,B)
	330 E$=RIGHT$(A$,37-B)		330 E$=RIGHT$(A$,37-B)
Line 55:		Line 55:
	360 L=LEN(D$)+3		360 L=LEN(D$)+3
	370 GOTO280		370 GOTO280
	~~381 Fl~~$=CHR$(129+CHR$(131)+CHR$(133):F2$=CHR$(132)+CHR$(141):F3$=CHR$(133):F4$=CHR$(128+15):RETURN		380 F1$=CHR$(129)+CHR$(131)+CHR$(133):F2$=CHR$(132)+CHR$(141):F3$=CHR$(133):F4$=CHR$(128+15):RETURN
	390 CLS:PRINT@34,F1$: PRINT@66,F2$:PRINT@98,F3$:RETURN		390 CLS:PRINT@34,F1$: PRINT@66,F2$:PRINT@98,F3$:RETURN
	400 PRINT@99,"ALSOFT MINI -WORD PROCESSOR":RETURN		400 PRINT@99,"ALSOFT MINI -WORD PROCESSOR":RETURN