0 REM LOXLEY© 2022 ARIEL RUIZ
2 BORDER K: CLS : LET F=CODE "A": GO TO .
4 GO TO .: POKE .,CODE "A"+F: IF F<K OR F>L+L THEN GO TO CODE ""
8 PRINT "VAL K/";C$;"[K/ RETURN [";: POKE .,L: POKE .,CODE "A"+F: IF F=L+L THEN PRINT "STR$ PLOT LET [R]<VAL MOVE LLIST LIN RND LLIST RND+ LET LLIST "
10 IF INKEY$<>"" THEN GO TO CODE ""
11 PRINT "[K/";B$;"[K/";A$;"[K/";: GO TO .: PRINT "[K/";C$;"[K/";B$;"[K/";: GO TO .: PRINT "[K/";D$;"[K/";C$;"[K/";: GO TO .: PRINT "[K/";E$;"[K/";D$;"[K/";: GO TO .: PRINT "[K/";F$;"[K/";E$;"[K/";: GO TO .: PRINT "[K/";G$;"[K/";F$;"[K/";: GO TO .: PRINT "[D]?[Q]";
100 PRINT "[C][[C]PP COPY FORMAT FORMAT COPY [C]ASN ASN COPY [C]USR [C]RNDUSR ABS CIRCLE [C]B STEP [C]RNDUSR ABS CIRCLE [C] PAPER RNDUSR [C]W BORDER RNDUSR [C][K] NEXT RNDUSR [C]u TO RNDUSR [C]VAL CIRCLE RNDUSR [C] CAT DATA RNDUSR [C]";: PRINT "USR [C]RNDUSR ABS CIRCLE [C][E] AND [C]RNDUSR ABS CIRCLE [C][K] TO [C]RNDUSR ABS CIRCLE [C]W OPEN #[C]RNDUSR ABS CIRCLE [C]y CIRCLE [C]RNDUSR ABS CIRCLE [C][C]ABS BRIGHT [C]RNDUSR ABS CIRCLE [C][C]<= LPRINT [C]RNDUSR ABS CIRCLE [C][C] LIST NEW [C]RNDUSR ABS CIRCLE [C]";"USR [C]RNDUSR ABS CIRCLE [C][E] AND [C]RNDUSR ABS CIRCLE [C][K] TO [C]RNDUSR ABS CIRCLE [C]W OPEN #[C]RNDUSR ABS CIRCLE [C]y CIRCLE [C]RNDUSR ABS CIRCLE [C][C]ABS BRIGHT [C]RNDUSR ABS CIRCLE [C][C]<= LPRINT [C]RNDUSR ABS CIRCLE [C][C] LIST NEW [C]RNDUSR ABS CIRCLE [C]";"USR [C]RNDUSR ABS CIRCLE [C][E] AND [C]RNDUSR ABS CIRCLE [C][K] TO [C]RNDUSR ABS CIRCLE [C]W OPEN #[C]RNDUSR ABS CIRCLE [C]y CIRCLE [C]RNDUSR ABS CIRCLE [C][C]ABS BRIGHT [C]RNDUSR ABS CIRCLE [C][C]<= LPRINT [C]RNDUSR ABS CIRCLE [C][C] LIST NEW [C]RNDUSR ABS CIRCLE [C]";: PRINT "f[C]RNDUSR ABS CIRCLE [C]4s[C]RNDUSR ABS CIRCLE [C]W[C]RNDUSR ABS CIRCLE [C]ATTR GO SUB [C]RNDUSR ABS CIRCLE [C]NOT [C]RNDUSR ABS CIRCLE [C]? ERASE [C]RNDUSR ABS CIRCLE [C] MOVE LLIST [C]RNDUSR ABS CIRCLE [C]+ LET [C]RNDUSR ABS CIRCLE [C] LET [C]RNDUSR ABS CIRCLE [C]RND@[C]";: LET F=CODE "I": GO TO .: LET F=CODE "J": LET J=K: GO TO .: LET J=R: PRINT "[B] COPY IN C[D][";
140 FOR Y=K TO .: PRINT "[C]";: IF INKEY$="" THEN NEXT Y: GO TO CODE "d"
142 IF INKEY$=" " THEN PRINT "[D]?[Q]";: GO TO CODE ""
150 POKE .,K: POKE .,CODE "<": PRINT "[D]0[Q][A]";: CLS
151 LOAD "LOXLEY": GO TO CODE "[H]"
9900 PRINT "";: IF INKEY$<>"" THEN GO TO .
9905 POKE .,INT CODE INKEY$: PRINT "[K/";: IF NOT PEEK LK THEN GO TO .
9906 LET F=PEEK LK-CODE "1": RETURN
9911 PRINT "[K/";: FOR Y=K TO .: IF INKEY$<>"" THEN PRINT "[K/";: LET Y=.
9915 PRINT "[K/[C]";: NEXT Y: RETURN
9930 LET N=K: LET J=L+L
9940 PRINT "";: POKE .,J: POKE .,F: PRINT "[6/[K/";
9941 PRINT #CODE "";A$;: PRINT "[K/";: RETURN
Сообщение от goodboy
Ответить с цитированием