image of READY prompt

Wang2200.org

Listing of file='TAM.004B' on disk='vmedia/701-2216A.wvd.zip'

# Sector 24, program filename = 'TAM.004B'
0010 REM 'TAM.004B'    (GET MESSAGE)
0040 DIM Q(7),Q6$64,Q$1,Q7$1,Q3$(2)40,Q1$(2)40
1000 % THIS STATEMENT FOR OVERLAYING TAM.004B
5400 DEFFN'242
   : INIT(20)Q3$()
   : $GIO/003(0620010DC630022016200222,Q6$)Q3$()
   : Q9=VAL(STR(Q6$,10))
   : Q$=STR(Q6$,2)
   : Q7$=STR(Q6$,6)
5475 RETURN