Playing with X16 Emulator

diff --git a/Microsoft.PowerShell_profile.ps1 b/Microsoft.PowerShell_profile.ps1
index 31b22adbe57c2933bba0eeddd55db97262959930..91a9e3347d1daf87aea80f86ebfcec9a8b0f233b 100644 (file)
--- a/Microsoft.PowerShell_profile.ps1
+++ b/Microsoft.PowerShell_profile.ps1
@@ -26,6 +26,7 @@ if($IsWindows){
        $ENV:PATH+=";C:\Program Files\Microsoft VS Code\bin" # One Editor to rule them all
        $ENV:PATH+=";C:\Program Files\Git\cmd" # Version control is nice.
        $ENV:PATH+=";C:\ProgramData\chocolatey\bin" # Package management is nice.
+       $ENV:PATH+=";C:\bin\x16emu" # Package management is nice.
        $ENV:PATH+=";C:\PENGUIN" # Flag to ensure my profile kicked in.
 }
 

diff --git a/basic/Makefile b/basic/Makefile
new file mode 100644 (file)
index 0000000..0f80fc7
--- /dev/null
+++ b/basic/Makefile
@@ -0,0 +1,7 @@
+\r
+all:\r
+       x16emu.exe -bas app.txt\r
+\r
+gif:\r
+       x16emu.exe -bas app.txt -gif out.gif\r
+\r

diff --git a/basic/app.txt b/basic/app.txt
new file mode 100644 (file)
index 0000000..8c9c286
--- /dev/null
+++ b/basic/app.txt
@@ -0,0 +1,24 @@
+6 GOSUB 2000\r
+7 HI = 191\r
+8 LOW = 185\r
+9 Y = 0\r
+10 FOR X = 1 TO 42\r
+20 PRINT CHR$(HI);\r
+25 GOSUB 1000\r
+27 PRINT CHR$(150+RE);\r
+30 NEXT X\r
+35 PRINT CHR$(HI)\r
+40 Y = Y + 1\r
+80 GOTO 10\r
+1000 REM MOD\r
+1005 Z = X + Y\r
+1010 RE = Z - (INT(Z/10)*10)\r
+1040 RETURN\r
+2000 REM LIST CHARS\r
+2005 FOR CH = X TO 20+X\r
+2008 PRINT CH;\r
+2010 PRINT CHR$(CH)\r
+2020 NEXT CH\r
+2025 PRINT CHR$(CH)\r
+2030 RETURN\r
+\r

diff --git a/psmodules/drivespace.psm1 b/psmodules/drivespace.psm1
index fc5c0114af82100713d79bb2ea5171511fcbec4f..59feb96d962c377038de904e7a1c58eb8f3fb4f3 100644 (file)
--- a/psmodules/drivespace.psm1
+++ b/psmodules/drivespace.psm1
@@ -21,22 +21,6 @@ function Show-Drivespace() {
        }
 }
 
-function Show-DrivespacePretty() {
-       Start-Job -Name "FileCollection" -ScriptBlock {Show-Drivespace() }
-While((Get-Job -Name "FileCollection").State -eq "Running") {
-            Write-Progress -Activity "Collecting Files..." -PercentComplete $x
-       If($x -eq 100){
-               $x = 1
-       }
-       Else{
-               $x += 1
-       }
-}
-Write-Progress -Activity "Collecting Files..." -Completed
-$Files = Get-Job -Name "FileCollection" | Receive-Job
-Get-Job -Name "FileCollection" | Remove-Job
-}
 
 Export-ModuleMember -Function Show-Drivespace 
-Export-ModuleMember -Function Show-DrivespacePretty
 Export-ModuleMember -Function Show-LargeFiles