Oh Lordy…

Hey old friend – remember this?

;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û  Source file for 'ICE BREAKER' OFFICIAL RELEASE Version 1.2.
;Û  MAAS Modem Battle Language Interpreter By DrMiaow
;Û  This Script By Morpheus Black - Adapted from AUSPAC PAD Scanner by DrMiaow
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û  Please feel free to distribute and USE this produkt. Any Bug reports
;Û  should be directed to morpheus@newrose!elitenet or (|| for C programmers)
;Û  morpheus@maas!elitenet . You can usualy catch me on EliteNet Australia
;Û  or at Zero-City.
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û  Greets to : Count Zero, J-Nova, Ripmax, Chandra, Infinity, Philo
;Û              Rabbi, Jag, and Shaka
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û  Copyright (c) 1988 The Acceleration Corporation, Inc. All rights reserved.
;Û  Redistribution and use in source and binary forms are permitted provided
;Û  that the above copyright notice and this paragraph are duplicated in all
;Û  such forms and that any documentation, advertising materials, and other
;Û  materials related to such distribution and use acknowledge that the
;Û  software was developed by the Acceleration Corporation. The name of
;Û  either the author or the Acceleration Corporation may not be used to
;Û  justify or promote hacks derived from this software.
;Û  THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
;Û  WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
;Û  MERCHANTIBILITY AND FITNESS FOR A PARTICULARLY LEGAL PURPOSE. SO THERE!
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û  ID:  Carrier Seeker: Chinese Red Army Genetic version. Milspec Rated.
;Û  VE:  IB (Ice Breaker) V1.2a Acceleration Corporation Produkt #8902
;Û  AU:  (c) 1989 Morpheus Black of The Acceleration Corporation
;Û
;Û  This program produces the following files
;Û
;Û  HITS.LOG    : All numbers the had a modem at the end.
;Û  SYSTEMS.LOG : All numbers that looked like a computer.
;Û  TOTAL.LOG   : The complete sign on screen of all hits.
;Û  ERROR.LOG   : If an error occours then it will end up being reported here.
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ


#WILD ! 10			; Define a wild card
#WILD * 3478906215		; Define a wild card
#WILD @ 706915342		; Define a wild card
#WILD ^ 7392514068

#SCAN atdt008-03*-@*^\r       	; Define our SCAN string with wild cards...
				; This will scan the 008-040-???'s and
				; 008-041-???'s randomly with max spread


;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û Init Modem - Set baud rate, and mode;
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

start:
	INIT 1 2400 8N1                 ; Init fossil driver COM1 to 2400 8N1
	BUFFER KILL			; Empty the fossil buffer

	CLRSCR				; Clear the screen and do a blurb
	PRINT "\n\r"
	PRINT "     ÜÜ#####²±²±²±ÜÜ\n\r"
	PRINT "   ÜÛ#######²±²±²±²±ÛÜ    ID: Chinese Red Army Genetic Scanner\n\r"
	PRINT "  ÞÛ########²±²±²±²±²ÛÝ   VE: I.C.E Breaker V1.0 \n\r"
	PRINT "  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ     : (c) Acceleration Corporation 1991 \n\r"
	PRINT "  ÞÛÛÛÛÛÛ MK 13 ÛÛÛÛÛÛÝ   AU: Morpheus Black 1991\n\r"
	PRINT "   ßÛß   ß°±²²ÛßÄÅÄßÛß   \n\r"
	PRINT "   ÜÛ  #  ÜÛ ÛÜ $³$ ÛÜ    GR: Count Zero, J-Nova, Ripmax \n\r"
	PRINT "   ÛÛÛÜÜÜÛÛ   ÛÛÜÜÜÛÛÛ      : Chandra, Infinity, Philo\n\r"
	PRINT "   ßÛÛßÛ±ÛݶÜÇÞÛ±ÛßÛÛß      : Rabbi, Jag, and Shaka\\n\r"
	PRINT "       ²±°ß²²²ß²±°           \n\r"
	PRINT "       ²±°ÞÙ Àݲ±°           'Hey Poor you don't have to poor\n\r"
	PRINT "       ²±°     ²±°            anymore... Jesus is here.'\n\r"
	PRINT "        ³       ³                                  -Front 242\n\r"
	PRINT "        ³       ³             "
	PRINT " Sequence is now underway \n\r"


	IF ( CHAT "\P002ATZ\r\n\P001 OK\r\n" )
		 (
			GOTO main
		 )
	ELSE
	   (
		IF ( GOT "ERROR" )
	      		(
		  	PRINT "\aERROR Check your INIT procedure.\n\r"
			)
		ELSE
		IF ( GOT "RING" )
	        (
	PRINT "Your phone is ringing. Oh no... the FED's have traced you!\n\r"
		)
		ELSE
	        (LOG ERROR.LOG "\TModem Failure at PORT \C SPEED \B MODE \M\n\r"
	        )
	   )
	END

