FILLDISKGW BASCOM-86/88 5.60 BASCOM20ՖCODESGCODESGCODEBC_CODE INIT_CODEDATASGBLANKCONSTDATABC_VARSBC_SEGSCSEGSHELL BC_ICN_CODE BC_IDS_CODE INIT_CODEDSEGCOMMONCONSTDATABC_DATABC_FTBC_CNBC_DSDGROUP FILLDISK_CODEh h hhhFhߘhHx͘h ۘh ٘H _H hF h К  D  $AC$DAC$SEG$USR4blFILLDISKj-       $INI$560$DSW$EVT$LINA!0̚ܜVV VVV G$CLX$LO0$LO2$PR0A'!M̻̚ ̚V V V V dj5"=FILLDISK.EXE DOS UTIœ "LITY 10/13/86 BENNY THE $PV2D$PV4!k̻ VVV V  <ROBOT!̻̚V B VVV ȠB ____________Fɠ ̚ V V "R=Purpose: Calculate remainV"ping free disk space on target !̻ ҜRVVV V drive ̚cV ."= and fill with onUw"e file of specified constant נ!̻̚VVV V data.$SP$~#̚PnV V VVV#̻̚PV V V VW!2̻̚VVV V j#OP̻ܜV V VVV $n̚P7V V VVV ̻ ̻ V V "/Enter drive you want to wo5$IN0A$IPUA$IPUB$LENA,$̻ V VFVFVrk on (A, B, C ...): ؠ$SCMA$SASAǠ!̻t̻\ FVFV A  p$LENB"!̻̃>`̡2FV JJJV ΣPJI̡Σ J J  >!̻9̚V V V J$CHRh!8@Κ̻̚ ̜VV VV a#U̚PV V V VV!t̻ ̚V V V V c"9Enter file name, RETURN foK"2r default file name FILLER.TMA!̻ 9VVV V PP!̻̻ V VLVL n̜V(}!̻t̻L LVRLVIR FILLER.TMPV `#̻ 9̚ œV V V VW!̻ 9̚ќVVV V j#5̻ PV LV VV V q T̚ܜV ."`8Fill character, RETURN fo d"~r default: 00 (entry in hex)J![̻ !`VVV V x̚V ."*(Entries in decimal must bn$̻̚ sVVV V qe followed by D)#$0̚ V V VVV #̻ ̚PV V V VWo VVZo$̻̚ 0̻V V V  V! ̻tV P V PV&T( "5̻|N PVvD $VAL$FCMDJ̻w,6PV  V }^$RIGc!d̻˚V)P VV Dk8!uJً‹VӻԜ VV d2$LEFn!uI #u̻CPVV$CIND%̻#VT VVDecimal,*̶H$CSPB!̻̚0V PVVV$FASC$MID$̻ZV PV VV$FSHA$FADC$CINC#̾ ^V Z V!^V"V#1̻7T V Vk Hexadecimal 3 n!B̻̚ ̚V V V V e"_P̻ 4V VVV a!}̚V V VVV#̻ 4̚.V V V VV!̻ ̚9V V V V c"*checking free disk space, Ӝ$ST$z!̻VVTV$bplease wait ... $ASPDSPACE#̸PPPP$!VJ fhjV%V&=!̻ ̚P V V V $/̻VV VV V !O̚P̻zV VVVb#l̚PϜV V V VV!̻ ̚oV V V V c!P̻ VV VV e$PV1D$PV2Cݠ!̚AV V (V'hV(Ӡ (Bytes per sector: ,"̻ ̚V V V V D DSectors per cluster: ؜HŠ!̻֜V'f V(VV g$PV1C)" ̚wV V `V'jV) `Available clusters: d!;̚.ΓVV |V'jf| Total sectors: i$CISA#!X̋̋V(V fV*lVv!ű!hV* p VjV*t$FMUA$FMUC ̿!Vp l V+tV,͠z$FDVC "̻ V-x VV V X$PR0B/!̻̚:V  V'VV.!  There are ####,.###͜ _$PV1A+̚xV/VV "( KBytes ready to be fille|S!̃> |̚V'VTV d with ASCII j#@ΚV' TVVV8CTRL '8/(;̚"V T VVV9$INTZ!T̿ڜ"ltV+ V0V#|Zq̻ ̚ V V V ",How many sectors do you wa"̻V' | V(VV  nt to write, max. ( ̚ V V "((RETURN for default, 0 toߜ !̻7VVV V : exit program)!̻̻ V V~VK$7̚œV V V VV! ̻7̚V V V V c!- ̻̚~VVV ~V!J ̻t̡V  ~V|g Ea j ̃>|.s ٠y ̡;| | Ƞ  B à! ̻̚ ̚HV V V V e "H,You are only allowed to wr7L HV' | V):"fite a maximum of  sectors|~! ̻ xVVV V  ̚OV .")Please enter again, 0 to ! ̻7`VVV V exit program p! ̻̻ V V~VK$ ̚PV V V VV!< ̻̚V V V V cY Py VV V "o ̡̻̚ŜV  |V V ڠ! ̚P̻4V VVVb# ̚PV V V VV! ̻ ̚V V V V c œV' | V)Р"writing  sectors, plea- 1! ̻ uVVV V Ose wait ... ! ̚@ΚV  V'JV File named w,$AD$AY"1 ̋i V1V' LVVJn :'!O @ΚӚȜV V1LV1C!l 3ۚV V1V1V $7DFILL ̸PPP̧Lb |V%V2Ow +! ̃̚>|̻XV V  PROGRAM ABORTEDϜ   ̻VΠ DONE  # ̻̚PʜV V V VW! ̻C̚ܜVVV V j! ̻ ;V V VV ") ̻WV  VVVDo again ? (Y/N): < $G ̻̻ߜ!V V2V 2y=d6ՠ!g uJuI #ub 8 V 8Y<Ϡ! ̻̚V V V >V >wereVBɠ  `V. %T $END$ENP] ̚ V3V4 OX  P0.