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