image of READY prompt

Wang2200.org

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

# Sector 45, program filename = 'TAM.007B'
0010 REM  'TAM.007B'     (POSITION CURSOR  (R,C) )
0040 DIM Q(7),Q6$64,Q$1,Q3$(2)40,Q1$(2)40,Q7$1
1000 % THIS STATEMENT FOR OVERLAYING TAM.007B
5739 DEFFN'249(Q(1),Q(2))
   : BIN(STR(Q6$,2))=Q(1)
   : BIN(STR(Q6$,3))=Q(2)
   : $GIO/006(40F742204230,Q6$)
   : RETURN