diff --git a/assemble.com b/assemble.com index f49ac7f..45a4431 100755 Binary files a/assemble.com and b/assemble.com differ diff --git a/dialer.com b/dialer.com index f0a0303..65bac37 100755 Binary files a/dialer.com and b/dialer.com differ diff --git a/dialtest.com b/dialtest.com index 3609993..81a8352 100755 Binary files a/dialtest.com and b/dialtest.com differ diff --git a/dirtrect.com b/dirtrect.com index 51c3287..68c9b55 100755 Binary files a/dirtrect.com and b/dirtrect.com differ diff --git a/rick.jrt b/rick.jrt index 57ec037..40693e2 100755 --- a/rick.jrt +++ b/rick.jrt @@ -36,7 +36,7 @@ s" A simple textmode graphics demo advertising the game development collective\c defembed dirtrect.com s" assemble.com" -s" I think this is an 8086 assembler, but I don't have any documentation for\it and it doesn't use a standard syntax. Some kind of Forth system?" +s" This claims to be some kind of combination Forth system / 8086 assembler??\I don't know Forth and I don't have any documentation for it, and it\doesn't use a standard assembly syntax, so your guess is as good as mine." defembed assemble.com ( @@ -63,6 +63,7 @@ s" Maze Crazy 3D - Explore a fascinating maze filled with twists and turns\in 3 nl 1+ next drop ; : select-file + black bg! white fg! x" Type the number of a file, or Q to return to the menu: " inputch dup [ key q lit ] = if drop ' rick-menu return then [ key 1 lit ] - dup 0 >= over rick-filelist count < and if diff --git a/swine.com b/swine.com index 6351e5d..4888b08 100755 Binary files a/swine.com and b/swine.com differ diff --git a/swine.jrt b/swine.jrt index 62b18a9..e196b9c 100755 --- a/swine.jrt +++ b/swine.jrt @@ -389,11 +389,22 @@ array title-text t", SWINE MEEPER" blue bg! yellow fg! clear 17 3 textxy! title-text draw-spaced-text ; -4 ' draw-title defmenu title-menu -' start s" Start Game" 0 defitem -' difficulty-menu s" Difficulty" 1 defitem -' theme-menu s" Themes" 2 defitem -' leave s" Quit" 3 defitem +import embed.jrt +array instructiontext { s" swine.txt" embed } + +: instructions + lgray bg! blue fg! clear + 2 1 textxy! + instructiontext dup embed-data swap @ for each + i b@ dup 32 >= if draw-char else 10 = if 2 texty 1+ textxy! then then + next wait-key drop ; + +5 ' draw-title defmenu title-menu +' start s" Start Game" 0 defitem +' instructions s" Instructions" 1 defitem +' difficulty-menu s" Difficulty" 2 defitem +' theme-menu s" Themes" 3 defitem +' leave s" Quit" 4 defitem ' main :chain textmode reseed! hidecursor title-menu textmode ; diff --git a/swine.txt b/swine.txt index aa7405b..c0b9cae 100755 --- a/swine.txt +++ b/swine.txt @@ -1,18 +1,15 @@ - S * W * I * N * E M * E * E * P * E * R - Waddles, your trusty pig, is ready to go on the hunt for truffles! Leash him up and make your way through the grove. But be warned! Digging too close can cause damage to the truffles' mycelia, which can take years to recover from! -HOW TO PLAY: -Select a square with the arrow keys, and press the space bar or enter to dig. -Waddles will tell you how many truffles are nearby by marking the square with -a number. This is the number of neighbouring squares (including diagonals) -that have truffles. +HOW TO PLAY: Select a square with the arrow keys, and press the space bar or +enter to dig. Waddles will tell you how many truffles are nearby by marking +the square with a number. This is the number of neighbouring squares +(including diagonals) that have truffles. -If you select a square with no truffles nearby, the neighbouring squares will -automatically be cleared out. If you select a square with a truffle, it's -game over! +If you select a square with no truffles nearby, the neighbouring squares +will automatically be cleared out. If you select a square with a truffle, +it's game over! You can use the "F" key to flag and unflag a square as containing a truffle without digging there. If you select a square that has already been dug up, diff --git a/tinyjort.com b/tinyjort.com index 7e84c53..9becf5d 100755 Binary files a/tinyjort.com and b/tinyjort.com differ diff --git a/tinyjort.jrt b/tinyjort.jrt index a1eb098..355731f 100755 --- a/tinyjort.jrt +++ b/tinyjort.jrt @@ -489,6 +489,8 @@ dbg" flow control words and misc." :t :init initscripts @ here initscripts ! , ] ; : :INIT [ t& initscripts lit ] dup @t swap target swap !t w>t ] compt ; +:INIT 0 inptr @ b! ; ( ensure input buffer starts empty ) + :t doinit initscripts @ [ target ] dup BZ_ [ patchpt ] dup cell + >r @ GOTO_ [ swap w>t ] [ patch!t ] drop ; diff --git a/zipmin.com b/zipmin.com new file mode 100755 index 0000000..0dc80ee Binary files /dev/null and b/zipmin.com differ diff --git a/zipoff.com b/zipoff.com index 223dda0..114dc73 100755 Binary files a/zipoff.com and b/zipoff.com differ diff --git a/zipoff.jrt b/zipoff.jrt index b51a545..ce53048 100755 --- a/zipoff.jrt +++ b/zipoff.jrt @@ -180,6 +180,8 @@ dbg" boot" MOV BP 0x00 # NEXT +here s", zipstub.min" s" zipmin.com" writeenv + } import common.jrt { T] init execute diff --git a/zipstub.min b/zipstub.min new file mode 100755 index 0000000..4129e97 Binary files /dev/null and b/zipstub.min differ diff --git a/zipstub.seg b/zipstub.seg index 039982d..71e0d4c 100755 Binary files a/zipstub.seg and b/zipstub.seg differ