home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Action! Club Magazin 4B
/
Action_Club_Magazin_4_1987_Action_User_Group_Side_B.atr
/
restart.act
< prev
next >
Wrap
Text File
|
2023-02-26
|
278b
|
1 lines
¢; 'RESTART' DEMO¢;¢¢¢PROC RESTART()¢¢RETURN¢¢PROC IRGENDWAS()¢BYTE A ¢¢ PRINTE("Druecke TASTE fuer 'RESTART'")¢¢ A=GETD(7) ¢¢ RESTART()¢RETURN¢¢PROC START()¢¢PUTE() ¢PRINTE("'RESTART' DEMO")¢¢ RESTART=START ; PROC 'RESTART' AUF START SETZEN¢¢ IRGENDWAS()¢¢RETURN¢¢