From f1959df59b0f843e2506bf38382f15aea7699de2 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 10 Oct 2020 17:47:39 -0400
Subject: [PATCH] asoft-tokenizer: fix DEF FN token

---
 asoft_basic-utils/tokenize_asoft.c | 2 +-
 two-liners/raster4.bas             | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)
 create mode 100644 two-liners/raster4.bas

diff --git a/asoft_basic-utils/tokenize_asoft.c b/asoft_basic-utils/tokenize_asoft.c
index 655ebfb5..72eae978 100644
--- a/asoft_basic-utils/tokenize_asoft.c
+++ b/asoft_basic-utils/tokenize_asoft.c
@@ -35,7 +35,7 @@ char applesoft_tokens[][8]={
 /* A0 */ "COLOR=","POP","VTAB ","HIMEM:","LOMEM:","ONERR","RESUME","RECALL",
 /* A8 */ "STORE","SPEED=","LET","GOTO","RUN","IF","RESTORE","&",
 /* B0 */ "GOSUB","RETURN","REM","STOP","ON","WAIT","LOAD","SAVE",
-/* B8 */ "DEF FN","POKE","PRINT","CONT","LIST","CLEAR","GET","NEW",
+/* B8 */ "DEF","POKE","PRINT","CONT","LIST","CLEAR","GET","NEW",
 /* C0 */ "TAB(","TO","FN","SPC(","THEN","AT","NOT","STEP",
 /* C8 */ "+","-","*","/","^","AND","OR",">",
 /* D0 */ "=","<","SGN","INT","ABS","USR","FRE","SCRN(",
diff --git a/two-liners/raster4.bas b/two-liners/raster4.bas
new file mode 100644
index 00000000..387fe27a
--- /dev/null
+++ b/two-liners/raster4.bas
@@ -0,0 +1,2 @@
+1REM(X\(V\C7PC#PC PJ(AYA_J!A_I_,!R0L"H +H_C* &: A_I_O: \"K* , &:,A_I_.Y_H H ($]H)C5P(8 C5P(8 B$\Q_,M$SI_D)R@)_8 $(,,($ XP)%%1F=E< &N/5:]@/3W)E $<!> .D10GA#Y;L
+2FORI=0TO115:C=INT((PEEK(2169+I/3)-32)/4^(I-INT(I/3)*3)):POKE768+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL768