PROCEDURE WIN0CL(NUM:INTEGER);¢begin¢ NUM:=NUM+65;¢#A¢ TXA¢ PHA¢ LDX #$50¢ LDA #$0C ;CLOSE¢ STA $0342,X¢ JSR $E456¢ LDX #$50¢ LDA #>WINM¢ STA $0344,X¢ STA T¢ LDA #<WINM¢ STA $0345,X¢ STA T+1¢ LDY #3¢ LDA (SP),Y¢ LDY #7¢ STA (T),Y¢ LDA #$03 ;OPEN¢ STA $0342,X¢ LDA #$04 ;READ¢ STA $034A,X¢ JSR $E456¢ LDX #$50¢ LDA #$07 ;GET-BYTE¢ STA $0342,X¢ LDA 88¢ STA $0344,X¢ LDA 89¢ STA $0345,X¢ LDA #192¢ STA $0348,X¢ LDA #3¢ STA $0349,X¢ JSR $E456¢ LDX #$50¢ LDA #$0C ;CLOSE¢ STA $0342,X¢ JSR $E456¢ PLA¢ TAX¢#¢end;¢#A¢WINM DB 68 ;D¢ DB 56 ;8¢ DB 58 ;:¢ DB 87 ;W¢ DB 73 ;I¢ DB 78 ;N¢ DB 48 ;0¢ DB 65 ;A¢ DB 46 ;.¢ DB 79 ;O¢ DB 86 ;V¢ DB 76 ;L¢ DB 155;EOL¢#¢
