image of READY prompt

Wang2200.org

Listing of file='TRNFILE' on disk='vmedia/701-2607C.wvd.zip'

# Sector 50, program filename = 'TRNFILE'
0010 REM TRNFILE,  RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM B$6,O2$4,C1$N,B0$21,C0$20,D0$20,E0$16,F0$5,L0$21,M0$20,N0$20,O0$16,P0
     $5,G0$8,H0$12,H1$1,N4$Q3,D3,D4,O3$11,D2,D5,P4$1,A0$1,H$1,H2$1,A0
   : COM P$(N0)Q2,P1$(N0)24,B0$(N0)1,C0$(N0)1,D0$(N0)1,B5(N0),B(N0),B1(N0),B2(
     N0),B4(N0)
   : COM G$(3)1,A,A1,A2,G(3),D,D1
0176 COM I2$1,L5$22,M4$54,I1$
0199 L5$=HEX(A006A0)&BIN(Q2)&HEX(A018A001A001A00260036003620362025204)
   : M4$=HEX(A006A004A0)&BIN(N)&HEX(A015A014A014A010A005A015A014A014A010A005A0
     08A00CA001A0)&BIN(Q3)&HEX(60036003A00B62026003A001A001A001A0015205)
   : I1$=HEX(A006A001520752075207520752075207)
   : GOSUB '99
9998 DEFFN'29"Q$=";HEX(22);"TRNFILE";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D)