VL.13NSG SPC4 - PPONG 1@ PIRANHA 5  DEPTHCHG> FLAKE E COPY I 1DSKCOPYK* DATE M MODEM S SMODEM T PRINT X COPYDISK]* COPY-DOC^  BANNER2 i  DATA1 u* DATALOAD| CLOCK4  VTISTAR * FACTRL  >14!p#~O ͘:(6!p͞͹. !O w#Hy020_*~#i>2: <2?I0902?:>>2:G!:w:<2->2~ 61960+ #w>2!4#4#4#4:>|R}6#>dG: g6Ai6I#: G: w++wͼ: ʹʬʟ>>!@@>>!@> !>@> !@<= ++6Op#r#s>*G*|)o "|gxo|I+6ͼ!<#1>&o^#VI>z>z>@z>z>z>z>Az>?ʄw+6+66:/2";!w#-žͷ6 #ÞIw#!p~: !!tF#NHW++~:>>w͌___:2{_1{_{_7"6{_ͅw!=!>2>2~_` ~# wwV:2##:=S:!Ð!ʚͼÐ#~5>#~OXʽI#~++wͼ^{ȷ#F#N 6O`iʀ ”+r#s > !4|X}@W>dG:ͼV#^BK:tW:u_xW;/Gy_D/W{R>@c>cza>c>+G~/pp}@}6@6~Pʎ+>##w! ! !@ ! +~ +: w#6Xͼr#s>+#6OͼF#N> !w~O͹!+!pͻ~#+~+#!!@6 # ;9!@>w#P!@w?# `w# h]!p6#6P#6#6#p#q>##6Oͻ‹!w#ž>2>2?͆######+++++A@ ? @@SCORE 00 PHASE >dP(@`0 2H&\0KP$X,dX"T,( }` P(2 hL(<pH$FxD$P@ Z< dU_dZinxs:S U8J2H4K6Y7I9N1,3 5P.A0 ENTER NEW VALUES FOR: GO-U-D-L-R-UL-UR-LL-LR-H-P-A-PIj@e3AdMηAdcAOjeOjMnROjm҂OpmOvnROpMmOjnOj@̥.OjqOvnOm O O O O O O O O611),"WELCOME TO THE GAME OF DEPTH.",10),10) ="You are Captain on the USS Computer and you are trying" ="to destroy 10 submarines. To drop a depth charge, hit" ?"a number key(1 = shallowest, 7 = deepest) when your ship" ="passes over a submarine. You can only drop one charge" ;"at a time. As your efficiency gets better or worse," @"your speed will increase or decrease. Your initial speed" 2"is 10 knots. GOOD LUCK !!!!!!",10),10) & V52224\D110\"ENTER A NUMBER ",A XA77A77)) ZX063\VX,32\X dX641023\VX,160\X iX110 nY9600)1\HVY64) sH142n\VY64,142\X xDD1 7\S0 X162\Y1D\Y VX1,32\VX,7\ S10 \X X6211\Y1D\Y VX,32\VX1,7\ S10 \X\ T0\I7) I0I47I56TI48)2 T0\T2X\T4T41\T10 $T2T264\T1T11\HH1\H1VT2) T2127VT264,H\VT2,174 T1T \Y130\Y\ & EVT2\E65)142S1S\E65,32 E64)142S1S\E64,32  E63)142S1S\E63,32 *E1)142S1S\E1,32 /H1142S1S\E,32 4E1)142S1S\E1,32 >E63)142S1S\E63,32 HE64)142S1S\E64,32 RE65)142S1S\E65,32 !\E65,160\E64,160\E63,160 fE1,160\E,160\E1,160 !pE63,160\E64,160\E65,160 zT10\T20\T0\ T10\Y145\Y\ . 11),"YOUR EFFICIENCY WAS",10T4100,"%"  %3I,10T4100.5)," %"  T49D1D12\D10D10  T413D1D12 - "YOUR NEW SPEED IS ",105D12),"KNOTS"  X11000\X  Z R"@E\BAB&BI\CpBpA1\9\A\%BCSPEe]:a>~{oOmvݿ[{ A$632),B$70)  YX)Z11)63X ! X1632 \ A$X,X)0) \ # P0)2.1 2R20)101)32 2 <<Z1R\AYR216)\A$A,A)1)\AY48R2)\A$A,A)1) PR d R2 30 2 nCR22 32 2 x Z1R }AYC2) A$A,A)0)  0)P 1 AYC)\A$A,A)1)\AY64C)\A$A,A)1)  C  R  R2 30 2  C18R2 48R2 2 Z1R AYC)  A$A,A)0) ; Z1RCR216\AY49R2C18R2))2)\A$A,A)1)  C  R  R2 32 2  C32 62 " Z1R ' AYC) , A$A,A) 0) J I6 Z164R\AYC)\A$A,A)1)\AY64C)\A$A,A)1)\Z1R\AY64C) @ A$A,A)1) J C T R h r W31 | R2 62 2  F0\Z1R  C170\B$C,C)" "\ C  C2 62 AYC) % A$A,A)1) B$C,C)"*"\FC  C  F0 B$1,F),   R  \   UMi $ 5#R5~w4@4|/+}/+2R`@IO5E75F/+C/+|/+}!R/+2R2R!RF~wx@æ4`@I@xBN@z#+\EҦ4 Dt5GA*P>1p@3E>"p@5?DCEeQͶ=5J5n@5x,ʫ5 5?DÛ5B> J="P ù5x ! 6͈@E"PÃ5#͈@#"P,P@à5 INPUT ERROR-RETYPE "?A7?[3?A=,Z+xBn@xBz#+{>N6Q!Qwz#+#s#6xBn@xBs!"R!Q7J=> 2QR!Q%.!d9!9],Z+2P:P6>ڰ6ͼ=)+?66@6YA6X@q:S:~:;!L9Q7X@6D7:PW+*P-7 15),"*** DATE ***" 9 "WRITTEN BY DOUG MCKEE 3-2-78 (PHONE 408-268-2470)"  DATE REV 0 3278 :( "CALCULATES NUMBER OF DAYS BETWEEN TWO DATES - OR " D2 "CALULATES FUTURE DATE WHEN GIVEN STARTING DATE AND # OF DAYS" 27 "(NOTE: PROGRAM IGNORES LEAP YEAR EFFECT)"\ < "WHICH DO YOU WANT ?"\ 6F "1 = CALCULATE NUMBER OF DAYS BETWEEN TWO DATES" "P "2 = FIND FUTURE DATE ",A >Z \"INPUT DATES AS YYMMDD - JAN 5,1978 WOULD BE 780105"\ d A x, ?n CALCULATE # OF DAYS BETWEEN TWO DATES IE 780101 780201 3x "INPUT 2 DATES (EARLIEST DATE FIRST) : ",D,D1 D3D  X0  YD10000)  YY10000  MDY)100)  D2DYM100 9 M ,,,,,,,@,T,h,|,,  K131\  DD69  K228\  DD72  K331\  DD69  K430\   DD70  K531\  " DD69 , K630\  6 DD70 @ K731\  J DD69 T K831\  ^ DD69 h K930\  r DD70 | K1031\   DD69  K1130\   DD70  K1231\   DD8869\  A2  ) DYK \DD1\XX1\ DD1    . DYK \DD1\XX1\ XN \  5 %9I,D3," TO ",D1," = ",X," DAYS"\\\ < < FIND FUTURE DATE WHEN GIVEN STARTING DATE & # OF DAYS - "INPUT STARTING DATE & # OF DAYS ",D,N  , N," DAYS FROM ",D3," = ",D\\\ < 8[@[x[h[X[`[AH[x!FP[x!Fp[x!F1BxF0A!BCC #1,Z9\ Z>PP@Ñ!~w>>/G!::7Q<2!wx*w#"4~8*DMQ!L,0010 ;THIS PROGRAM CONNECTS THE TIME SHARE 0020 ;WITH THE Z80 COMPUTER 10030 ;USE CNTL C FROM KEYBOARD TO RETURN TO DOS 0040 COUT: EQU 2940H 0050 MODEM: ORG 0 0060 MSTAT: EQU 50H 0070 MDATA: EQU 51H 0080 CHKIN: EQU 2906H 0090 STORE: EQU 100H 0100 INIT: LD A,84H /0110 OUT MSTAT,A ; INITIALIZE TUART FOR MODEM 0120 SUB A ;PUT 0 IN ACC 0130 INC A ;PUT 1 IN ACC 0140 OUT 52H,A ;RESET TUART 0150 LD HL,STORE 0160 START: IN A,MSTAT 0170 AND 40H 0180 JR Z,KEY 0190 IN A,MDATA 0200 AND 7FH 0210 LD B,A 0220 CALL COUT 0230 LD (HL),B ;STORE DATA 0240 INC HL ;BUMP POINTER 0250 LD A,H ;CHECK FOR 200H 0260 CP 20H 0270 JP NZ,KEY 0280 ADD 50H ;MOVE TO 7000H 0290 LD H,A &0300 KEY: CALL CHKIN ;CHECK KEYBOARD 0310 JR Z,START 0320 CP 3H ;SET Z IF CONTROL C 0330 JP Z,2028H ;RETURN TO DOS 0340 LD B,A 0350 OUT: IN A,MSTAT 0360 AND 80H 0370 JR Z,OUT 0380 LD A,B 0390 OUT MDATA,A 0400 JR START 0410 END ~3y O_?+I@!@xB!@͊=n@3xBBú3N@ͤ=Ù3GAͿ> 4>2P*P*R!9"P! 15),"***** PRINT ****" ; "WRITTEN BY DOUG MCKEE 3-2-78 (PHONE 408-268-2470)"\ : "THIS PROGRAM PRINTS OUT AN ASCI FILE STORED IN RAM" 9( "AT 100H THRU 1FFFH AND 7000H THRU TOP OF MEMORY"\ ?2 "LOAD SMODEM AT 100H AND THEN EXECUTE THIS BASIC PROGRAM" =< "MODEM WAS WRITTEN IN CHROMENCO Z-80 ASSEMBLY LANGUAGE" BF "FOR YOU 8080 PEOPLE, YOU WILL HAVE TO CHANGE LINE 180, 310" P "AND LINES 370 & 400 " 1Z "LINE 100-140 SET MY TUART TO 300 BAUD ETC" >d "LINE 38-40 CNTL C FROM THE KEYBOARD RETURNS YOU TO DOS" n \"CR TO CONTINUE ",Z$ =x "MODEM IS USED TO CONNECT YOUR COMPUTER TO A TIMESHARE" E "SYSTEM OVER PHONE LINES USING A MODEM TO CONNECT TO THE PHONE" A "MODEM STORES ALL YOU INPUTS AND THE TIME SHARE OUTPUTS IN" @ "YOUR RAM STARTING AT 100H THRU 1FFFH. IT THEN CONTINUES" 4 "AT 7000H FOR AS MUCH MEMORY AS YOU MAY HAVE" ? "NO CHECK IS MADE FOR VALID MEMORY SO LONG SESSIONS WITH" 1 "THE TIME SHARE COULD EXCEED YOUR MEMORY"\ 4 "INPUT 1 FOR HARDCOPY FOR ALL ELSE INPUT 0 ",P ! B1$"DROPPED BY HOST SYSTEM"  M256\ 100H  M1M A$A) #P,A$,  A13 \A10 \  B2$B1$ \  \M\ ' A M)\MM1\ M8192 M28672\ !"*1&+>2+ !o~<4"*$,*>F2*!*ͬ*͚*7*!**"*̓*E*< !*ͬ*͚*Z*!**E*̓*g*>A*****"*>^( !*4!*4"*>Y2 :*'+**" :::::"** ( **ï**~G #*  1 FROM? 1 TO? NOT W/P!2*0 A$11)\51211,0 1 A$,\" ONE-DRIVE DISK COPY"\\ ) "WRITTEN 3/12/78 BY IRV MCKNIGHT"\ C("THIS FILE CONTAINS OPERATING INSTRUCTIONS AND DOCUMENTATION." 72 "THE 'GO' FILE OF THE PROGRAM IS 'COPYDISK'."\\ .< "FOR INSTRUCTIONS PRESS RETURN",Z$\A$, >F "COPYDISK COPIES THE CONTENTS OF ONE NORTHSTAR DISKETTE" =P "TO A BLANK DISKETTE. IT DOES A GROSS COPY OF ALL 350" ?Z "BLOCKS ON THE DISKETTE. THE OPERATOR MUST ALTERNATELY " @d"LOAD THE TWO DISKETTES IN DRIVE #1. THOSE WHO CAN AFFORD" @n "TWO DRIVES DO THIS WITH THE 'CD' DIRECTIVE IN THE DOS."\ ?x "IF YOU HAVE 24K OF RAM STARTING AT 2000H IN YOUR SYSTEM" @"5 LOADS OF EACH DISK WILL BE NEEDED. IN 16K SEVEN PASSES" ?"ARE REQUIRED. COPY WILL CHECK TO SEE IF IT CAN USE 24K." 5"THE PROGRAM LOADS IN ABOUT 300 BYTES AT 2A00H." ; \\"PRESS RETURN FOR OPERATING INSTRUCTIONS",Z$\A$, - "***** OPERATING INSTRUCTIONS ****"\ = "FIRST - WRITE PROTECT THE ORIGINAL DISK TO BE COPIED." , "THE OUTPUT DISK MUST BE UNPROTECTED." + "'GO COPYDISK' TO START THE PROGRAM." = "WHEN IT ASKS '1 FROM?' LOAD THE ORIGINAL DISKETTE AND" < " PRESS RETURN. IT WILL READ 5 - 7 TRACKS TO MEMORY." = " IF YOU LOADED THE WRONG (NOT PROTECTED) DISK IT WILL" A " TYPE 'NOT W/P!' AND THEN '1 FROM?' AGAIN UNTIL THE RIGHT"  " DISK IS LOADED." = "NEXT IT WILL ASK FOR '1 TO?' AND WAIT FOR THE OUTPUT " ? " DISKETTE AND A TYPED RETURN AGAIN. 'W/P!' MEANS IT HAS"  " THE WRONG DISK." - "REPEAT 5 OR 7 TIMES TO COPY THE DISK." 5""WHEN FINISHED COPYDISK EXITS TO THE DOS ('*')." $,"PRESS RETURN FOR MORE INFO",Z$ %6 A$,\"**** IMPLEMENTATION ****" 6@ "COPYDISK IS WRITTEN IN 8080 ASSEMBLY LANGUAGE." :J "THE OBJECT PROGRAM OCCUPIES ONE BLOCK (256 BYTES)." 5T "IT USES THE DOS FOR DISK I/O AND CONSOLE I/O." =^ "THE STANDARD DISK CONTROLLER AT E900 IS ASSUMED SINCE" ( THIS PROGRAM WAS ADAPTED FROM 'BANNER' AS PUBLISHED 42 IN 'BASIC COMPUTER GAMES' DAVID H. AHL. /< MODIED BY HARLEY LICHT 4F THE INMATI EACH AVAILABLE CHARACTER 1P HAS ALY BEEN SRED IN A FILE WHICH Z IS ED '1' ....... d =n THE AVAILABLE CHARACTERS IN THIS PROGRAM ARE ..... >x A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z ( 1,2,3,4,5,6,7,8,9,0,.,?,,",= $ A11 \ CLEAR EEN CHARACTER  A) \ CLEAR EEN % 108120))256)1," blocks" 2 15),"*********** BANNNER2 ************" \ = " This program will print a 'banner' on your hardcopy " E "printer up to 100 characters long. You have complete control " > "of the horizontal and vertical size of the characters." C " In addition you may select to have each character printed " D "using its own character or have all characters printed with " 2 "the same character throughout the banner. " C " Experiment with the horizontal and vertical sizes to suit " 8 "your printer and your own personal preferances. " / "(try 3 & 5 or 5 & 8 for example - )." < " Note that all available characters are stored in a " 5" "separate type 3 data file called 'DATA1' ...." -, \ "Press RETURN to continue ..... ",R$ 6 A) \ CLEAR EEN @ #0,"DATA1" \ A$160) 7J "Horizontal width of characters (1 to 7) - ",X\ 7T "Vertical width of characters (1 to 7) - ",Y \ ;^ "Centered? (Temporary 'bug' in program-answer NO)",L$ h r G10 \ L$"P" G11 B| "Character (type 'ALL' if you want character being printed", 5 " to be made up of it's own 'character'- ",M$\  "Banner Message - "  A$   "Output To Printer? ",J$  A) \ CLEAR EEN " W12 \ ER ROL CHARACTER 1 J$"Y" W)\\\\ ER OFF GGLE)  J$"Y" 10639,50  AA$)    T1 A$)  P$A$T,T)  P$" "   O0 41  #0 %O,&S9 \ S$S9) & P$S$ D 0 O : "CHARACTER NOT FOUND" \ 5D #0 %O3542,S1),S2),S3),S4),S5),S6),S7) N X$M$ X M$"ALL" X$S$ b U1 7 l K8 0 1 v 2KSU)   J9K)0    J9K)1 \ SU)SU)2K  SU)1   K    FU)9K  T11 X ! 634.5Y)G1X$))1),  B1 FU)  JB)0   I1 Y \ X$, \ I  *  I1 Y   I11 X$)  " ", \ I1   I * B 4 > T1 H U R H1 2X \ \ H \ T f H1 3 \ \ H /p J$"Y" W)\ ER ROL OFF GGLE) z  H1 7X \ \ H  \  0)," ",E$101,113)," ",E$114,120)   ALPHABETIZING MODULE  X0 N1  X,  #0%XS15,E$   YX1 N1  #0%YS15,E1$ %  E$136,165)E1$136,165) f * SWITCH HERE 4 W$E$ > E$E1$ H E1$W$ R #0%XS15, AGETWLSONFKBDHM?URPQYVXZICJ12*3456789=!0.PPC7B5B4B5B7BPPCPCC%C%C)C0CCQ C'@C'@C'@C'@C%C%C A A AQ C A A A%`C%pCCeBC%pC%`CQ C%pC%pC%pC%pC%pC%pCiBC'@C'@C'@C0CiBPCC%C%C%CCPCQ CpAAB3B0CQ CQ CBBBB A AQ CBBABiBC%CQ C'@C'@C'@C'@C'@C#CQ C%C%C%C%CCPCQ CBBBBBQ CQ CpAB%BBpAQ CPA0A A5@CBBPACC%pC%pC%pCCCQ CBBPBB`C'CQ CBBBBBBPCC%C%C2 CC8CAABHCBAAdBeBC%pCCeBdB8CiBABBABiB8C8`C2 C)C'@C&`C& C&C%C%C%CQ C%C%C%CPCC%C%C%CCiBeBC%pC%pC%pCCC&C%CQ C%pC%pC&C8pC2 C)C'@C&pC&CiBABBQ CBABiBfBC%C'@C&`CCC3BIBAB7B5BQ C3BC'@C'@C'@C'@C'@C"`C@C)C)0C)pC0PC(C0C%CCfB4BBBAiBC'@C'@C'@CCiB&0CCtBBB&BBpAABABABABABABABAAA8@CAAAWBiBC%CCiBWBAACDCCAAE (z "DELETE WHICH ENTRY NUMBER? ",D\ C DN "NO SUCH ENTRY. THERE ARE",N," ENTRIES ON THE FILE"\  DN L  DN  UP ETE  #0%DS15,E$  Z ' "DELETE THIS ENTRY? (Y/N) ",A$\  A$"Y"   "TRY AGAIN? (Y/N) ",A$  128 7 ************************  2( THIS PROGRAM AINS THE ENCODED THE :2 'BANNER2' PROGRAM. USE THIS PROGRAM ENTER THE 1< ENCODED CHARACTER O A E 3 FILE ED F '1' ...." P Z d 11) \ CLEAR EEN 'n 108120))256)1," blocks"\ (x \15)," ***** DATA LOAD *****"\ ? "This program is used to load a type 3 data file called " = "DATA1 with the encoded alpha/numeric characters used " 9 "in conjunction with the BANNER2 program......"\\ & "Press RETURN to continue...",R$  11) \ CLEAR EEN  \ > "If you wish to load the character set already existing" = "within this program, simply enter 42 as the number of" 3 "characters when asked by the program....."\ 4 " This character set includes the following -" : "A,B,C,D,E,F,G,H,I,J,,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" ? "1,2,3,4,5,6,7,8,9,0,.,?,!,=,*,and 'space'. You may use " = "less than the 42 available characters or you may add " < "additional characters of you choice by putting them " < "into the body of this program, which will then load "  "them into DATA1." 2" \\ "Press RETURN to continue...",R$\11) =, "Before proceeding any further with this program, you " ?6 "should create a type 3 data file called DATA1 and make " #@ "it at least 6 blocks long. " 0A \ \ \ "Press RETURN to continue....",R$ B 11)\ CLEAR EEN J "How Many Characters? ",N CT "The DATA1 File Must Be at Least",NN35)2561)," Blocks" ^ #0,"DATA1" h A$1),A7) \ I10 +r I0 N1 \ "CHARACTER #",I1," :", ,| A$,A1),A2),A3),A4),A5),A6),A7)  A$ \ #0 %I,&A$), 2 #0 %I1N,A1),A2),A3),A4),A5),A6),A7)  I1I135 \ \ #0 7 \"Your DATA1 file is now loaded with the above " 5 "alpha - numeric character set and may now be " 9 "used in conjunction with the BANNER2 program."\\   " ",0,0,0,0,0,0,0 ! "A",505,37,35,34,35,37,505 & "G",125,131,258,258,290,163,101 & "E",512,274,274,274,274,258,258  "T",2,2,2,512,2,2,2 % "W",256,257,129,65,129,257,256 & "L",512,257,257,257,257,257,257 $ "S",69,139,274,274,274,163,69 & "O",125,131,258,258,258,131,125 & "N",512,7,9,17,33,193,512 0 "F",512,18,18,18,18,2,2 ": "K",512,17,17,41,69,131,258 &D "B",512,274,274,274,274,274,239 &N "D",512,258,258,258,258,131,125 !X "H",512,17,17,17,17,17,512 b "M",512,7,13,25,13,7,512 l "?",5,3,2,354,18,11,5 &v "U",128,129,257,257,257,129,128 " "R",512,18,18,50,82,146,271  "P",512,18,18,18,18,18,15 & "Q",125,131,258,258,322,131,381  "Y",8,9,17,481,17,9,8 " "V",64,65,129,257,129,65,64 ! "X",388,69,41,17,41,69,388 & "Z",386,322,290,274,266,262,260 & "I",258,258,258,512,258,258,258 % "C",125,131,258,258,258,131,69 % "J",65,129,257,257,257,129,128 " "1",0,0,261,259,512,257,257 & "2",261,387,322,290,274,267,261  "*",69,41,17,512,17,41,69 % "3",66,130,258,274,266,150,100  "4",33,49,41,37,35,512,33 & "5",160,274,274,274,274,274,226 &  "6",194,291,293,297,305,289,193 * "7",258,130,66,34,18,10,8 $4 "8",69,171,274,274,274,171,69 > "9",263,138,74,42,26,10,7 H "=",41,41,41,41,41,41,41 R "!",1,1,1,384,1,1,1 "\ "0",57,69,131,258,131,69,57 f ".",1,1,129,449,129,1,1 p  c BBB4BBBAiBC'@C'@C'@CCiB&0CCtBBB&BBpAABABA 6 DIGITAL CLOCK PROGRAM 6 6 BY HARLEY LICHT 415 9688001 31678 6( 62 THIS PROGRAM REQUIRES THE USE OF A PTCO VDM 6< 6F 1P THE TIMING LOOPS THE CLOCK HAVE YET 0Z BEEN SET OLUTE ACCURACY. SOME MIN .d ADJUSTMENT OF THE ' ' LOOPS MAY 2n STILL HAVE BEEN DE..I RAN OF TIME) 6x 128 - A11 \ CLEAR EEN CHARACTER SOL 20  A) \ CLEAR EEN 7 16),"*COMPUTER DRIVEN DIGITAL CLOCK*"\\\\\  VDM UPPER WINDOW # K52234 52277\K),160\ K  52298,160\ 52341,160 # J52362 52405\J),160\ J  LOWER WINDOW # Z52544 52608\Z),160\ Z 4 52735,160\ 52736,160\ 52671,160\52799,160 $ L52800 52863\L),160\ L  VDM CNERS  P1 3 0 52224,160\52287,160\53184,160\53247,160  C1 200\\ BLINK /" 52224,42 \52287,42 \53184,35 \53247,35 !, H1 200\ H\ P\ BLINK 06 52224,160\52287,160\53184,160\53247,160 1@ BLINK HIZTAL BAR IN LOWER WINDOW J A1 2 $T V52671 52735 \ V),160 \ &^ V52672 52735 \ V),10 \ V 'h V52671 52735 \ V),160 \ V r A '| VERTICAL OF LOWER WINDOW ' M52600 52798 2\M),160\ M  VDM LOWER  S11 5 ' Y53204 53227 2\Y),160\ Y " S1 200\\ BLINK LOWER ' Y53204 53227 2\Y),10 \ Y ' Y53204 53227 2\Y),160\ Y  S1 ! U1 500\ \ TIME AY  G1 2  23),\\23), > " THIS PROGRAM WAS WRITTEN BY HARLEY LICHT 3-16-78"  N1 750 \ .23),\\23),\ 52736,160\ 52735,160  X1 400 \ & G 0 CLOCK PROGRAM : Z99) D  -N "DO YOU WANT A 12 OR 24 HOUR CLOCK? ",Z X  b  l Z12  v Z24  *   ;"PRESS RETURN TO SET THE CLOCK TO THE CURRENT TIME",R$        " HOURS ",H        " MINUTES ",M        " SECONDS ",S      Z24  \ Z12 R )* "YOU DUMMY! I SAID 12 OR 24 NOT",Z 4 X1 1000 \ X >  H D #R Y52608 52798\Y),160\ Y 9\ "PRESS RETURN TO START CLOCK RUNNING * * * * * ",R$ f  p  \  ?z 52800,160\ 15),"------> ",H," :",M," :",S," <------" 6 X1 400 \ X \ TIMING LOOP 12 HR CLOCK    52736,160  SS1 " S60 MM1\ M60 HH1  S60 S0  M60 S0 \ M60 M0  H13 H1  z   23),\\23),\ % Y52608 52798\Y),160\ Y\ " 52735,160 \ 52736,160 \  24 HOUR CLOCK COUNTER   \  @ 52800,160\ 15),"------> ",H," :",M," :",S," <------" 5$ X1 400 \ X\ TIMING LOOP 24 HR CLOCK .  8 52736,160 B SS1 $L S60 MM1 \ M60 HH1 V S60 S0 ` M60 M0 \ H24 H0 j  t sbbbbb{bbbbbdbbbbbb0AR'ER@`E V52671 52735 \ V),160 \ V  A ' VERTICAL OF LOWER WINDOW ' M52600 52798 2\M),160\ M  VDM LOWER " S11 5 ', Y53204 53227 2\Y),160\ Y "6 S1 200\\ BLINK LOWER '@ Y53204 53227 2\Y),10 \ Y 'J Y53204 53227 2\Y),160\ Y T S1 !^ U1 500\ \ TIME AY h G1 2 r |23),\\23), > " THIS PROGRAM WAS WRITTEN BY HARLEY LICHT 3-16-78"  N1 750 \ .23),\\23),\ 52736,160\ 52735,160  X1 750 \  G  Z99) - "DO YOU WANT A 12 OR 24 HOUR CLOCK? ",Z    Z12    Z24  D ;"PRESS RETURN TO SET THE CLOCK TO THE CURRENT TIME",R$    " HOURS ",H    " MINUTES ",M   & " SECONDS ",S 0  : Z24  \ Z12 ] *D "YOU DUMMY! I SAID 12 OR 24 NOT ",Z N  X  #] Y52608 52798\Y),160\ Y .b 52800,160\ 18),"---->",H,M,S," <----" l X1 500 \ X v 23),\\23),  52736,160  A1  AA1  A 5     SS1 " S60 MM1\ M60 HH1  S60 S0  M60 S0 \ M60 M0  H13 H1  b   23),\\23),\ ]]^]]]]]^ !,+_+N *!5.+_+!/+_+B+P!R+! R+!%R+!R+!R+!R+! R+!%R+y!V+x²*y*!,8+CK>‹* ‹*|*>œ*ž*à*p#q#s#!B,&+_+Y *ɷ*y*!+8+é*!,8+ͮ2#l+ !2*+####*#~*yc+*xc+#xG#yO**+!,8+é*!+8+*z2+B+~2+#&+:+Wz2+#+կ>zF+ɯxG\+66 !+8+*d=s+r+p+ ӬՠԠŠšՠΡĠǡՠĠӮ堠庠󮠠ՠŠРϠ١ҠԿӠȠϠϠԠɠΠǠӠԠҠӠɬȮ讠ҠӠРΠ٠Ġ̮󿠨ΠϮ󺠪󺠰宠򬠨Ԡ婠򮠠宠󺠠Ӻ1 234)5Z67 h8@9 w  A$72),A250)  N100 ( A$"0123456789" (< "TO WHAT FACTORIAL DO YOU WANT?",X P AN)1 Z Y1 X d I1 250\AI)AI)Y\ n AN 1 1 x AA)10  AA)AA)10  AA1)AA1)1 x  A  B0 Y,"!=",  C7  A1 N  AA)0 B0   B1  A$AA)1,AA)1), CC1  C62   \6),  C7  A " , C7 @ @ Y 4YH 0123456789