A TO I !, V!A TO I VARS ,23627K\,100d:23628L\,0 pR1=23730\:R2=23731\:23730\,248:23731\,127:23561 \,200:6 0Z=(N*(2*R-N)):X-Z,Y+R-N:2*Z,O: tK=2:O=0:A=1:B=5:C=7:D=9 :E=10 :F=12 :I=100d:J=107k  K:K:O: 8,C;C;"":D,C;C;" ":E,C;C;" STOP THE TAPE ":11 ,C;C;" ":F,C;C;"" 150 O:O:C: -1;"COPYRIGHT WIDGIT SOFTWARE 1983" K,11 ;K;"ALPHABET" eB,O;"IN THIS PROGRAMME THERE IS AN":"ILLUSTRATION FOR EACH LETTER OF":"THE ALPHABET FROM A TO I" :"THERE ARE 3 LEVELS" G:"1. THIS ALLOWS YOU TO INTRODUCE":" A LIMITED NUMBER OF LETTERS" #"2. THE LETTERS A TO I" (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$ HV>360< JV=K3000 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>9 85U c:3000 e C:C:O: n4N=35#-35#-A:20,I:70F,N:N x5N=115s85U-A:90Z,N:140,O:N  6:O:O: !N=BC:135,165,N:N &X=135:Y=125}:R=35# N=A35#:B:N IN=546A-A:91[+N/6,N+70F:89Y-N/3,O:N -N=EA-A:85U+N/K,N+60<:I-N,O:N 5N=CA-A:77M+N,546+N:115s-K*N,O:N 'R=110n:X=135:Y=150 N=205220:B:N +N=134136:N,33!:O,C:N  +Y=25:R=8:N=A16:B:N + ,K=1:4 -6:6:K: 1X=128:Y=83S 4"X,Y,K:X,Y,4:X,Y,45- 5R=51359;:X,Y,R:R 7C,18;A:D,19;K:11 ,20;3:13 ,19;4:15,18;B:16,16;6:15,13 ;C:13 ,F;8:11 ,11 ;D:D,11 ;E:C,13 ;11 :6,15;F J3N=96`104h:N,33!:-B,-13 :N L3N=154162:N,33!:B,-13 :N T!129,78N:O,-34" U8127,78N:O,-34":A,-3:A,3 VT127,87W:-18,18:-4,K:A,-4:18,-18 ^R=20:Y=145 ` N=OR:B:N   K:K:C: 4,E;"" E;"" E;"" N=AB:E;"":N E;"" E;"" N=AB:E;"":N E;"" E;"" D;O;""  K:K:6: &X=130:Y=115s:R=38& N=E25 T=Y+R-N:M=N-E Z=(N*(K*R-N)) ~X-Z,T:Z-25+1.43333*M,O:X+3-M,T:1.5@*M,O:X+13 -M,T:1.2*M,O:X+24-M,T:M+Z-25,O N N=26R-3:B:N =N=23A-A:X-R-(B-N/C),N+94^:K*R+K*(B-N/C),O:N !1:Y=546:R=45- )N=94^557-A:X-R,N:K*R,O:N !N=RK*R-3:B:N &C +>92\,74J:84T,O:92\,546:84T,O W YA:A:4: Z X=30 bGN=X-X-A:15,105i:60<,N:95_,O:502,-N:N l1N=3X3:75K,135:X,N:N q2N=3X3:105i,135:X,N:N v2N=3X3:135,135:X,N:N {DN=42*3-3:75K,75K:85U-N/K,-N:N 5N=X-X-3:205,105i:40(,N:N 8,B;O;"O"  4:B:O: DN=105i110n:O,N:72H,O:205,N:502,O:N BN=68D73I:O,N:72H,O:205,N:502,O:N MM=1555720:N=O3:M+N,115s:O,-65A:N:M OM=22024020:N=O3:M+N,115s:O,-65A:N:M 2N=72H78N:N,120x:O,-70F:N 2N=80P85U:N,120x:O,-70F:N 4N=190195:N,120x:O,-70F:N 4N=197204:N,120x:O,-70F:N KM=115s70F-15:N=BA-A:85U,M-N:105i,O:N:M 5N=AB:190,557+N:-105i,557:N G4:N=46.0-1:0,N:255,0:N  ! B:B:K: *"O,8;"":A,8;"" 4:N=O28:535-N,164-N:134+K*N,O:N >;6:N=B21:M=425:N,M;"":M:N HIK:60<,125}:32 ,O:O,-40(:-37%,O:O,40( MG149,125}:37%,O:O,-40(:-37%,O:O,40( RE535,61=:29,O:O,-39':-29,O:O,39' WF157,61=:29,O:O,-39':-29,O:O,39' \2101e,O:O,69E:40(,O:O,-69E ]+N=CE:N,C;"":N,19;"":N _7N=1518:N,C;"":N,20;"":N aZ8,C;"":8,19;"":16,C;"":16,20;"" k6O:17,13 ;"":21,13 ;""   C:C:O: <O,E:O,30:190,O,-:O,-30:-190,O D191,F:63?,O:-15,480,/4:-502,O O,38&:190,O:8,74J:176,O:24,103g:141,O:557,125}:80P,O:190,35#:62>,O:189,546:557,O \78N,132:-F,-8:95_,135:O,-E:111o,132:F,-8 pN=125}:M=-22:59;,N:-25,M:82R,N:-F,M:108l,N:F,M:133,N:25,M vN=103g:M=-29:62>,N:-15,M:85U,N:-C,M:105i,N:7,M:142,N:15,M xN=74J:M=-36$:30,N:-E,M:65A,N:-B,M:98b,N:O,M:128,N:B,M:160,N:E,M qN=38&:M=-28:30,N:O,M:70F,N:O,M:110n,N:O,M:140,N:O,M:175,N:O,M :208,E:-K,25:245,E:-4,25 '228,35#:-6,19 L205,546:-6,6:235,546:-6,6  V=KH=9 V=3H=9  Q=(*H+1) G=QH &L=G+64@:S=G+96` 0V=34000 5 V=1G*100d+1 :V=KG*100d+1 D.5,-20 N=""3150N S="0"10 X"=LŦ=SV=19000(# Z=LŦ=SV=K9000(# ]7=LŦ=SV=3G*100d+1:9000(# b 31200 v C:7:O: G*10 +4090  U140,99c:0,-38&,*1.5@:140,J:0,-568: BI,150:O,-97a:I,99c:O,-38&,-*1.5@: /140,99c:O,-38&,*1.5@: "Q140,150:O,-97a:140,99c:O,-38&,*1.5@: ,<93],80P:568,O:-B,-19,*1.78c >: 6P140,120x:-40(,0,:0,-67C:I,I:30,O: @Y140,99c:O,-38&,*1.5@:140,J:O,-67C:-40(,O,-: JT100d,150:O,-97a:100d,87W:40(,O,-:O,-34": TD120x,107k:O,-568:120x,115s:O,3: #) T=.4L #2ST,B:T,B:T,F:T,F:.5*T,14:.5*T,16:.5*T,17 #3.5*T,14:K*T,F #4%T,E:T,E:T,D:T,D:T,C:T,C:K*T,B #6T,F:T/K,F:T/K,F:T,E:T,E #8T,D:T/K,D:T/K,D:T*K,C #9/T,F:T/K,F:T/K,F:T/K,E:T/K,F:T/K,14 #;!T/K,E:T,D:T/K,C:T/K,C:T*K,B #ZG #_ Q=1 #d 3100 kWoabcd e f idjk@vh q  lFsfXW!tLx>y6-;5z>sV0W0