-
Notifications
You must be signed in to change notification settings - Fork 18
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
1bab9f9
commit 3afc645
Showing
97 changed files
with
2,151 additions
and
1,627 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,4 +1,4 @@ | ||
@echo off | ||
del autoexec.bat | ||
if exist _PyDexec._PyD rename _PyDexec._PyD autoexec.bat | ||
if exist _autoexec._PyD rename _autoexec._PyD autoexec.bat | ||
type menu.txt |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,7 @@ | ||
@echo off | ||
if exist autoexec.bat copy/y autoexec.bat _PyDexec._PyD | ||
if exist _autoexec._PyD goto skip | ||
if exist autoexec.bat rename autoexec.bat _autoexec._PyD | ||
:skip | ||
copy/y 3.aut autoexec.bat | ||
runvm /PyBasic/PyBasic adventure-fast.pgm | ||
menu.bat |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,19 @@ | ||
10 FOR Y = - 12 TO 12 | ||
20 FOR X = - 39 TO 30 | ||
30 CA = X * 0.0458 | ||
40 CB = Y * 0.08333 | ||
50 A = CA | ||
60 B = CB | ||
70 FOR I = 0 TO 15 | ||
80 T = A * A - B * B + CA | ||
90 B = 2 * A * B + CB | ||
100 A = T | ||
110 IF ( A * A + B * B ) > 5 THEN GOTO 200 | ||
120 NEXT I | ||
130 PRINT " " ; | ||
140 GOTO 210 | ||
200 IF I > 9 THEN I = I + 7 | ||
205 PRINT CHR$ ( 48 + I ) ; | ||
210 NEXT X | ||
220 PRINT | ||
230 NEXT Y |
Oops, something went wrong.