~                              .   ,   ,            . W '       . Y                       . Y'             ,   ,            . W '       . Y         . T           . Y      ,        ,          . I                                 . T           . I                  . T                                    . A                   ,   ,    . S ,                       . T        ,       ,         . I       . H                          F   J (          ,    ). T         ,    ,                         ,    ,         ,   ,  )  . H                                         . H   '           . >I            . M           . O   . G                  . H         -                           . I    /   ,          . W' ? C            ,      ,           . I     -          . I                                . I                      . H    . H         G      ,                  . I                . H                . F           . H        ,      ,                    ,            . I ,    ,                . Y I  -                 ,                                                                       . T   . T                 . I             (  )    . I                      . I                . T                  . T          . I                                  . T        ,   ,        . I               '     . K      . H                   . T  ,              . I              . T                    . T                       . H         . T          ,             . T          ,   ,               . I      :        . T                           . H                . T               . T                     . C       . H                 (  . I              :            ,               E  G ,    . H                           (          )                ,       ,        G                             . H            ,     ,                         ,    ,      ,      . E  G ,         ,           '  . T                         . T,    . T                      . E  G               ,               ,  . T  '                         .                 ,                                                    ,                               . T        ,   ,       . H               . I                          . T                                . H                                 ,                   B   X .       ,                           . S  . H                      . H                                                 . A                      ,           . H                                      . E  G     ,     "      " ,              ,         . T                    . H     . T                             . T                       H             -                 )                     . E  G                       . A                                             . T      . A                               . Y                                '         . H                                   . A        , E                                           . H                  ,                . T                                . T                   i  X46Y72Z114-(A(XYZ)3V<"THE AVERAGE OF "X;Y;"AND "Z;"IS "A_F 90eZR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)JR)J  +040401  RACINE 12              DEERFIELD 10 WESTWOOD 18'!' 3.#!5-0*6&'"*"$$' 230> 8 &"DOODAD 24T                . T               N0NN11 N5 N;"LESS THAN 5"R( N5 N;"GREATER THAN 5"o2 N5 N;"EQUAL TO 5"x< 80FT0PTT1Z T10 d 20 %!!&% .$$!#$"%'4%! $WILMETTE 36                 RAVINIA 18              T03"HOW MANY NUMBERS, OH NUMERIC ONE";NA J1 N\("ENTER A NUMBER,EH";Xf2TTXl<vFATN|PZ"THAT IS";N"NUMBERS TOTALING";T"THANK YOU"d"AVERAGE OF THE ABOVE BEING";An   X(10,5),A(10)$ R1 10,T0:# C1 5G( X(R,C)V2TTX(R,C)^< CkFA(R)T5sP RZ R1 10d "ROW #";Rn C1 5x X(R,C): C "AVERAGE =";A(R) D1 1000: R 1,3,5,7,9 2,4,C J1 4! R((1)61)) R7 J4 ? J "NOTES" PRG  "ERASE ME" PRG  "GREATER THAN" PRG  "Q" PRG  "AVERAGES" PRG  "ROW COLUMN AVE." PRG 3 "YOU'LL BE TYPING QUIT TO END THIS PROGRAM"E A$"QUIT"b "DEGREES FAHRENHEIT";Fu(C(59)(F32)2 F;"DEGREES FAHRENHEIT EQUALS ";C;" DEGREES CELSIUS"<"AGAIN OR QUIT";A$Fd:"DO YOU LIKE YOUR COMPUTER";A$n A$"% "WHO WROTE -THE BLOODY AXE-?"F"A) ROBERT LOUIS STEVENSON"_"B) FRITZ DONNELLY"y("C) EDGAR ALLEN POE"2"D) FRANCIS KOWALSKI"< A$F A$"B" 150P "WRONG. TRY AGAIN?(Y OR N)"Z B$d B$"Y" "A,B,C,OR D?": ! "" : CLEAR THE SCREENEA$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"UB$A$A$A$( I1 25 : B$: : FILL SCREEN WITH CHARACTERS2 1 ,1 ,8 ,20 : DEFINE WINDOW 1< ""F THE PREVIOUS LINE FILLS WINDOW 1 WITH REDKP 15NT A$ AND LIST IN WINDOWSCREENEA$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"UB$A$A$A$( I1 25 : B$: : FILL SCREEN WITH CHARACTERS2 1 ,1 ,8 ,20 : DEFINE WINDOW 1< ""F THE PREVIOUS LINE FILLS WINDOW 1 WITH REDKP 156,8,10 5,10,15,20,25- 10,20,30,40,50C 20,40,60,80,100Z 30,60,90,120,150r 40,80,120,160,200 50,100,150,200,250 100,200,300,400,500 500,1000,1500,2000,2500AVE.                DEERFIELD 12               DESPLAINES10         )NO" "EAT POO":#x "THANK YOU" 60n B$"N" 140;x "TYPE EITHER Y OR N--TRY AGAIN"D 90d "THE CORRECT ANSWER IS B"n 160 "RIGHTO!!!"AVERAGESROW COLUMN AVE.DICE ,15,39,20,1 : DEFINE 2ND WINDOWWZ ""; B$,A$ : FILL WINDOW WITH GREEN CHARACTERS]_d 5,5,33,18,1 : DEFINE 3RD WINDOWn "": : SELECT YELLOW AND LIST IN WINDOWsx 10,10,20,20,1 "" : A$: : CHANGE COLOR-PRI@!@ 0,1: SELECT BKGRND COLORB@ 1,3: SELECT FORGRND COLORb@ 4,1: SELECT BORDER COLOR@( 1,1: SELECT STND HI RES@< ,150,130,40,40@F 1,6@P ,20,100,80,160,90,1@Z 1,8@d ,220,100,280,160,90,0@n 1,8 Ax 1,20,180 280,180: LINE=A 1,10,20 300,20 150,80 10,20: TRIANGLEHA 1,15XA 1,155,175vA 1,150,97: PAINT CIRCLEA 1,5A 1,50,25: PAINT TRIANGLEA 1,7A 1,225,125: PAINT BOXA 1,11A ,11,24,"GRAPHICS EXAMPLE"         DESPLAINES12*+)" " && """"""""""""""  "% "" 1""&DESPLAINES360  . ("""(.""""""""""""&!@ @ 0,1@ 1,8@ 4,1)@( 1,1>@2 J8 240 10R@< 1,J,100,75,75X@Fb@P 1,5w@Z J8 250 10@d 1,J,100,50,50@n@x 1,7@ J50 280 10@ 1,J,100,25,25@Al <TWILIGHT ZONE002AAVERAGES 3ESCOLAEPESGERMINATIONGREATER THANGERMINATION 2AVERAGESROW COLUMN AVE.DICEFAHRENHEIT TO C MULTIPLE CHOICE FOUR WINDOWSTUMBLEWEEDSAMPLE GRAPHICSWASTED SPACECIRCLESLINESHOLERACE CARF TO C OR C TO FSOUND 1@ @ 1,1@ 0,1@ 4,1.@( J1 15G@2Z((((1))16)1)1Q@< 1,Zk@FX((((1))30)1)10@PY((((1))20)1)10@ZU((((1))30)1)10@dV((((1))20)1)10@n ,X,Y U,V@x@ J15 40@ J15 @@ 4,7: 0,7: 1,1!@ 1,16@ J400 1 5L@( 1,150,100 J,1R@2f@< J1 400 5|@F 1,150,100 1,J@P@Z J4 320 5@d 1,150,100 J,320@n@x J320 30 5@ 1,150,100 320,J@@1@: SEE P.110- TO DEFINE TERMS IN THIS PRGC@ 0,16: 4,12M@ 1,1_@ 1,2,2,45,45@ 1,17,10 28,10 26,30 19,30 17,10: CAR BODY@ 1,11,10 15,10 15,18 11,18 11,10: UP LEFT WHEELA 1,30,10 34,10 34,18 30,18  1#C7 A$,2: STORE DATA A$ IN SPRITE 2KC< 1,1,7,0,0,0,0: TURN ON SPRITE 1sCA 2,1,3,0,0,0,0: TURN ON SPRITE 2CF 1,240,70: POSITION SPR 1 AT X=240 Y=70CP 2,120,70: POSITION SPR 2 AT X=120 Y=70CSDU 1,180 # 6: MOV SPR 1 FRO 8 "382 FLEMINGS CAN ESCAPE ALL TEMPERATE EXTREMES"t "A CONVERSION OF FAHRENHEIT TO CELSIUS OR VICE VERSA" "F TO C OR C TO F";Q$ Q$"F TO C" 20 Q$"C TO F" 300 "I WILL HAVE NO MORE TO DO WITH YOU": A$"QREES CELSIUS";C@ C382 200.JF(95C)32fT C;"DEGREES CELSIUS EQUALS";F;"DEGREES FAHRENHEIT"^ "AGAIN OR QUIT";A$hr 100A$Fd:"DO YOU LIKE YOUR COMPUTER";A$n A$"NO" "EAT POO":x "THANK YOU":- 1 :::" SOUND PLAYER":::a" INPUT SOUND PARAMETERS TO PLAY"::w "VOICE (1-3)";V( "FREQUENCY (O-65535)";F2 "DURATION (O-32767)";D< "DO YOU WISH TO SPECIFY OPTIONAL PARAMETERS Y/N";B$:F B$"N" 1 Q "WELCOME TO CHARACTER GERMINATION ERRRR..., IS THAT CHARACTER GENERATION" "WHICH METHOD DO YOU WISH TO IMPLOY, MR. COY?" "METHOD I,II,III,IV,V,VI,OR 382?";A$( A$"I" 2002 A$"II" 400< A$"III" 600 F A$" 30,10: UP RGHT WHEELSA 1,11,20 15,20 15,28 11,28 11,20: LOW LEFT WHEELA 1,30,20 34,20 34,28 30,28 30,20: LOW RGHT WHEELA 1,26,28 19,28A 1,20,14,26,18,90,1A# 1,150,35,195,40,90,1: STREET B% 1,150,135,195,14CM TOP TO BOTTOM7DW 2,180 # 7: MOV SPR 2 FROM TOP TO BOTTOM 300,180: 1,50,180 50,190: 1,300,180 300,190B+ 1,50,190 300,190B, 1,18,23,"FINISH"B- A$,11,10,34,31: SAVE PICTURE IN STRING A$B2 A$,1: STORE DATA A$ IN SPRITE UIT" "DEGREES FAHRENHEIT";F3# F382 200F(C(59)(F32)2 F;"DEGREES FAHRENHEIT EQUALS ";C;" DEGREES CELSIUS"<"AGAIN OR QUIT";A$Fd:"DO YOU LIKE YOUR COMPUTER";A$n A$"NO" "EAT POO":x "THANK YOU":-5 "WIS";Q!^ T6 "CHA";Q:)h T7 T1 6IX((1)61)[Y((1)61)mZ((1)61)yQXYZU((1)61)V((1)61)W((1)61)PUVW T1 "STR";Q;P T2 "DEX";Q;P T3 "CO30@P "SWEEP DIRECTION 0=INCREASE, 1=DECREASE, 2=OSCILLATE";DIRlZ "MINIMUM SWEEP FREQUENCY (0-65535)";Md "SWEEP STEP VALUE (0-32767)";Sn "WAVEFORM (0=TRIANGLE,1=SAWTOOTH,2=VARIABLE PULSE,3= WHITE NOISE";Wx W 2 "PULSE WIDTH (0-4 IV" 800P A$"V" 10006Z A$"VI" 1200Nd A$"382" 1400\ T1 6nX((1)61)Y((1)61)Z((1)61)QXYZ, T1 "STR";Q6 T2 "DEX";Q@ T3 "CON";QJ T4 "INT";Q T T0,90,1: STREET/B( 1,150,215,195,220,90,1: STRTrB* 1,50,180 300,180: 1,50,180 50,190: 1,300,180 300,190B+ 1,50,190 300,190B, 1,18,23,"FINISH"B- A$,11,10,34,31: SAVE PICTURE IN STRING A$B2 A$,1: STORE DATA A$ IN SPRITE Q "WELCOME TO CHARACTER GERMINATION ERRRR..., IS THAT CHARACTER GENERATION" "WHICH METHOD DO YOU WISH TO IMPLOY, MR. COY?" "METHOD I,II,III,IV,V,VI,OR 382?";A$( A$"I" 2002 A$"II" 400< A$"III" 600 F A$" "YOU REALIZE 382 CAN GET YOU OUT OF ANYTHING";Z$_ Z$"YES" "RIGHT THEN,YOU ARE FREE": Z$"NO" "OH WELL,": 10 Z$"382" "NOW YOU'VE GOT THE IDEA": "A SIMPLE YES OR NO WILL SUFFICE": 200, A$"QUIT" 6 "DEG\N";Q;P T4 "INT";Q;P0 T5 "WIS";Q;PJ& T6 "CHA";Q;P:R0 T 6nX((1)61)Y((1)61)Z((1)61)QXYZ, T1 "STR";Q6 T2 "DEX";Q@ T3 "CON";QJ T4 "INT";Q T T095)";P V,F,D,DIR,M,S,W,PP "DO YOU WISH TO HEAR THE SOUND AGAIN (Y/N)";A$c A$"Y" 130 "DO YOU WISH TO EXIT THIS PROGRAM (Y/N)";B$ B$"Y"  B$"382" "YOU CUNNING CRUMPET OFF YOU GO"; 10B$:F B$"N" 11) HQXYZ RU((1)61)+ \V((1)61)= fW((1)61)I pPUVWR zQ;PZ  T` l  T6~ X((1)61) Y((1)61) Z((1)61) A((1)61) DXYZ $EXYA .FXZA 8GYZA L DE 200IV" 800P A$"V" 10006Z A$"VI" 1200Nd A$"382" 1400\ T1 6nX((1)61)Y((1)61)Z((1)61)QXYZ, T1 "STR";Q6 T2 "DEX";Q@ T3 "CON";QJ T4 "INT";Q T T +040401z A S  P   z I  W                                   . I             . M  ,                             . I            ,      , I                 '   . C       ,             F,      '    .  ,                 ;                   E. T          R                  0 !V ED 3000!` FD 40008!j GD 5000: 5010r!x "NOT IN SERVICE WISH TO PIXEL A GAIN, GWAYNE": 20! DF 20000: 1110! EF 30000: 1120! FE 40000: 1130! GE 50000: 5010! D!TT1 5 "WIS";Q!^ T6 "CHA";Q:)h T7 T1 6IX((1)61)[Y((1)61)mZ((1)61)yQXYZU((1)61)V((1)61)W((1)61)PUVW T1 "STR";Q;P T2 "DEX";Q;P T3 "CO                 . F                                                                                          . A                                   . I        R                                    . T                                . T                        !"" N DG D: 5010#"*N 5020;"0u EG E: 5010F":u 5020^"@ FG F: 5010i"J 5020"PË GF G: 5010"ZÉ 5020Z((1)61) A((1)61) DXYZ $EXYA .FXZA 8GYZA L DE 200N";Q;P T4 "INT";Q;P0 T5 "WIS";Q;PJ& T6 "CHA";Q;P:R0 T`X T1 6rbX((1)61)lY((1)61)vZ((1)61)QXYZQ T  T1 6*X((1)61)4Y((1)61)>Z((1)6                   . A                                           . T   ,                ,   G P    A              -      U  S  1877. T                      . I    ,             ,   D . A                                  . T                          . T                 . T  . I                          . F          . O          . F          .             . T                                 . T       . F ,   ,        . T                  . T                                           . T                                 . T                            1800. T              . T                R        [a +`}@>}{ 1A~@ |||<T|<<xe]#@ǜ| <| www8@ ",w$+T|Max |]|F /`"8| /``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|X$$F F decided to use transfer mode 4& HjjS@@,ؚ|@́|;́|ú| p<́| p|*+} ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|S_x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`}$g"|l | (|||>V| @@x| @A|?]|-| x>Ґ|Ґ|u|xu|?x $| ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|[a +}x1F`}>J?a|@= h V w ` q v n i s e t b Bt dh r\ 2P E`hVwqbBt:i:s:e:d:r:2vnE:[a +I Z0!wp|TY6ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor[a +`}@>}{ 1A~@ |||<T|<<xe]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |aLFx |]|F /`"8| /``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|X$$F F decided to use transfer mode 4& HjjS@@,ؚ|@́|;́|ú| p<́| p|*+} ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|S_x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`}$g"|l | (|||>V| @@x| @A|?]|-| x>Ґ|Ґ|u|xu|?x $| ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|[a +}x1F`}>J?a|@= h V w ` q v n i s e t b Bt dh r\ 2P E`hVwqbBt:i:s:e:d:r:2vnE:[a +I Z0!wp|TY6ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor[a +`}@>}{ 1A~@ |||<T|<<xe]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |aLFx |]|F /`"8| /``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|X$$F F decided to use transfer mode 4& HjjS@@,ؚ|@́|;́|ú| p<́| p|*+} ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|S_x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`}$g"|l | (|||>V| @@x| @A|?]|-| x>Ґ|Ґ|u|xu|?x $| ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|[a +}x1F`}>J?a|@= h V w ` q v n i s e t b Bt dh r\ 2P E`hVwqbBt:i:s:e:d:r:2vnE:[a +I Z0!wp|TY6ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor[a +`}@>}{ 1A~@ |||<T|<<xe]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |aLFx |]|F /`"8| /``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|X$$F F decided to use transfer mode 4& HjjS@@,ؚ|@́|;́|ú| p<́| p|*+} ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|S_x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`}$g"|l | (|||>V| @@x| @A|?]|-| x>Ґ|Ґ|u|xu|?x $| ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|[a +}x1F`}>J?a|@= h V w ` q v n i s e t b Bt dh r\ 2P E`hVwqbBt:i:s:e:d:r:2vnE:[a +I Z0!wp|TY6ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor[a +`}@>}{ 1A~@ |||<T|<<xe]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |aLFx |]|F /`"8| /``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|X$$F F decided to use transfer mode 4& HjjS@@,ؚ|@́|;́|ú| p<́| p|*+} ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|S_x  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`}$g"|l | (|||>V| @@x| @A|?]|-| x>Ґ|Ґ|u|xu|?x $| ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|[a +}x1F`}>J?a|@= h V w ` q v n i s e t b Bt dh r\ 2P E`hVwqbBt:i:s:e:d:r:2vnE:[a +I Z0!wp|TY6ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor