home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS 1992 September
/
Simtel20_Sept92.cdr
/
msdos
/
pcmag
/
vol4n10.arc
/
LOCATE.BAS
< prev
next >
Wrap
BASIC Source File
|
1980-01-01
|
3KB
|
65 lines
10 OPEN "LOCATE.COM" AS # 1 LEN = 1 'Open Locate.com
20 PRINT "CREATING LOCATE.COM"
30 FIELD #1,1 AS BYTE.$ 'Specify what goes into it
40 FOR N = 1 TO 517 '517 bytes
50 READ BYTE.%
60 LSET BYTE.$ = CHR$(BYTE.%) 'Load byte into buffer
70 PUT #1 'Write buffer out
80 NEXT N
90 CLOSE #1 'Close file
100 PRINT "LOCATE.COM CREATED." 'And you're done.
110 END
1010 DATA 235, 54, 144, 40, 67, 41, 49, 57, 56, 53
1020 DATA 32, 83, 46, 72, 111, 108, 122, 110, 101, 114
1030 DATA 13, 10, 13, 10, 70, 79, 85, 78, 68, 32
1040 DATA 73, 78, 32, 36, 1, 0, 0, 0, 0, 0
1050 DATA 0, 0, 0, 0, 0, 0, 92, 80, 65, 84
1060 DATA 72, 46, 68, 65, 84, 0, 186, 176, 0, 180
1070 DATA 26, 205, 33, 191, 92, 0, 232, 179, 0, 186
1080 DATA 92, 0, 180, 78, 205, 33, 187, 202, 0, 139
1090 DATA 23, 137, 22, 34, 1, 129, 250, 0, 240, 114
1100 DATA 3, 233, 142, 0, 131, 250, 0, 119, 3, 233
1110 DATA 134, 0, 232, 99, 1, 139, 14, 38, 1, 191
1120 DATA 49, 4, 187, 130, 0, 138, 7, 242, 174, 227
1130 DATA 115, 187, 128, 0, 51, 210, 138, 23, 74, 190
1140 DATA 131, 0, 74, 166, 116, 252, 79, 131, 250, 0
1150 DATA 119, 226, 141, 22, 20, 1, 180, 9, 205, 33
1160 DATA 180, 2, 187, 219, 0, 128, 62, 40, 1, 1
1170 DATA 116, 3, 187, 206, 0, 138, 23, 128, 250, 0
1180 DATA 116, 5, 205, 33, 67, 235, 244, 87, 83, 81
1190 DATA 185, 40, 0, 180, 2, 178, 58, 205, 33, 178
1200 DATA 13, 205, 33, 178, 10, 205, 33, 131, 239, 20
1210 DATA 187, 49, 4, 59, 251, 119, 2, 139, 251, 3
1220 DATA 30, 34, 1, 138, 21, 71, 59, 251, 119, 11
1230 DATA 128, 250, 30, 119, 2, 178, 32, 205, 33, 226
1240 DATA 238, 89, 91, 95, 235, 132, 232, 37, 0, 60
1250 DATA 18, 116, 3, 233, 86, 255, 205, 32, 198, 5
1260 DATA 42, 198, 69, 1, 46, 198, 69, 2, 42, 198
1270 DATA 69, 3, 0, 195, 131, 249, 0, 116, 6, 128
1280 DATA 39, 127, 67, 226, 250, 195, 180, 79, 205, 33
1290 DATA 60, 18, 116, 3, 233, 147, 0, 128, 62, 40
1300 DATA 1, 1, 116, 58, 254, 6, 40, 1, 184, 0
1310 DATA 61, 141, 22, 46, 1, 205, 33, 115, 5, 176
1320 DATA 18, 233, 145, 0, 185, 44, 1, 139, 216, 180
1330 DATA 63, 141, 22, 5, 3, 205, 33, 5, 5, 3
1340 DATA 163, 36, 1, 180, 62, 205, 33, 199, 6, 43
1350 DATA 1, 5, 3, 185, 44, 1, 187, 5, 3, 232
1360 DATA 168, 255, 139, 54, 43, 1, 191, 92, 0, 187
1370 DATA 219, 0, 198, 6, 45, 1, 0, 59, 54, 36
1380 DATA 1, 125, 192, 128, 60, 30, 114, 13, 198, 6
1390 DATA 45, 1, 1, 138, 4, 136, 7, 67, 164, 235
1400 DATA 232, 128, 62, 45, 1, 1, 116, 3, 70, 235
1410 DATA 222, 137, 54, 43, 1, 198, 5, 92, 198, 7
1420 DATA 92, 67, 137, 30, 41, 1, 71, 232, 84, 255
1430 DATA 186, 92, 0, 180, 78, 185, 0, 0, 205, 33
1440 DATA 60, 18, 116, 174, 128, 62, 40, 1, 1, 117
1450 DATA 18, 139, 30, 41, 1, 190, 205, 0, 70, 138
1460 DATA 36, 136, 39, 67, 128, 60, 0, 117, 245, 195
1470 DATA 80, 83, 81, 82, 186, 219, 0, 128, 62, 40
1480 DATA 1, 1, 116, 3, 186, 206, 0, 184, 0, 61
1490 DATA 205, 33, 139, 216, 186, 49, 4, 139, 14, 34
1500 DATA 1, 180, 63, 205, 33, 163, 38, 1, 180, 62
1510 DATA 205, 33, 187, 49, 4, 139, 14, 34, 1, 232
1520 DATA 8, 255, 90, 89, 91, 88, 195