;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
;Û
;Û The main loop - The heart of the program
;Û
;ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

main:
	BAUD 2400			; Set baud rate to 2400
	MODE 8N1			; Set mode to 8N1
	BUFFER KILL			; Delete the modem buffer
	PUT \D				; Put DTR High

	SCAN				; Send our #SCAN string

	PAUSE 15			; Wait 15 seconds for any modem to
					; answer and connect

	PUT \r\n                        ; Force modem to reply
	PAUSE 1				; Wait 1 second for the modem to reply
	BUFFER FLUSH			; Suck it up so GOT can look at it


	; Now we interpret the response from the modem and see what
	; baude rate we are running at, change to it etc.... *YAWN*..

	IF ( GOT NO\sCARRIER ) THEN ( )
	ELSE
	IF ( GOT "CONNECT 2400" ) THEN ( BAUD 2400  GOSUB identify_system )
	ELSE
	IF ( GOT CONNECT\s1200 ) THEN ( BAUD 1200  GOSUB identify_system )
	ELSE
	IF ( GOT CONNECT\s600 ) THEN ( BAUD 600  GOSUB identify_system )
	ELSE
	IF ( GOT CONNECT ) THEN ( BAUD 300  GOSUB identify_system )
        ELSE
	(
		LOG REPORT.TXT "\n\r\T '\S' produced a strange result\n\r"
		LOG REPORT.TXT "++++++++++++++++++++++++++++++++++++++++++\n\r"
		BUFFER DUMP REPORT.TXT
		LOG REPORT.TXT "++++++++++++++++++++++++++++++++++++++++++\n\r"
	)

        GOTO main                 ; Try again.


; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ  Routine to identify type of system we have encountered.......
; ÛÛ  Scan for all popular systems and institutions.
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

identify_system:
	GOOD				; Increment the 'hits' variable

	LOG HITS.LOG "\T '\S' \B \M\n\r"
	LOG SYSTEMS.LOG "\n\r\T '\S' COM\C:\B:\M\n\r"

	; Now we switch modes to see what we get in both

        MODE 8N1
	GOSUB shake
	MODE 7E1
	GOSUB shake

	GOSUB identify

	LOG SYSTEMS.LOG "\n\r"


	BUFFER FLUSH                       	; Get all available data
	BUFFER DUMP TOTAL.LOG             	; Send the buffer to file
						; TOTAL.LOG


        GOSUB hangup

	RETURN


; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ  Routine 'shake' a response out of the system.
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

shake:

	PUT @%&@\n\r ; Send 'NOISE' *GRIN* and a crlf
	PAUSE 2

	PUT $%@*!\n\r ; Send 'NOISE' again...
	PAUSE 2

	RETURN

; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ  Routine pick out signiture strings of particular operating systems
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

identify:

	; SCAN for KEYWORDS
	IF ( GOT UNIX )      ( LOG SYSTEMS.LOG "UNIX\n\r" )
	IF ( GOT Unix )      ( LOG SYSTEMS.LOG "UNIX\n\r" )
	IF ( GOT unix )      ( LOG SYSTEMS.LOG "UNIX\n\r" )
	IF ( GOT nix )       ( LOG SYSTEMS.LOG "*nix\n\r" )
	IF ( GOT System\sV ) ( LOG SYSTEMS.LOG "*NIX SYS V\n\r" )
	IF ( GOT system\sV ) ( LOG SYSTEMS.LOG "*NIX SYS V\n\r" )
	IF ( GOT BSD )       ( LOG SYSTEMS.LOG "*NIX BSD\n\r" )
	IF ( GOT ERR! )      ( LOG SYSTEMS.LOG "PRIMEOS\n\r" )
	IF ( GOT AUSTPAC )   ( LOG SYSTEMS.LOG "AUSTPAC Dial in\n\r" )
	IF ( GOT ustpac )    ( LOG SYSTEMS.LOG "UNIX\n\r" )
        IF ( GOT PAD ) ( LOG SYSTEMS.LOG "A Packet Assembler Dissasembler\n\r" )
	IF ( GOT NET )       ( LOG SYSTEMS.LOG "A Network\n\r" )
	IF ( GOT CICS )      ( LOG SYSTEMS.LOG "IBM CICS\n\r" )
	IF ( GOT .com )      ( LOG SYSTEMS.LOG "Commercial domain Unix\n\r" )
	IF ( GOT .mil )      ( LOG SYSTEMS.LOG "Military domain Unix\n\r" )
	IF ( GOT .edu )      ( LOG SYSTEMS.LOG "Education domain Unix\n\r" )
	IF ( GOT pdp )       ( LOG SYSTEMS.LOG "PDP11 Minicomputer\n\r" )
	IF ( GOT 486 )       ( LOG SYSTEMS.LOG "ix486 PC?\n\r" )
	IF ( GOT 386 )       ( LOG SYSTEMS.LOG "ix386 PC?\n\r" )
	IF ( GOT Bank )      ( LOG SYSTEMS.LOG "A Bank\n\r" )
	IF ( GOT bank )      ( LOG SYSTEMS.LOG "A Bank\n\r" )
	IF ( GOT login )     ( LOG SYSTEMS.LOG "A login prompt\n\r" )
	IF ( GOT Login )     ( LOG SYSTEMS.LOG "A Login prompt\n\r" )
	IF ( GOT ID )        ( LOG SYSTEMS.LOG "An ID prompt\n\r" )
	IF ( GOT USER )      ( LOG SYSTEMS.LOG "A USER prompt\n\r" )
	IF ( GOT user )      ( LOG SYSTEMS.LOG "A user prompt\n\r" )
	IF ( GOT # )         ( LOG SYSTEMS.LOG "A modem password prompt\n\r" )
	IF ( GOT VT100 )     ( LOG SYSTEMS.LOG "VT100 Terminal type\n\r" )

	RETURN


; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
; ÛÛ
; ÛÛ  Routine to hang up MODEM:
; ÛÛ  If by any chance the modem fails to hang up an alarm will sound
; ÛÛ  to wake you up.
; ÛÛ
; ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ

hangup:

	BUFFER KILL                   		; Empty the buffer
	PUT \d                            	; Hang up DTR LOW
	PAUSE 1                            	; Wait for NO CARRIER
	BUFFER FLUSH


	IF ( GOT NO\sCARRIER ) THEN
  	(
		; do nothing
  	)
  	ELSE
  	(
		PUT \D\P001\d+++\rATH\n	; Alternative HANG UP
		IF ( GOT NO\sCARRIER )
		(
			; do nothing
		)
		ELSE
		(
			black_ice:
			PRINT "\a\a\a\*** WAKE UP I'M STUCK ONLINE ***\n\r"
			GOTO black_ice
		)
	)

	BUFFER KILL
RETURN

Advertisements

About metawrap

CTO Massive Interactive. Ex Computer Whiz Kid - Now Grumpy Old Guru.
This entry was posted in Nostalgia for Misspent Youth, Rants. Bookmark the permalink.

2 Responses to Oh Lordy…

  1. Emerson says:

    ROFL, Thats great…

    A deamon dialer, in basic. I was probably still in nappies when you wrote that.

    Why the CAPTCHA ? Have you been getting comment spam…

  2. James Mc Parlane says:

    That’s not actually real basic – I wrote the basic interpreter on top of my old "Toothbrush" VM – but it has functions skewed towards a certain purpose 🙂

    I didn’t write this script – but its very close to the original one that I released with the interpreter. 🙂

    CAPCHA came with the Blog upgrade 🙂

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s