Category : Utilities for DOS and Windows Machines
Archive   : UNCRASH.ZIP
Filename : UNCRASH.BAS

 
Output of file : UNCRASH.BAS contained in archive : UNCRASH.ZIP
100 'UNCRASH.BAS: Program to create UNCRASH.COM which allows a Ctrl-Break
101 'out of an endless loop. See UNCRASH.DOC. From PC Magazine Vol 5 No 5
102 'March 11, 1986 User-to-User.
103 '
110 OPEN "UNCRASH.COM" AS #2 LEN=1:FIELD #2,1 AS C$
120 READ CHK:IF CHK=-1 GOTO 210 ELSE READ F$:SUM=0
130 IF F$="-1" GOTO 210 ELSE REPEAT=LEN(F$)\2
140 FOR I=1 TO REPEAT
150 PL=(I-1)*2+1:B$=MID$(F$,PL,2)
160 SUM=SUM+VAL("&H"+B$)*I:LSET C$=CHR$(VAL("&H"+B$))
170 PUT #2,ST+1:ST=ST+1
180 NEXT
190 IF CHK=SUM THEN 200 ELSE PRINT "Error in line";DS+220
200 DS=DS+10:GOTO 120
210 PRINT"UNCRASH.COM created.":END
220 DATA 3564,e82d00cb1e50b840
230 DATA 3469,008ed8a071002c80
240 DATA 4205,750fa27100b020e6
250 DATA 4360,20581ffbb44ccd21
260 DATA 2499,cf581f2eff2e2801
270 DATA 0,0000000000000000
280 DATA 3803,581ebf00005750fa
290 DATA 2047,b027884501b80000
300 DATA 4320,8ed8bb7000c43f8c
310 DATA 2661,c88ed82e893e2801
320 DATA 4110,8cc02ea32a018cc8
330 DATA 3041,8ec02e8d3e0401b8
340 DATA 3993,00008ed8bb700089
350 DATA 3585,3f8cc7897f022e8d
360 DATA 2100,163001fbc3
370 DATA -1


  3 Responses to “Category : Utilities for DOS and Windows Machines
Archive   : UNCRASH.ZIP
Filename : UNCRASH.BAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/