10
20
30
40
50 :
60
70
80
90 :
100 MODE 1
110 A$="LIKE THIS !"
120 VDU23,1,0;0;0;0;
130 VDU19,0,4;0;
140 *NORM
150 COLOUR2
160 PRINTTAB(10,1);
170 *LARGE5 CRAZY CHARACTERS!
180 *NORM
190 COLOUR2
200 *CHAR(z
210 *ANTI
220 *FAT
230 *CLOCKW
240 *NORM
250 COLOUR3
260 PRINT''" The simple sideways Ram pathway to..."'
270 PRINT"Rotate text anti-clockwise ";
280 *ANTI
290 PRINTA$
300 *NORM
310 PRINT"Rotate text clockwise ";
320 *CLOCKW
330 PRINTA$
340 *NORM
350 PRINT'"Flip text across the x-plane ";
360 *FLIPX
370 PRINTA$
380 *NORM
390 PRINT"Flip text across the y-plane ";
400 *FLIPY
410 PRINTA$
420 *NORM
430 *FAT
440 PRINT'SPC(9)"FATTEN, ";
450 *NORM
460 *THIN
470 PRINT "THIN, ";
480 *NORM
490 *INVERSE
500 PRINT"INVERSE"
510 *NORM
520 PRINT" Find a definition:"
530 COLOUR 2
540 PRINTSPC(3)"A=";
550 *DEFINA
560 COLOUR3:PRINT
570 *LARGE4 AND {
580 PRINTTAB(6,24)"Save characters, eg *CPUT FRED";
590 *LARGE4}
600 PRINTTAB(6,25)"Load characters, eg *CGET JOHN"
610 PRINTTAB(6,26)"PLUS";
620 *LARGE2 MULTI-HEIGHT
630 PRINTTAB(24,26)"*LARGE3 KATE"
640 COLOUR1
650 *THIN
660 PRINTTAB(4,30)"All just a few * commands away"
680 *FX15,1
690 REPEAT UNTIL GET
700 *HELP CRAZY