image of READY prompt

Wang2200.org

Listing of file='T27D010A' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'

# Sector 4028, program filename = 'T27D010A'
0010 REM .    T27D010A,   00-00 (08/18/75),    12002
   : DIM Q6$64
   : PRINT HEX(03);"PERIPHERAL DIAGNOSTIC - T/C MENU"
   : GOSUB '248(4,0,0)
   : PRINT "--------------------------------------"
   : GOSUB '248(6,6,0)
0150 PRINT "1.  2227 OFF LINE DIAGNOSTIC"
   : GOSUB '248(7,6,0)
   : PRINT "2.  WYLBER ON LINE DIAGNOSTIC"
0170 GOSUB '245("ENTER THE NUMBER (1 OR 2) TO CHOOSE THE PROGRAM",1,0)
   : IF Q9>0THEN 200
0185 GOSUB 9724
   : GOTO 170
0200 IF Q9>2THEN 185
   : IF Q9=2THEN 230
   : LOAD DC T"T27D020A"
0230 LOAD DC T"T27D020B"
9698 Q6=3
   : GOTO 9736
9700 DEFFN'254
   : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
   : W4$=Q6$
   : GOSUB '248(0,0,4)
   : Q6$=W4$
   : RETURN
9704 DEFFN'242(W0,Q6$)
   : IF W0<=0THEN 9744
   : IF W0=1THEN 9706
   : STR(Q6$,2)=STR(Q6$,1,W0-1)
9706 PRINT Q6$;
   : RETURN
9708 DEFFN'243(Q6$,Q0)
   : GOSUB 9726
9710 SELECT CO 205
   : Q6$=" "
   : INPUT Q6$
   : IF Q0=0THEN 9732
   : IF LEN(Q6$)<=Q0THEN 9732
   : GOSUB 9724
9712 DEFFN'244(Q0)
   : GOSUB 9730
   : GOSUB 9728
   : GOTO 9710
9714 DEFFN'245(Q6$,Q2,Q3)
   : Q0=ABS(Q2)+Q3+1
   : GOSUB 9726
9716 GOSUB '242(ABS(Q2)+2,HEX(09))
   : PRINT "/"
   : GOSUB 9730
   : SELECT CO 205
   : Q9,W0=-1E-99
   : INPUT Q9
   : IF W0=Q9THEN 9718
   : IF Q9>=0THEN 9722
   : IF Q2<=0THEN 9722
9718 GOSUB 9724
9720 DEFFN'246(Q2,Q3)
   : Q0=ABS(Q2)+Q3+1
   : GOSUB 9730
   : GOSUB 9728
   : GOTO 9716
9722 IF ABS(Q9)>=10^ABS(Q2)THEN 9718
   : W0=ABS(Q9*10^Q3)
   : IF INT(W0)<>W0THEN 9718
   : GOTO 9698
9724 GOSUB 9698
   : PRINT "RE-ENTER"
   : RETURN
9726 GOSUB 9744
   : PRINT HEX(010A);STR(Q6$,1);
9728 GOSUB 9744
   : GOSUB '242(Q0+2,"-")
   : PRINT TAB(64)
9730 PRINT HEX(010A0A)
   : RETURN
9732 PRINT HEX(0A);TAB(64)
   : GOTO 9744
   : Q6=0
9736 Q7=0
   : Q8=1
9738 DEFFN'248(Q6,Q7,Q8)
   : GOSUB 9744
   : IF Q8<1THEN 9740
   : GOSUB 9740
   : SELECT PRINT 205
   : Q6$=" "
   : PRINT STR(Q6$,Q7+1)
   : IF Q8<2THEN 9740
   : FOR W0=2TO Q8
   : PRINT HEX(0A);STR(Q6$,1)
   : NEXT W0
9740 PRINT HEX(01)
   : GOSUB '242(Q7,HEX(09))
   : GOSUB '242(Q6,HEX(0A))
9744 SELECT PRINT 005(64),CO 005
   : RETURN