S TO Z !, J! ALPHABET 23627K\,100d 23628L\,0 BR1=23730\:R2=23731\:23561 \,200:6 0Z=(N*(2*R-N)):X-Z,Y+R-N:2*Z,O: iO=0:A=1:B=5:C=7:D=9 :E=10 :F=12 :I=100d:J=107k  2:2:0::8,7;7;"":9 ,7;7;" ":10 ,7;7;" STOP THE TAPE ":11 ,7;7;" ":12 ,7;7;""  150 O:O:C: -1;"COPYRIGHT WIDGIT SOFTWARE 1983" '2,11 ;2;"ALPHABET" eB,O;"IN THIS PROGRAMME THERE IS AN":"ILLUSTRATION FOR EACH LETTER OF":"THE ALPHABET FROM S TO Z" :"THERE ARE 3 LEVELS" G:"1. THIS ALLOWS YOU TO INTRODUCE":" A LIMITED NUMBER OF LETTERS" #"2. ALL THE LETTERS S TO Z" (8"3. INTRODUCES LOWER CASE LETTERS":" ON THE SCREEN" -=:"CHOOSE AN OPTION AND THEN": "PRESS ";:1;"ENTER" 2B:"USE 0 TO RESTART DURING THE":"PROGRAMME. TO END PRESS 0 NOW" <V$ >V$=""60< @W=A̱V$:W$=V$(WW) B)(W$<480)(W$>513)60< CW D*V$="0"23730\,R1:23731\,R2: FV=V$:V>360< JV=23000 KV=33000 P2:C,O;"HOW MANY LETTERS DO YOU WISH":"TO USE?" UV$ WV$=""85U XW=A̱V$:W$=V$(WW) Z)(W$<480)(W$>579)85U [W ]V$="0"10 _H=V$ aH>885U c:3000 ,X=1:4 vA:A:6: :X=130:Y=90Z:R=502:N=O2*R:B:N N=A11 :M,W ,X,Y:M,W:X,Y:-M,-W:X,Y:W,-M:X,Y:-W,M 0,70F,7,65A,14,80P,25,67C,30,557,45-,58:,63?,45-,502,37%,58:,28,82R,24,71G,14 N    B:B:A: *N=E20:N,80P:O,-30:N 918,94^:19,94^:19,93] 1N=2027:N,94^:O,-44,:N 928,94^:28,93]:29,94^ 1N=2834":N,80P:O,-30:N 1N=35#41):N,85U:O,-35#:N 1N=42*47/:N,80P:O,-30:N *N=480535:N,I:O,-502:N <N=54660<:N,I:O,-B:N,82R:O,-32 :N /N=61=67C:N,I:O,-B:N,502:N *N=68D75K:N,I:O,-502:N !O:76L,557:4,O 2N=81Q120x:N,80P:O,-30:N 121y,557:4,O )2:M=125}19013 $N=MM+2:N,I:O,-502:N HN=M+3M+12 :N,I:O,-3:N,75K:O,-25:N:M ,N=203206:N,I:O,-502:N  >207,557:4,O:207,546:4,O  M=21223813 $N=MM+2:N,I:O,-502:N >N=M+3M+F:N,I:O,-3:N,75K:O,-25:N /M:O:Y=47/:R=B:X=23:2090* X=23:2090* X=63?:2090* X=89Y:2090* X=110n:2090* X=140:2090* X=192:2090* X=222:2090* (O: *N=R2*R:B:N / 5 B:B:O: >4130,146:-80P,-568,/3 @4130,146:80P,-568,-/3 H5-22,-11 ,:-58:,67C,/4 J5-58:,-67C,/4:-22,11 , L^188,79O:-29,-D,:-29,-4,:-29,4,:-29,D, RR101e,70F:29,76L,-/6:29,-76L,-/6: T"130,146:O,-74J VW128,74J:O,-524:-20,O,-:-3,O:26,O,:O,524  C:2:C: ?N=O63?:N,O:O,175:255-N,O:O,175:N *N=64@67C:N,O:O,175:N NN=175130-A:68D,N:22,O:170,N:22,O:N JY=130:R=20:N=R2*R:X=70F:B:X=190:B:N 6N=175145-A:105i,N:502,O:N ;X=130:Y=145:R=25:N=R2*R:B:N eA:N=72H80P:72H,N:117u,O:N:N=88X96`:72H,N:117u,O:N  2:2:C: :D;"" D;"" PN=AC:D;"";:A;"";:B;"";:C;"";:B;"";:A;"";:C;"":N $D;"" (PN=AC:D;"";:A;"";:B;"";:C;"";:B;"";:A;"";:C;"":N ,D;"" . 8;"" 08;"" _ a C:C:A: hN=A22:M:N j0,14,0,1,13 ,8,2,12 ,16,3,11 ,24,1,14,4,2,13 ,12 ,3,12 ,20,4,11 ,28 l9T=A4:X,Y,Z:N=XY:N,Z;"":N:N,Z;"":T n;T=A4:X,Y,Z:X-A,Z;"":N=XY:N,Z;"":N:T t1,1,13 ,1,2,5,13 ,5,2,9 ,12 ,9 ,3,13 ,12 ,13 ,3,17,11 ,17,4,21,11 ,21,4,25,10 ,25,5,29,10 ,29 v T=A16:X,Y:X,Y;"O":T ~ 2 1,3,2,11 ,3,19,4,27,12 ,7,11 ,15,10 ,23,9 ,31 !T=A8:X,Y:X,Y;"":T 2,7,3,15,4,23,5,31,13 ,3,12 ,11 ,11 ,19,10 ,27 T=A8:X,Y:X,Y;"":T : B:B:O: 5N=A3:137+N,172:O,-121y:N 2N=A2:40(,59;+N:170,O:N K502,60<:-30,-E:205,60<:20,-E:2 aN=A30:502-3*N/2,20+N:3*N/2+170+N/3,O:N M6:N=A105i:135,170-N:-(N*85U/110n),O:N ?N=A90Z:145,155-N:N*502/90Z,O:N 3A:N=B-B-A:180,165:-35#,N:N ' )2:C:O: 4FN=O4:D+N;"";:M=D-2*NA-A:2;"";:M:"":N <Z=13 :Z;"" = Z;"" > Z;"" @ Z;"" HN=AZ:Z;"":N  V=2H=8 V=3H=8  Q=(*H+1) G=Q+18H+18 &L=G+64@:S=G+96` 0V=34000 5V=1G*100d :V=2G*100d D.5,-20 N=""3150N S="0"10 X"=LŦ=SV=19000(# Z"=LŦ=SV=29000(# ]/=LŦ=SV=3G*100d:9000(# b 31200 v C:7:O: G*10 +4090  t137,90Z:-34",O,:6,-C,/3:22,-B:D,-D,-/1.9s333:-40(,O,-*.9ffff: ;I,140:O,-70F:40(,O,:I,J:30,O: ;I,J:O,-34":40(,O,:O,34":O,-546: .I,J:20,-568:20,568: \93],J:14,-568:13 ,568:13 ,-568:14,568: D97a,J:480,-568:143,J:-480,-568: KI,J:O,-34":40(,O,:O,34":O,-67C:-40(,O,-: 4I,J:40(,O:-40(,-568:40(,O: #) T=.4L #2ST,B:T,B:T,F:T,F:.5*T,14:.5*T,16:.5*T,17 #3".5*T,14:2*T,F #4+T,E:T,E:T,D:T,D:T,C:T,C:2*T,B #6)T,F:T/2,F:T/2,F:T,E:T,E #8,T,D:T/2,D:T/2,D:T*2,C #9MT,F:T/2,F:T/2,F:T/2,E:T/2,F:T/2,14 #;9T/2,E:T,D:T/2,C:T/2,C:T*2,B #ZG #_ Q=1 #d 3100 #J #K #(23296[,J-256*(J/256) #23297[,(J/256) #(23298[,K-256*(K/256) #23299[,(K/256) #62500$ xWoabcd e f idjk@vhq lVsv G yZr2ztLV0W0%