00000000: 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 CD C9 |.. ..|
00000010: CE C9 D4 C5 D2 CD 20 31 32 38 0D 20 20 20 20 20 |...... 128. |
00000020: 20 20 20 20 20 20 20 20 20 20 20 42 59 0D 20 20 | BY. |
00000030: 20 20 20 20 20 20 20 20 CD 49 43 48 41 45 4C 20 | .ICHAEL |
00000040: CC 45 D0 41 47 4C 49 41 0D 0D 0D C3 CF CD CD CF |.E.AGLIA........|
00000050: C4 CF D2 C5 20 CD C9 C3 D2 CF C3 CF CD D0 D5 D4 |.... ...........|
00000060: C5 D2 D3 20 CD C1 C7 C1 DA C9 CE C5 0D D3 45 50 |... ..........EP|
00000070: 54 45 4D 42 45 52 2F CF 43 54 4F 42 45 52 2C 20 |TEMBER/.CTOBER, |
00000080: 31 39 38 36 2E 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A |1986...*********|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D CE |*************...|
000000B0: CF D4 C5 3A 20 C2 45 43 41 55 53 45 20 4F 46 20 |...: .ECAUSE OF |
000000C0: 54 48 45 20 4E 41 54 55 52 45 20 4F 46 20 54 48 |THE NATURE OF TH|
000000D0: 49 53 0D 50 52 4F 47 52 41 4D 2C 20 49 54 20 43 |IS.PROGRAM, IT C|
000000E0: 41 4E 4E 4F 54 20 42 45 20 52 55 4E 20 56 49 41 |ANNOT BE RUN VIA|
000000F0: 0D CC CF C1 C4 D3 D4 C1 D2 27 53 20 4F 50 45 52 |.........'S OPER|
00000100: 41 54 49 4E 47 20 53 59 53 54 45 4D 2E 20 20 D4 |ATING SYSTEM. .|
00000110: 4F 0D 41 43 43 45 53 53 20 CD C9 CE C9 D4 C5 D2 |O.ACCESS .......|
00000120: CD 20 31 32 38 2C 20 59 4F 55 20 4D 55 53 54 20 |. 128, YOU MUST |
00000130: C2 CC CF C1 C4 20 49 54 0D 44 49 52 45 43 54 4C |..... IT.DIRECTL|
00000140: 59 20 46 52 4F 4D 20 54 48 45 20 44 49 53 4B 2E |Y FROM THE DISK.|
00000150: 0D 0D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 0D 20 20 CD C9 CE |********... ...|
00000180: C9 D4 C5 D2 CD 20 31 32 38 2C 20 49 53 20 41 20 |..... 128, IS A |
00000190: 4D 41 43 48 49 4E 45 2D 4C 41 4E 47 55 41 47 45 |MACHINE-LANGUAGE|
000001A0: 0D 0D C4 D2 C9 D6 C5 D2 20 46 4F 52 20 C2 C1 D3 |........ FOR ...|
000001B0: C9 C3 20 54 45 52 4D 49 4E 41 4C 20 50 52 4F 47 |.. TERMINAL PROG|
000001C0: 52 41 4D 53 2E 0D 0D C2 45 43 41 55 53 45 20 59 |RAMS....ECAUSE Y|
000001D0: 4F 55 20 CF D0 C5 CE 20 54 48 45 20 43 48 41 4E |OU .... THE CHAN|
000001E0: 4E 45 4C 20 54 4F 20 54 48 45 0D 0D 4D 4F 44 45 |NEL TO THE..MODE|
000001F0: 4D 20 46 52 4F 4D 20 59 4F 55 52 20 4F 57 4E 20 |M FROM YOUR OWN |
00000200: C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 4D 2C 0D 0D |..... PROGRAM,..|
00000210: 59 4F 55 20 43 41 4E 20 53 45 4C 45 43 54 20 59 |YOU CAN SELECT Y|
00000220: 4F 55 52 20 42 41 55 44 20 52 41 54 45 3A 20 33 |OUR BAUD RATE: 3|
00000230: 30 30 2C 0D 0D 31 32 30 30 2C 20 4F 52 20 32 34 |00,..1200, OR 24|
00000240: 30 30 2E 20 20 D4 48 45 20 44 52 49 56 45 52 20 |00. .HE DRIVER |
00000250: 52 45 53 49 44 45 53 0D 0D 46 52 4F 4D 20 24 31 |RESIDES..FROM $1|
00000260: 33 30 30 20 54 4F 20 24 31 37 30 30 2C 20 54 48 |300 TO $1700, TH|
00000270: 55 53 20 59 4F 55 20 43 41 4E 0D 0D C2 CC CF C1 |US YOU CAN......|
00000280: C4 20 49 54 20 41 54 20 54 48 45 20 53 54 41 52 |. IT AT THE STAR|
00000290: 54 20 4F 46 20 41 20 53 45 53 53 49 4F 4E 0D 0D |T OF A SESSION..|
000002A0: 41 4E 44 20 50 55 54 20 54 48 45 20 CF D0 C5 CE |AND PUT THE ....|
000002B0: 20 41 4E 44 20 D3 D9 D3 20 53 54 41 54 45 4D 45 | AND ... STATEME|
000002C0: 4E 54 53 0D 0D 4F 4E 20 41 20 46 55 4E 43 54 49 |NTS..ON A FUNCTI|
000002D0: 4F 4E 20 4B 45 59 2E 20 20 C6 4F 52 20 45 58 41 |ON KEY. .OR EXA|
000002E0: 4D 50 4C 45 3A 0D 0D 0D CB C5 D9 32 2C 22 CF D0 |MPLE:......2,"..|
000002F0: C5 CE 35 2C 32 2C 32 2C C3 C8 D2 24 28 36 29 2B |..5,2,2,...$(6)+|
00000300: C3 C8 D2 24 28 30 29 3A 0D D3 D9 D3 34 38 36 34 |...$(0):....4864|
00000310: 3A C3 CC CF D3 C5 35 22 0D 0D 0D 4D 41 4B 45 53 |:.....5"...MAKES|
00000320: 20 54 48 45 20 C6 32 20 4B 45 59 20 4F 50 45 4E | THE .2 KEY OPEN|
00000330: 20 54 48 45 20 43 48 41 4E 4E 45 4C 20 54 4F 0D | THE CHANNEL TO.|
00000340: 0D 54 48 45 20 4D 4F 44 45 4D 20 41 4E 44 20 45 |.THE MODEM AND E|
00000350: 4E 54 45 52 20 54 48 45 20 54 45 52 4D 49 4E 41 |NTER THE TERMINA|
00000360: 4C 0D 0D 44 52 49 56 45 52 2E 20 20 D0 52 45 53 |L..DRIVER. .RES|
00000370: 53 49 4E 47 20 54 48 45 20 C3 4F 4D 4D 4F 44 4F |SING THE .OMMODO|
00000380: 52 45 20 4C 4F 47 4F 0D 0D 4B 45 59 20 41 4E 44 |RE LOGO..KEY AND|
00000390: 20 54 48 45 20 22 CD 22 20 4B 45 59 20 54 4F 47 | THE "." KEY TOG|
000003A0: 45 54 48 45 52 20 43 4C 4F 53 45 53 0D 0D 54 48 |ETHER CLOSES..TH|
000003B0: 45 20 43 48 41 4E 4E 45 4C 20 54 4F 20 54 48 45 |E CHANNEL TO THE|
000003C0: 20 4D 4F 44 45 4D 2E 0D 0D 0D 20 20 CD C9 CE C9 | MODEM.... ....|
000003D0: D4 C5 D2 CD 20 31 32 38 20 48 41 53 20 54 57 4F |.... 128 HAS TWO|
000003E0: 20 57 41 59 53 20 54 4F 20 52 45 54 55 52 4E 0D | WAYS TO RETURN.|
000003F0: 0D 54 4F 20 C2 C1 D3 C9 C3 2E 20 20 D0 52 45 53 |.TO ...... .RES|
00000400: 53 49 4E 47 20 54 48 45 20 C3 4F 4D 4D 4F 44 4F |SING THE .OMMODO|
00000410: 52 45 20 4C 4F 47 4F 0D 0D 4B 45 59 20 41 4E 44 |RE LOGO..KEY AND|
00000420: 20 54 48 45 20 22 CD 22 20 4B 45 59 20 41 54 20 | THE "." KEY AT |
00000430: 53 41 4D 45 20 54 49 4D 45 0D 0D 52 45 54 55 52 |SAME TIME..RETUR|
00000440: 4E 53 20 54 4F 20 54 48 45 20 4E 45 58 54 20 43 |NS TO THE NEXT C|
00000450: 4F 4D 4D 41 4E 44 20 49 4E 20 59 4F 55 52 0D 0D |OMMAND IN YOUR..|
00000460: 4F 57 4E 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 41 |OWN ..... PROGRA|
00000470: 4D 2E 20 20 D0 52 45 53 53 49 4E 47 20 54 48 45 |M. .RESSING THE|
00000480: 0D 0D C3 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F |...OMMODORE LOGO|
00000490: 20 4B 45 59 20 41 4E 44 20 54 48 45 20 C5 4E 47 | KEY AND THE .NG|
000004A0: 4C 49 53 48 0D 0D 50 4F 55 4E 44 20 4B 45 59 20 |LISH..POUND KEY |
000004B0: 41 54 20 54 48 45 20 53 41 4D 45 20 54 49 4D 45 |AT THE SAME TIME|
000004C0: 20 50 4C 41 43 45 53 20 41 0D 0D 24 C6 C6 20 49 | PLACES A..$.. I|
000004D0: 4E 20 4C 4F 43 41 54 49 4F 4E 20 24 30 30 38 38 |N LOCATION $0088|
000004E0: 2C 20 41 4C 4C 4F 57 49 4E 47 20 59 4F 55 0D 0D |, ALLOWING YOU..|
000004F0: 54 4F 20 42 52 41 4E 43 48 20 54 4F 20 41 20 44 |TO BRANCH TO A D|
00000500: 49 46 46 45 52 45 4E 54 20 50 41 52 54 20 4F 46 |IFFERENT PART OF|
00000510: 20 59 4F 55 52 0D 0D 50 52 4F 47 52 41 4D 2E 0D | YOUR..PROGRAM..|
00000520: 0D 0D 20 20 CD C9 CE C9 D4 C5 D2 CD 20 31 32 38 |.. ........ 128|
00000530: 20 48 41 53 20 41 20 53 4D 41 4C 4C 20 4D 45 4E | HAS A SMALL MEN|
00000540: 55 20 54 48 41 54 0D 0D 41 4C 4C 4F 57 53 20 59 |U THAT..ALLOWS Y|
00000550: 4F 55 20 54 4F 20 45 58 49 54 20 54 4F 20 C2 C1 |OU TO EXIT TO ..|
00000560: D3 C9 C3 2C 20 54 4F 20 41 20 48 45 4C 50 0D 0D |..., TO A HELP..|
00000570: 53 43 52 45 45 4E 2C 20 4F 52 20 43 48 4F 4F 53 |SCREEN, OR CHOOS|
00000580: 45 20 57 48 45 54 48 45 52 20 4F 55 54 50 55 54 |E WHETHER OUTPUT|
00000590: 20 47 4F 45 53 0D 0D 4F 55 54 20 49 4E 20 53 54 | GOES..OUT IN ST|
000005A0: 41 4E 44 41 52 44 20 4F 52 20 C3 4F 4D 4D 4F 44 |ANDARD OR .OMMOD|
000005B0: 4F 52 45 20 C1 D3 C3 C9 C9 2E 0D 0D D3 49 4E 43 |ORE .........INC|
000005C0: 45 20 4C 49 4E 45 20 4E 4F 49 53 45 20 53 4F 4D |E LINE NOISE SOM|
000005D0: 45 54 49 4D 45 53 20 41 46 46 45 43 54 53 20 54 |ETIMES AFFECTS T|
000005E0: 48 45 0D 0D 43 4F 4C 4F 52 20 4F 46 20 54 48 45 |HE..COLOR OF THE|
000005F0: 20 43 55 52 53 4F 52 2C 20 54 48 45 20 50 52 4F | CURSOR, THE PRO|
00000600: 47 52 41 4D 27 53 0D 0D 41 55 54 48 4F 52 20 48 |GRAM'S..AUTHOR H|
00000610: 41 53 20 41 4C 53 4F 20 49 4E 43 4C 55 44 45 44 |AS ALSO INCLUDED|
00000620: 20 43 4F 44 45 20 54 48 41 54 0D 0D 57 49 4C 4C | CODE THAT..WILL|
00000630: 20 52 45 54 55 52 4E 20 54 48 45 20 43 55 52 53 | RETURN THE CURS|
00000640: 4F 52 20 54 4F 20 49 54 53 20 43 4F 52 52 45 43 |OR TO ITS CORREC|
00000650: 54 0D 0D 43 4F 4C 4F 52 20 49 46 20 54 48 49 53 |T..COLOR IF THIS|
00000660: 20 4F 43 43 55 52 53 2E 0D 0D 0D 20 20 D4 4F 20 | OCCURS.... .O |
00000670: 55 53 45 20 54 48 49 53 20 50 52 4F 47 52 41 4D |USE THIS PROGRAM|
00000680: 2C 20 C2 CC CF C1 C4 20 CD C9 CE C9 D4 C5 D2 CD |, ..... ........|
00000690: 0D 0D 31 32 38 2C 20 41 53 53 49 47 4E 20 CB C5 |..128, ASSIGN ..|
000006A0: D9 32 20 41 53 20 50 52 45 56 49 4F 55 53 4C 59 |.2 AS PREVIOUSLY|
000006B0: 0D 0D 44 45 53 43 52 49 42 45 44 20 41 4E 44 20 |..DESCRIBED AND |
000006C0: 50 52 45 53 53 20 C6 32 2E 20 D7 48 45 4E 45 56 |PRESS .2. .HENEV|
000006D0: 45 52 20 59 4F 55 0D 0D 4F 50 45 4E 20 54 48 45 |ER YOU..OPEN THE|
000006E0: 20 43 48 41 4E 4E 45 4C 20 54 4F 20 54 48 45 20 | CHANNEL TO THE |
000006F0: 4D 4F 44 45 4D 20 46 52 4F 4D 0D 0D 59 4F 55 52 |MODEM FROM..YOUR|
00000700: 20 4F 57 4E 20 50 52 4F 47 52 41 4D 2C 20 4D 41 | OWN PROGRAM, MA|
00000710: 4B 45 20 53 55 52 45 20 59 4F 55 20 55 53 45 20 |KE SURE YOU USE |
00000720: 41 0D 0D 35 20 41 53 20 54 48 45 20 43 48 41 4E |A..5 AS THE CHAN|
00000730: 4E 45 4C 20 4E 55 4D 42 45 52 2E 0D 0D CF D0 C5 |NEL NUMBER......|
00000740: CE 20 35 2C 32 2C 32 2C C3 C8 D2 24 28 36 29 2B |. 5,2,2,...$(6)+|
00000750: C3 C8 D2 24 28 30 29 20 49 53 20 54 48 45 0D 0D |...$(0) IS THE..|
00000760: 50 52 4F 50 45 52 20 53 59 4E 54 41 58 20 46 4F |PROPER SYNTAX FO|
00000770: 52 20 54 48 45 20 CF D0 C5 CE 20 53 54 41 54 45 |R THE .... STATE|
00000780: 4D 45 4E 54 0D 0D 49 4E 20 59 4F 55 52 20 C2 C1 |MENT..IN YOUR ..|
00000790: D3 C9 C3 20 50 52 4F 47 52 41 4D 2E 0D 0D 0D C4 |... PROGRAM.....|
000007A0: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .|
000007B0: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 3A 0D 0D CD C9 |...... ....:....|
000007C0: CE C9 D4 C5 D2 CD 20 31 32 38 0D 0D 2D 2D 2D 2D |...... 128..----|
000007D0: 2D 2D 2D 2D 2D 2D 2D 3C 20 45 4E 44 20 4F 46 20 |-------< END OF |
000007E0: 54 45 58 54 20 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |TEXT >----------|
000007F0: 2D 2D 0D |--. |
.. MINITERM 128.
BY. MICHAEL LEPAGLIA...COMMO
DORE MICROCOMPUTERS MAGAZINE.SEPTEMBER/O
CTOBER, 1986...*************************
*************..NOTE: BECAUSE OF THE NATU
RE OF THIS.PROGRAM, IT CANNOT BE RUN VIA
.LOADSTAR'S OPERATING SYSTEM. TO.ACCESS
MINITERM 128, YOU MUST BLOAD IT.DIRECTL
Y FROM THE DISK...**********************
****************... MINITERM 128, IS A
MACHINE-LANGUAGE..DRIVER FOR BASIC TERMI
NAL PROGRAMS...BECAUSE YOU OPEN THE CHAN
NEL TO THE..MODEM FROM YOUR OWN BASIC PR
OGRAM,..YOU CAN SELECT YOUR BAUD RATE: 3
00,..1200, OR 2400. THE DRIVER RESIDES.
.FROM $1300 TO $1700, THUS YOU CAN..BLOA
D IT AT THE START OF A SESSION..AND PUT
THE OPEN AND SYS STATEMENTS..ON A FUNCTI
ON KEY. FOR EXAMPLE:...KEY2,"OPEN5,2,2,
CHR$(6)+CHR$(0):.SYS4864:CLOSE5"...MAKES
THE F2 KEY OPEN THE CHANNEL TO..THE MOD
EM AND ENTER THE TERMINAL..DRIVER. PRES
SING THE COMMODORE LOGO..KEY AND THE "M"
KEY TOGETHER CLOSES..THE CHANNEL TO THE
MODEM.... MINITERM 128 HAS TWO WAYS TO
RETURN..TO BASIC. PRESSING THE COMMODO
RE LOGO..KEY AND THE "M" KEY AT SAME TIM
E..RETURNS TO THE NEXT COMMAND IN YOUR..
OWN BASIC PROGRAM. PRESSING THE..COMMOD
ORE LOGO KEY AND THE ENGLISH..POUND KEY
AT THE SAME TIME PLACES A..$FF IN LOCATI
ON $0088, ALLOWING YOU..TO BRANCH TO A D
IFFERENT PART OF YOUR..PROGRAM.... MINI
TERM 128 HAS A SMALL MENU THAT..ALLOWS Y
OU TO EXIT TO BASIC, TO A HELP..SCREEN,
OR CHOOSE WHETHER OUTPUT GOES..OUT IN ST
ANDARD OR COMMODORE ASCII...SINCE LINE N
OISE SOMETIMES AFFECTS THE..COLOR OF THE
CURSOR, THE PROGRAM'S..AUTHOR HAS ALSO
INCLUDED CODE THAT..WILL RETURN THE CURS
OR TO ITS CORRECT..COLOR IF THIS OCCURS.
... TO USE THIS PROGRAM, BLOAD MINITERM
..128, ASSIGN KEY2 AS PREVIOUSLY..DESCRI
BED AND PRESS F2. WHENEVER YOU..OPEN THE
CHANNEL TO THE MODEM FROM..YOUR OWN PRO
GRAM, MAKE SURE YOU USE A..5 AS THE CHAN
NEL NUMBER...OPEN 5,2,2,CHR$(6)+CHR$(0)
IS THE..PROPER SYNTAX FOR THE OPEN STATE
MENT..IN YOUR BASIC PROGRAM....DISK FILE
S THIS PROGRAM USES:..MINITERM 128..----
-------< END OF TEXT >------------.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL