Listing of file='LINKER.BAS;01' on disk='vmedia/wordy_disk_1-sector.ccvf'
20 REM BASIC WORDY LINKER PROGRAM BY GARY DINSMORE. 40 MAXRAM= 32940 60 POKE MAXRAM,0:POKE MAXRAM+ 1,160:CLEAR 400:REM A000H TOP OF BASIC 80 PLOT 27,4:PRINT "LOA OVERLY.PRG A100":PLOT 27,27:REM THE "MOVE IT AND SAVE IT" PROGRAM. 100 PLOT 27,4:PRINT "LOA WORDY.PRG;1 A200":PLOT 27,27:REM STANDARD WORDY 140 IF PEEK (1)< > 186THEN 200 160 PLOT 27,4:PRINT "LOA V879.PRG A200":PLOT 27,27:REM VERSION 8.79 JUMP TABLE 200 PLOT 12,6,2:PRINT "WORDY HAS BEEN LOADED INTO MEMORY, AND THE APPROPRIATE" 220 PRINT "JUMP TABLE IN PLACE FOR YOUR CCII VERSION.":PRINT 240 PLOT 6,3:INPUT "DO YOU HAVE AN 'EPSON' PRINTER?";YN$ 260 IF ASC (YN$)= 89OR ASC (YN$)= 121GOTO 500:REM EPSON DRIVER ALREADY IN 280 INPUT "DO YOU HAVE A DEC 3400 PRINTER?";YN$ 300 IF ASC (YN$)= 89OR ASC (YN$)= 121THEN PLOT 27,4:PRINT "LOA PRINTD.PRG A25A":PLOT 27,27:GOTO 500 480 PLOT 27,4:PRINT "LOA PRINT.PRG A25A":PLOT 27,27 500 PRINT :PLOT 6,2:PRINT "AN APPROPRIATE PRINTER DRIVER SUBROUTINE HAS BEEN ADDED":PLOT 27,27 520 PLOT 6,5:PRINT :PRINT "HERE ARE THE FOUR OPTIONS FOR PRINTER INTERFACE ROUTINES:" 540 PRINT :PRINT TAB( 10)"1. SERIAL PORT WITH HANDSHAKE":PRINT TAB( 10)"2. SERIAL PORT WITH XON-XOFF" 560 PRINT TAB( 10)"3. PARALLEL PORT, MEMORY MAPPED":PRINT TAB( 10)"4. PARALLEL PORT, OUTPUT PORT" 580 PRINT :PRINT TAB( 12);:INPUT "INDICATE CORRECT INTERFACE>";X 600 ON XGOTO 700,800,900,1000 620 PLOT 12:GOTO 520 700 PLOT 27,4:PRINT "LOA S1.PRG A242":PLOT 27,27:GOTO 2000:REM SERIAL PORT WITH HANDSHAKE 800 PLOT 27,4:PRINT "LOA S1X.PRG A242":PLOT 27,27:REM SERIAL PORT WITH XON-XOFF 820 PRINT "DEFAULT HANDSHAKE READY MASK IS 2.":INPUT "CHOICES ARE; 128, 64, 32, 16, 8, 4, 2, AND 1 >";X:IF X= 0GOTO 2000 840 POKE 41550,INT (X):GOTO 2000 900 PLOT 27,4:PRINT "LOA PMAP.PRG A242":PLOT 27,27:REM MEMORY MAPED BYTE 920 PRINT "ENTER DECIMAL VALUE OF MEMORY MAPPED BYTE FOR THE PORT" 940 INPUT ">";X:POKE 41541,X- 256* INT (X/ 256):POKE 41542,INT (X/ 256):REM PLACE ADDRESS OF BYTE IN PROGRAM 960 PRINT "DEFAULT HANDSHAKE READY MASK IS 128.":INPUT "CHOICES ARE, 128, 64, 32, 16, 8, 4, 2, AND 1 >";X:IF X= 0GOTO 2000 980 POKE 41546,INT (X):GOTO 2000 1000 PLOT 27,4:PRINT "LOA POUT.PRG A242":PLOT 27,27:REM OUTPUT PORT 1020 PRINT "ENTER DECIMAL VALUE OF OUTPUT PORT" 1040 INPUT ">";X:POKE 41540,INT (X):POKE 41542,INT (X):REM PLACE ADDRESS OF PORT IN PROGRAM 1060 PRINT "DEFAULT HANDSHAKE READY MASK IS 128.":INPUT "CHOICES ARE, 128, 64, 32, 16, 8, 4, 2, AND 1 >";X:IF X= 0GOTO 2000 1080 POKE 41544,INT (X):GOTO 2000 2000 PLOT 12:PRINT "WORDY IS LINKED IN MEMORY AT A200, A MACHINE LANGUAGE PROGRAM" 2020 PRINT "WILL MOVE WORDY TO 8200, AND SAVE IT ON THE DISK IN DRIVE 0:." 2040 INPUT "PRESS RETURN WHEN READY";X 2050 POKE 33282,195:POKE 33283,0:POKE 33284,161 2052 REM CALL ADDRESS=A100H 2060 Y= CALL (0):REM JUMP TO MOVE AND SAVE PROGRAM