40-Column Listing One-Liner - Revision history

Jhoger at 05:28, 12 January 2009

2009-01-12T05:28:42Z

← Older revision		Revision as of 22:28, 11 January 2009
Line 7:		Line 7:
	The following code works for all lines:		The following code works for all lines:

	[[Image:coliz2.png\|~~left~~\|frame\|COLIZ2]]		[[Image:coliz2.png\|center\|frame\|COLIZ2]]
	<pre>		<pre>
	10 CLEAR 512		10 CLEAR 512

2009-01-12T05:25:55Z

← Older revision		Revision as of 22:25, 11 January 2009
Line 6:		Line 6:

	The following code works for all lines:		The following code works for all lines:

			[[Image:coliz2.png\|left\|frame\|COLIZ2]]
	<pre>		<pre>
	10 CLEAR 512		10 CLEAR 512

2009-01-12T04:08:39Z

← Older revision		Revision as of 21:08, 11 January 2009
Line 14:		Line 14:
	50 C=ASC(A$)		50 C=ASC(A$)
	60 IF S$="IDLE" AND C=13 THEN S$="SKIP":GOTO 100		60 IF S$="IDLE" AND C=13 THEN S$="SKIP":GOTO 100
	70 IF S$="SKIP" AND C=10 THEN LPRINT T$:T$="":S$="IDLE":GOTO 100: ELSE IF S$="SKIP" THEN PRINT "CR W/OUT LF": END		70 IF S$="SKIP" AND C=10 THEN LPRINT T$:T$="":S$="IDLE":
			GOTO 100: ELSE IF S$="SKIP" THEN PRINT "CR W/OUT LF": END
	80 T$=T$+A$		80 T$=T$+A$
	90 IF LEN(T$)=40 THEN LPRINT T$:T$=""		90 IF LEN(T$)=40 THEN LPRINT T$:T$=""
	100 IF EOF(1) THEN LPRINT T$;:END ELSE GOTO 40		100 IF EOF(1) THEN LPRINT T$;:END ELSE GOTO 40
	</pre>		</pre>

2009-01-12T04:08:04Z

← Older revision		Revision as of 21:08, 11 January 2009
Line 3:		Line 3:
	It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.		It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.

	NOTE: This version has a glitch on lines larger than 255 characters. ~~This will be fixed in a future version.~~		NOTE: This version has a glitch on lines larger than 255 characters.

			The following code works for all lines:
			<pre>
			10 CLEAR 512
			20 INPUT "FILE";F$
			30 OPEN F$ FOR INPUT AS 1
			32 S$="IDLE"
			40 A$=INPUT$(1,1)
			50 C=ASC(A$)
			60 IF S$="IDLE" AND C=13 THEN S$="SKIP":GOTO 100
			70 IF S$="SKIP" AND C=10 THEN LPRINT T$:T$="":S$="IDLE":GOTO 100: ELSE IF S$="SKIP" THEN PRINT "CR W/OUT LF": END
			80 T$=T$+A$
			90 IF LEN(T$)=40 THEN LPRINT T$:T$=""
			100 IF EOF(1) THEN LPRINT T$;:END ELSE GOTO 40
			</pre>

2009-01-11T04:13:44Z

← Older revision		Revision as of 21:13, 10 January 2009
Line 3:		Line 3:
	It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.		It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.

	NOTE: This ~~problem~~ has a glitch on lines larger than 255 characters. This will be fixed in a future version.		NOTE: This version has a glitch on lines larger than 255 characters. This will be fixed in a future version.

2009-01-11T03:25:21Z

← Older revision		Revision as of 20:25, 10 January 2009
Line 2:		Line 2:

	It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.		It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.

			NOTE: This problem has a glitch on lines larger than 255 characters. This will be fixed in a future version.

2009-01-06T08:32:28Z

← Older revision		Revision as of 01:32, 6 January 2009
Line 1:		Line 1:
	This program, COLIZE [[Image:colize.png\|right\|frame\|COLIZE]] prints out a text file as a non-word wrapped, 40-character column of text.		This program, COLIZE [[Image:colize.png\|right\|frame\|COLIZE]] prints out a text file as a non-word wrapped, 40-character column of text.

	It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-~~processing (cropping~~ and ~~scaling~~ to 72dpi~~) to create the image~~.		It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processed using Ghostscript and GIMP to crop and scale to 72dpi.

2009-01-06T08:30:39Z

← Older revision		Revision as of 01:30, 6 January 2009
Line 1:		Line 1:
	This program [[Image:colize.png\|right\|frame\|COLIZE]] prints out a text file as a non-word wrapped, 40-character column of text.		This program, COLIZE [[Image:colize.png\|right\|frame\|COLIZE]] prints out a text file as a non-word wrapped, 40-character column of text.

	It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processing (cropping and scaling to 72dpi) to create the image.		It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processing (cropping and scaling to 72dpi) to create the image.

2009-01-06T08:29:45Z

← Older revision		Revision as of 01:29, 6 January 2009
Line 1:		Line 1:
	[[Image:colize.png\|right\|frame\|COLIZE]]		This program [[Image:colize.png\|right\|frame\|COLIZE]] prints out a text file as a non-word wrapped, 40-character column of text.

			It was used to create the listing of this one-liner. The image was created by printing to VirtualT's FX-80 emulation, and post-processing (cropping and scaling to 72dpi) to create the image.

2009-01-06T08:26:14Z

← Older revision		Revision as of 01:26, 6 January 2009
Line 1:		Line 1:
	[[Image:colize.png\|frame\|~~right~~ COLIZE]]		[[Image:colize.png\|right\|frame\|COLIZE]]