"»IHIS EDUCATIONAL program, Two-stroke Engine, was de- signed for the 16K Spectrum by Tim Rose of Woolwich, London. For those interested in simple physics it describes, with working diagrams, the action of a two-stroke engine. It would be useful as a demonstration program for teaching, or for students struggling to reproduce diagrams. jia LU SLIP Uud' RORDER G' PAPER O INK €- CL5 ZG CIRCLE 185,:13,24 9 PRINT BT 29,600 "Tuo Stroke"? "Engine bu Tim Roze 1347251983" Ala PLOT 142,169: DRAM 9,-50: [ Rribl -12,-15' PRAH 9,-50: DRAH 78 » OPI: URAH G, 3: DEK —-Gt,5 DRA vi 15,0: PLUT PEEK. 23677,PEEK 236 Pari2 Sa DRAM -i5,6: PRAH G,4" DRA 15,0: PLUT PEEK 23677,PEEK 23678 rj2' [ROLI —-15,9: DRAM 9,53: DRAH -6500,0,2' PLOT 189,93: DRAM 8,-3 5: DRAH -1,4: CRAH 8,35 66 PRINT AT 4,14: INK 7, BRIGH y 1 3 ra za FUR a-4 $tPI J-PIZ6 TU A STER PIZE £9 FOR »<-0 TO 1 3) LET bri2EHŽOKCOS s' LET cr3 JAZOIKSIN 3 (M4 PLUT OVER 15bse' DRAM OVER 1:1?eE-n, 45 119 LET d-et45 126 (MER 1: PLUT 105,4: DRAM 44 .0 DRAM O, 28" DRAM —32,10'. DRAM —13,-19: URAH d,-28' OVER G ati eo BE ln my pe KE 129 IF INT c-%$% THEH GOU SIJB 8421 ta 149 IF INT c-te NE b>126 THEN PRIHT AT 9,64; "Pawer KsBT-1: 14;" MI Mire ko" "AT 3, (156 IF INT cr2i AND k2>126 THEN Gu SUR 0230 166 IF INT c-$£ AMI kb<126 THEN PRINT AT,A,8;"ComPresalon" 176 iF IHT c-4$ AND IMT k<126 T HEH O GO SIIB BlEIO h 190 IF (INKEYGE"C" OR INKEY$A"C ta AHO z—-9 THEH COPY OO 140 JF € TNKEYVRm"g! UR INKEY$«"S "45 AHD zd THEN GO TU 139 230 NEXT z: MEXT s' 60 TU 78 210 PRINT AT 9,0:"lenititon m (AT 1.14; INK 2: BRIGHT 1:'"bbbb" igr 2,12 "pahbhbkb" AT 2,13; "bbbbb bi! ;AT 3,135" bihikiki '. IF. zeva THEM FOR va TO 10 O BEFF G.G1,16' BE KP O G.O1. EMG HRAT x 229 RETURN 230 PRINT HAT G.ldi" vas OVE Ro 1' PLOT 134,122 GRAM 20,-20,P is2' PLOT 156,102: URAM 16.8: PL UT 166,106: DRAM $,-4: DRAb -5,- THE BEST OF SINCLAIR PROGRAMS Sprirg/Summer 1984 4: PRIHT AT 94,22; "Exhsust":AT 18 sDA; MONEY" 748 PRINT HT 9,8: "Fyel forced"; FIT 19,$5"uPp"- PLOT $6,49: DRAH 8 , 55: URAM 29,22" URA —-5,6: POKE OD3€7P,PEEK 2467765: DRAM 0,-5:' OVER 9 OGa IF seg THEN FUR xz1 TO 189: IF IHKEYSm"c" OR INKEYSE"C" THE HO COPY 2EG IF z