1 REM Ins{nt av 2597 13111 REM +-----------------------------------------------------------+ 13112 REM ! Programnamn : INGRESS.SUB Datum : 830925 ! 13113 REM ! ************************************************* ! 13114 REM ! Konstrukt|r : ! 13115 REM ! Leif Davidsson ABC-medlem nr 2597 ! 13116 REM ! Rutinen kan anv{ndas som snygg inledning p} ett ! 13117 REM ! program. ! 13118 REM ! COPYRIGHT (ABCklubbmedlemmar fri anv{ndningar) ! 13119 REM +-----------------------------------------------------------+ 13120 ; INP(4) : REM RUTINEN AVSEDD F\R 80TKN!!!!! 13121 ; CHR$(12) 13122 FOR I=O TO 23 13123 ; CUR(I,0);CHR$(151) 13124 NEXT I 13125 FOR X=2 TO 159 : SETDOT 0,X : SETDOT 68,X : NEXT X 13126 FOR Y=0 TO 67 : SETDOT Y,2 : SETDOT Y,79 : SETDOT Y,159 : NEXT Y 13127 ; CUR(20,45);' PLATS F\R PROGRAMNAMN ' 13128 R%=36% : K%=40% : A%=1% : B%=1% : C%=1% 13129 IF K%=3% THEN GOTO 13141 13130 IF K%=78% GOTO 13143 13131 IF R%=1% THEN GOTO 13145 13132 IF R%=67% THEN GOTO 13139 13133 R%=R%+A% : K%=K%+B% 13134 SETDOT R%,K% 13135 C%=C%+1% 13136 IF C%>3000% THEN GOTO 13147 13137 IF INP(56)>128 THEN 13148 ELSE 13138 13138 GOTO 13129 13139 A%=-1% 13140 GOTO 13133 13141 B%=1% 13142 GOTO 13133 13143 B%=-1% 13144 GOTO 13133 13145 A%=1% 13146 GOTO 13133 13147 GOTO 13121 13148 ; CHR$(12) : ; 'de du !!! '