home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
luxorabc80
/
kermquit.bas
< prev
next >
Wrap
BASIC Source File
|
1990-07-07
|
356b
|
13 lines
100 REM +++++++++++++++++++++++++++++++
110 REM ! Program .... KERMQUIT
120 REM ! Utg}va 1.0 87-09-20
130 REM ! av Anders Franz`n <5258>
140 REM +++++++++++++++++++++++++++++++
150 REM
160 REM Medf|r }terhopp till KERM.
170 REM
180 ; 'Tryck CTRL-C f|r BASIC,'
190 ; 'annars }ter till KERM.'
200 GET A$
210 Z%=CALL(PEEK(65063%)+256%*PEEK(65064%)+16%)