Execute HQ9+: Difference between revisions
Content added Content deleted
m (→{{header|C}}) |
m (→{{header|REXX}}: added a comment about the salutatory text. -- ~~~~) |
||
Line 772: | Line 772: | ||
do instructions=1 for length(pgm); ?=substr(pgm,instructions,1) |
do instructions=1 for length(pgm); ?=substr(pgm,instructions,1) |
||
select |
select |
||
when ?=='H' then say "hello, world" |
when ?=='H' then say "hello, world" /*this salutation varies. */ |
||
when ?=='Q' then do j=1 for sourceline(); say sourceline(j); end |
when ?=='Q' then do j=1 for sourceline(); say sourceline(j); end |
||
when ?== 9 then call 99 |
when ?== 9 then call 99 |