PROCEDURE WIN0DEL;¢begin¢#A¢ TXA¢ PHA¢ LDX #$50¢ LDA #$0C ;CLOSE¢ STA $0342,X¢ JSR $E456¢ LDX #$50¢ LDA #>WINN¢ STA $0344,X¢ LDA #<WINN¢ STA $0345,X¢ LDA #33 ;ERASE¢ STA $0342,X¢ JSR $E456¢ LDX #$50¢ LDA #$0C ;CLOSE¢ STA $0342,X¢ JSR $E456¢ PLA¢ TAX¢#¢end;¢#A¢WINN DB 68 ;D¢ DB 56 ;8¢ DB 58 ;:¢ DB 87 ;W¢ DB 73 ;I¢ DB 78 ;N¢ DB 48 ;0¢ DB 42 ;*¢ DB 46 ;.¢ DB 79 ;O¢ DB 86 ;V¢ DB 76 ;L¢ DB 155;EOL¢#¢