+ ***********************************P ** D Y N A M I C S C R E E N**w ********************************B53280:BAB1:X211:CY214:XR781:YR782:SC1024:CO54272:CC646:SR783((65530)16460' 2B65305:BAB4:X202:CYX3:XR2035:YR2036:SC3072:CO1024:CC1339:P1R <(8)(14)" ESIGNED BY IN 1989 "~ F10)"LL RIGHTS RESERVED ":I12000: PNA4:T1NA:AY(T),AW(T),AM$(T): Z 10,13,"DIT SCREEN",11,13,"EAD SCREEN" d 12,13,"IRECTORY": 13,13,"XIT" n280:11)" DIT SCREEN "= x11)"EAD SCREEN "Y 11)" IRECTORY "v 11)"XIT " 11) 11)"" GET COMMANDS A1 WAW(A):YAY(A):270:""AM$(A)""; A$:A$""200 WAW(A):YAY(A):270:""AM$(A); A$(13)260> A$""AA1(ANA1)NA\ A$""AA1(ANA2)NAe 190 A470,400,690,880:80 SR,0:XR,Y:YR,W:65520: B,6:BA,6 "" " ,"  " 6I116:"  ": @"  "% J" "X T" RSR=HOICE ETURN=XECUTE"q ^900:"":9)""} h9)"" r9)"" |  READ FILE 970 15,8,15:2,8,2,"0:\"F$",S,R":650:940:DE870 #2,A$:ST0A$(0);:420* "":CY,22::X,15:"RESS Β"G A$:A$""A$(13)440P 870h  WRITE SCREEN FILE 15,8,15:970:"" 15,"S0:\"F$:940:2,8,2,"0:\"F$",S,W" "OMPLETE YOUR SCREEN AND PRESS Β" T12000::650A$:570A$""510+A$(20)A$(148)510AA$(13)2:870V&A$;:2,A$;:510g0 GET CURSORs:WL(X)DWL39WLWL40:580NWLWL(CY)40SCXCOWL,(CC):WO(WL):WTWO:WQ128:WO127WQWQbWTWTWQ:WL,WT:WQWQ:WR140lA$:A$""WL,WO:WR40:WR:,vWR:6109 BORDER`A40:C23:"";:H1A2:"";:v:V1C:A2):I140:SCCO960I,0::SC960,237:I037SC961I,192::SC999,253:"":X,4:" LOCKS ROGRAMS ILEYPE ":B,2:BA,15(P1)34:15,8,15:2,8,0,"$0":940H#2,A$,B$`#2,A$,B$:#2,A$,B$xA0:A$""A(A$)B$""AA(B$)2569RIGHTRVS((A),2);12);" ";#2,B$:ST0850B$(34)760 #2,B$:B$(34)B$;:780#2,B$:B$(32)790- 28);:A$""M*A$A$B$:#2,B$:B$""810x4""(A$,3):(A$,3)"SEQ"34)"_">A$:A$""870HST0720R"LOCKS REE":"RESS Β"\A$:A$(13)860f2:15:110p"": z TONE*(65530)1647:1,881,9:T54296,15:54276,33:54277,9:54278,054273,34:54286,75:T1400::54276,215,A$,B$,C$,D$DE0:(A$)0A$,B$,C$,D$:T12000::DE1 "ILENAME";F$:(F$)15970 F$""15:110A"":B,1:BA,15(P1)34: