Added MiniScript version of 19_Bunny.

This commit is contained in:
JoeStrout
2023-07-25 10:32:13 -07:00
parent cbbf23d5b5
commit 15e033e65c
2 changed files with 62 additions and 0 deletions

View File

@@ -0,0 +1,19 @@
Original source downloaded from [Vintage Basic](http://www.vintage-basic.net/games.html).
Conversion to [MiniScript](https://miniscript.org).
Ways to play:
0. Try-It! Page:
Go to https://miniscript.org/tryit/, clear the sample code from the code editor, and paste in the contents of bunny.ms. Then click the "Run Script" button. Program output (and input) will appear in the green-on-black terminal display to the right of or below the code editor.
1. Command-Line MiniScript:
Download for your system from https://miniscript.org/cmdline/, install, and then run the program with a command such as:
miniscript bunny.ms
2. Mini Micro:
Download Mini Micro from https://miniscript.org/MiniMicro/, launch, and then click the top disk slot and chose "Mount Folder..." Select the folder containing the BASIC program. Then, at the Mini Micro command prompt, enter:
load "bunny"
run

View File

@@ -0,0 +1,43 @@
print " "*33 + "Bunny"
print " "*15 + "Creative Computing Morristown, New Jersey"
print; print; print
data = []
data += [1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1]
data += [1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48,-1]
data += [5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1]
data += [9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1]
data += [13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1]
data += [19,26,-1,16,28,-1,13,30,-1,11,31,-1,10,32,-1]
data += [8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1]
data += [4,12,16,35,-1,3,12,15,35,-1,2,35,-1,1,35,-1]
data += [2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1]
data += [14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1]
data += [14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1]
data += [12,29,31,33,-1,11,13,17,17,19,19,22,22,24,31,-1]
data += [10,11,17,18,22,22,24,24,29,29,-1]
data += [22,23,26,29,-1,27,29,-1,28,29,-1,4096]
string.pad = function(w)
return self + " " * (w - self.len)
end function
for i in range(5); print; end for
line = ""
while true
x = data.pull
if x > 128 then break
if x >= 0 then
line = line.pad(x)
y = data.pull
for i in range(x, y)
line += "BUNNY"[i % 5]
end for
else
print line
line = ""
wait 0.1 // optional delay to make printing more visible
end if
end while