mcphail/BASIC10Liner2026
Private
Public Access
1
0
Fork 0
Code Activity

Improve format of the autolisting

Browse Source
This commit is contained in:
Neil McPhail
2026-02-08 22:48:17 +00:00
parent ab118735df
commit ef3b557c0d
2 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Makefile
View File

@@ -1,7 +1,13 @@
all: game.tap list.txt all: game.tap listing.txt
list.txt: game.tap listing.txt: game.tap
listbasic game.tap > list.txt echo "DEC-Man Listing for the 2026 BASIC 10Liner Competition (PUR-80 Category) by mcphail (btl AT mcphail.uk)" > $@
echo "-------------------------------------------------------------------------------------------------------" >> $@
echo "\n (Note - Line 1 has 4 extra control characters before the line of dots for PAPER BLACK and INK GREEN." >> $@
echo " These characters are shown in the listing as € signs.)\n" >> $@
echo "....> ---------|---------|---------|---------|---------|---------|---------|---------|" >> $@
listbasic game.tap | sed 's/" /" €€€€/' >> $@
echo "....> ---------|---------|---------|---------|---------|---------|---------|---------|" >> $@
game.tap: pac.bas game.tap: pac.bas
zmakebas -l -i 1 -s 1 -n pac -a 1 -o game.tap pac.bas zmakebas -l -i 1 -s 1 -n pac -a 1 -o game.tap pac.bas

10
list.txt → listing.txt
View File

@@ -1,4 +1,11 @@
1 FOR i=1 TO 9: PRINT AT i,0;" ..............": NEXT i: LET p=22562: LET z=4 DEC-Man Listing for the 2026 BASIC 10Liner Competition (PUR-80 Category) by mcphail (btl AT mcphail.uk)
-------------------------------------------------------------------------------------------------------
(Note - Line 1 has 4 extra control characters before the line of dots for PAPER BLACK and INK GREEN.
These characters are shown in the listing as € signs.)
....> ---------|---------|---------|---------|---------|---------|---------|---------|
1 FOR i=1 TO 9: PRINT AT i,0;" €€€€..............": NEXT i: LET p=22562: LET z=4
2 READ a: READ b: DEF FN b()=FN a(g,(g-p<0))+FN a(g,-(g-p>0)): DATA 1,8,2,3,2,4,2 2 READ a: READ b: DEF FN b()=FN a(g,(g-p<0))+FN a(g,-(g-p>0)): DATA 1,8,2,3,2,4,2
3 IF a THEN PRINT AT a,b;" ";AT a,17-b;" ";AT 10-a,b;" ";AT 10-a,17-b;" ": GO TO 2 3 IF a THEN PRINT AT a,b;" ";AT a,17-b;" ";AT 10-a,b;" ";AT 10-a,17-b;" ": GO TO 2
4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 89 STEP 0: LET k$=INKEY$ 4 LET g=22831: POKE 22689,129: POKE 22704,129: FOR s=1 TO 89 STEP 0: LET k$=INKEY$
@@ -8,3 +15,4 @@
8 LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): LET j=(FN b()*NOT j)+j: POKE g,z 8 LET j=FN a(g,32*(j<-18))+FN a(g,-32*(j>18)): LET j=(FN b()*NOT j)+j: POKE g,z
9 LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN 9 LET b=j-(b*NOT j): LET g=g+b: LET z=PEEK g: POKE g,40: IF z=54 OR q=40 THEN RUN
10 LET s=s+1*(q=4): NEXT s: BEEP 1,10: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56) 10 LET s=s+1*(q=4): NEXT s: BEEP 1,10: RUN : DEF FN a(l,n)=n*(PEEK (l+n)<>56)
....> ---------|---------|---------|---------|---------|---------|---------|---------|