|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280)
Types: TextFile
Names: »DISK.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─ ⟦this⟧ »DISK.PRG«
ERASE SET FORMAT TO SCREEN @ 10,10 SAY 'CURRENTLY SELECTED UNIT-DRIVE IS: '+UDISK @ 12,10 SAY 'EITHER "D" OR "E" TO SELECT UNIT-DRIVE: ' GET UDISK PICTURE 'A' READ DO WHILE .NOT.UDISK$'DE' CLEAR GETS @ 12,50 GET UDISK PICTURE 'A' READ ENDDO CLEAR GETS @ 15,10 SAY 'CURRENTLY SELECTED PPL-DRIVE IS: '+PDISK @ 17,10 SAY 'EITHER "D" OR "E" TO SELECT PPL-DRIVE: ' GET PDISK PICTURE 'A' READ DO WHILE .NOT.PDISK$'DE' CLEAR GETS @ 17,50 GET PDISK PICTURE 'A' READ ENDDO STORE UDISK-':'-$(CONFIGNAME,3,4) TO CONFIGNAME STORE PDISK-':'-$(PPLNAME,3,4) TO PPLNAME ERASE RETURN«eof»