Classic Computer Magazine Archive PROGRAM LISTING: 84-04/SAFESPC.LGO


TO MODE2
FS HT CS
MAKE "START ( ( ( .EXAMINE 561 ) * 256 ) + .EXAMINE 560 )
REPEAT 3 [.DEPOSIT :START 112 MAKE "START ( :START + 1 )]
.DEPOSIT :START 71 MAKE "START ( :START + 1 )
.DEPOSIT :START 17 MAKE "START ( :START + 1 )
.DEPOSIT :START 59 MAKE "START ( :START + 1 )
REPEAT 11 [.DEPOSIT :START 7 MAKE "START ( :START + 1 )]
.DEPOSIT :START 65 MAKE "START ( :START + 1 )
.DEPOSIT :START ( .EXAMINE 560 ) MAKE "START ( :START + 1 )
.DEPOSIT :START ( .EXAMINE 561 )
END



Back to previous page