53280,0:53281,0:646,118 CR$(13):V0:DF$""C FL200` TN$(FL),ID$(FL),DN$(FL)l(142)y15,8,15BL$(1)"BL$(2)"BL$(3)""1000 PRF$DF$:""> Q6)"ENTER THE NAME OF THE FILE "X R12);"TO WORK ON:"h SX$"1"V0 TV16);"OR HIT RETURN FOR SAME FILE" U10);:"";DF$ VDF$RF$V1132 WV1 XX$"1"V0 Y(DF$)16965 ZX$"1"N0:Z1N:TN$(Z)""::790. d15)"LOADING...."I f2,8,2,"0:"DF$",S,R"R g500[ h2,Nd i500o kI1N} n2,TN$(I) p x500 2 X$"1"V0 X$"2"600 X$"3"DC0:790 X$"4"ED0:699 X$"5"790 15)"SAVING...."# 2,8,2,"@0:"DF$",S,W", 5005 2,N> 500I I1NW 2,TN$(I)^ Ig 500n 2} N200900 X$"1"600 X$"3"X$"2"X$"5"1100 X$"4"600 ED11100 GPN:15)"SORTING..." GP(GP2):GP0 F0 J1(NGP)2 TN$(J)TN$(JGP)275^ T$TN$(J):TN$(J)TN$(JGP):TN$(JGP)T$d m 263s ~ ,LD$"" -" ENTER THE ID TO CHANGE/DELETE " ."HIT IF NONE ";:LD$ /LD$""1100 0I1N 1(TN$(I),2)LD$320$ 3S @"IS THIS THE DISK TO CHANGE?"e A""6)BL$(1) B6)" " E6)" "(TN$(I),2)" "(TN$(I),3) G6)BL$(2) IA$:A$""329 JA$"Y"333KA$"N"700 L330EM6)""BL$(1):6)" MAKE ENTRIES EVEN IF NAME "oO6)" OR ID IS TO BE THE SAME "P6)" IF DELETING, USE 'DELETED' "Q6)" AS THE NAME AND EDIT LATER "S6)BL$(2)T"CHANGE "(TN$(I),2)" TO ";:"";QW$UQW$(TN$(I),2)SISI1/VQW$""380GY(QW$)2780:320b^"NEW DISK NAME";QE$x`QE$""940:320a(QE$)16960cTN$(I)QW$QE$dED1eSI0SI0:200f260:"":260:"":260:"":260:200p260:"":260:"":260:"":260r200I|"YOU DIDN'T ENTER A NEW ID !!!"t}" DO YOU WANT TO TRY AGAIN????"" Y/N"A$:A$""385A$"Y"1100320""15)"**MENU**"6)"")6)" "O6)" 1. CREATE A NEW FILE "u6)" "6)" 2. READ FILE/CHECK AN ID"6)" "6)" 3. ADD A DISK " 6)" "36)" 4. EDIT/DELETE ID/NAME "Y6)" "6)" 5. FORMAT AND ADD A DISK"6)" "6)" 6. END THE PROGRAM "6)" "6)" 7. HOW DO I USE THIS? "=6)" "c6)""12)" ":12)" "12)"CHOOSE A NUMBER"12)""X$:X$""450X$"6"1000X$"7"1200X$"1"X$"7"45080 450515,EN,EM$,ET,ESyEN62" THAT FILE DOESN'T EXIST,TRY AGAIN":A12000::1100EN0EN,EM$,ET,ES:&7)"THAT ID HAS NOT BEEN USED!!")Z1750:*Y$"C"816+X$"3" X"THERE ARE "N" DISKS IN THIS FILE"FZ"DO YOU WISH TO:"a]""14)"VIEW IT?"s_""16)"OR "a""14)"CHECK IT?"f16)"(V/C)jY$:Y$""618kY$"V"699lY$"C"790m618B0""014)"**"DF$"**":" CONTAINS THE FOLLOWING"N"DISKS:O"ID NAME"20)"ID NAME"v" "20)" ":B33I1NBB1:B33730B17"":750B17750PC$(1)"":PC$(2)"":PC$(3)""C1:D2(TN$(I),3)"DELETED"C3:D3CB17PC$(C)(TN$(I),2)" "PC$(D)(TN$(I),3)JI""7)"LIST COMPLETE, HIT "E$:E$""719E$(13)725719ED11100X$"4"300X$"4"1100I""12)"HIT RETURN"""S$:S$""733S$(13)700:B1:733(TN$(I),3)"DELETED"C3:D319)""PC$(C)(TN$(I),2)" "PC$(D)(TN$(I),3)"9E$(13)B0:700B751MK1Nr(TN$(K),2)KD$FD$TN$(K):832x550 ""13)" FLUBBED!!!!":A1800::950X$"1"W$"CREATING FILE"X$"5"W$"FORMAT A DISK" X$"3"W$"ADDING A DISK"+Y$"C"W$"CHECKING DISK"N ""12)"c!12)" "W$" ""12)""#""12)DF$" FILE"$12)(BL$(3),(DF$)7)%KD$"":"DISK ID: ";KD$'(KD$)2780:790 (Y$"C"760)853A*DN$(N)"":"DISK NAME: ";DN$(N)W+(DN$(N))16960p,DN$(N)""940:790-TN$(N)ID$(N)DN$(N)/X$"5"ZA0:8620Y$"C""CHECK ANOTHER?":8203"ENTER ANOTHER?"4R$:R$""8205R$"Y"79066R$"N"Y$"C"1100e7R$"N"260:"":260:"":260:"":260n8200w;820}?@"THAT ID, "KD$" , HAS BEEN USED"A"FOR A DISK NAMED:"C11)""(FD$,3)DY$"C"816)J"DO YOU WANT TO USE IT ANYWAY?"LK"YES, USE IT.L"NO, ENTER ANOTHER ID":"QUIT TO MENU"MY$:Y$""845NY$"Y"ZA1:OY$"N"KD$"":UD0:790PY$"Q"UD0:1100Q845UK1N*V(TN$(K),2)KD$FD$TN$(K):UD10W?XUD1832pZNN1:N200260:"":260:"":260:"":[ID$(N)KD$\^""6)BL$(1)`6)" "a6)" "(TN$(I),2)" "(TN$(I),3)b6)BL$(2))c""10)"FORMAT THIS DISK??"<gY$:Y$""871MhY$"N"1100^kY$"Y"871n"WARNING!!!! WARNING!!!! WARNING!!!!"o""p"WARNING!!!!  WARNING!!!! WARNING!!!!" q"YOU ARE ABOUT TO FORMAT THIS DISK!"J r""(TN$(N),2)" "(TN$(N),3)~ s"DO YOU HAVE THE RIGHT DISK IN THE DRIVE?" t15)"[Y/N]" uY$:Y$""885 vY$"N"890 wY$"Y"892 x885 z" PUT IT IN THEN!!!"!{A11500::862E!|"FORMATTING....":15)""(TN$(N),2)"--"(TN$(N),3)i!}ID$(TN$(N),2):DN$(TN$(N),3)!~2,8,15:2,"N0:"DN$","ID$:2!500!" PUT FILE DISK IN DRIVE AND HIT RETURN"!E$:E$""897"E$(13)260:"":260:"":260:"":260:200"897?""":53281,15:53280,0:646,0f"""10)"THIS FILE IS FULL!!!!""""11)"YOU NEED TO START""""14)"ANOTHER ONE !!""""12)"HIT 1 AT THE MENU""A15000:"53281,0:646,15"1100/#""10)"C'MON..YOU NEED A NAME !!!"A#A12000::o#""10)"NEED 2 CHARACTERS !!!"#A12000::#"LIMIT OF 16 CHARACTERS !!!"#A12000:#ID$(N)"":DN$(N)"":NN1#790&$"LIMIT OF 16 CHARACTERS !!!"6$A12000:>$80Y$""ID$(I),DN$(I)w$"IS THIS THE DISK"$Y$:Y$""973$Y$"N"700$ID$(F)"":DN$(F)""$I1(N1)$ID$(N)ID$(I):DN$(N)DN$(I)$$200%""15)"":%""15)""^%""15)""%" "15)" "%" "15)" "%" "15)" "%" "15)" "&""15)"">&""15)""b&""15)""&""15)""&" "15)" "&" "15)" "&" "15)" "'" "15)" ":' ""15)""H'""c'12)" ò "~'12)" "'12)" ñ "'""12)" "' 12)" "'"12)" "($""12)" ղ "(&12)" ó ó"7((12)"ʽ "G(*18)"BY"_(+14)"DON SEARLES"v(,14)" JULY 1992"(.A13000:(3X$"6"15:"":(8400(LY$"":(142)(M" ")N" ">)P" "h)R" ")T" ")V" ")X" "*j" ">*l" "i*n" "*p" "*r" ** ** "*t" "*~400+(14)=+"*****************************"a+" "+"HIS IS A SMALL PROGRAM DEVISED TO CHECK";+" IF HAD USED A DISK BEFORE FORMATED IT.,"OU MUST FIRST CREATE A FILE THEN ADDTHE S TO IT. HE FILES ";h,"CAN BE WHAT AREON THEM, LIKE GAMES, UTILITIES, ETC. HIS ALLOWS THE ";,"USE OF THE SAME FOR DIFFERENT TYPES OF DISKS.(01 CAN BE USEDFOR A";," GAME AND UTILITY DISK.)"&-"ACH FILE YOU CREATE CAN HOLD UP TO 200 DISKS. UST CREATE AS MANY";C-" FILES":"AS YOU NEED.-"HE FILES CAN BE EDITED AND ADDED TO. HEN FORMATTING";-" NEW DISKS, THE FILE IS UPDATED."-"Ԡٕ"." ".Y$:Y$""1275 .1300U."*****************************"y." "."HEN YOU WANT TO DELETE A DISK, CHANGE THE NAME TO 'ě'";." THEN EDIT THAT ENTRY WHEN ADDING A NEW DISK."&/"ET ME KNOW IF YOU LIKE IT!!"Z/("Ԡٕ"{/*" "/+Y$:Y$""1323/-1100