home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib03.dsk / APPLE COMMUNICATOR.int < prev    next >
Text File  |  1990-01-01  |  2.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Text File (text/txt).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert InterPainter (image/interPainter) ext Supported
66% dexvert INT95a (image/int95a) ext Supported
1% dexvert CBASIC Intermediate code (other/cBASICIntermediateCode) ext Unsupported
1% dexvert Fallout compiled script (other/falloutCompiledScript) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file ASCII text default
100% checkBytes Printable ASCII default
100% perlTextCheck Likely Text (Perl) default
100% siegfried x-fmt/111 Plain Text File default
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 20 52 45 4d 20 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |1 REM *|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 0a 32 20 52 45 4d 20 20 | 2a 20 41 50 50 4c 45 20 |.2 REM |* APPLE |
|00000030| 43 4f 4d 4d 55 4e 49 43 | 41 54 4f 52 20 20 20 20 |COMMUNIC|ATOR |
|00000040| 2a 0a 33 20 52 45 4d 20 | 20 2a 20 20 20 42 59 20 |*.3 REM | * BY |
|00000050| 4b 45 56 49 4e 20 52 49 | 4c 45 59 20 20 20 20 20 |KEVIN RI|LEY |
|00000060| 20 2a 0a 34 20 52 45 4d | 20 20 2a 20 43 4f 50 59 | *.4 REM| * COPY|
|00000070| 52 49 47 48 54 20 28 43 | 29 20 31 39 38 30 20 42 |RIGHT (C|) 1980 B|
|00000080| 59 20 2a 0a 35 20 52 45 | 4d 20 20 2a 20 20 20 4d |Y *.5 RE|M * M|
|00000090| 49 43 52 4f 2d 53 50 41 | 52 43 2c 20 49 4e 43 20 |ICRO-SPA|RC, INC |
|000000a0| 20 20 20 2a 0a 36 20 52 | 45 4d 20 20 2a 20 20 20 | *.6 R|EM * |
|000000b0| 4c 49 4e 43 4f 4c 4e 2c | 20 4d 41 20 30 31 37 37 |LINCOLN,| MA 0177|
|000000c0| 33 20 20 20 2a 0a 37 20 | 52 45 4d 20 20 2a 2a 2a |3 *.7 |REM ***|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 2a 2a 2a 2a 2a 0a 31 | 30 20 52 45 4d 20 20 2a |******.1|0 REM *|
|000000f0| 2a 2a 20 50 55 54 20 41 | 4c 50 2e 20 4f 4e 20 53 |** PUT A|LP. ON S|
|00000100| 43 52 45 45 4e 20 2a 2a | 2a 0a 31 35 20 43 41 4c |CREEN **|*.15 CAL|
|00000110| 4c 20 2d 39 33 36 3a 4c | 4e 3d 31 35 3a 53 50 3d |L -936:L|N=15:SP=|
|00000120| 31 3a 4b 3d 33 35 30 0a | 32 30 20 44 49 4d 20 41 |1:K=350.|20 DIM A|
|00000130| 4c 50 24 28 38 30 29 0a | 32 35 20 41 4c 50 24 3d |LP$(80).|25 ALP$=|
|00000140| 22 20 20 41 20 20 42 20 | 20 43 20 20 44 20 20 45 |" A B | C D E|
|00000150| 20 20 46 20 20 47 20 20 | 48 20 20 49 20 20 4a 20 | F G |H I J |
|00000160| 20 4b 20 20 4c 20 20 4d | 20 20 4e 20 20 4f 20 20 | K L M| N O |
|00000170| 50 20 20 51 20 20 52 20 | 20 53 20 20 54 20 20 55 |P Q R | S T U|
|00000180| 20 20 56 20 20 57 20 20 | 58 20 20 59 20 20 5a 22 | V W |X Y Z"|
|00000190| 0a 33 30 20 56 54 41 42 | 20 32 3a 50 52 49 4e 54 |.30 VTAB| 2:PRINT|
|000001a0| 20 41 4c 50 24 28 31 2c | 33 39 29 0a 33 35 20 56 | ALP$(1,|39).35 V|
|000001b0| 54 41 42 20 35 3a 50 52 | 49 4e 54 20 41 4c 50 24 |TAB 5:PR|INT ALP$|
|000001c0| 28 34 30 2c 37 38 29 0a | 34 30 20 44 49 4d 20 43 |(40,78).|40 DIM C|
|000001d0| 4f 4e 24 28 34 30 29 0a | 34 35 20 43 4f 4e 24 3d |ON$(40).|45 CON$=|
|000001e0| 22 53 50 41 43 45 20 20 | 20 44 45 4c 45 54 45 20 |"SPACE | DELETE |
|000001f0| 20 20 4e 45 57 20 20 20 | 20 20 46 41 53 54 20 20 | NEW | FAST |
|00000200| 20 53 4c 4f 57 22 0a 35 | 30 20 56 54 41 42 20 38 | SLOW".5|0 VTAB 8|
|00000210| 3a 54 41 42 20 33 3a 50 | 52 49 4e 54 20 43 4f 4e |:TAB 3:P|RINT CON|
|00000220| 24 0a 35 35 20 52 45 4d | 20 20 2a 2a 2a 20 53 43 |$.55 REM| *** SC|
|00000230| 41 4e 20 41 4c 50 20 2a | 2a 2a 0a 36 30 20 46 4f |AN ALP *|**.60 FO|
|00000240| 52 20 58 3d 33 20 54 4f | 20 36 20 53 54 45 50 20 |R X=3 TO| 6 STEP |
|00000250| 33 0a 36 35 20 46 4f 52 | 20 59 3d 33 20 54 4f 20 |3.65 FOR| Y=3 TO |
|00000260| 33 39 20 53 54 45 50 20 | 33 0a 37 30 20 56 54 41 |39 STEP |3.70 VTA|
|00000270| 42 20 58 3a 54 41 42 20 | 59 3a 20 50 4f 4b 45 20 |B X:TAB |Y: POKE |
|00000280| 35 30 2c 36 33 3a 50 52 | 49 4e 54 20 22 5e 22 3a |50,63:PR|INT "^":|
|00000290| 20 50 4f 4b 45 20 35 30 | 2c 32 35 35 0a 37 35 20 | POKE 50|,255.75 |
|000002a0| 46 4f 52 20 54 44 3d 30 | 20 54 4f 20 4b 0a 38 30 |FOR TD=0| TO K.80|
|000002b0| 20 49 46 20 20 50 45 45 | 4b 20 28 2d 31 36 32 38 | IF PEE|K (-1628|
|000002c0| 37 29 3e 31 32 37 20 54 | 48 45 4e 20 47 4f 53 55 |7)>127 T|HEN GOSU|
|000002d0| 42 20 35 30 30 0a 38 35 | 20 4e 45 58 54 20 54 44 |B 500.85| NEXT TD|
|000002e0| 0a 39 30 20 56 54 41 42 | 20 58 3a 54 41 42 20 59 |.90 VTAB| X:TAB Y|
|000002f0| 3a 50 52 49 4e 54 20 22 | 20 22 0a 39 35 20 4e 45 |:PRINT "| ".95 NE|
|00000300| 58 54 20 59 0a 31 30 30 | 20 4e 45 58 54 20 58 0a |XT Y.100| NEXT X.|
|00000310| 31 30 35 20 46 4f 52 20 | 5a 3d 35 20 54 4f 20 33 |105 FOR |Z=5 TO 3|
|00000320| 38 20 53 54 45 50 20 38 | 0a 31 31 30 20 56 54 41 |8 STEP 8|.110 VTA|
|00000330| 42 20 39 3a 54 41 42 20 | 5a 3a 20 50 4f 4b 45 20 |B 9:TAB |Z: POKE |
|00000340| 35 30 2c 36 33 3a 50 52 | 49 4e 54 20 22 5e 22 3a |50,63:PR|INT "^":|
|00000350| 20 50 4f 4b 45 20 35 30 | 2c 32 35 35 0a 31 31 35 | POKE 50|,255.115|
|00000360| 20 46 4f 52 20 54 44 3d | 30 20 54 4f 20 4b 0a 31 | FOR TD=|0 TO K.1|
|00000370| 32 30 20 49 46 20 20 50 | 45 45 4b 20 28 2d 31 36 |20 IF P|EEK (-16|
|00000380| 32 38 37 29 3e 31 32 37 | 20 54 48 45 4e 20 47 4f |287)>127| THEN GO|
|00000390| 53 55 42 20 5a 2a 32 30 | 30 0a 31 32 35 20 4e 45 |SUB Z*20|0.125 NE|
|000003a0| 58 54 20 54 44 0a 31 33 | 30 20 56 54 41 42 20 39 |XT TD.13|0 VTAB 9|
|000003b0| 3a 54 41 42 20 5a 3a 50 | 52 49 4e 54 20 22 20 22 |:TAB Z:P|RINT " "|
|000003c0| 0a 31 33 35 20 4e 45 58 | 54 20 5a 0a 31 34 30 20 |.135 NEX|T Z.140 |
|000003d0| 47 4f 54 4f 20 36 30 0a | 35 30 30 20 52 45 4d 20 |GOTO 60.|500 REM |
|000003e0| 20 2a 2a 2a 20 50 52 49 | 4e 54 20 41 4c 50 20 4f | *** PRI|NT ALP O|
|000003f0| 4e 20 53 43 52 45 45 4e | 20 2a 2a 2a 0a 35 30 31 |N SCREEN| ***.501|
|00000400| 20 49 46 20 28 4c 4e 3d | 32 33 29 20 41 4e 44 20 | IF (LN=|23) AND |
|00000410| 28 53 50 3d 33 35 29 20 | 54 48 45 4e 20 35 38 30 |(SP=35) |THEN 580|
|00000420| 0a 35 30 35 20 41 3d 59 | 0a 35 31 30 20 49 46 20 |.505 A=Y|.510 IF |
|00000430| 58 3d 36 20 54 48 45 4e | 20 41 3d 41 2b 33 39 0a |X=6 THEN| A=A+39.|
|00000440| 35 31 35 20 56 54 41 42 | 20 4c 4e 3a 54 41 42 20 |515 VTAB| LN:TAB |
|00000450| 53 50 3a 50 52 49 4e 54 | 20 41 4c 50 24 28 41 2c |SP:PRINT| ALP$(A,|
|00000460| 41 29 0a 35 32 30 20 53 | 50 3d 53 50 2b 31 0a 35 |A).520 S|P=SP+1.5|
|00000470| 32 35 20 49 46 20 53 50 | 3d 34 30 20 54 48 45 4e |25 IF SP|=40 THEN|
|00000480| 20 4c 4e 3d 4c 4e 2b 31 | 0a 35 33 30 20 49 46 20 | LN=LN+1|.530 IF |
|00000490| 53 50 3d 34 30 20 54 48 | 45 4e 20 53 50 3d 31 0a |SP=40 TH|EN SP=1.|
|000004a0| 35 33 35 20 49 46 20 4c | 4e 23 32 33 20 54 48 45 |535 IF L|N#23 THE|
|000004b0| 4e 20 35 36 35 0a 35 34 | 30 20 56 54 41 42 20 4c |N 565.54|0 VTAB L|
|000004c0| 4e 3a 54 41 42 20 33 37 | 3a 20 50 4f 4b 45 20 35 |N:TAB 37|: POKE 5|
|000004d0| 30 2c 36 33 0a 35 34 35 | 20 50 52 49 4e 54 20 22 |0,63.545| PRINT "|
|000004e0| 45 4e 44 22 0a 35 35 30 | 20 46 4f 52 20 54 3d 30 |END".550| FOR T=0|
|000004f0| 20 54 4f 20 35 30 30 3a | 4e 45 58 54 20 54 0a 35 | TO 500:|NEXT T.5|
|00000500| 35 35 20 56 54 41 42 20 | 4c 4e 3a 54 41 42 20 33 |55 VTAB |LN:TAB 3|
|00000510| 37 3a 20 50 4f 4b 45 20 | 35 30 2c 32 35 35 0a 35 |7: POKE |50,255.5|
|00000520| 36 30 20 50 52 49 4e 54 | 20 22 20 20 20 22 0a 35 |60 PRINT| " ".5|
|00000530| 36 35 20 49 46 20 20 50 | 45 45 4b 20 28 2d 31 36 |65 IF P|EEK (-16|
|00000540| 32 38 37 29 3c 31 32 37 | 20 54 48 45 4e 20 35 37 |287)<127| THEN 57|
|00000550| 35 0a 35 37 30 20 47 4f | 54 4f 20 35 36 35 0a 35 |5.570 GO|TO 565.5|
|00000560| 37 35 20 52 45 54 55 52 | 4e 20 0a 35 38 30 20 56 |75 RETUR|N .580 V|
|00000570| 54 41 42 20 31 32 3a 54 | 41 42 20 31 36 3a 20 50 |TAB 12:T|AB 16: P|
|00000580| 4f 4b 45 20 35 30 2c 36 | 33 0a 35 38 35 20 50 52 |OKE 50,6|3.585 PR|
|00000590| 49 4e 54 20 22 50 4c 45 | 41 53 45 20 4b 45 59 20 |INT "PLE|ASE KEY |
|000005a0| 49 4e 20 4e 45 57 22 0a | 35 38 36 20 46 4f 52 20 |IN NEW".|586 FOR |
|000005b0| 54 3d 30 20 54 4f 20 35 | 30 30 3a 4e 45 58 54 20 |T=0 TO 5|00:NEXT |
|000005c0| 54 0a 35 39 30 20 20 50 | 4f 4b 45 20 35 30 2c 32 |T.590 P|OKE 50,2|
|000005d0| 35 35 3a 52 45 54 55 52 | 4e 20 0a 31 30 30 30 20 |55:RETUR|N .1000 |
|000005e0| 52 45 4d 20 20 2a 2a 2a | 20 4d 41 4b 45 20 41 20 |REM ***| MAKE A |
|000005f0| 53 50 41 43 45 20 2a 2a | 2a 0a 31 30 31 30 20 56 |SPACE **|*.1010 V|
|00000600| 54 41 42 20 4c 4e 3a 54 | 41 42 20 53 50 0a 31 30 |TAB LN:T|AB SP.10|
|00000610| 32 30 20 20 50 4f 4b 45 | 20 35 30 2c 36 33 3a 50 |20 POKE| 50,63:P|
|00000620| 52 49 4e 54 20 22 20 22 | 0a 31 30 33 30 20 46 4f |RINT " "|.1030 FO|
|00000630| 52 20 54 4d 3d 30 20 54 | 4f 20 32 35 30 3a 4e 45 |R TM=0 T|O 250:NE|
|00000640| 58 54 20 54 4d 0a 31 30 | 34 30 20 56 54 41 42 20 |XT TM.10|40 VTAB |
|00000650| 4c 4e 3a 54 41 42 20 53 | 50 3a 20 50 4f 4b 45 20 |LN:TAB S|P: POKE |
|00000660| 35 30 2c 32 35 35 3a 50 | 52 49 4e 54 20 22 20 22 |50,255:P|RINT " "|
|00000670| 0a 31 30 35 30 20 53 50 | 3d 53 50 2b 31 0a 31 30 |.1050 SP|=SP+1.10|
|00000680| 35 35 20 49 46 20 20 50 | 45 45 4b 20 28 2d 31 36 |55 IF P|EEK (-16|
|00000690| 32 38 37 29 3c 31 32 37 | 20 54 48 45 4e 20 31 30 |287)<127| THEN 10|
|000006a0| 36 30 0a 31 30 35 38 20 | 47 4f 54 4f 20 31 30 35 |60.1058 |GOTO 105|
|000006b0| 35 0a 31 30 36 30 20 52 | 45 54 55 52 4e 20 0a 32 |5.1060 R|ETURN .2|
|000006c0| 36 30 30 20 52 45 4d 20 | 20 2a 2a 2a 20 44 45 4c |600 REM | *** DEL|
|000006d0| 45 54 45 20 2a 2a 2a 0a | 32 36 31 30 20 53 50 3d |ETE ***.|2610 SP=|
|000006e0| 53 50 2d 31 0a 32 36 32 | 30 20 49 46 20 53 50 3c |SP-1.262|0 IF SP<|
|000006f0| 31 20 54 48 45 4e 20 53 | 50 3d 31 0a 32 36 33 30 |1 THEN S|P=1.2630|
|00000700| 20 56 54 41 42 20 4c 4e | 3a 54 41 42 20 53 50 0a | VTAB LN|:TAB SP.|
|00000710| 32 36 34 30 20 50 52 49 | 4e 54 20 22 20 22 0a 32 |2640 PRI|NT " ".2|
|00000720| 36 35 30 20 49 46 20 20 | 50 45 45 4b 20 28 2d 31 |650 IF |PEEK (-1|
|00000730| 36 32 38 37 29 3c 31 32 | 37 20 54 48 45 4e 20 32 |6287)<12|7 THEN 2|
|00000740| 36 37 30 0a 32 36 36 30 | 20 47 4f 54 4f 20 32 36 |670.2660| GOTO 26|
|00000750| 35 30 0a 32 36 37 30 20 | 52 45 54 55 52 4e 20 0a |50.2670 |RETURN .|
|00000760| 34 32 30 30 20 52 45 4d | 20 20 2a 2a 2a 20 4e 45 |4200 REM| *** NE|
|00000770| 57 20 2a 2a 2a 0a 34 32 | 31 30 20 20 50 4f 4b 45 |W ***.42|10 POKE|
|00000780| 20 33 34 2c 31 31 0a 34 | 32 32 30 20 43 41 4c 4c | 34,11.4|220 CALL|
|00000790| 20 2d 39 33 36 0a 34 32 | 33 30 20 20 50 4f 4b 45 | -936.42|30 POKE|
|000007a0| 20 33 34 2c 30 0a 34 32 | 34 30 20 4c 4e 3d 31 35 | 34,0.42|40 LN=15|
|000007b0| 3a 53 50 3d 31 0a 34 32 | 35 30 20 52 45 54 55 52 |:SP=1.42|50 RETUR|
|000007c0| 4e 20 0a 35 38 30 30 20 | 52 45 4d 20 20 2a 2a 2a |N .5800 |REM ***|
|000007d0| 20 46 41 53 54 20 2a 2a | 2a 0a 35 38 31 30 20 4b | FAST **|*.5810 K|
|000007e0| 3d 4b 2d 32 35 0a 35 38 | 32 30 20 49 46 20 4b 3e |=K-25.58|20 IF K>|
|000007f0| 37 35 20 54 48 45 4e 20 | 35 38 36 30 0a 35 38 33 |75 THEN |5860.583|
|00000800| 30 20 56 54 41 42 20 31 | 32 3a 54 41 42 20 31 30 |0 VTAB 1|2:TAB 10|
|00000810| 3a 20 50 4f 4b 45 20 35 | 30 2c 36 33 3a 50 52 49 |: POKE 5|0,63:PRI|
|00000820| 4e 54 20 22 59 4f 55 20 | 41 52 45 20 41 54 20 54 |NT "YOU |ARE AT T|
|00000830| 4f 50 20 53 50 45 45 44 | 22 3a 20 50 4f 4b 45 20 |OP SPEED|": POKE |
|00000840| 35 30 2c 32 35 35 0a 35 | 38 34 30 20 46 4f 52 20 |50,255.5|840 FOR |
|00000850| 54 3d 30 20 54 4f 20 31 | 30 30 30 3a 4e 45 58 54 |T=0 TO 1|000:NEXT|
|00000860| 20 54 0a 35 38 35 30 20 | 56 54 41 42 20 31 32 3a | T.5850 |VTAB 12:|
|00000870| 54 41 42 20 31 30 3a 50 | 52 49 4e 54 20 22 20 20 |TAB 10:P|RINT " |
|00000880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000890| 20 20 22 0a 35 38 36 30 | 20 49 46 20 4b 3c 37 35 | ".5860| IF K<75|
|000008a0| 20 54 48 45 4e 20 4b 3d | 37 35 0a 35 38 37 30 20 | THEN K=|75.5870 |
|000008b0| 49 46 20 20 50 45 45 4b | 20 28 2d 31 36 32 38 37 |IF PEEK| (-16287|
|000008c0| 29 3c 31 32 37 20 54 48 | 45 4e 20 35 38 39 30 0a |)<127 TH|EN 5890.|
|000008d0| 35 38 38 30 20 47 4f 54 | 4f 20 35 38 37 30 0a 35 |5880 GOT|O 5870.5|
|000008e0| 38 39 30 20 52 45 54 55 | 52 4e 20 0a 37 34 30 30 |890 RETU|RN .7400|
|000008f0| 20 52 45 4d 20 20 2a 2a | 2a 20 53 4c 4f 57 20 2a | REM **|* SLOW *|
|00000900| 2a 2a 0a 37 34 31 30 20 | 4b 3d 4b 2b 32 35 0a 37 |**.7410 |K=K+25.7|
|00000910| 34 32 30 20 49 46 20 20 | 50 45 45 4b 20 28 2d 31 |420 IF |PEEK (-1|
|00000920| 36 32 38 37 29 3c 31 32 | 37 20 54 48 45 4e 20 37 |6287)<12|7 THEN 7|
|00000930| 34 34 30 0a 37 34 33 30 | 20 47 4f 54 4f 20 37 34 |440.7430| GOTO 74|
|00000940| 32 30 0a 37 34 34 30 20 | 52 45 54 55 52 4e 20 0a |20.7440 |RETURN .|
+--------+-------------------------+-------------------------+--------+--------+