image of READY prompt

Wang2200.org

Listing of file='GENL105A' on disk='vmedia/701-2653B.wvd.zip'

# Sector 114, program filename = 'GENL105A'
0010 REM GENL105A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM M0$(83)3
   : GOTO 4000
4000 SELECT @PARTS0$
   : STR(M$(),16,8)=M5$
   : COM CLEAR N2$
   : MAT REDIM M$(83)3
   : LOAD T"KFAM3507"10,4199
4200 Q=1
   : LOAD T"KFAMOPEN"199,199BEG 4220
4220 SELECT @PARTS0$
   : M0$()=M$()
   : N1$=S$(1)
   : P1$=M$(1)
   : N2=1
   : P2$=M$(2)
   : N3$=S$(3)
   : P3$=M$(3)
   : O3$="Y"
   : O6$="C"
   : N4=1
   : P4$=M$(4)
   : O4$="Y"
   : N5$=STR(M$(),16,7)&"B"
   : P5$=M$(5)
   : MAT REDIM M$(4)62
9998 DEFFN'29"Q$=";HEX(22);"GENL105A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )