This thread neatly picks up from the Siemens PC-D one, post #102220.

The Siemens PG 685 is one of the computers that was used to program the Siemens S5 automation systems.

https://en.wikipedia.org/wiki/Simatic_S5_PLC

http://www.tecmumas.de/de/computer/siemens_pg685.htm

I've got two machines, both dead, and in different states of completion. They run on PCP/M and MS-DOS, dual boot systems were common, but they aren't IBM clones/compatibles, as the bus system is different from the ISA architecture.

I was using David Gesswein's MFM reader/emulator board to transfer the harddisk images.

Some manuals and disk images are available through

http://oldcomputers.dyndns.org/public/pub/rechner/siemens/pg685/

Machine 1 is missing the CPU card, and has a handwritten "Turbo" note on the front bezel. It might have been upgraded at some point in its lifetime as the memory cards are different from the (mostly complete) Machine 2. As it's disassembled anyway, I took the pictures of the keyboard and backplane from this one. The harddisk has sector errors when read with the MFM reader, its disk image is included for completion's sake.

PG 685 No. 1 - Backplane

PG 685 No. 1 - Bezel and Keyboard

PG 685 No. 1 - Drives and HDD controller

PG 685 No. 1 - Memory boards

PG 685 No. 1 - Harddisk image

Machine 2 is mostly complete, but doesn't work (probably) due to a fault in its power supply. The ROM image comes off this machine, the harddisk transferred without errors.

PG 685 No. 2 - Backplane and CPU/Video card

PG 685 No. 2 - Drives and HDD controller

PG 685 No. 2 - Bezel and Keyboard

PG 685 No. 2 - Memory and Module cards

PG 685 No. 2 - Harddisk image

PG 685 ROM BIOS

Got another one ...
Machine 3 actually turns on, but won't recognize the Testdisk I am writing to get it going. The testdisk is needed to set the NVRAM values for memory size, harddisk and probably other stuff.

The key switch plays a crucial role in this operation: Set it to >0<, insert the disk but leave the drive open, switch the machine on, close the drive door and set the key switch to "Normal" to load the test disk. Here I get "Disk defect" no matter what physical disk and test disk image combination I use. The disks have a 720K, 80 tracks, 9spt layout, so on a PC they have to be written in a 1.2MB HD drive onto DD media.



If I don't bother with the key and testdisk procedure and just press ENTER with the key in NORMAL setting, I get this test page:



I'm still not sure what the cause of the failure to load the test disk is ... maybe the floppy controller, as I've already tried swapping in a different drive.

The working power supply allowed me to test the set of boards from Machine 2, they work as well up to the configuration screen.

Machine 3 has a different CPU and video board from the other dumped machine, No. 2. It's using a 286 at 10MHz, so the handwritten "Turbo" note on the case of Machine 1 makes sense, it probably also had the 286 boards.
The monitor cable has headers for both types of boards.
The harddisk was dead as a dodo, swapping in another one didn't work yet.

PG 685 No. 3 - Backplane and CPU/Video card

PG 685 No. 3 - Bezel and Keyboard

PG 685 No. 3 - Drives and HDD controller

PG 685 No. 3 - Memory and Module cards

PG 685 ROM and CHAR BIOS, 286 ver.

I originally had wanted to include this site

http://oldcomputer.info/portables/pg685/index.htm

in the first post, but couldn't find it again ... turns out the guy switched providers just last week, and here it is again.

I'm guessing either the drive is bad, or the drive you are writing data to the disks for (i.e. 5.25" drive on a kryoflux or supercardpro or dos machine running teledisk/imagedisk etc) is out of alignment.

The machine had several problems: The aforementioned keyswitch was bad, after swapping the keyboards, the machine actually shows "System Reset" if I move the key to >0<.

The drives are very finicky ... haven't had it to that extent in any other machine. To get working images, I'll have to re-write the disks I made in a PG drive on the PC in the actual machine ... thankfully the Machine 2 set of boards and harddisk started booted up with some minor fuss, so I have a working PCP/M installation ... formatting a batch of disks atm.

Getting the testdisks somewhat going revealed more about the two sets of boards, e.g. their memory map:

Machine 2, 768K RAM, V20 CPU



Machine 3, 896K RAM, 286 CPU



This one also gave away that its screen buffer sits at

E0000 - EFFFFH

It can do pixel graphics using a Hitachi 46505SP graphics chip

if you have an alignment check disk, i'd check the alignment of the drives in the machine, a classic symptom of drive being out of alignment is 'it will only read disks it itself wrote or formatted'

LN

Yeah, unfortunately, no, I haven't got one of these. Would the Kryoflux reveal an out of whack drive?

Depending on the revision of the test disk, the keyboard test uses different graphics:



vs.



The keyboard test shows these key/code combinations:

No, not really

Right, I was able to save some of the software from the harddisks ...

The machine with the V20 processor (Machine 2) has a fully functioning harddisk with a DOS partition with MS-DOS 3.3 and a PCP/M-86 partition with the S5 programming software. Using the HDPARTY utility that is available in both OS, you can change the active partition and boot alternatively.

https://www.magentacloud.de/lnk/u01ExXOQ

The HD from the third machine is completely dead, the one from the first one gave read errors on the MFM reader board, so I was surprised that it contained a readable DOS partition with GEM/3. The CP/M partition was dead, though.

https://www.magentacloud.de/lnk/fD1ERc8V

The GEM screen driver for the PG685 is SDHRC8.EGA which, according to John Elliott's GEM page, was used for Hercules Graphics as well.

http://www.seasip.info/Gem/Drivers/video.html

A lot of DOS programs that are meant for IBM compatibles send the PG 685 so far off into lala land, that even a flick of the reset switch can't get it back. The ones I tried that support Hercules were no exception.

The text buffer starts indeed at E0000, the examples from

https://de.wikibooks.org/wiki/Maschinensprache_i8086/_BWS_schreiben

work well if you replace the regular VGA address of B800 with the PG's E000, the text screen is 80x25 characters.

I've also seen bright and blinking text attributes.

John Elliott, master of all things GEM and Amstrad at http://seasip.info/ has had a VERY close look at the GEM driver that the PG685 incarnation of GEM/3 uses. He writes:


He also calls the PG685's video system
The PC 16-11 John mentions definitely uses similar cards, and the connectors on the backplane seem to match as well.

http://merkur.dhis.org/sietusweb/Computer-Oldtimer/Personal-PC.html

As far as I can see, the floppy controller is a WD279x at F9F0:20h. Under PCP/M-86 at least, it interrupts on INT 54h.

Great analysis, John, thanks!
Is there a way to find the address and interrupt e.g. of the harddisk controller from a running machine?

Disassembling the BIOS ROM is probably the way to go here. I've done this with the ROM from machine 2; this suggests to me that the WD1010 is at F9F0:70h to 77h, with a separate drive/head select register at F9F0:78h and another write-only register (possibly reset or interrupt control) at F9F0:79h.

I'm not sure what interrupt it's using, but take a look at the first 1K of memory on machine 2 and see if the address FE00:0C2F appears anywhere -- that looks to me like the BIOS handler for hard drive interrupts.

John, good call for making me boot up machine 2 again. 2 and 3 are really more different than I had first realized. At least they are booting the same disks.

I'll summarize and order our findings:

Machine 2
V20 CPU, seperarate RAM board, total of 768K RAM, one EPROM containing BIOS and CHAR ROMs, HD68A45SP video chip.

Poking characters into E000 does not work, GEM complains of missing BMG (bitmap graphics). That message in the driver is there for a reason If you select the bmg in the testdisk and test it, the machine freezes.
John's disassembly of this machine's ROM found
- WD1010 at F9F0:70 ... 77h
- drive/head reg. at F9F0:78h
- another write only reg. at F9F0:79h
- WD279x at F9F0:20h, INT 54h (on PCP/M-86)



Using the guide at

http://www.mess.org/dumping/dump_bios_using_debug

I dumped the first 1K of memory



https://www.magentacloud.de/lnk/uh1ExtKv

FE00 sure seems busy, but I can't find 0C2F

Machine 3
286 CPU, including a total of 896K of RAM, two EPROMs for CHAR and BIOS resp., HD68A45SP video chip

GEM works, poking characters into E000 works

It is there -- INT 53h. With the floppy interrupt on INT 54h, and what looks like it might be the keyboard interrupt on INT 50h.

Hah, luvverly!
Glad the memory dump worked.

Still on machine 2:

At FD00:000D is a 16-byte table of what looks like MC6845 registers, for a 25x80 mode with characters 11 pixels high. These values get written to a CRTC at F9F0:0002 (register select) / F9F0:0003 (register value). The corresponding text framebuffer appears to be at FB00:0000.

The INT 10h handler appears to have support for three video output possibilities:
* One as above, with the CRTC at F9F0:0002 and the framebuffer at FB00:0000.
* One with the CRTC at F9F0:0080 and the framebuffer at E000:0000 or B000:0000 [1]
* Both simultaneously

[1] To detect which to use, see code at FE00:0E1C:
MOV AX, 0F9F0h
MOVE ES, AX
OR ES:[85h], 80h
TEST ES:[85h], 2
JNZ USE_B000
MOV vid_seg, 0E000h
JMP continue

USE_B000:
MOV vid_seg, 0B000h
continue:

Great! I'll test if machine 2 has the framebuffer at FB00:0000

Included in the DOS is an INTERN/EXTERN utility that allows the switching between ... internal and external monitor. You can also test the external monitor via the testdisk.

https://www.magentacloud.de/lnk/l0VkReo0

https://www.magentacloud.de/lnk/GD1kRnav

Those magentacloud links don't work here. (some anti-adblock thing, maybe?) can you post them somewhere else, maybe on mega?

LN

INTERN and EXTERN just emit escape sequences (ESC #x ESC [c for INTERN, ESC #y ESC [c for EXTERN) and don't touch the hardware directly.

(The actual useful code in either is about 25 bytes. The rest is unpacker code to massage the memory environment to resemble CP/M-86 rather than DOS -- I suspect the hand of Digital Research LINKEXE.)

John, the framebuffer is indeed at FB00:0000, characters only, no attribute bytes. Again, a marked difference from machine 3.

@LN will do, once MEGA lets me login ...

Here are the two last files on MEGA

https://mega.nz/#!ORcHWTBK

https://mega.nz/#!XUV1wKoT

If anyone's interested in specific stuff I've posted before on Magentacloud and can't reach it, please give me a shout.

The Real Time Clock appears to be at F9F0:42h to F9F0:50h.

42h: Seconds BCD
43h: Minutes BCD
44h: Hours BCD
46h: Day BCD
47h: Month BCD
48h: 8 bytes of CMOS memory.
* 4Ah may be floppy drive types (bits 0-2 drive A, bits 3-5 drive B).
* 4Bh may be similar drive types for hard drives
* 4Ch holds BCD year.
* Low 3 bits of 4Dh appear to be memory size.
50h: Busy flag (before reading RTC, wait until this is not 1).

Keyboard is handled by a NEC 8279C-2.

F9F0:0000h is scancode
F9F0:0001h is FIFO status (on read) / command (on write)

The PCP/M-86 keyboard handling code also checks a couple of bits read from F9F0:0004h, but I don't know why yet.

John, could that be the key switch?

There's also the module programmer, a port called SINECH1, a printer port and one labelled AG-S5. I can't test those for lack of peripherals and documentation.

Going by CCP/M-86 and the BIOS, the printer port works as follows:

F9F0:0033h: This is read before output. If value & 0x70 == 0x70, output thrown away (printer not present?)
F9F0:0032h: Initialised to 1Dh at startup, not subsequently touched.
F9F0:0031h: Status read. If bit 7 or 0 is set, port is busy; wait until these bits go to 0.
F9F0:0030h: Data output.

The PG685 with the V20 (machine 2) has one physical ROM that contains the character generator ROM for the 6845 and the BIOS. How is that reflected in MAME's ROM loading? Does the driver need to load the same file twice?

I have the same "problem" for the KRON K180 driver, right now I have just divided the physical rom into three AM areas and set a name "chargen" to the one in the middle. I'd like to know of alternative/better ways to to do this.

There is physical circuitry that will steal cycles from the main cpu to access this area but I don't know exactly how yet. Guess the 6845 does something similar?

Just have your 6845 (or whatever) draw callback read from the same region that the CPU uses. There's no requirement in MAME that other things can't access that region.

In the case of Machine 2, I suspect the 6845 actually reads the character bitmaps from RAM at FA00:0000. There's code in the BIOS ROM at FE00:1AE9 that copies 2k of data from FC00:0000 to FA00:0000.

So judging from this RAM test on machine 2 ...



would this memory map sound reasonable?

You have one mistake:
should be

I'm wondering if the f0000-f1fff range isn't mirrored 6 times over the whole f0000-fbfff range, including the charcopy region;
If that was the case, the memory map would be:

That's just speculation, though. You'd need to test by using debug or a similar program to write to f0000 and seeing if the same written data shows up at f2000 f4000 f6000 f8000 fa000 etc.

LN

Does AM_RAM and AM_REGION work combined like that?

No. You need to use AM_SHARE for what he's trying to do.

crap, I knew it was something like that. Anyway, I think there's examples of AM_SHARE with offset set to 0 to remap areas of memory on top of each other like that.

LN

Right,
is the first revision ... will things like 6845 registers, HD and Floppy addresses go into as they're memory mapped rather than io?

Thanks for walking me through this, even if I only understand half of what I'm doing

If they're memory mapped they need to go into AS_PROGRAM.

Thanks Duke, I'll look for examples to compare.

I've incorportated all of the addresses John found out into the program memory map.


If that looks reasonable, I'll try to find out how to talk to those memory regions (devices, nvram et al.)

Beware that since the bus is 16-bits wide, all start addresses must be even and all end addresses must be odd.

OG.

New addition to the PG family:



The PG 675 sports two floppy drives instead of a Floppy and harddisk instead as in the PG 685.

The drives are Teac FD-55BV-11-U which should make them 40 tracks/side instead of the 80 tracks/side drives of the PG 685.

If you switch the PG 675 on, it asks for a disk.



Unfortunately I don't have a bootdisk yet.

The archive contains photos and a dump of the BIOS ROM.

https://www.magentacloud.de/lnk/gx1kRKc0

Committed that along with some fixes so oua12 boots. Couldn't figure out the chargen decode for oua12, so the characters are wrong, but you can easily make out the arrow

ETA: also added the pg675 set and hooked up the MM58167 RTC. The behavior here isn't quite right, I'll have to dig up the 58167 manual again and fix that emulation.

RB, thanks a lot!

I put the working power supply in the OUA12 ... it's a bit of a hassle to swap them.

The "arrow" screen on the OUA12 is asterisks as with the other machines.



The 675 will dump you sometimes into some primitive monitor if you have a disk in it (mind you, I've yet to source the matching disks for it, so it does only attempt to boot).
Either the NVRAM batteries have now run completely flat, or I've overwritten something, if you compare the start screen that I've posted a few days ago to the pic taken today, the numbers on top are now all zeros.

This is the monitor I was talking about in the last post.



The disk that gets you there is one particular copy of the rev. A08 testdisk for the PG685 ... I don't know what that 96tpi floppy triggers in the 48tpi drive.

https://www.magentacloud.de/lnk/5IVERGPl

AJR, thanks for the work on the Siemens PG driver - there's finally a boot disk for the PG 675 en route to me, I'll make it available as soon as possible.

Siemens PG 675 boot disk - the label says "S5 Betriebssystem", i.e. operating system.
I can't get beyond the settings screen, but it's the only disk I have found so far that boots.

https://www.magentacloud.de/lnk/ZLVkx51L

Can you post that somewhere else? magentacloud is one of those providers where you need to disable all ad blocking and enable random scripts to run on your browser to get at the files.

Can you put it on sendspace or dropbox or google drive instead?

Sorry forgot ... try

http://oldcomputers.dyndns.org/public/pub/rechner/siemens/pg675/image/pg675.td0

I don't think I can contribute any more to this driver until a hard disk image gets hooked up to the PG685's WD controller by someone who knows better than me how to emulate these things in MAME. That way, we can get closer to the ROM's keyboard test, and I have a fair concept of what the key matrix should look like (though the 8279's CNTL line is most definitely not hooked up to any sort of modifier key...)

AJR maybe the 675 is lower hanging fruit as it's only got floppy drives.

Two versions of the test disk and one different version of the boot/program disk are just in:

http://oldcomputers.dyndns.org/public/pub/rechner/siemens/pg675/image/index.html

Well, I don't really know about hooking up FDDs any better, and the PG675 also doesn't have any self-test routines in ROM.

I tried to find a driver that was similar enough to copy stuff over from, but while I can roughly tell what goes where in a MAME driver, I don't know enough about the gory details hardware and softwareside to make it work.

The FDC is standard, right? I can maybe take a look at it.

RB, that would be great. 675 and both 685 variants have Siemens SAB 1797 floppy controllers on their module boards. At least on the 685 I/O is memory mapped.

John Elliott has identified some of the addresses used, his findings are listed in the skeleton driver.

For the 675 it's two 5.25" DS/DD 40 track drives, for the 685 one 5.25" DS/QD 80 track drive and a 12 / 25 / 51 MB Winchester.

The combinations I've encountered here are

OUA11: WD2010B-AL controller chip / Miniscribe 8425
OUA12: WD1010A-AL controller chip / Tandon TM262

Thanks!

I've created a pull request for the PG machines ... the drives are in place, the floppy controller is changed to the FD1797 that is found on the boards.
I hope RB can make the necessary connections

Are there schematics or technical manuals for any of these?

Schematics would be wonderful to have here, but they probably don't exist; I doubt that Siemens intended for any third-party software to be developed for these specialized computers.

@RB ... no schematics, unfortunately. No hardware description, even. Those machines were only supposed the programming suite for the S5 controllers.

I can only offer the hardware manual for the Siemens Sicomp PC16-11, a desktop machine that might or might not share DNA with the Simatics.
Per John Elliot's analysis, the GEM driver contains the names of both the PG685 and the PC16-11. In that case, it's the OUA12 variant.

PC16-11 hardware manual compact

Around p.35 there's a detailed address list, a bit about how interrupts work on the PC16-11 and some rough diagrams. If you see anything that might help and need a translation, give me a shout.

R. Belmont, in the Shout Box:


What's slightly perverse about the PG675 ROM code is that the I/O base addresses, rather than being loaded straightforwardly as on the PG685, are stored in a descriptor table that is part of a large block copied from ROM into RAM, with LES used to put the descriptors into registers. (Just to make matters even more confusing, NEC's assembler doesn't have a specific name for the LES instruction, making it just a MOV with two operands.) One result is that 0F9F0h:20h (the FDC register base) gets loaded into ES:BX from 0h:49Fh.

There are disassemblies of two PG685 PCP/M-86 versions on Gaby's Z80 site:

http://www.cpm.z80.de/source.html

I've read the Sicomp PC16-11 manual, and some of the subsystems described there look nearly identical to what the PG685 is known to have. Particularly promising are the descriptions of the display RAM, the PIT gates and the extra HDC registers. The separate read and write system registers at F9F04h are more or less similar. The PC16-11 also has an external FDC register, but the way it's described doesn't match what the PG685 writes to (the address is different, too). The PC16-11's serial keyboard is very different from the 8279-driven one the PG675 and PG685 use, and its interrupt system has very little in common with them.

I'm hoping to get access to a PC16-11 next year and will try to document it and dump its ROMs.

The disassemblies aren't commented in any way, and the addresses don't line up with the ROM code, so that's not too helpful unfortunately.

Looks like there WAS more than just the S5 programming software for the PG-675 ...

PCP/M-86 for Simatic PG-675

Another member of the Siemens Simatic S5 family, clearly more recent than the other three, and on its way to a "field programming device" as they were called later.



Dumping this machine would not have been possible without TeamE's invaluable service. He unsoldered and dumped one of the chips which I wouldn't have tackled myself and documented the machine while he was at it. Thanks!



Two 720K disk drives, NEC V20 CPU, 512K RAM, 80x25 LCD screen

Later an upgrade was available:

"6ES5 635-OU.1. PG 635 programmer
6ES5 635-3SA.1 PG 635 upgrading kit

A new and more powerful version of the PG 635 programmer is
now available. This new PG 635 II offers the following features:
- One 40 Mbyte hard disk and one 3.5" floppy disk drive.
- Working memory increased from 512 Kbytes to 640 Kbytes.
- A Centronics interface for printers."

The software I have claims to be from an upgraded machine but is supposed to boot on the original as well. Unfortunately my disk drives both seem to be dead. Files on the FTP and here:

Siemens Simatic S5 PG 635

There were games for this computer!

I still have some unreadable 360K 5.25 CPM diskettes from my practical course, those were likely written on a Siemens PG675(?) industrial computer (resembling an Osborne PC with internal green CRT), which was intended to program Simatic PLC hardware. In mid of 1990th I considered this green screen suitcase-style Ozzy Osborne machine terribly ancient, but instructors at the company told me that this thing would be a very expensive specialized state-of-the-art device and not an outdated PC. As an Amiga user I could only shake my head.

https://forum.classic-computing.de/forum/index.php?thread/15021-siemens-pg675/
https://en.wikipedia.org/wiki/Simatic
https://de.wikipedia.org/wiki/Simatic

The crazy thing is that there were some games on this computer. E.g. there was a textmode clone of "Qix", of "Centipede", of "Nibbler" and of "Ork Attack" (?, you had to move left & right to defend a castle by dropping stones on enemies those built ladders to climb up a brick wall); the latter even used a redefined charset but AFAIK none of them had sound. And I think I had copied them on my floppy.

My dump with disktool shows in HxD fragments of recognizeable words (e.g. file names) but likely nothing complete. I guess it is the different head geometry that makes the Mitsumi 1.2MB drive of my Colani PC bigtower fail to read it.

diskette topic see here:
https://forums.bannister.org/ubbthreads.php?ubb=showflat&Number=119594#Post119594


I can upload the (likely faulty) partial diskette dumps if anybody needs them.

The PG675 uses CP/M-86. I dumped its floppy disks using Teledisk which should work great on your Colani. http://dunfield.classiccmp.org/img47321/teledisk.htm On Dave's site you can also find his own solution, Imagedisk, but it's a bit more involved setting the parameters.

The resulting images will definitely be interesting.

I have here the 360K diskette dump "SYSTEM (CPM-86 v1.1-2,Basic,Spiele).IMG" read with disktool. Its name is not marked _DEFEKT, so I likely had indeed read all the tracks and only no OS to access it.

The games names seem to be

WALL.CMD (Ork Attack)
SCHACH.CMD (chess)
QIX.CMD (Qix)
WURM.CMD (Nibbler)

Additionally there is a BASIC game collection including a vocabulary training. The Basic stuff is saved in plain ASCII, so the code can be read with the hex editor.

This seems to be the directory:



I clearly rate these as "workstation games" - a category so niche and nerdy that nobody really seems to care about preserving them. I also had written about the topic in the Linux Mint forum:

Compile very old X11 games on modern Linux? (xlander,xchomp etc.)
https://forums.linuxmint.com/viewtopic.php?f=47&t=346039

Here are some interesting text bits I see in the code.

[code]Offset(h) 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 11 12 13 14 15 16 17 18 19 1A 1B

000001F8 40 40 40 40 40 40 40 40 03 00 00 00 43 50 2F 4D 20 2D 20 50 47 36 37 35 2D 50 2D 30 @@@@@@@@....CP/M - PG675-P-0
00000214 31 20 20 20 50 36 37 35 3A 32 38 2E 30 31 2E 38 33 3A 4C 43 00 00 00 10 4C 43 03 00 1 P675:28.01.83:LC....LC..


000004D0 B1 09 E9 05 00 BA 57 01 B1 14 CD E0 C3 F4 E9 FC FF 0D 0A 54 68 65 20 46 69 6C 65 20 ±.é..ºW.±.ÍàÃôéüÿ..The File
000004EC 43 50 4D 2E 53 59 53 20 4E 6F 74 20 46 6F 75 6E 64 20 4F 6E 20 54 68 69 73 20 44 69 CPM.SYS Not Found On This Di
00000508 73 6B 24 0D 0A 45 72 72 6F 72 20 49 6E 20 52 65 61 64 69 6E 67 20 43 50 4D 2E 53 59 sk$..Error In Reading CPM.SY
00000524 53 24 0D 0A 20 50 4C 45 41 53 45 20 20 57 41 49 54 24 73 20 3D 20 24 24 0A 20 20 20 S$.. PLEASE WAIT$s = $$.
00000540 20 4C 61 73 74 20 4F 66 66 73 65 74 20 3D 20 24 0D 0A 24 00 25 00 00 00 43 50 4D 20 Last Offset = $..$.%...CPM
0000055C 20 20 20 20 53 59 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 SYS.....................


000026B8 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 54 20 28 43 29 20 31 39 38 30 2C 20 44 49 COPYRIGHT (C) 1980, DI
000026D4 47 49 54 41 4C 20 52 45 53 45 41 52 43 48 20 20 00 00 00 00 00 00 00 00 00 00 00 00 GITAL RESEARCH ............
000026F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ............................
0000270C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF FF .......................ÿÿÿÿÿ


00002FCC 20 20 20 20 00 20 20 09 00 00 01 00 0B 00 00 00 20 00 20 3D 5F 2E 3A 3B 3C 3E 2C 44 . ......... . =_.:;<>,D
00002FE8 49 52 53 55 53 45 52 52 45 4E 20 54 59 50 45 45 52 41 20 44 49 52 20 4E 4F 20 46 49 IRSUSERREN TYPEERA DIR NO FI
00003004 4C 45 00 41 4C 4C 20 28 59 2F 4E 29 3F 00 46 49 4C 45 20 45 58 49 53 54 53 00 4D 45 LE.ALL (Y/N)?.FILE EXISTS.ME
00003020 4D 4F 52 59 20 4E 4F 54 20 41 56 41 49 4C 41 42 4C 45 00 52 45 41 44 20 45 52 52 4F MORY NOT AVAILABLE.READ ERRO
0000303C 52 00 0D 0A 43 41 4E 4E 4F 54 20 43 4C 4F 53 45 00 0D 0A 4E 4F 4E 2D 53 59 53 54 45 R...CANNOT CLOSE...NON-SYSTE
00003058 4D 20 46 49 4C 45 28 53 29 20 45 58 49 53 54 00 0D 0A 53 59 53 54 45 4D 20 46 49 4C M FILE(S) EXIST...SYSTEM FIL
00003074 45 28 53 29 20 45 58 49 53 54 00 00 0A 00 00 03 78 9A 04 8A 05 D2 05 2A 06 A0 06 83 E(S) EXIST......xš.Š.Ò.*. .ƒ
00003090 04 E4 06 00 00 FF FF FF FF 00 00 00 00 FF FF FF FF FF FF 31 32 20 4A 61 6E 75 61 72 .ä...ÿÿÿÿ....ÿÿÿÿÿÿ12 Januar
000030AC 79 20 31 39 38 32 00 00 00 00 00 00 12 01 82 20 00 20 00 00 00 00 00 00 00 00 00 00 y 1982........‚ . ..........
000030C8 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 80 ..... .....................€
000030E4 3E E0 24 3C 72 03 E9 DA FA 24 01 E9 D5 FA 00 44 65 63 65 6D 62 65 72 20 32 38 20 38 >à$<r.éÚú$.éÕú.December 28 8
00003100 31 00 00 31 32 20 6A 61 6E 75 61 72 79 20 38 32 00 00 00 00 00 00 00 00 00 00 00 00 1..12 january 82............


game texts:

00005A74 00 00 20 53 4F 4C 44 49 45 52 53 20 46 45 4C 4C 2E 20 54 48 45 20 52 45 43 4F 52 44 .. SOLDIERS FELL. THE RECORD
00005A90 20 00 49 53 20 00 57 41 53 20 00 03 07 80 07 23 07 80 07 30 07 80 07 80 07 A0 07 A0 .IS .WAS ...€.#.€.0.€.€. . 
00005AAC 07 A0 07 80 07 C0 13 94 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 . .€.À.”....................

VCL$=CHR$(27)+"[2J"+CHR$(27)+"[1;1H"..20 WIDTH 80..30 PRINT VCL$..40 PRINT " *** MONDLANDUNG ***"..50 PRINT ..60 PRINT..70 PRINT "WIRD EINE ANLEITUNG GEW]NSCHT (J ODER N)..80 INPUT A$..90 IF A$="N" THEN 430..100 IF A$="J" THEN 120..110 GOTO 70..120 PRINT ..130 PRINT "SIE LANDEN AUF DEM MOND UND HABEN DIE HANDSTEUERUNG"..140 PRINT "150 METER ]BER DEM LANDEPLATZ ]BERNOMMEN"..150 PRINT "DIE SINKGESCHWINDIGKEIT BETR[GT 15 M/SEC"..160 PRINT "120 TREIBSTOFFEINHEITEN SIND NOCH ]BRIG"..170 PRINT..180 PRINT "BELIEBIGE TASTE =====>>> WEITER!"..190 Q$=INKEY$:IF Q$="" THEN 190..200 PRINT VCL$..210 PRINT "ES GELTEN FOLGENDE REGELN :"..220 PRINT "1.) NACH JEDER SEKUNDE WERDEN H\HE, GESCHWINDIGKEIT"..230 PRINT " UND VERBLEIBENDER TREIBSTOFF ANGEZEIGT"..240 PRINT..250 PRINT "2.) DANACH ERSCHEINT EIN '?'. NUN MUSS DIE ANZAHL AN"..260 PRINT " IN DER N[CHSTEN SEKUNDE ZU VERBRAUCHENDEN TREIBSTOFFEINHEITEN"..270 PRINT " EINGEGEBEN WERDEN. JEDE EINHEIT VERRINGERT DIE "..280 PRINT " SINKGESCHWINDIGKEIT UM 0.3 M/SEC"..290 PRINT..300 PRINT "3.) DER MAXIMALE SCHUB BERTR[GT 9 M/SEC *SEC ODER"..310 PRINT " 30 TREIBSTOFFEINHEITEN PRO SEKUNDE"..320 PRINT..330 PRINT "4.) BEIM KONTAKT MIT DER OBERFL[CHE WIRD DAS TRIEBWERK"..340 PRINT " AUTOMATISCH ABGESCHALTET UND ES WERDEN LANDEGESCHWINDIGKEIT"..350 PRINT " UND VERBLEIBENDER TREIBSTOFF AUSGEGEBEN"..360 PRINT ..370 PRINT "5.) FALLS DER TREIBSTOFF AUSGEHT, ERSCHEINT DAS '?'"..380 PRINT " NICHR MEHR, ABER DIE DATEN WERDEN WEITERHIN "..390 PRINT " JEDE SEKUNDE BIS ZUR LANDUNG AUSGEGEBEN"..400 PRINT..410 PRINT "BELIEBIGE TASTE UND ES GEHT LOS ! ! !"..420 Q$=INKEY$:IF Q$="" THEN 420..430 PRINT VCL$..440 PRINT " B E G I N N D E R L A N D U N G . . . ."..450 PRINT ..460 PRINT " V I E L G L ] C K ! ! ! "..470 GOSUB 490..480 GOTO 510..490 PRINT "SEK HOEHE GESCHW. TREIBST. GRAFIK DER ENTFERNUNG"..500 RETURN..510 T=0 ..520 H=150..530 V=15..540 F=120..550 IF B = 0 THEN 630..560 IF T=10 OR T=20 OR T=30 THEN GOSUB 490..570 PRINT USING "##";T;TAB(4);..580 PRINT USING "###.##";H;TAB(12);..590 PRINT USING "##.##";V;TAB(20);..600 PRINT USING "###";F;TAB(27);..610 PRINT "I";TAB(H/3+28);"**"..620 GOTO 690..630 IF T=10 OR T=20 OR T=30 THEN GOSUB 490..640 PRINT USING "##";T;TAB(4);..650 PRINT USING "###.##";H;TAB(12);..660 PRINT USING "##.##";V;TAB(20);..670 PRINT USING "###";F;TAB(27);..680 PRINT "I";TAB(H/3+29);"**"..690 INPUT B..700 IF B < 0 THEN 890..710 IF B > 30 THEN 890..720 IF B > F THEN 740..730 GOTO 750..740 B=F..750 V1 = V-B*.3+1.5..760 F=F-B..770 H=H-.5*(V+V1)..780 IF H <=0 THEN 910..790 T = T + 1..800 V=V1..810 IF F > 0 THEN 550 ..820 IF B = 0 THEN 840..830 PRINT "*** KEIN TREIBSTOFF MEHR ***"..840 PRINT USING "##";T;TAB(4);..850 PRINT USING "###.##";H;TAB(12);..860 PRINT USING "##.##";V;TAB(20);..870 PRINT USING "###";F;TAB(27);..880 PRINT "I";TAB(H/3+29);"**"..890 B =0..900 GOTO 750..910 PRINT "***** KONTAKT *****"..920 H=H+.5*(V+V1)..930 IF B = 5 THEN 960..940 D = (-V+SQR(V*V+H*(3-.6*B)))/(1.5-.3*B)..950 GOTO 970..960 D=H/V..970 V1 = V+(1.5-.3*B)*D..980 PRINT "LANDUNG NACH ";T+D;"SEKUNDEN"..990 PRINT "LANDUNGSGESCHWINDIGKEIT = ";V1;"M/SEC DAS ENTSPRICHT: ";V1*3.6;"KM/STD"..1000 PRINT F;"TREIBSTOFFEINHEITEN SIND ]BRIG"..1010 IF V1 > -0.5 AND V1 < 0.5 THEN 1020 ELSE 1040..1020 PRINT "G R A T U L A T I O N : EINE PERFEKTE LANDUNG"..1030 PRINT "DIE LIZENZ WIRD ERNEUERT .... SP[TER"..1040 IF ABS (V1) < 5 THEN 1070..1050 PRINT "***** BRUCHLANDUNG *****"..1060 PRINT "BEILEIDSSCHREIBEN AN IHRE N[CHSTEN ANGEH\RIGEN WERDEN VERSCHICKT"..1070 PRINT "NOCHMAL ? (J/N)"..1080 INPUT A$..1090 IF A$ = "J" THEN 440..1100 IF A$ = "N" THEN 1130..1110 GOTO 1070..1120 PRINT..1130 CHAIN "CSPIEL"


Offset(h)

000187F8 åååååååå.M.............................JG.14.10.84...M.............................SC.06.10.84...M...............
00018869 ..............ÆB.12.10.84...M.............................1B.04.10.84...M.............................!A.27.09.84
000188DA ...M.............................=@.06.10.84...M.............................»>.05.10.84...M.....................
0001894B ........Ï=.17.09.84...M.............................2=.05.10.84...M.............................ø<.19.09.84......
000189BC .................................................................................................................
00018A2D ....................................................................................* Gratuliere, Champion! *....
00018A9E ...................................................................................................* Hoffnungslos
00018B0F ! *mpion! *......................................................................................................
00018B80 .* Kaum zu glauben! *on! *.......................................................................................
00018BF1 ................* So ein Mist! *n! *on! *........................................................................
00018C62 ...............................* Mir fehlen die Worte! *.........................................................
00018CD3 ..............................................* Bald sind es Tausend! *..........................................
00018D44 ............................................................%* Schon }ber die magischen Tausend! *...............
00018DB5 ............................................................................* Strengen Sie sich mal an! *usend! *
00018E26 ...........................................................................................* ]ben Sie noch? *h ma
00018E97 l an! *usend! *...........................................................................................* Weite
00018F08 r so! *h? *h mal an! *usend! *...................................................................................
00018F79 ........* Bald sind es 2000 *al an! *usend! *....................................................................
00018FEA .......................* Hey, }ber 2000 *0 *al an! *usend! *.....................................................
0001905B ......................................* Sie fangen wohl erst an? **usend! *......................................
000190CC .....................................................* Es wird ja... * erst an? **usend! *.......................
0001913D ....................................................................* Bleiben Sie dran! *t an? **usend! *........
000191AE ..................................................................................!* Eines Tages schaffen Sie 300
0001921F 0 *d! *...........................................................................................* ]bung macht d
00019290 en Meister! *000 *d! *..........................................................................................
00019301 * Jetzt beeindrucken Sie mich! **d! *............................................................................
00019372 ...............* Sie haben heimlich ge}bt! *! **d! *.............................................................
000193E3 ............................."* Hab schon schlechtere gesehen! *! *..............................................
00019454 .............................................* Jetzt blo~ nicht aufgeben! *n! *! *...............................
000194C5 ............................................................* Klasse! 4000 geschafft! * *n! *! *................
00019536 ...........................................................................* Nicht schlecht! *chafft! * *n! *! *.
000195A7 ..........................................................................................* Echt Spitze! *! *chaf
00019618 ft! * *n! *! *...........................................................................................* Schon
00019689 ganz nett! *hafft! * *n! *! *....................................................................................
000196FA .......* Oh, so nah vor`m Ziel! * * *n! *! *.....................................................................
0001976B ....................."* Wollen mich wohl beeindrucken? *! *......................................................
000197DC .....................................* Wundervoll! *ohl beeindrucken? *! *.......................................
0001984D ....................................................* Sie gefallen mir! *eindrucken? *! *........................
000198BE ...................................................................* Sie haben Klasse! *eindrucken? *! *.........
0001992F ..................................................................................* Sie schaffen es! **eindrucken
000199A0 ? *! *...........................................................................................* Sie schaffen m
00019A11 ich! *indrucken? *! *..........................................................................................åå


åååååååååååååååååååååååååååååååååååååååååååååååååå .[3;0H.[J.[0m...[1;1Hlqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk....[2;1Hx.[2;80Hx.[3;1Hx SIE - O.[3;32Hlqqk qwq qk lq QIX q `qqqqqq...[3;67Hk lqqqqq x.[4;1Hx.[4;31Hlj x x mwj.[4;64Hlqqj x.[4;80Hx.[5;1Hx WESPE...[5;13H - *.[5;31Hx kx x lvk.[5;64Hmqqqqj.[5;80Hx.[6;1Hx.[6;31Hmqqvvk qvq qj mq..........[6;80Hx.[7;1Hx.[7;36Hm.[7;80Hx.[8;1Hx TEILEN SIE DAS FELD AB UND ENTFLIEHEN SIE DEN HINDERNISSEN!...[8;54HD.[8;80Hx.[9;1Hx.[9;80Hx.[10;1Hx HINDERNISSE: QIX - T\TET, WENN SIE DEN ZAUN ...[10;51H BER]HRT, DEN SIE ZIEHEN.[10;80Hx.[11;1Hx.[11;18HWESPE - FLIEGT AM RAND UND T\TET BEI K\RPER...[11;62HKONTAKT .[11;80Hx.[12;1Hx.[12;80Hx.[13;1Hx.[13;80Hx.[14;1Hx RICHTUNG : 8 - AUF.[14;43H...[14;43HNEUES FELD ` EINMAL 75% ABGETEILT x.[15;1Hx.[15;80Hx.[16;1Hx.[16;13H4 - LIN...[16;20HKS 6 - RECHTS.[16;43HMEHR PUNKTE F]R FL[CHEN .[16;80Hx.[17;1Hx.[17;80Hx...[18;1Hx.[18;20H2 - AB .[18;46HGR\~ER ALS 75%..[18;80Hx.[19;1Hx.[19;80Hx...[20;1Hx ZAUN ZIEHEN: < LEERTASTE >.[20;43H.[7m START MIT <WAGENR]CKLAUF> (PC 2*!) .[0m x...[21;1Hx.[21;80Hx.[22;1Hx.[22;80Hx.[23;1Hm.............qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj.[22;35HH = HALTåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå10 REM FORMEL FUER DIE BESCHLEUNIGUNG IN M/SEC^2..20 REM..30 ?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?:?..35 ?:?:?:?:?:?:?:?..40 INPUT"MAXIMALGESCHWINDIGKEIT IM M/MIN";V..45 ?:?:?:?..50 INPUT"HOCHLAUFZEIT IN SEC.";T..60 ?..70 ?..80 ?"DIE BESCHLEUNIGUNG A IST";V/(60*T);"M/SEC^2"..90 ?:?:?:?:?:?:?:?:?..100 END..........................................åååå


Offset(h)

000263CA .‹Fü&‰.‹å]Â..U‹ìU.ì...¸i.PÄ~.ƒÇ6&‹.»©.÷ã[.Ã.&.—.&Ç...Ä X-TREFFER ERGEBEN 1 PUNKT *.*
0002643B O-TREFFER ERGEBEN 1 PUNKT-ABZUG *.* BEFEHLE:
000264AC *.* R KANONE NACH RECHTS *.* L KA
0002651D NONE NACH LINKS *.* S SCHUSS *.*
0002658E N SPIELNEUBEGINN *.* ESC ISIS
000265FF *.* LEERTASTE WEITERSCHALTEN *.*
00026670 *.* V I E L S P A S S *.*
000266E1 *.* *.*
00026752 ERSTEL@ER: BERGBAU-FORSCHUNG *.* ABT FWT
000267C3 *.* ES:èÝ.ÐØr.é..Ä~.ƒÇ&&Æ..ÆFô.é¢.Ä~..W.è...LST:è´.ÐØr.é..


Offset(h)

0002B6C6 ..............................................................Copying Disk ..:..Is this what you want to do (Y/N)
0002B737 ? ...Insufficient memory available for copy.....Format aborted.....Format completed......Format another disk (Y/
0002B7A8 N) ? ...Format started.... Reading Track .. Writing Track ..Verifying Track . ...Illegal Diskette Drive...
0002B819 ..Source and Destination disks must be..the same type.....Ignore error (Y/N) ? ., Sector ...Permanent Error .....
0002B88A .Format program exiting..............................P...........................................................


Offset(h)

0002BF9A åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå5 PRINT
0002C00B CHR$(27)+"[2J";..10 PRINT " BERECHNUNG DER ZUSTELLUNG AN EINER SCHRAEGE "..15 ?:?..20 GOSUB 1000..
0002C07C 25 ?:?..30 INPUT "SCHRAEGE EINGEBEN IN DEG.";D..40 D = D / 57.29578..50 ?:?..60 INPUT " FARWEG AN
0002C0ED DER SCHRAEGE IN MM ";C..70 ?:?:?..80 PRINT"DER FAHRWEG FUER Z-ACHSE IST ";C*SIN(D);" MM "..85 PRINT "
0002C15E =============="..90 ?:?..100 PRINT"DER FAHRWEG FUER Y-ACHSE IST ";C*COS(D);" MM ".
0002C1CF .105 PRINT " =============="..110 ?:?:?..120 PRINT "***************************
0002C240 *****************************";..121 PRINT "****************"..150 INPUT "NOCH EINE BERECHNUNG ";A$..160 IF
0002C2B1 A$ = "J" THEN GOTO 5..170 IF A$ = "N" THEN GOTO 190..175 IF A$= "" THEN GOTO 5..185 ?:?:?" BITTE N
0002C322 UR > J < ODER > N < EINGEBEN ":GOTO 150..190 PRINT CHR$(27)+"[2J";..200 PRINT " AUF WIEDER
0002C393 SEHEN ! "..210 ?:?:?:?:?:?:?:?:?:?:?:?..215 PRINT" ULRICH HUEBNER "..217
0002C404 CHAIN "CSPIEL"..220 END..1000 PRINT" * "..1010 PRINT"
0002C475 * * "..1020 PRINT" * * Z "..1030 PRINT" * * ^
0002C4E6 "..1040 PRINT" * * ! "..1050 PRINT" * * "..1060
0002C557 PRINT" * * "..1070 PRINT" O* * * * * * * * "..1080 PRINT"
0002C5C8 Y <---- "..1090 RETURN........ååååååååååååååååååååååååååååååååååååååååååååååååååååååååå


Offset(h)

0002C7FD ååå5 PRINT CHR$(7)..10 PRINT CHR$(26)..20 PRINT "WIE SPAET IST ES JETZT ? BITTE NUR DIE SEKUNDENZAHL EI
0002C86E NGEBEN "..30 INPUT SEK..40 RANDOMIZE (SEK)..50 PRINT CHR$(26)..60 PRINT " ***** Z A H L E N R A
0002C8DF T E N *****"..70 PRINT"ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100"..80 PRINT "DU SOLLST VERSUCHEN, SIE
0002C950 ZU ERRATEN."..90 PRINT " ICH SAGE DIR JEDESMAL, WIE DU MIT DEINER GERATENEN ZAHL LIEGST."..100 L = INT(RND *
0002C9C1 100 + 1)..110 G=0..120 PRINT:PRINT"O.K. , ICH HABE EINE NUMMER. - FANG' AN !"..130 PRINT:INPUT"WE@CHE NUMM
0002CA32 ER HABE ICH GEWAEHLT";A..135 IF A > 100 THEN 410..140 G=G+1..150 IF A = L THEN 220..160 IF G = 5 THEN .70
0002CAA3 ..170 PRINT CHR$(7);..180 IF A > L THEN 210..19. IF A < L THEN 200..200 PRINT"ZU NIEDRIG. VERSUCH EINE HO
0002CB14 EHERE NUMMER.":GOTO 130..210 PRINT"ZU HOCH. VERSUCH EINE TIEFERE NUMMER.":GOTO 130..220 PRINT:PRINT"RICHTIG !
0002CB85 ! ! DU HAST"G"AAL GERATEN"..230 PRINT CHR$(7);:FOR I = 1 TO 600: NEXT I :PRINT CHR$(7);..240 IF G <= 5 THEN
0002CBF6 250..250


Offset(h)

0002CFEF ååååååååååååååååå10 VCL$=CHR$(27)+"[2J"+CHR$(27)+"[1;1H"..20 WIDTH 80..30 PRINT VCL$..40 PRINT "
0002D060 *** MONDLANDUNG ***"..50 PRINT ..60 PRINT..70 PRINT "WIRD EINE ANLEITUNG GEW]NSCHT (J ODER N)..80 I
0002D0D1 NPUT A$..90 IF A$="N" THEN 430..100 IF A$="J" THEN 120..110 GOTO 70..120 PRINT ..130 PRINT "SIE LANDEN
0002D142 AUF DEM MOND UND HABEN DIE HANDSTEUERUNG"..140 PRINT "150 METER ]BER DEM LANDEPLATZ ]BERNOMMEN"..150 PRINT "
0002D1B3 DIE SINKGESCHWINDIGKEIT BETR[GT 15 M/SEC"..160 PRINT "120 TREIBSTOFFEINHEITEN SIND NOCH ]BRIG"..170 PRINT..18
0002D224 0 PRINT "BELIEBIGE TASTE =====>>> WEITER!"..19. Q$=INKEY$:IF Q$="" THEN 190..200 PRINT VCL$..210 PRINT
0002D295 "ES GELTEN @OLGENDE REGELN :"..220 PRINT "1.) NACH JEDER SEKUNDE WERDEN H\HE, GESCHWINDIGKEIT"..230 PRINT "
0002D306 UND VERBLEIBENDER TREIBSTOFF ANGEZEIGT"..240 PRINT..250 PRINT "2.) DANACH ERSCHEINT EIN '?'. NUN MUSS DIE
0002D377 ANZAHL AN"..260 PRINT " IN DER N[CHSTEN SEKUNDE ZU VERBRAUCHENDEN TREIBSTOFFEINHEITEN"..270 PRINT " EIN
0002D3E8 GEGEBEN WERDEN. JEDE EIN========"..110 ?:?:?..120 PRINT "****************************************************
0002D459 ****";..121 PRINT "****************"..150 INPUT "NOCH EINE BERECHNUNG ";A$..160 IF A$ = "J" THEN GOTO 5..17
0002D4CA 0 IF A$ = "N" THEN GOTO 190..175 IF A$= "" THEN GOTO 5..185 ?:?:?" BITTE NUR > J < ODER > N < EINGE
0002D53B BEN ":GOTO 150..190 PRINT CHR$(27)+"[2J";..200 PRINT " AUF WIEDERSEHEN ! "..210 ?:?:?:
0002D5AC ?:?:?:?:?:?:?:?:?..215 PRINT" ULRICH HUEBNER "..217 CHAIN "CSPIEL"..220 E
0002D61D ND..1000 PRINT" * "..1010 PRINT" * * "..1020 P
0002D68E RINT" * * Z "..1030 PRINT" * * ^ "..1040 PRINT"
0002D6FF * * ! "..1050 PRINT" * * "..1060 PRINT" *
0002D770 * "..1070 PRINT" O* * * * * * * * "..1080 PRINT" Y <----
0002D7E1 "..1090 RETURN........


Offset(h)

0002D9A5 ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå5 PRINT CHR$(7)..1
0002DA16 0 PRINT CHR$(26)..20 PRINT "WIE SPAET IST ES JETZT ? BITTE NUR DIE SEKUNDENZAHL EINGEBEN "..30 INPUT SEK
0002DA87 ..40 RANDOMIZE (SEK)..50 PRINT CHR$(26)..60 PRINT " ***** Z A H L E N R A T E N *****"..70 P
0002DAF8 RINT"ICH DENKE MIR EINE ZAHL ZWISCHEN 1 UND 100"..80 PRINT "DU SOLLST VERSUCHEN, SIE ZU ERRATEN."..90 PRINT
0002DB69 " ICH SAGE DIR JEDESMAL, WIE DU MIT DEINER GERATENEN ZAHL LIEGST."..100 L = INT(RND * 100 + 1)..110 G=0..120
0002DBDA PRINT:PRINT"O.K. , ICH HABE EINE NUMMER. - FANG' AN !"..130 PRINT:INPUT"WE@CHE NUMMER HABE ICH GEWAEHLT";A..
0002DC4B 135 IF A > 100 THEN 410..140 G=G+1..150 IF A = L THEN 220..160 IF G = 5 THEN .70..170 PRINT CHR$(7);..1
0002DCBC 80 IF A > L THEN 210..19. IF A < L THEN 200..200 PRINT"ZU NIEDRIG. VERSUCH EINE HOEHERE NUMMER.":GOTO 130..
0002DD2D 210 PRINT"ZU HOCH. VERSUCH EINE TIEFERE NUMMER.":GOTO 130..220 PRINT:PRINT"RICHTIG ! ! ! DU HAST"G"AAL GERATE
0002DD9E N"..230 PRINT CHR$(7);:FOR I = 1 TO 600: NEXT I :PRINT CHR$(7);..240 IF G <= 5 THEN 250..250


Offset(h)

0002E197 ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå.100 L
0002E208 ET N=0..110 PRINT..120 PRINT "EINGABE SPRUNGKRAFT: GANZE ZAHL(1-9)"..130 INPUT K..140 PRINT "EINGABE RICH
0002E279 TUNG (-1 ODER 1)"..150 INPUT R..160 REM MIT N WERDEN DIE SPR]NGE GEZ[HLT..170 LET N=N+1..180 LET S=S+INT(
0002E2EA R*K*RND(1)*10)..190 PRINT "DER FLOH SITZT JETZT AUF KOORDINATE ";S..200 IF ABS(95-S)<4.5 THEN 220..210 GOTO
0002E35B 110..220 PRINT "UND ES IST GELUNGEN IN ";N;" SPRUENGEN"..225 PRINT CHR$(7)..230 PRINT "MOCHTEST DU NOCH EI
0002E3CC NMAL SPIELEN (J/N)"..240 INPUT J$..250 IF J$="J" THEN 10..270 IF J$="N" THEN CHAIN "CSPIEL"..280 GOTO 230


Offset(h)

0002E7C5 åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååWie ist dein name,carsten..ist,is..M|belwagen,van..Bah
0002E836 nsteig,platform..ja,yes..nein,no..der n{chste Zug,the next train..die Bushaltestelle,the bus stop..auch,too..er k
0002E8A7 ann Fussball spielen,he can play football..Bild,picture..Wandtafel,board..frage,ask..ich habe,i have got..jetzt,n
0002E918 ow..zwei,two..zu hause,at home..Samstag,saturday..Badezimmer,bathroom..was macht sie?,what is she doing..sie koch
0002E989 t,she is cooking..Herr Scott schreibt,"Mr Scott is writing"..wie sp{t ist es,what time is it..eins,one..drei,thre
0002E9FA e..vier,four..fuenf,five..sechs,six..sieben,seven..acht,eight..neun,nine..zehn,ten..elf,eleven..zw|lf,twelve..hal
0002EA6B b eins,half past twelve..lauf,run..sie arbeiten,they are working..die Antworten,the answers..tee,tea..ist .as fal
0002EADC sch,is this wrong..lasst uns singen,"let is sing"..Toby frisst,Toby is eating..Mittag,lunch..kommt her,come here.
0002EB4D .der Tee ist fertig,tea is ready..eine Tasse Tee,a cup of tea..nein danke,no thanks..ja bitte,yes please..Kuchen,
0002EBBE cake..gut,all right..h|r mal,listen..Vati,dad..sp{t,late..das macht nichts,never mind..Korb,basket..auf Wiederseh
0002EC2F en,good-bye..T}r,door..Katze,cat..Hund,dog..steh auf,get up..Schlafanzug,pyjamas..Fr}hst}ck,breakfast..er ist Bus
0002ECA0 fahrer,he is a bus driver..jeden Tag,every day..vom Stadtzentrum,from the city centre..er bringt,he takes..neu,ne
0002ED11 w ..vierhundert,four hundred..Zollbeamter,customs officer..ihre Koffer,their suitcases..etwas,anything..zu verzol
0002ED82 len,to declare..er,he..H}te,hats..M{ntel,coats..Schottland,scotland..kleiner Buchstabe,small letter..grosser Buch
0002EDF3 stabe,capital letter..Alphabet,alphabet..es ist Zeit ins Bett zu gehen,it's time for bed..lustig,funny..buchstabi
0002EE64 ere bitte deinen Namen,spell your name please..ein neuer Junge,a new boy..nur,only..im Zentrum Londons,in centr.l
0002EED5 London..viele Tauben,many pigeons..viele Leute,many people..sie,she..wir,we ..sie marschieren ein,they go marchi
0002EF46 ng in..ich m|chte sein,i want to be..M}nchen,Munich..die Texte,the texts..gegen,against..armer Collin,poor Colin.
0002EFB7 .gr}n,green..rot,red..schwarz,black..Montag,monday..Dienstag,tuesday..Mit........................................


Offset(h)

0002F3B0 åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå Kreide,the chalk..ein F]llhalter
0002F421 ,a pen..ein Kugelschreiber,a biro..ihr Lineal(von anne!),her ruler..seine Schultasche,his school-bag..Papier,pape
0002F492 r..ja er hat es,yes he has..o nein,oh no..tut mir leid,sorry..ich habe dein Buch Peter,i have got your book Peter
0002F503 ..Radiergummi,rubber..dieses B]cherregal,this cupboard..unter dem Sofa,under the sofa..Vater macht sauber,father
0002F574 is cleaning..der Brief,the letter..w{scht sich Linda,is Linda washing..Badewanne,bath..zwei S{tze,two sentences..
0002F5E5 eine Stewardess,a stewardess ..sie tun,they do..sie tut,she does..sie arbeitet,she works..sie wohnt,she lives..je
0002F656 den Tag,every day..sie sagt,she says..oft,often..ein Busfahrer,a bus driver..sie tut,she does..jeden Tag,every da
0002F6C7 y..ein Zollbeamter,a customs officer..er stellt Fragen,he asks questions..ihre Koffer,their suitcases..vor jedem
0002F738 Flug,before every flight..zuerst,first..]ber den Flug,about the flight..die Gurte,the seat-belts..anschnallen,fas
0002F7A9 ten..durstig,thirsty..Selbstbedienung,self-service..gehen,walk..bezahlen,pay..die Kasse,the cash desk..ihre Pl{tz
0002F81A e,their seats..bilde sieben S{tze,make seven sentences..ein Teetrinker,a tea-drinker..bist du fertig,are you read
0002F88B y..der Schnee,the snow..weich,soft..leicht,light..kalt,cold..weiss,white..macht Schneeb[lle,make some snowballs..
0002F8FC hierher,here..dorthin,there..]berallhin,everywhere..schnell,quickly..hungrig,hungry..Imbi~stube,snack-bar..die Th
0002F96D eke,the counter..eine junge Dame,a young lady..ein Tablett,a tray..eine Limonade,a lemonade..STOP*STOP...........


Offset(h)

0002FF9B ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå10 REM
0003000C BESTIMMUNG DES WOCHENTAGES EINES DATUAS..20 REM ************** STEUER-ROUTINE ***********************..3.
0003007D OPTION BASE 1..40 DIM MONTAB(15)..50 GOSUB 610 'TABELLEN LADEN..60 GOSUB 100 'VOR
000300EE LAUF..70 GOSUB 130 'VERARBEITUNG..80 GOSUB 560 'NACHLAUF..90 CHAIN "CSPIEL"..100
0003015F PRINT CHR$(26);" WOCHENTAGS-BESTIMMUNG "..110 PRINT " "..120 RETURN..130 REM *** VERARBEITUNG *****.
000301D0 .140 PRINT..150 PRINT "BITTE DIE TAGESZAHL E.................................................................


Offset(h)

000305C9 åååååååååååååååååååååååååååååååååååååååååååååååååååååååSUB = REST + 1..440 IF MON > 2 THEN 470..450 IF INT(
0003063A JAHR / 4) * 4 = JAHR THEN SUB =SUB - 1..460 IF SUB = 0 THEN SUB = 7..470 PRINT..480 PRINT "DER ";TAG;".";MO
000306AB N;".";JAHR;"IST EIN ";TAGESTAB$ (SUB)..490 PRINT CHR$(7)..500 PRINT..510 GOTO 130..520 PRINT..530 PRI
0003071C NT..540 PRINT CHR$(7)..550 PRINT ..560 PRINT "DAS WAR ES FUER HEUTE !! ========>>>> E N D E "..570 RET
0003078D URN..580 DATA S O N N T A G,M O N T A G,D I E N S T A G,M I T T W O C H ..590 DATA D O N N E R S T A G,F R E
000307FE I T A G,S A M S T A G..600 DATA 00,03,03,06,01,04,06,02,05,00,03,05..610 REM TABELLEN LADEN ..620 FOR SUB =
0003086F 1 TO 7..630 READ TAGESTAB$ (SUB)..640 NEXT SUB..650 FOR I = 1 TO 12..660 READ MONTAB (I)..670 NEXT I..
000308E0 680 RETURN....................ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå


Offset(h)

00030FF0 ååååååååååååååååLa~ uns gehen,Let's go..Der Londoner Flughafen,The London Airport..die Flugzeuge,the planes..anse
00031061 hen (gucken),watch..ein gro~es Flugzeug,a big plane..es landet,it's landing..Kannst du es sehen,Can you see it..D
000310D2 ie Flugg{ste steigen aus dem Flugzeug,The passengers are getting off the plane..ein Pilot,a pilot..drei Piloten,t
00031143 hree pilots..Fluggesellschaft,airline..der erste Fluggast,the first passenger ..Was laden die M{nner in das Flugz
000311B4 eug,What are the men putting into the plane..die Koffer,the suitcases..der Lautsprecher,th. loudspeaker..Flug,fli
00031225 ght..Warum nicht,Why not..h|re,listen..weil,because..nur,only..Taschen,bags..H}te,hats..Mantel,coat..M{ntel,coats
00031296 ..Das Flugzeug steigt auf,The plane is taking off..klein,small..Fliegt es nach Manchester,Is it flying to Manches
00031307 ter..Wohin fliegt es,Wh.re is it flyin. to..Schottland,Scotland..Dieses Flugzeug fliegt nicht nach England,This p
00031378 lane isn't flying to England..ein kleiner Buchstabe,a small letter..der gro~e Buchstabe,the big letter..Es ist Ze
000313E9 it ins Bett zu gehen,It..........................................................................................


Offset(h)

000317E2 åååååååååååååååååååååååååååååår jedem Flug,before every flight..zuerst,first..Dann spricht sie mit dem Piloten,Th
00031853 en she talks to the pilot..Sie spricht }ber den Flug,She talks about the `light..Ihre Pl{tze,their seats..Bitte a
000318C4 nschnallen,Fasten your seat-belts please..die Gurte,the seat-belts..sieben S{tze,seven sentences..Ich bin ein Tee
00031935 trinker,I'm a tea-drinker..Bist Du fertig,Are you ready..Wir m}ssen jetzt gehen,It's time to go..der Schnee,the s
000319A6 now..er ist weich (der Schnee !),it's so`t..leicht,light..kalt,cold..weiss,white..Macht ScT A G,S A M S T A G..60
00031A17 0 DATA 00,03,03,06,01,04,06,02,05,00,03,05..610 REM TABELLEN LADEN ..620 FOR SUB = 1 TO 7..630 READ TAGES
00031A88 TAB$ (SUB)..640 NEXT SUB..650 FOR I = 1 TO 12..660 READ MONTAB (I)..670 NEXT I..680 RETURN.............


Offset(h)

00032198 ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååLa~ uns g
00032209 ehen,Let's go..Der Londoner Flughafen,The London Airport..die Flugzeuge,the planes..ansehen (gucken),watch..ein g
0003227A ro~es Flugzeug,a big plane..es landet,it's landing..Kannst du es sehen,Can you see it..Die Flugg{ste steigen aus
000322EB dem Flugzeug,The passengers are getting off the plane..ein Pilot,a pilot..drei Piloten,three pilots..Fluggesellsc
0003235C haft,airline..der erste Fluggast,the first passenger ..Was laden die M{nner in das Flugzeug,What are the men putt
000323CD ing into the plane..die Koffer,the suitcases..der Lautsprecher,th. loudspeaker..Flug,flight..Warum nicht,Why not.
0003243E .h|re,listen..weil,because..nur,only..Taschen,bags..H}te,hats..Mantel,coat..M{ntel,coats..Das Flugzeug steigt auf
000324AF ,The plane is taking off..klein,small..Fliegt es nach Manchester,Is it flying to Manchester..Wohin fliegt es,Wh.r
00032520 e is it flyin. to..Schottland,Scotland..Dieses Flugzeug fliegt nicht nach England,This plane isn't flying to Engl
00032591 and..ein kleiner Buchstabe,a small letter..der gro~e Buchstabe,the big letter..Es ist Zeit ins Bett zu gehen,It..


Offset(h)

0003E605 .x...y.¼.J.......................................................................................................
0003E676 .................................................................................................................
0003E6E7 .........................................................s...............HH..³.·.»...............................
0003E758 ...............................‚.þ.............O..H.½..O..H.¶..I....O.....** Uninitialised Global Entered **..$Is
0003E7C9 global number $ defined?..$..** Zero divisor in MULDIV **..$)...................................................
0003E83A ........$@..4&õk.C....ÿÿÿÿÿÿï?Ó.ù.ÿ.ÿ.ÿ.ù.ÿ.ÿ.ÿ.ÿ.ù.ù.ù.ù.ù.ù.ù.».é.é.......x...I.U.~.>.8.ß.?.-.?.-.t.t.F.z.ù.¡.Ð
0003E8AB .~.~.Æ.¸.¦.ù...õ.4...Ã...ƒ...M.J.j.T.ª.Þ.ó...Ô.ÿ.ù.é.é.¤.ù...0.Z.«.ù.ù.ù.ù.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.E.ç.ç.ç.
0003E91C ç.ç.ç.ç.ç.......ú.....ç.ç.".@.,.F.6.L.ç.ç.g...u.….z.‹.ç.ç.‘.©.Ÿ.¯.¤.µ.ç.ç.».Ó.É.Ù.Î.ß.ç.ç.e.h.q.y.ç.¤.å.ç.ç.ç.ç.ö
0003E98D .ü...ç.ñ.a.q.x.€.ç.¤.«.........‰.ç.Ë.ü.¶.a.q.x.€.ç.¤.«.4.:.F.@.‰.ç.ç.ç.¶.ç.........û...9.&.í...-.4...../...!.7.ç.
0003E9FE ..............*.*.¬.....‹.’/R2.3.4¸8.9Á9Ü9ù9l:î:p;è;d>À)¦)2--------------------------------------------------. .%
0003EA6F S.Personal Basic Version 1.1.Serial No. 3048-1071-000060 All Rights ReCerved.Copyright
0003EAE0 (c) 1983 Digital Research, Inc..%S...Ok 7-.,.,g,(,.,...Br . . * .List of ...A.Q.a.q..[%U0].%C .s4T5.
0003EB51 at line %U0.NB‡D.D.EzE;.....òF;J„JÚQNRÕRÞIþGªG..+.-./.\.^.'.?.=.(.).#.,.;.:.þÿÿÿ..W.X.Z.K.š.à.¾. .....–.‘.’.....
0003EBC2 ÿÿ´LúNPN‰M`O¥P.? .........`Q›.................mU–UËUœVõcKdÃdðd0e¨eäe‚g™h.h¶iÜi0j{j½jÑjêj(kTk’kÊmñmbnIpŸp¸p.qDq©qÊ
0003EC33 q÷q.rös&tKt¬tÎtöt$umu…uºuæuþu&vyvœv"UjT V=[Ï].\.Y%Random number seed (-32768 to +32767).g..š.Y.Z.[.W.X.K.L. .!.".
0003ECA4 #.$.%.............ÿÿP..ÿ.ÿ.ÿ....@.@. . . . . . .@.@.@.@.@.@.ÿÿ........................................—lso..×rïr.
0003ED15 .........çxñz7{\{ª{f|øyh.Ï‚Œ„=…§†ÏŠe............]#‚Î.’.»c.zî8.tû..maNæeÆ.j]%ªq€É±ÿ.¦Oe{‰kœvPö`oÍÚÇhX,q`.ù"~Ú.I.³¡
0003ED86 a.cÞØ}.s6z7.µw.ÄBt´èÛqt6.o‚ü˜l¶»9içŒäfŠ%.dΰ/€bª\y0pys»Õ'n–îuh}‹=c.r1€Ù[^.;ª8...€ˆ..~‡ù~:.”»þ~°°/{®÷¡wÉ2`r@eømûfe
0003EDF7 hº µc5...õ.óŽ.”Ê”ó”;•Ò•.–O–ž–.—À™£š?.]ŒÊ..Bad String function.LEN - string type unrecognised..0123456789ABCDEF.*.
0003EE68 .................. .................Å.‰žÓž4ŸÓ !¥Y¥¯¥¢ 6 ö¦.f %S%C = . at line %U0...}.´.Ö¯ý¯. : ..%C:...BAS.+ª.«Ë
0003EED9 ª,®@.......................................”±ò±!µ¶µñµx¶¥¶$·Œ·À·1¸L¡.¹»°N³. ..Ed ..Ed: bad cmd:%C:...Ed ÷¸.. ..½
0003EF4A ô¼.BASIC.WRKh¼.%U0....Ç...c...h.;./.µ.Y.T.}.r.“.).5.#......AUTO.6....FOLLOW.-....UNFOLLOW...B....BREAK.@§....TRAC
0003EFBB E. L....TRON..`H....TROFF..P....UNBREAK.`š....UNTRACE‡....ALLü....AND.....AS.^....BASE.m.Þ..BLOAD‚.ß..BSAVEâ.Ô..C
0003F02C ALL.w.Ù..CHAINô.Ú..CLEARË.È..CLOSEŒ.¡..COMMON.¡....CONT.h.¢..DATA.¹.£..DEFa._.§..DEFDBL.A.Ô.¥..DEFINT.Q.¾.¦..DEFS
0003F09D NG.q.±.¨..DEFSTR.æ....DELETE.Z.Ò..DIMÅ....DIRÎ....DO.Ã....EDIT.Ï....ELSE.Þ.¼..ENDÙ....EQV£....ERA$.Ñ..ERASE..Ø..E
0003F10E RRORê.Í..FIELD).¶..FORø.É..GETï....GO.2.´..GOSUB..³..GOTO.o.µ..IF......IMP°.Â..INPUT¨.×..LINE.?.Ì..KILL...°..LET.
0003F17F ....LIST......LLIST..Ä..LPRINT.C.±..LSET......MERGEô.L..MODt.Ë..NAME.:....NOT¿....NEWR.·..NEXT.V....OLDG.Ö..ON.L.
0003F1F0 Ç..OPEN.5....OPTION.^....OR.”.Ü..OUT..Ó..POKE.d.¾..PRINT..Ê..PUT}.Î..RANDOMIZEƒ.Å..READ.x.à..REMÒ....RENUMˆ....RE
0003F261 PLACEš.Û..RESETŽ.½..RESTORE¬.Õ..RESUME.Ÿ.º..RETURN...²..RSET.×....RUN@....SAVE.L....SEGÜ.”..SPCµ....STEP.º.»..STO
0003F2D2 P.É.Ï..SWAP.á....SYSTEM.:.“..TABæ....THEN......TO......USINGÜ.Ý..WAIT.ð.¹..WEND.ë.¸..WHILE{.Ð..WIDTH!.À..WRITEj..
0003F343 ..XORù.{..MKI$.þ.|..MKS$...}..MKD$.R.~..MID$.š.M..SGNÍ.X....FIELD#.É......GET#.Â.v....INPUT#.¾.(....PRINT#.Ê.p...
0003F3B4 .PUT#.À.d....WRITE#...F.—..USR..….—..USR0...¯.—..USR1...•.—..USR2...á.—..USR3...´.—..USR4...‹.—..USR5.....—..USR6
0003F425 .....—..USR7...¥.—..USR8...Å.—..USR9...€.˜..ABS..ª.™..INT....E..ASC..ç.E..CINT.....E..CVI..Ñ.E..EOF..D.E..ERR..Ÿ.
0003F496 E..FIX....E..INSTR..Ö.E..INP..ñ.E..LEN..¹.E..LOC..Ê.E..LOF..¿.E..LPOS.....E..PEEK.....E..POS....E..VARPTR. .û.U..
0003F507 ATN2.J.e..CDBL.!.ì.U..COS"...U..CSNG.4.ö.e..CVD,...U..CVS-. .U..ERL#.*.U..EXP$...U..FLOAT%...U..FRE&...U..LOG'...
0003F578 U..LOG10(...U..RND).0.U..SIN*.%.U..SQR+.6.U..TAN3.P.e..VAL7.W.u..CHR$.8...u..HEX$.9.=.u..INKEY$.:...u..INPUT$.;..
0003F5E9 .u..LEFT$=...u..OCT$.>...u..RIGHT$.A.^.u..STRING$@.d.u..STR$.?...u..SPACE$...Undefined error..Something is wrong.
0003F65A %RETURN statement needs matching GOSUB..READ statement ran out of data..Function call not allowed..Number too lar
0003F6CB ge..Program is too large for memory.3A statement or command refers to a nonexistent line.-Subscript refers to ele
0003F73C ment outside the array.#You defined an array more than once..You cannot divide by zero.#Statement is illegal in d
0003F7AD irect mode..Types of values do not match.*Strings cannot be over 255 characters long.%Expression is too long or t
0003F81E oo complex..CONT works only in BREAK mode.+Function needs prior definition with DEF FN.3RESUME statement found be
0003F88F fore error routine entered.1Expression has operator with no following operand..Program line too long2.FIELD state
0003F900 ment caused overflow4.File number or filename invalid5&File not found on disk drive specified6.File mode is not v
0003F971 alid7+You cannot OPEN or KILL a file already open96Disk input/output error, restart your operation (MP/M):.File e
0003F9E2 xists=.Disk is full>.You have reached end-of-file?:The record number in PUT or GET is more than 32767 or zero@.In
0003FA53 valid filenameA&Invalid character :%N: in program fileB.Program file has statement with no line numberc.-- Break
0003FAC4 --e.Program exceeds memory sizef.ON statement is out of rangeg.Invalid line numberh.A variable is requiredj.Line
0003FB35 number does not existk.Number too large for an integerl6Input data is not valid, restart input from first itemm.S
0003FBA6 topn)You have nested subroutine calls too deepo.Invalid BLOAD fileÊ.Command not allowed hereË.Line number is requ
0003FC17 iredÌ0FOR statement needs a NEXT or WHILE needs a WENDÍ0NEXT statement needs a FOR or WEND needs a WHILEÎ.A comma
0003FC88 is expectedÏ.A parenthesis is expectedÐ.Option Base must be 0 or 1Ñ.Statement end is expectedÒ.Too many argument
0003FCF9 s in your listÔ.Cannot re-define variable(s)Õ.Function defined more than onceÖ"You are trying to jump into a loop
0003FD6A Ý System error #%N, please restartÞ.Program not runß.Too many FOR loops..........................................


00040081 *.é!.é.... COPYRIGHT (C) 1980, DIGITAL RESEARCH ...............................ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ

Offset(h)

00040955 ...........ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿç................................ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ.........ÿ. =_.:;<>,DI
000409C6 RSUSERREN TYPEERA DIR NO FILE.ALL (Y/N)?.FILE EXISTS.MEMORY NOT AVAILABLE.READ ERROR...CANNOT CLOSE...NON-SYSTEM
00040A37 FILE(S) EXIST...SYSTEM FILE(S) EXIST


Offset(h)

00042759 ãÿÿÿÿÿ......Ý-0.9....MD78E©/9..0.0÷-HJKmABCDfÃ.¼/#/F/....þ-..Ã........[...............ÿ..........................
000427CA ........................CP/M-86 VERSION 1.1/2 PG 675 08 SEP 83 .....HOME ERROR.....INTERRUPT TRAP HALT.....set
0004283B IOBYTE function is not implemented.....memory failure....(.(.(.(#(3(@(Q(d(x(Š(¡(±(.(.(.(..Null Error ??...CLOCK E
000428AC RROR :...LATE DMA :...ID CRC ERROR :...DATA CRC ERROR :...DRIVE NOT READY :...WRITE PROTECT :...TRACK 00 NOT FOUN
0004291D D :...WRITE FAULT :...SECTOR NOT FOUND :..........þ(......X)ï(î)Ø)þ(......X)ï(.*þ)H....ª.?.€.....................
0004298E ............... !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGH..........................ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ


Offset(h)

00044792 åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå10
00044803 WIDTH 80..20 PRINT CHR$(27);"[2J";CHR$(27);"[1;1H"..30 PRINT CHR$(7)..40 PRINT "..... MASTER MIND ...
00044874 .."..50 PRINT "DER COMPUTER HAT SICH 4 ZAHLEN AUSGEDACHT"..60 PRINT "DIESE ZAHLEN STEHEN ZUGLEICH IN BESTIM
000448E5 MTER REIHENFOLGE"..70 PRINT "SIE SOLLEN DIESE ZAHLEN ERRATEN"..80 DIM A(4) ,B(4)..90 PRINT..100 LET N=
00044956 0..110 FOR I=1 TO 4..120 LET A(I)=INT(9*RND(1))+1..130 NEXT I..140 FOR J=1 TO 3..150 FOR K=J+1 TO 4..16
000449C7 0 IF A(J)=A(K) THEN 110..170 NEXT K..180 NEXT J..190 PRINT "EINGABE 4 ZAHLEN (1-9)";..200 INPUT B(1) ,B
00044A38 (2) ,B(3) ,B(4)..210 LET N=N+1..220 LET C=0..230 LET D=0..240 FOR K=1 TO 4..250 FOR I=1 TO 4..260 IF
00044AA9 A(K)<>B(I) THEN 280..270 LET C=C+1..280 NEXT I..290 IF A(K)<>B(K) THEN 310..300 LET D=D+1..310 NEXT K..
00044B1A 320 IF D=4 THEN 360..330 PRINT "SIE HABEN ";C;" ZAHL(EN) ERRATEN ";..340 PRINT "VON DENEN ";D;" AUF DER RIC
00044B8B HTIGEN STELLE SIND "..350 GOTO 190..360 PRINT "ERRATEN NACH ";N;" MAL ! ! NOCHMALS (J/N)"..370 INPUT V$..3
00044BFC 80 IF V$="J" THEN 90..390 IF V$="N" THEN CHAIN "CSPIEL"..400 END...........................................


Offset(h)

00044FF5 ååååååååååå10 REM *** HEVOK1.BAS VOM 18. FEBRUAR 1984 23.20 UHR !!..20 REM LETZTE [NDERUNG
00045066 26.2.84 ANZAHL DER VOKABELN..25 REM KLEINIGKEITEN AM 1.3.84..30 REM ****** V I D E O - A T T R
000450D7 I B U T E ***************************..40 V1$=CHR$(27)+"[" 'ESC + G F]R SCREEN ATTRIBUT
00045148 E..50 V0$=V1$+"0m" 'NORMAL..60 V2$=V1$+"0m" 'BLINK..70
000451B9 V4$=V1$+"7m" 'REVERSE..80 V5$=V1$+"0m" 'INVISIBLE UNDERLINE
0004522A BLINK..90 V6$=V1$+"7m" 'REVERSE BLINK..100 V7$=V1$+"0m" '
0004529B UNDERLINE RESERVE BLINK..110 V8$=V1$+"0m" 'UNDERLINE ..120 V9$=V1$+"0m"
0004530C 'UNDERLINE BLINK..130 VCL$=CHR$(27)+"[2J"+V1$+"1;1H" 'BS L\SCHEN..140 VP$=CHR$(7)
0004537D 'PIEP..150 DIM FA%(500)..160 REM HIER GEHT ES LOS..180 PRINT VCL$;
000453EE 'BS-L\SCHEN UND PIEP..190 PRINT " ********* LERNPROGRAMM FUER ENGLISCH-VOKABELN *******"..200
0004545F PRINT " * 4.1.83 (WACHSMUTH) *"..210 PRINT " * -------> HOFFENTL
000454D0 ICH HILFT ES !!??? *"..220 PRINT " ********************************************************"..230 DIM D
00045541 $(500) 'TABELLE F]R DEUTSCH..240 DIM E$(500) 'TABELLE F]R ENGLISCH-
000455B2 VOKABELN..250 DIM F%(50) 'TABELLE F]R FALSCHE ANTWORTEN..260 PRINT VP$
00045623 'PIEP..270 INPUT "GIB BITTE BELIEBIGE ZAHL EIN (-32768 BIS 32767)";RAN%..272 RANDOMIZE (RAN%)
00045694 'ZUFALLSZAHLEN VARIIEREN..274 PRINT " WELCHE DATEI SOLL ICH NEHMEN : "..276 PRINT " ===============
00045705 ================="..277 PRINT ..278 PRINT " 1. ALLE VOKABELN"..280 PRINT..282 PRINT " 2. NUR UNIT
00045776 4"..284 PRINT ..286 PRINT "BITTE 1 ODER 2 EINGEBEN:";..288 INPUT VOK$..290 IF VOK$ = "1" THEN 293..291
000457E7 IF VOK$ = "2" THEN 295..292 GOTO 286..293 DATEI$="CEVOK.ALL"..294 GOTO 296..295 DATEI$="CEVOK.UN4"..296
00045858 OPEN "I",#1,DATEI$ 'ER\FFNEN DER VOKABEL-DATEI..298 REM ***************************************
000458C9 *******************************..300 REM *** SHLEIFE ZUM LADEN DER TABELLE AUS DER DATEI ** CEVOK.DAT ** *
0004593A ..310 REM **********************************************************************..320 FOR I% = 0 TO 500
000459AB 'INDEX SETZEN UND TABELLENENDE PR]FEN *..330 INPUT#1,D$(I%) 'DEUTSCH-FRAGE LESEN
00045A1C IN DIE TABELLE *..340 IF D$ (I%) = "STOP*STOP" THEN I% = I% - 1:GOTO 390 'LETZTER DATENSATZ ??*..350 INP
00045A8D UT#1,E$ (I%) 'ENGLISCH-ANTWORT IN TABELLE LADEN *..360 NEXT I% '
00045AFE SCHLEIFEN - ENDE *..370 REM *************************************************************
00045B6F *********..380 REM..390 CLOSE #1 'VOKABEL-DATEI SCHLIESSEN..400 PR
00045BE0 INT "WIR KOENNEN MIT" I% "VOKABELN UEBEN!" 'ANZAHL DER VOKABE@N..410 PRINT ..420 PRINT "WIEVIEL FRAGEN SO
00045C51 LL ICH STELLEN ?"..430 INPUT ZV%..440 IF ZV% > I% THEN ZV% = I%..450 IF ZV% > 10 THEN GOTO 490..460 PRINT
00045CC2 "DU FAULER STRICK !!!! NIMM EIN PAAR MEHR"..470 PRINT ..480 GOTO 420 ..490 FOR X% = 1 TO 3000:NEXT X%
00045D33 'WARTE-SCHLEIFE ..510 FAI%=0..5.0 MAX% = I% 'VOKABEL
00045DA4 -ANZAHL=MAX%..530 REM *** ERMITTELN ZUFALLSZAHL ZWISCHEN 1 UND MAX% ***..540 IF VIE IF V$="J" THEN 90..3
00045E15 90 IF V$="N" THEN CHAIN "CSPIEL"..400 END..............................................................åååååå


Offset(h)

0004619D ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå10 REM ***
0004620E HEVOK1.BAS VOM 18. FEBRUAR 1984 23.20 UHR !!..20 REM LETZTE [NDERUNG 26.2.84 ANZAHL DER VOKAB
0004627F ELN..25 REM KLEINIGKEITEN AM 1.3.84..30 REM ****** V I D E O - A T T R I B U T E ************
000462F0 ***************..40 V1$=CHR$(27)+"[" 'ESC + G F]R SCREEN ATTRIBUTE..50 V0$=V1$+"0m"
00046361 'NORMAL..60 V2$=V1$+"0m" 'BLINK..70 V4$=V1$+"7m"
000463D2 'REVERSE..80 V5$=V1$+"0m" 'INVISIBLE UNDERLINE BLINK..90 V6$=V1$+"7m
00046443 " 'REVERSE BLINK..100 V7$=V1$+"0m" 'UNDERLINE RESERVE BLINK..
000464B4 110 V8$=V1$+"0m" 'UNDERLINE ..120 V9$=V1$+"0m" 'UNDERLINE B
00046525 LINK..130 VCL$=CHR$(27)+"[2J"+V1$+"1;1H" 'BS L\SCHEN..140 VP$=CHR$(7) 'PIEP..
00046596 150 DIM FA%(500)..160 REM HIER GEHT ES LOS..180 PRINT VCL$; 'BS-L\SCHEN
00046607 UND PIEP..190 PRINT " ********* LERNPROGRAMM FUER ENGLISCH-VOKABELN *******"..200 PRINT " * 4.1.8
00046678 3 (WACHSMUTH) *"..210 PRINT " * -------> HOFFENTLICH HILFT ES !!???
000466E9 *"..220 PRINT " ********************************************************"..230 DIM D$(500)
0004675A 'TABELLE F]R DEUTSCH..240 DIM E$(500) 'TABELLE F]R ENGLISCH-VOKABELN..250 DIM F%(50
000467CB ) 'TABELLE F]R FALSCHE ANTWORTEN..260 PRINT VP$ 'PIEP..270 INPU
0004683C T "GIB BITTE BELIEBIGE ZAHL EIN (-32768 BIS 32767)";RAN%..272 RANDOMIZE (RAN%) 'ZUFALLSZAHLEN V
000468AD ARIIEREN..274 PRINT " WELCHE DATEI SOLL ICH NEHMEN : "..276 PRINT " ================================"..277
0004691E PRINT ..278 PRINT " 1. ALLE VOKABELN"..280 PRINT..282 PRINT " 2. NUR UNIT 4"..284 PRINT ..286
0004698F PRINT "BITTE 1 ODER 2 EINGEBEN:";..288 INPUT VOK$..290 IF VOK$ = "1" THEN 293..291 IF VOK$ = "2" THEN 295..
00046A00 292 GOTO 286..293 DATEI$="CEVOK.ALL"..294 GOTO 296..295 DATEI$="CEVOK.UN4"..296 OPEN "I",#1,DATEI$
00046A71 'ER\FFNEN DER VOKABEL-DATEI..298 REM ****************************************************************
00046AE2 ******..300 REM *** SHLEIFE ZUM LADEN DER TABELLE AUS DER DATEI ** CEVOK.DAT ** *..310 REM *************
00046B53 *********************************************************..320 FOR I% = 0 TO 500 'INDEX SETZEN U
00046BC4 ND TABELLENENDE PR]FEN *..330 INPUT#1,D$(I%) 'DEUTSCH-FRAGE LESEN IN DIE TABELLE *..340
00046C35 IF D$ (I%) = "STOP*STOP" THEN I% = I% - 1:GOTO 390 'LETZTER DATENSATZ ??*..350 INPUT#1,E$ (I%)
00046CA6 'ENGLISCH-ANTWORT IN TABELLE LADEN *..360 NEXT I% 'SCHLEIFEN - ENDE
00046D17 *..370 REM **********************************************************************..380 REM..390
00046D88 CLOSE #1 'VOKABEL-DATEI SCHLIESSEN..400 PRINT "WIR KOENNEN MIT" I%
00046DF9 "VOKABE" "..1280 PRINT "GAR NICHT GEWUSSTE VOKABELN ===>>";V4$;..1281 PRINT USING"#######";F1%;..1290 PRINT V0
00046E6A $..1300 PRINT " "..1310 PRINT " "..1320 PRINT V4$;..1330 IF PROZ > 4 THEN 1360..1340 PRINT " DAS WAR K L
00046EDB A S S E ! NOTE :";" 1 ";..1350 GOTO 1550..1360 IF PROZ > 17 THEN 1390..1370 PRINT " DAS WAR GANZ PRIMA
00046F4C ! NOTE :";" 2 ";..1380 GOTO 1550..1390 IF PROZ > 30 THEN 1420..1400 PRINT " DAS IST NOCH STEIGERUNGS
00046FBD FAEHIG ! NOTE :";" 3 ";..1410 GOTO 1550..1420 IF PROZ > 50 THEN 1450..1430 PRINT " JETZT WIRD ES LANGSAM B
0004702E RENZLIG ! NOTE :";" 4 ";..1440 GOTO 1550..1450 PRINT "UNBEDINGT UEBEN... UEBEN... UEBEN... ========>>>
0004709F NOTE :";..1460 PRINT " 5 ";..1470 GOTO 1550..1480 FOR X% = 1 TO 3000..1490 NEXT X%..1500 RETURN..1510 P
00047110 RINT..1520 PRINT " BELIEBIGE TASTE =====>>> WEITER"..1530 Q$=INKEY$:IF Q$="" THEN 1530..1540 RETURN..15
00047181 50 PRINT ..1560 PRINT..1570 PRINT " NUR MIT ESC -TASTE =====>>> WEITER"..1580 GOSUB 1480..1590 Q$=INKE
000471F2 Y$:IF Q$="" THEN 1590..1595 IF Q$ <> CHR$(27) THEN 1570 'NUR ESC TASTE ..1600 PRINT VC
00047263 L$..1610 PRINT ..1620 PRINT V4$" ********* FEHLERPROTOKOLL ************"..1630 PRINT V0$..
000472D4 1640 PRINT..1650 FOR K% = 1 TO F1%..1660 IND% = F% (K%)..1670 PRINT TAB(2);D$(IND%);TAB(39);"= ";E$(IND%);..
00047345 1680 PRINT..1690 IF K% = 9 OR K% = 18 OR K% = 27 THEN GOSUB 1510 ..1700 NEXT K%..1710 PRINT..1720 PRINT..173
000473B6 0 PRINT "DAS NAECHSTE MAL MOECHTE ICH HIER WENIGER ZEILEN SEHEN !!!";..1740 PRINT ..1750 PRINT ..1760 PRINT V
00047427 4$;..1770 PRINT "TSCHUESS ---------> E N D E ";..1780 PRINT V0$..1790 REM end..1800 PRINT ..1
00047498 810 PRINT V4$..1820 PRINT "MIT BELIEBIGER TASTE ZUR]CK ZUR S P I E L K I S T E ";..1830 PRINT V0$..1840 Q$=I
00047509 NKEY$:IF Q$="" THEN 1840..1860 CHAIN "CSPIEL"...................................................................


10 REM *** SCHIFFE VERSENKEN *** 29.02.84..20 GOSUB 4300..22 REM ZUFALL..24 DEF SEG = 63988..25 LET INIT=RND(CLK)..26 X = PEEK (2)..28 RANDOMIZE X..30 DIM S(11,11),T(4),A$(9)..110 LET A$(1)=" A B C D E F G H I J "..120 LET A$(2)= " -!--------------------------------!- "..130 LET A$(3)=CHR$(4)+CHR$(5)+CHR$(6)+CHR$(7)+CHR$(8)+CHR$(9)+CHR$(10)+CHR$(11)+CHR$(12)+CHR$(13)..141 A$(4)="06091215182124273033"..150 LET A$(5)=" "+CHR$(27)+"[0m"+CHR$(31)+CHR$(27)+CHR$(119)+CHR$(27)+"[19;0H"..160 LET A$(6)="FKSU"..170 LET A$(7)=CHR$(27)+"[17;1H"+CHR$(27)+"[0J"+CHR$(27)+"[20;1H"..180 LET A$(8)="ABCDEFGHIJ"..190 LET A$(9)="0123456789"..191 C$(7)="1718192021222324"..192 C$(8)="1819202122232425"..193 C$(9)="1920212223242525"..194 C$(0)="2021222324252525"..195 C$(1)="2122232425252525"..196 C$(2)="2223242525252525"..197 C$(3)="2324252525252525"..198 C$(4)="2425252525252525"..199 C$(5)="2525252525252525"..200 PRINT CHR$(27)+"[2J";..210 PRINT CHR$(27)+"[2;27H"+CHR$(27)+"[7mSCHIFFE VERSENKEN"+CHR$(27)"[0m"..220 PRINT CHR$(27)+"[4;1H"+" KENNEN SIE DIE SPIELREGELN? (JA/NEIN)"..230 INPUT I$..240 PRINT CHR$(27)+"[4;1H"+CHR$(27)"[OJ"..250 IF I$="JA" THEN 450..260 PRINT CHR$(27)+"[6;1H AUF EINEM QUADRATISCHEN FELD MIT 10 X 10";..270 PRINT " FELDERN VERSTECKE ICH 10 SCHIFFE";..280 PRINT CHR$(27)+"[8;1H VERSCHIEDENER GROESSE:..290 PRINT CHR$(27)+"[9;1H 1 FLUGZEUGTRAEGER:"+CHR$(27)"[7m F F F F ";..295 PRINT CHR$(27)+"[0m";..300 PRINT " (4 FELDER)"..310 PRINT CHR$(27)+"[11;1H 2 KREUZER:"+CHR$(27)"[7m K K K ";..315 PRINT CHR$(27)+"[0m";..320 PRINT " (JE 3 FELDER)"..330 PRINT CHR$(27)+"[13;1H 3 SCHNELLBOOTE:"+CHR$(27)"[7m S S ";..335 PRINT CHR$(27)+"[0m";..340 PRINT " (JE 2 FELDER)"..350 PRINT CHR$(27)+"[15;1H 4 U-BOOTE:"CHR$(27)"[7m U ";..351 PRINT CHR$(27)+"[0m";..360 PRINT " (JE 1 FELD)"..370 PRINT CHR$(27)+"[18;1H KEIN SCHIFF BERUEHRT EIN ANDERES,";..380 PRINT " AUCH NICHT UEBER ECK. DURCH ANGABE VON FELD-";..390 PRINT "KOORDINATEN (Z.B. F4) KOENNEN SIE IHREN SCHUSS";..400 PRINT " POSITIONIEREN. IN IHREM MAGAZIN";..410 PRINT "BEFINDEN SICH 60 SCHUSS MUNITION."..420 PRINT CHR$(27)+"[23;1H SIND SIE FEUERBEREIT"+CHR$(27)+CHR$(119)..430 INPUT I$..440 IF I$<>"JA" THEN 200..450 PRINT CHR$(27)+"[2J"..460 PRINT CHR$(27)+"[2;1H "+A$(1)..470 PRINT CHR$(27)+"[3;1H"+A$(2) ..480 FOR P1=0 TO 9..490 PRINT P1;"! - - - - - - - - - - !";P1..500 NEXT P1..510 PRINT A$(2)..520 PRINT " "+A$(1)+CHR$(27)+"[20;1H"..530 PRINT CHR$(27)+"[2;46HDAS MUESSEN SIE TREFFEN:"..540 PRINT CHR$(27)+"[4;46H"+CHR$(27)+"[7m F F F F "+CHR$(27)"[0m";..545 PRINT " 1 FLUGZEUGTRAEGER"..550 PRINT CHR$(27)+"[6;46H"+CHR$(27)+"[7m K K K "+CHR$(27)"[0m";..555 PRINT " 2 KREUZER"..560 PRINT CHR$(27)+"[8;46H"+CHR$(27)+"[7m S S "+CHR$(27)"[0m";..565 PRINT " 3 SCHNELLBOOTE"..570 PRINT CHR$(27)+"[10;46H"+CHR$(27)+"[7m U "+CHR$(27)"[0m";..575 PRINT " 4 U-BOOTE"..580 PRINT CHR$(27)+"[13;46HSCHUESSE:"+CHR$(27)+"[15;46HTREF@ER :"..590 PRINT CHR$(27)+"[18;1HWARTEN SIE EINEN MOMENT, ICH MUSS ERST MEINE ";..600 PRINT "SCHIFFE VERSTECKEN!"+CHR$(27)+CHR$(119)+CHR$(27)+"[0J"..610 LET S=0..620 LET S1=0..630 LET T=0..640 LET R=40..680 FOR P1=1 TO 4..690 LET T(P1)=P1..700 NEXT P1..710 FOR P1=1 TO 10..720 FOR P2=1 TO 10..730 LET S(P1,P2)=0..740 NEXT P2..750 NEXT P1..760 FOR P1=0 TO 11..770 LET S(0,P1)=23..780 LET S(11,P1)=23..790 LET S(P1,0)=23..800 LET S(P1,11)=23..810 NEXT P1..820 FOR P1=1 TO 4..830 FOR P2=1 TO P1..840 LET Z1=INT(RND(1)*10+1)..850 LET Z2=INT(RND(1)*10+1)..860 LET Z3=RND(1)..870 IF Z3>.5 THEN 1000..880 FOR P3=0 TO 4-P1..890 IF S(Z1,Z2+P3)<>0 THEN 840..900 NEXT P3..910 FOR P3=-1 TO 1..920 FOR P4=-1 TO 5-P1..930 LET S(Z1+P3,Z2+P4)=13..940 NEXT P4..950 NEXT P3..960 FOR P3=0 TO 4-P1..970 LET S(Z1,Z2+P3)=50+P1..980 NEXT P3..990 GO TO 1110..1000 FOR P3=0 TO 4-P1..1010 IF S(Z1+P3,Z2)<>0 THEN 840..1020 NEXT P3..1030 FOR P3=-1 TO 1..1040 FOR P4=-1 TO 5-P1..1050 LET S(Z1+P4,Z2+P3)=13..1060 NEXT P4..1070 NEXT P3..1080 FOR P3=0 TO 4-P1..1090 LET S(Z1+P3,Z2)=50+P1..1100 NEXT P3..1110 NEXT P2..1120 NEXT P1..1130 PRINT A$(7);CHR$(27)+"[18;1HSO, NUN BIN ICH SOWEIT!"+CHR$(7)..1140 IF T=20 THEN 1990..1150 IF S=60 THEN 2050..1160 PRINT CHR$(27)+"[19;1H"+CHR$(32)+CHR$(27)+"[20;1HLASSEN SIE IHRE";..1165 PRINT " KANONE SPRECHEN"..1170 INPUT I$..1180 PRINT A$(7)..1190 IF I$="END" THEN 2170..1200 IF I$="NEU&qu

I don't remember if the file WURM.CMD was Nibbler or Centipede. Particularly I wish to know if the games were actually programmed or modified for Simatic PG675, or if they were generic CP/M-86. At least the Ork Attack game(?) used a redefined charset which hints to some hardware specific features.

The Simatic PG675 I saw in 1990th stood at the Krupp company in Hamburg Harburg (Germany) in a workshop for assembling switching cabinets of industrial equipment, and was undoubtly originally intended for programming these. However during my work placement (Praktikum) I never saw this workstation being used this way; only student apprentices and trainees were playing around with it. Employees warned us that this was a very expensive special computer that we should kindly handle with care and not any outdated PC. I think it had some kind of suitcase handle and with the hinged keyboard it was something that definitely failed to convince to be a laptop (rather a "Schlepptop" in German). Nowadays I even like the funky case style with fancy coloured rounded keys etc., but at that time as an Amiga user I considered this thing truely absurd - overfulfilling the worst PC cliches about overpriced heavy hardware unsuited for proper gaming.