curioustorvald/tsvm
1
0
Fork 0
mirror of https://github.com/curioustorvald/tsvm.git synced 2026-06-17 01:44:05 +09:00
Code Issues Packages Projects Releases Wiki Activity

basic update

Browse Source
This commit is contained in:
minjaesong
2021-01-05 10:30:27 +09:00
parent 5e3cbf7b2c
commit b73c000d43
4 changed files with 760 additions and 369 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
assets/disk0/home/basic/hangman.bas
View File

@@ -1,7 +1,8 @@
1 OPTIONBASE 1 1 OPTIONBASE 1
10 PRINT SPC(32);"HANGMAN" 10 PRINT SPC(32);"HANGMAN"
20 PRINT SPC(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINT SPC(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
25 PRINT:PRINT:PRINT 21 PRINT:PRINT SPC(14);"EDITOR'S NOTE: ALWAYS TYPE IN CAPITAL LETTERS!"
25 PRINT:PRINT
30 PSTR=DIM(12,12):LSTR=DIM(20):DSTR=DIM(20):NSTR=DIM(26):U=DIM(50) 30 PSTR=DIM(12,12):LSTR=DIM(20):DSTR=DIM(20):NSTR=DIM(26):U=DIM(50)
40 C=1: N=50 40 C=1: N=50
50 FOR I=1 TO 20: DSTR(I)="-": NEXT: M=0 50 FOR I=1 TO 20: DSTR(I)="-": NEXT: M=0
@@ -36,7 +37,7 @@
330 PRINT "WHAT IS YOUR GUESS FOR THE WORD";:INPUT BSTR 330 PRINT "WHAT IS YOUR GUESS FOR THE WORD";:INPUT BSTR
340 IF ASTR==BSTR THEN GOTO 360 340 IF ASTR==BSTR THEN GOTO 360
350 PRINT "WRONG. TRY ANOTHER LETTER.": PRINT: GOTO 170 350 PRINT "WRONG. TRY ANOTHER LETTER.": PRINT: GOTO 170
360 PRINT "RIGHT!! IT TOOK YOU";T1;"GUESSES!" 360 PRINT "RIGHT!! IT TOOK YOU ";T1;" GUESSES!"
370 PRINT "WANT ANOTHER WORD";:INPUT WSTR: IF WSTR=="YES" THEN GOTO 50 370 PRINT "WANT ANOTHER WORD";:INPUT WSTR: IF WSTR=="YES" THEN GOTO 50
380 PRINT: PRINT "IT'S BEEN FUN! BYE FOR NOW.": GOTO 999 380 PRINT: PRINT "IT'S BEEN FUN! BYE FOR NOW.": GOTO 999
390 PRINT "YOU FOUND THE WORD!": GOTO 370 390 PRINT "YOU FOUND THE WORD!": GOTO 370

2
assets/disk0/home/basic/qsort.bas
View File

@@ -1,5 +1,3 @@
1 REM qsort [] = []
2 REM qsort xs = qsort [x | x<-tail xs, x<head xs] ++ [head xs] ++ qsort [x | x<-tail xs, x>=head xs]
10 DEFUN LESS(P,X)=X<P 10 DEFUN LESS(P,X)=X<P
11 DEFUN GTEQ(P,X)=X>=P 11 DEFUN GTEQ(P,X)=X>=P
12 DEFUN QSORT(XS)=IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER(LESS~<HEAD(XS),TAIL(XS))) # HEAD(XS)!NIL # QSORT(FILTER(GTEQ~<HEAD(XS),TAIL(XS))) 12 DEFUN QSORT(XS)=IF LEN(XS)<1 THEN NIL ELSE QSORT(FILTER(LESS~<HEAD(XS),TAIL(XS))) # HEAD(XS)!NIL # QSORT(FILTER(GTEQ~<HEAD(XS),TAIL(XS)))

1109
assets/disk0/tbas/basic.js
View File

File diff suppressed because it is too large Load Diff

13
assets/disk0/tbas/regex Normal file
View File

@@ -0,0 +1,13 @@
Nuke comments:
/\*[ -~\n]+?\*/|//[^\n]*
then do:
\n *\n+
replace into
\n
until there's no match left