水电费收款实用程序见下面程序，它可以在屏幕上显示或打印出水电费收款单。
本程序中，水电费分别按0.08元／吨、0.22元／度计算。其他地区读者可根据当地标准，修改120句。
程序中，住户姓名、用电度数及用水吨数均放置在320～490句中的DATA数据区，这就需要在运行程序前输入这些数据（参考320句）。也可以修改本程序，使上述数据在运行程序后，用人机对话（INPUT）方式，由键盘输入计算机。
该程序在PC机、苹果机及中华机上均通过。
10 REM“水电费收款程序”
20 INPUT“请输入日期，如： 1988.11.26”； B＄
40 INPUT“请输入住户数”；N：D= 0：S=0：G=0
50 DIM A＄（N），C（N），D（N），T（N），S（N），G（N）
60 FOR I＝1 TO N： D（I=）=0：S（I）＝0：G（I）＝0；NEXT I
100 FOR I=1 TO N：READ A＄（I），C（I），T（I）
120 D（I）=C（I）*. 22：S（I）=T（I）*. 08： G（I）=D（I）＋S（I）
150 G（I）=INT（G（I）* 100＋.5）／ 100：D=D＋D（I）： S=S＋S（I）： G=G+G（I）；NEXT I
200 PRINT TAB（20）；“水电费收款单”： PRINT TAB（35）；B＄
220 PRINT“********************”： PRINT： GOSUB 500
250 PRINT“姓名”；TAB（11）；“用电（度）”；TAB（20）；“电费（元）”；TAB（30）；“用水（吨）”；TAB（40）；“水费（元）”；TAB（50）；“共计（元）”：GOSUB 500
270 FOR I=1 TO N
280 PRINT A$别（I）； TAB（11）； C（I）； TAB（20）；D（I）；TAB（30）； T（I）； TAB（40）； S（I）；TAB（50）；G（I）
290 GOSUB 500：NEXT I
310 PRINT“电费共计”； D；“元”；“水费共计”；S；“元”；“总计”；G；“元”
320 DATA“郑安达”， 15.8， 13.9，“李恩迹”，45.6，21.3，“王大森”，29.6，17.4
499 END
500 FOR J=1 TO 60： PRINT“－”；：NEXT J：PRINT： RETURN（梁利伟）