80 Column Mode 1 - Revision history

Polluks: Category

2026-05-10T11:08:44Z

Devilmarkus at 22:38, 10 May 2015

2015-05-10T22:38:51Z

Devilmarkus at 22:14, 10 May 2015

2015-05-10T22:14:45Z

Devilmarkus at 19:06, 9 May 2015

2015-05-09T19:06:30Z

Erikarn: Created page with "= BASIC example: 80 column text (4x8) in MODE 1 =

  10 DIM a(10):MODE 1:SYMBOL AFTER 32:FOR t=33 TO 255:PRINT CHR$(t);:NEXT:y=398:PRINT:sy=33  20 FOR n=1 TO 6:FOR p=2 TO..."

2015-05-09T18:26:30Z

Created page with "= BASIC example: 80 column text (4x8) in MODE 1 = <pre> 10 DIM a(10):MODE 1:SYMBOL AFTER 32:FOR t=33 TO 255:PRINT CHR$(t);:NEXT:y=398:PRINT:sy=33 20 FOR n=1 TO 6:FOR p=2 TO..."

New page

= BASIC example: 80 column text (4x8) in MODE 1 =

<pre>
10 DIM a(10):MODE 1:SYMBOL AFTER 32:FOR t=33 TO 255:PRINT CHR$(t);:NEXT:y=398:PRINT:sy=33
20 FOR n=1 TO 6:FOR p=2 TO 640 STEP 16
30 FOR k=1 TO 8
40 b$="":FOR x=1 TO 16 STEP 4:IF TEST(p+x,y)=0 THEN b$=b$+"0" ELSE b$=b$+"1"
50 NEXT
60 y=y-2:b$=b$+b$:a(k)=VAL("&x"+b$):NEXT:y=y+16
70 SYMBOL sy,a(1),a(2),a(3),a(4),a(5),a(6),a(7),a(8)
80 POKE &B7C3,2:PRINT CHR$(sy);:POKE &B7C3,1:sy=sy+1:IF sy>255 THEN GOTO 110
90 NEXT
100 y=y-16:NEXT
110 MODE 1:PEN 1:POKE &B7C3,2:PRINT"SMALL FONT PEN 1"
120 POKE &B7C3,1:PEN 2:POKE &B7C3,2:PRINT"SMALL FONT PEN 2"
130 POKE &B7C3,1:PEN 3:POKE &B7C3,2:PRINT"SMALL FONT PEN 3"
</pre>

← Older revision		Revision as of 11:08, 10 May 2026
Line 20:		Line 20:
	170 KEY 4,"CALL &BA11"+CHR$(13)		170 KEY 4,"CALL &BA11"+CHR$(13)
	</pre>		</pre>
		+
		+	[[Category:Source code]]

@@ Line 15: / Line 15: @@
 POKE &B7C3,1:PEN 2:POKE &B7C3,2:PRINT"SMALL FONT PEN 2"
 POKE &B7C3,1:PEN 3:POKE &B7C3,2:PRINT"SMALL FONT PEN 3"
 </pre>

@@ Line 12: / Line 12: @@
 NEXT
 y=y-16:NEXT
-MODE 2:CALL &BA11:POKE &B7C3,2:PEN 1:POKE &B7C3,2:PRINT"SMALL FONT PEN 1"
+MODE 2:CALL &BA11:POKE &B7C3,1:PEN 1:POKE &B7C3,2:PRINT"SMALL FONT PEN 1"
 POKE &B7C3,1:PEN 2:POKE &B7C3,2:PRINT"SMALL FONT PEN 2"
 POKE &B7C3,1:PEN 3:POKE &B7C3,2:PRINT"SMALL FONT PEN 3"
 </pre>