== Source Code ==
--- basic code ---
5 MEMORY 30000:MODE 2
10 LOAD"wefax1.obj"
20 INPUT "enter horizontal resolution 1-4";resh
30 IF resh>0 AND resh<5 THEN POKE <resmod>,resh ELSE CLS:GOTO 20
40 CALL <entryoint>
50 CALL <rerun>
60 GOTO 50
--- asm code ---
io_port equ 0F8F0h
loop2:
di
resmod equ $+1 ;\horizontal resolution ld d,2 ;<-- MODIFIED (1..4) ;/
ld bc,io_port
smpl: ;\