From: EdTheDev <edward@delaporte.us>
Date: Mon, 17 May 2021 03:45:22 +0000 (-0500)
Subject: Playing with X16 Emulator
X-Git-Url: https://apps.delaporte.us/gitweb/dotfiles.git/commitdiff_plain/7759d0aaef23fabf48da5ceb36625c64388dd88d?ds=sidebyside

Playing with X16 Emulator
---

diff --git a/Microsoft.PowerShell_profile.ps1 b/Microsoft.PowerShell_profile.ps1
index 31b22ad..91a9e33 100644
--- 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
index 0000000..0f80fc7
--- /dev/null
+++ b/basic/Makefile
@@ -0,0 +1,7 @@
+
+all:
+	x16emu.exe -bas app.txt
+
+gif:
+	x16emu.exe -bas app.txt -gif out.gif
+
diff --git a/basic/app.txt b/basic/app.txt
new file mode 100644
index 0000000..8c9c286
--- /dev/null
+++ b/basic/app.txt
@@ -0,0 +1,24 @@
+6 GOSUB 2000
+7 HI = 191
+8 LOW = 185
+9 Y = 0
+10 FOR X = 1 TO 42
+20 PRINT CHR$(HI);
+25 GOSUB 1000
+27 PRINT CHR$(150+RE);
+30 NEXT X
+35 PRINT CHR$(HI)
+40 Y = Y + 1
+80 GOTO 10
+1000 REM MOD
+1005 Z = X + Y
+1010 RE = Z - (INT(Z/10)*10)
+1040 RETURN
+2000 REM LIST CHARS
+2005 FOR CH = X TO 20+X
+2008 PRINT CH;
+2010 PRINT CHR$(CH)
+2020 NEXT CH
+2025 PRINT CHR$(CH)
+2030 RETURN
+
diff --git a/psmodules/drivespace.psm1 b/psmodules/drivespace.psm1
index fc5c011..59feb96 100644
--- 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