Dear Listers:
I have copied and translated to MPE from Basic/V the script generously provided bt Ted Ashton.
Unfortunately, the first time through my "WHILE" loop, MPE, uncharacteristically, is performing the "ECHO" to the screen, and not to the PRINTFIL via ">>" redirection, ISUB=50. The second and subsequent ECHO's does OK, and in fact, the first does as well. I've tried an number of remedies without any luck.
Anybody got any ideas? Hope this is not too trivial
:-((
The code:
comment The following is the MPE translation of the BASIC/V program per above
comment Acks: Ted Ashton, Southern Adventist University
comment
PURGE PRINTFIL,TEMP
SETVAR A80," 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9"
ECHO !A80 >> PRINTFIL
SETVAR BLANK," "
SETVAR A80, " 30 "
SETVAR ISUB,32
WHILE ISUB <= 127 DO
SHOWVAR ISUB
SETVAR AMOD,ISUB MOD 20
SHOWVAR AMOD
IF AMOD = 10 THEN
SETVAR ALEN,LEN(A80)
SHOWVAR ALEN
SHOWVAR A80
comment
ECHO About to perform ECHO to PRINTFIL
ECHO !A80 >> PRINTFIL
SETVAR ACHAR,!ISUB
SETVAR A80,BLANK + "!ACHAR "
ENDIF
SETVAR A80,A80 + CHR(ISUB) + BLANK
comment SHOWVAR A80
SETVAR ISUB,ISUB + 1
ENDWHILE
ECHO !A80 >> PRINTFIL
ECHO >> PRINTFIL
PURGE PRINTFIL
PRINT PRINTFIL
SAVE PRINTFIL
PURGE TEMPFIL
BUILD TEMPFIL;REC=-80,1,F,ASCII;DISC=80
FCOPY FROM=PRINTFIL;TO=TEMPFIL
PURGE PRINTFIL
RENAME TEMPFIL,PRINTFIL
PRINT PRINTFIL
ECHO End-of-LINEDRAW
The results, and notice iteration 50, AMOD=10, ALEN=47-
-----Purging PRINTFIL.JPENNEY.TECSUP (16 sectors)
16 sectors saved
ISUB = 32
AMOD = 12
ISUB = 33
AMOD = 13
ISUB = 34
AMOD = 14
ISUB = 35
AMOD = 15
ISUB = 36
AMOD = 16
ISUB = 37
AMOD = 17
ISUB = 38
AMOD = 18
ISUB = 39
AMOD = 19
ISUB = 40
AMOD = 0
ISUB = 41
AMOD = 1
ISUB = 42
AMOD = 2
ISUB = 43
AMOD = 3
ISUB = 44
AMOD = 4
ISUB = 45
AMOD = 5
ISUB = 46
AMOD = 6
ISUB = 47
AMOD = 7
ISUB = 48
AMOD = 8
ISUB = 49
AMOD = 9
ISUB = 50
AMOD = 10
ALEN = 47
A80 = 30 ! " # $ % & ' ( ) * + , - . / 0 1
About to perform ECHO to PRINTFIL
30 ! " # $ % & ' ( ) * + , - . / 0 1 >> PRINTFIL
ISUB = 51
AMOD = 11
ISUB = 52
AMOD = 12
ISUB = 53
AMOD = 13
ISUB = 54
AMOD = 14
ISUB = 55
AMOD = 15
ISUB = 56
AMOD = 16
ISUB = 57
AMOD = 17
ISUB = 58
AMOD = 18
ISUB = 59
AMOD = 19
ISUB = 60
AMOD = 0
ISUB = 61
AMOD = 1
ISUB = 62
AMOD = 2
ISUB = 63
AMOD = 3
ISUB = 64
AMOD = 4
ISUB = 65
AMOD = 5
ISUB = 66
AMOD = 6
ISUB = 67
AMOD = 7
ISUB = 68
AMOD = 8
ISUB = 69
AMOD = 9
ISUB = 70
AMOD = 10
ALEN = 47
A80 = 50 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E
About to perform ECHO to PRINTFIL
ISUB = 71
AMOD = 11
ISUB = 72
AMOD = 12
ISUB = 73
AMOD = 13
ISUB = 74
AMOD = 14
ISUB = 75
AMOD = 15
ISUB = 76
AMOD = 16
ISUB = 77
AMOD = 17
ISUB = 78
AMOD = 18
ISUB = 79
AMOD = 19
ISUB = 80
AMOD = 0
ISUB = 81
AMOD = 1
ISUB = 82
AMOD = 2
ISUB = 83
AMOD = 3
ISUB = 84
AMOD = 4
ISUB = 85
AMOD = 5
ISUB = 86
AMOD = 6
ISUB = 87
AMOD = 7
ISUB = 88
AMOD = 8
ISUB = 89
AMOD = 9
ISUB = 90
AMOD = 10
ALEN = 47
A80 = 70 F G H I J K L M N O P Q R S T U V W X Y
About to perform ECHO to PRINTFIL
ISUB = 91
AMOD = 11
ISUB = 92
AMOD = 12
ISUB = 93
AMOD = 13
ISUB = 94
AMOD = 14
ISUB = 95
AMOD = 15
ISUB = 96
AMOD = 16
ISUB = 97
AMOD = 17
ISUB = 98
AMOD = 18
ISUB = 99
AMOD = 19
ISUB = 100
AMOD = 0
ISUB = 101
AMOD = 1
ISUB = 102
AMOD = 2
ISUB = 103
AMOD = 3
ISUB = 104
AMOD = 4
ISUB = 105
AMOD = 5
ISUB = 106
AMOD = 6
ISUB = 107
AMOD = 7
ISUB = 108
AMOD = 8
ISUB = 109
AMOD = 9
ISUB = 110
AMOD = 10
ALEN = 47
A80 = 90 Z [ \ ] ^ _ ` a b c d e f g h i j k l m
About to perform ECHO to PRINTFIL
ISUB = 111
AMOD = 11
ISUB = 112
AMOD = 12
ISUB = 113
AMOD = 13
ISUB = 114
AMOD = 14
ISUB = 115
AMOD = 15
ISUB = 116
AMOD = 16
ISUB = 117
AMOD = 17
ISUB = 118
AMOD = 18
ISUB = 119
AMOD = 19
ISUB = 120
AMOD = 0
ISUB = 121
AMOD = 1
ISUB = 122
AMOD = 2
ISUB = 123
AMOD = 3
ISUB = 124
AMOD = 4
ISUB = 125
AMOD = 5
ISUB = 126
AMOD = 6
ISUB = 127
AMOD = 7
-----Will purge PRINTFIL.JPENNEY.TECSUP (code "", type FA, EOF 6, 32 sectors)
32 sectors will be saved
OK to purge 1 file (y/N)? y
-----Purging PRINTFIL.JPENNEY.TECSUP (32 sectors)
32 sectors saved
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9
50 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E
70 F G H I J K L M N O P Q R S T U V W X Y
90 Z [ \ ] ^ _ ` a b c d e f g h i j k l m
110 n o p q r s t u v w x y z { | } ~
TIA
JP
John M Penney
Systems Programmer
Production Services
Information Services Department
Pierce County
Tacoma, WA
253-798-6215
253-798-6680 Fax
[log in to unmask]
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
