home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol043 / tintest6.pgn < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.4 KB  |  119 lines
  1.     TOP
  2.  PARAMETER KLF=10
  3.  PARAMETER KNL=13
  4.  BYTE NL
  5.  BYTE LF
  6.  BYTE A1
  7.  BYTE B2
  8.  BYTE C3
  9.  BYTE D4
  10.  BYTE E5
  11.  INT IAX
  12.  INT IAY
  13.  INT IAZ
  14.     BEGINMAIN(AC,IAV)
  15.         MS 'BEGIN T06'
  16.  A1='0'
  17.  A1++
  18.  A1++
  19.  A1++
  20.  LF=+KLF
  21.  NL=+KNL
  22.  B2='3'
  23.  C3=A1!=B2
  24.  IF C3
  25.     MS 'CHARCONS.'
  26.  ENDIF
  27.  MS '111111111'
  28.  D4=+001
  29.  GOSUB 01
  30.  MS '222222222'
  31.  IF D4
  32.     MS 'GLOBALVBL'
  33.  ENDIF
  34.  MS '333333333'
  35.  GOSUB 02
  36.  MS '444444444'
  37.  A1=+001
  38.  B2=+002
  39.  C3=+003
  40.  D4=+001
  41.  CHOOSE ON D4
  42.  CASE A1
  43.  CASE B2
  44.      MS '1!=2.....'
  45.  CASE C3
  46.     MS '1!=3.....'
  47.  DEFAULT
  48.     MS 'DEFAULT..'
  49.  ENDCHOOSE
  50.  MS '555555555'
  51.  D4=+004
  52.  CHOOSE ON D4
  53.  CASE A1
  54.     MS '4!=1.....'
  55.  CASE B2
  56.     MS '4!=2.....'
  57.  CASE C3
  58.     MS '4!=3.....'
  59.  DEFAULT
  60.  ENDCHOOSE
  61.  GOSUB CR
  62.  MS '666666666'
  63.  D4=+003
  64.  CHOOSE ON D4
  65.  CASE A1
  66.     MS '3!=1.....'
  67.  CASE B2
  68.     MS '3!=2.....'
  69.  CASE C3
  70.  DEFAULT
  71.     MS 'DEFAULT..'
  72.  ENDCHOOSE
  73.  MS '777777777'
  74.  GOTO 01
  75.  LOC 01
  76.  GOTO 02
  77.  LOC 02
  78.  MS '888888888'
  79.  A1=+000
  80.  B2=+005
  81.  PACK (IAX,A1,B2)
  82.  IAZ=+005
  83.  C3=IAX!=IAZ
  84.  IF C3
  85.     MS 'PACKFAILS'
  86.  ENDIF
  87.  MS '999999999'
  88.  A1=+100
  89.  PACK (IAX,A1,B2)
  90.  UNPACK (IAX,C3,D4)
  91.  E5=A1!=C3
  92.  C3=B2!=D4
  93.  E5=E5?C3
  94.  IF E5
  95.     MS 'UNPACK...'
  96.  ENDIF
  97.     MS 'ENDOF T06'
  98.  STOP 1
  99.  MS '!!!!!!!!!'
  100.     ENDMAIN
  101.  SUB 02
  102.  MS 'S2S2S2S2S'
  103.  A1=+001
  104.  IF A1
  105.     RETURN
  106.  ENDIF
  107.  MS 'RETURN...'
  108.  ENDSUB
  109.  SUB 01
  110.  MS 'S1S1S1S1S'
  111.  D4=+000
  112.  ENDSUB
  113.  SUB CR
  114.  WRITE NL
  115.  WRITE LF
  116.  ENDSUB
  117.  BOTTOM
  118.  FINIS
  119.