Demonstrates text in 4 different sizes.
Content
Source Code
1 REM !VAL \FREE !CODE \ RETURN ( RETURN ( THEN ▚ THEN AND *U\>"PEEK #( IF RESTORE !LEN \N!@ RESTORE !VAL \FREE NEW o>& THEN % THEN gSTR$ RESTORE !VAL \FREE LLIST RETURN 8 RETURN "TAB \ LLIST RESTORE FREE = OR RETURN \a8p\aSTR$ X COPY OR \ao> THEN % THEN gSTR$ RESTORE !ATTR \FREE LLIST RETURN (r CAT >2AT \ RESTORE FREE W!ATTR \FREE RETURN z(ON ERR*TAB \ OR STR$ r#s+:AT \ RETURN (% RETURN x RETURN RESTORE !CODE \ THEN F LLIST OR LPRINT PI GO SUB BSTR$ LPRINT PI GO SUB BSTR$ "TAB \ LLIST #:AT \=2AT \ POINT !CODE \ THEN F*TAB \(PI GO SUB BA▄PI GO SUB B\ RETURN #"TAB \ LLIST #>"PEEK >= DATA ▐! THEN ? THEN THEN - THEN ? THEN THEN ,T]!ATTR \FREE RETURN ( FLASH OR RESTORE FREE VERIFY *TAB \r#s+"TAB \ LLIST #STR$ *TAB \ RETURN PI GO SUB B"TAB \ LLIST #>"PEEK >=\bxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
2 DEF FN a()=PEEK 23635+256*PEEK 23636+5
10 POKE 23728,4: POKE 23729,2
20 POKE 23723,3
30 RANDOMIZE USR FN A()
40 REM "\l"
50 POKE 23728,5: POKE 23729,4
54 POKE 23723,1
60 RANDOMIZE USR FN a()
62 REM "ONG"
70 POKE 23728,6: POKE 23729,3
72 POKE 23723,3
80 RANDOMIZE USR FN a()
90 REM "\i"
92 POKE 23728,7: POKE 23729,5
100 POKE 23723,1
110 RANDOMIZE USR FN a()
120 REM "SLAND"
130 POKE 23728,8: POKE 23729,4
140 POKE 23723,3
150 RANDOMIZE USR FN a()
160 REM "\s"
170 POKE 23728,9: POKE 23729,6
180 POKE 23723,1
185 RANDOMIZE USR FN a()
190 REM "inclair"
192 POKE 23728,10: POKE 23729,5
194 POKE 23723,3
195 RANDOMIZE USR FN a()
196 REM " SPECTRUM "
197 POKE 23728,11: POKE 23729,7
198 POKE 23723,1
199 RANDOMIZE USR FN a()
200 REM "IMEX"
201 GO TO 500
202 PLOT 0,152: DRAW 255,0
203 PLOT 0,153: DRAW 255,0
204 PLOT 0,66: DRAW 255,0
206 PLOT 0,65: DRAW 255,0
210 PLOT 0,66: DRAW 0,86
212 PLOT 1,66: DRAW 0,86
214 PLOT 255,66: DRAW 0,86
216 PLOT 254,66: DRAW 0,86
220 PRINT AT 21,0;" Hit any Key to Proceed": PAUSE 4e4: CLS : GO TO 600
500 POKE 23728,6: POKE 23729,20
510 POKE 23723,3
520 RANDOMIZE USR FN a()
530 REM "GROUP"
540 GO TO 202
600 DATA 0,13,20
610 FOR m=1 TO 3
620 READ s
630 FOR n=0 TO 18 STEP 2
635 LET nx=n: IF m=1 THEN LET nx=n+1
640 POKE 23728,nx: POKE 23729,s: POKE 23723,m
650 RANDOMIZE USR FN a()
660 REM "TS2068"
670 NEXT n
680 NEXT m
690 PRINT AT 21,0;" Hit any Key to Proceed": PAUSE 4e4: CLS
700 PRINT AT 4,0;"Regular Characters"
710 POKE 23728,6: POKE 23729,0: POKE 23723,2
720 RANDOMIZE USR FN a()
730 REM "Mode 2 Character"
740 POKE 23728,9: POKE 23723,1
750 RANDOMIZE USR FN a()
760 REM "Mode 1 Char$"
770 POKE 23728,11: POKE 23723,3
780 RANDOMIZE USR FN a()
790 REM "Mode 3 Char$"
799 STOP
810 LOAD "udg"CODE
814 CLS
820 GO TO 2
9998 SAVE "udg-demo" LINE 810: SAVE "udg"CODE 65368,168