10 REM Letterhead generator 20 REM by Steven Flintham 30 REM 40 REM "Steven Flintham" letterhead with monitor surround 50 REM 60 REM Wednesday 10th April 1991 70 : 80 MODE 128 90 sx%=1 100 sy%=1 110 cx=0.4:REM TRY 0.2 WHEN PRINTING 120 cy=0.4 130 ax%=0 140 ay%=700 150 ax%=ax%*sx% 160 ay%=ay%*sy% 170 RESTORE 360 180 REPEAT 190 READ plot%,x%,y% 200 IF plot%<>999 THEN PROCplot(plot%,x%,y%) 210 UNTIL plot%=999 220 END 230 : 240 DEF PROCplot(plot%,x%,y%) 250 REM LOCAL 260 x%=x%*sx%*cx 270 y%=y%*sy%*cy 280 IF plot%=4 THEN x%=x%+ax%:y%=y%+ay% 290 PLOT plot%,x%,y% 300 ENDPROC 310 : 320 REM Letterhead data 330 : 340 REM 'S' 350 : 360 DATA 4,600,600:REM Change this - it's the start location 370 DATA 1,0,25,1,-50,50,1,-150,0,1,-50,-50,1,0,-100,1,50,-50,1,125,0,1,25,-25,1,0,-50,1,-25,-25,1,-100,0,1,-25,25,1,-50,0,1,0,-25,1,50,-50,1,150,0,1,50,50,1,0,100,1,-50,50,1,-125,0,1,-25,25,1,0,50,1,25,25,1,100,0,1,25,-25,1,50,0 380 DATA 129,-25,25,0,25,-25 390 : 400 REM 't' 410 : 420 DATA 0,37,75 430 DATA 1,0,-300,1,50,-50,1,100,0,1,50,50,1,0,25,1,-50,0,1,-25,-25,1,-50,0,1,-25,25,1,0,175,1,75,0,1,0,50,1,-75,0,1,0,50,1,-50,0 440 DATA 129,25,-25,0,-25,25 450 : 460 REM "e" 470 : 480 DATA 0,437,-300 490 DATA 1,0,25,1,-25,0,1,-25,-25,1,-75,0,1,-25,25,1,0,25,1,100,0,1,50,40,1,0,20,1,-50,40,1,-100,0,1,-50,-50,1,0,-100,1,50,-50,1,100,0,1,50,50 500 DATA 0,-150,80,1,80,0,1,30,20,1,-30,20,1,-55,0,1,-25,-25,1,0,-15 510 DATA 129,-25,0,0,25,0 520 : 530 REM "v" 540 : 550 DATA 0,163,75 560 DATA 1,100,-200,1,100,200,1,-50,0,1,-50,-100,1,-50,100,1,-50,0 570 DATA 129,25,-25,0,-25,25 580 : 590 REM "e" 600 : 610 DATA 0,413,-150 620 DATA 1,0,25,1,-25,0,1,-25,-25,1,-75,0,1,-25,25,1,0,25,1,100,0,1,50,40,1,0,20,1,-50,40,1,-100,0,1,-50,-50,1,0,-100,1,50,-50,1,100,0,1,50,50 630 DATA 0,-150,80,1,80,0,1,30,20,1,-30,20,1,-55,0,1,-25,-25,1,0,-15 640 DATA 129,-25,0,0,25,0 650 : 660 REM "n" 670 : 680 DATA 0,187,75 690 DATA 1,0,-200,1,50,0,1,0,125,1,25,25,1,75,0,1,25,-25,1,0,-125,1,50,0,1,0,150,1,-50,50,1,-100,0,1,-25,-25,1,0,25,1,-50,0 700 DATA 129,25,-25,0,-25,25 710 : 720 REM "F" 730 : 740 DATA 4,350,250:REM Change this - it's the start position 750 DATA 1,250,0,1,0,-50,1,-200,0,1,0,-100,1,100,0,1,0,-50,1,-100,0,1,0,-150,1,-50,0,1,0,350 760 DATA 129,25,-25,0,-25,25 770 : 780 REM "l" 790 DATA 0,287,0 800 DATA 1,50,0,1,0,-350,1,-50,0,1,0,350 810 DATA 129,25,-25,0,-25,25 820 : 830 REM "i" 840 DATA 0,87,-350 850 DATA 1,0,200,1,50,0,1,0,-200,1,-50,0 860 DATA 129,25,25,0,-25,-25 870 DATA 0,0,250,1,0,50,1,50,0,1,0,-50,1,-50,0 880 DATA 129,25,25,0,-25,-25 890 : 900 REM "n" 910 : 920 DATA 0,87,-50 930 DATA 1,0,-200,1,50,0,1,0,125,1,25,25,1,75,0,1,25,-25,1,0,-125,1,50,0,1,0,150,1,-50,50,1,-100,0,1,-25,-25,1,0,25,1,-50,0 940 DATA 129,25,-25,0,-25,25 950 : 960 REM "t" 970 : 980 DATA 0,263,150 990 DATA 1,0,-300,1,50,-50,1,100,0,1,50,50,1,0,25,1,-50,0,1,-25,-25,1,-50,0,1,-25,25,1,0,175,1,75,0,1,0,50,1,-75,0,1,0,50,1,-50,0 1000 DATA 129,25,-25,0,-25,25 1010 : 1020 REM "h" 1030 : 1040 DATA 0,237,-350 1050 DATA 1,0,350,1,50,0,1,0,-150,1,100,0,1,50,-50,1,0,-150,1,-50,0,1,0,125,1,-25,25,1,-75,0,1,0,-150,1,-50,0 1060 DATA 129,25,25,0,-25,-25 1070 : 1080 REM "a" 1090 : 1100 DATA 0,437,225 1110 DATA 1,0,-225,1,-150,0,1,-50,50,1,0,100,1,50,50,1,100,0,1,0,25,1,50,0 1120 DATA 0,-50,-75,1,0,-100,1,-75,0,1,-25,25,1,0,50,1,25,25,1,75,0 1130 DATA 129,25,25,0,-25,-25 1140 : 1150 REM "m" 1160 : 1170 DATA 0,87,50 1180 DATA 1,0,-200,1,50,0,1,0,125,1,25,25,1,25,0,1,25,-25,1,0,-125,1,50,0,1,0,125,1,25,25,1,25,0,1,25,-25,1,0,-125,1,50,0,1,0,150,1,-50,50,1,-75,0,1,-25,-25,1,-25,25,1,-75,0,1,-25,-25,1,0,25,1,-25,0 1190 DATA 129,50,-25,0,-50,25 1200 : 1210 REM Monitor 1220 : 1230 DATA 4,300,670 1240 DATA 1,50,50,1,1730,0,1,50,-50,1,0,-800,1,-50,-50,1,-1730,0,1,-50,50,1,0,800 1250 DATA 0,-50,100,1,1930,0,1,0,-1000,1,-1930,0,1,0,1000 1260 DATA 0,25,-1000,1,25,-100,1,1830,0,1,25,100 1270 DATA 0,-1140,-25,97,400,-50 1280 : 1290 REM End 1300 DATA 999,999,999