>dirZ . LOG . A .VFD B .VFD C .VFD D .VFD SQRTEST .TXT SZCCP1F .BIN SZCOPY1A.BIN SZINIT1D.BIN SZBDOS2G.BIN SZBDS2C .BIN
>load sqrtest.txt8004-805F
>list 10 FOR A=0 TO 10
20 PRINT "a=";A,"sqr(a)=";SQR(A)
30 NEXT A
40 PRINT "end"
>runa=0 sqr(a)=0
a=1 sqr(a)=1
a=2 sqr(a)=1.41421
a=3 sqr(a)=1.73205
a=4 sqr(a)=2
a=5 sqr(a)=2.23607
a=6 sqr(a)=2.44949
a=7 sqr(a)=2.64575
a=8 sqr(a)=2.82843
a=9 sqr(a)=3
a=10 sqr(a)=3.16228
end
>copmSZBDS2C.BIN
drive D ................................
drive C ................................
drive B ................................
drive A ................................
A>dir
A: MBASIC COM : STARTREK BAS
A>mbasic
BASIC-80 Rev. 5.21
[CP/M Version]
Copyright 1977-1981 (C) by Microsoft
Created: 28-Jul-81
28728 Bytes free
Ok
load "STARTREK
Ok
run
THE USS ENTERPRISE --- NCC-1701
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
,------*------,
,------------- '--- ------'
'-------- --' / /
,---' '-------/ /--,
'----------------'
YOUR ORDERS ARE AS FOLLOWS:
--------------------------
DESTROY THE 19 KLINGON WARSHIPS WHICH HAVE INVADED
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS
ON STARDATE 2428 . THIS GIVES YOU 28 DAYS. THERE ARE
3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP.
ARE YOU READY TO ACCEPT COMMAND ('N' FOR INSTRUCTIONS)? y
YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED
IN THE GALACTIC QUADRANT, 'CAPELLA I'.
+--1---2---3---4---5---6---7---8-+
1 | <E> * | 1 STARDATE 2400.0
2 | | 2 CONDITION GREEN
3 | * * | 3 QUADRANT 3 , 5
4 | * | 4 SECTOR 1 , 7
5 | | 5 PHOTON TORPEDOES 10
6 | * | 6 TOTAL ENERGY 3000
7 | * * * | 7 SHIELDS 0
8 | | 8 KLINGONS REMAINING 19
+--1---2---3---4---5---6---7---8-+
COMMAND? ^C
Break in 2060
Ok
system
A>zb3
>mon
|
