image of READY prompt

Wang2200.org

Listing of file='START060' on disk='vmedia/701-2086B.wvd.zip'

# Sector 185, program filename = 'START060'
0010 REM START060,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0060 DIM R1$8,R2$1,R3$2,R9$8,R9$(16)
   : DIM I$(6)3
   : I$(1)="310"
   : I$(2)="320"
   : I$(3)="330"
   : I$(4)="B10"
   : I$(5)="B20"
   : I$(6)="B30"
   : SELECT PRINT 005(64),CO 005(64)
   : IF S1<>0THEN 260
   : PRINT HEX(030A0A0A0A0A0A0A0A0A)
0170 PRINT ,"1 - 310   4 - B10"
   : PRINT ,"2 - 320   5 - B20"
   : PRINT ,"3 - 330   6 - B30"
   : PRINT HEX(010A);"ENTER THE DISK DEVICE ADDRESS OF APPLICATION"
0220 PRINT HEX(010A0A);"  -/";TAB(40);HEX(0D);
   : S1=0
   : INPUT S1
0260 IF S1<1THEN 290
   : IF S1<7THEN 320
0290 PRINT "INVALID. RE-ENTER"
   : GOTO 220
0320 ON S1-1GOTO 370,400,430,460,490
   : SELECT #1310
   : GOTO 510
0370 SELECT #1320
   : GOTO 510
0400 SELECT #1330
   : GOTO 510
0430 SELECT #1B10
   : GOTO 510
0460 SELECT #1B20
   : GOTO 510
0490 SELECT #1B30
0510 PRINT HEX(03)
0520 PRINT HEX(01);"MOUNT APPLICATION PROGRAM DISK IN DISK UNIT - ";I$(S1)
   : PRINT HEX(010A);"KEY RETURN(EXEC) TO RESUME"
   : PRINT HEX(010A0A);"  -";TAB(40);HEX(0D);
   : Q6$=" "
   : INPUT Q6$
   : IF Q6$<>"X"THEN 600
   : S1=0
   : GOTO 60
0600 GOSUB '229(1,"START")
   : IF R2$=HEX(10)THEN 650
   : PRINT HEX(010A0A0A);"FILE - START - NOT ON SELECTED DRIVE"
   : GOTO 520
0650 LOAD DC T#1,"START"
0660 DEFFN'15
   : LOAD DC T#0,"START"
0690 DEFFN'229(R9,R9$)
   : DATA LOAD BA T#R9,(0,R3)R9$()
   : AND (STR(R9$(1),2,1),7F)
   : R4=VAL(STR(R9$(1),2,1))
   : R1$=R9$
   : XOR (STR(R1$,2),R1$)
   : R2$=STR(R1$,8,1)
   : R3$=HEX(0000)
   : ADDC(R3$,R2$)
   : ADDC(R3$,R2$)
   : ADDC(R3$,R2$)
0850 ADD(STR(R3$,1,1),STR(R3$,2,1))
   : R3=VAL(R3$)
   : R3=R3-INT(R3/R4)*R4
   : R5=R3
0930 DATA LOAD BA T#R9,(R3,R)R9$()
   : R6=0
   : FOR R7=1TO 16
   : IF R3<>0THEN 1010
   : IF R7<>1THEN 1010
   : R7=2
1010 R2$=STR(R9$(R7),1,1)
   : IF R2$=HEX(00)THEN 1100
   : IF R2$=HEX(10)THEN 1070
   : IF R2$<>HEX(11)THEN 1110
1070 IF STR(R9$(R7),9,8)<>R9$THEN 1110
   : R6=R7
1100 R7=16
1110 NEXT R7
   : IF R2$=HEX(00)THEN 1240
   : IF R6<>0THEN 1240
   : R2$=HEX(00)
   : R3=R3-1
   : IF R3=R5THEN 1240
   : IF R3>=0THEN 930
   : R3=R4-1
   : GOTO 930
1240 RETURN