Freezing Basic

[MrPixel]

i decided to screw around with basic and decided to make a inescapable loop

(i was bored)

10 REM gosub loop
11 plot 12,2
12 draw 14,2
13 if Inkey$="a" then goto 20
20 goto 10


any other ways to do so?

[R-Tape]

any other ways to do so?

I give you Spectropolis, a city that slowly comes to life at night. Watch and wonder as the lights from buildings, cars and stars flicker while the inhabitants go about their business.

Code: Select all

5 BORDER 0: PAPER 0: CLS
10 INK 1+(RND*7)
20 PLOT RND*255, RND*175
40 GOTO 10

[RMartins]

Code: Select all

10 FOR i= 1 TO 2 STEP 0
20 PRINT i
30 NEXT i

Dumb loop will keep BASIC ocuppied.

[1024MAK]

Code: Select all

10 LET HELL=20 : LET bottles=1E8
20 POKE 23692,255
30 PRINT bottles;" green bottles sitting"',"on the wall..."
40 LET bottles=bottles-1
50 GO TO HELL

Mark

[MrPixel]

Code: Select all

10 LET HELL=20 : LET bottles=1E8
20 POKE 23692,255
30 PRINT bottles;" green bottles sitting"',"on the wall..."
40 LET bottles=bottles-1
50 GO TO HELL

Mark

LOL

[MrPixel]

you magnificent bastard!

[Ast A. Moore]

When I was modding my Toast Rack to improved the video output quality, I needed to create a gray screen in BASIC, which would also access contended memory with with a varying frequency. So just did this and pressed buttons while it ran:

Code: Select all

1 RUN

[R-Tape]

Is it possible to properly freeze BASIC (disable BREAK) without using POKE or any USR?

[Ast A. Moore]

Is it possible to properly freeze BASIC (disable BREAK) without using POKE or any USR?

I don’t think so. Since you can’t disable interrupts (from BASIC), and the ISR at $38 is what checks for keypresses, I don’t see an obvious way of doing that. Well, BEEP (and a few other BASIC commands) do disable interrupts, but making a long BEEP is more of a cheat.

EDIT: Oh, you can’t fool BASIC that easily, either. BEEP doesn’t allow to play super long notes.

[AndyC]

Code: Select all

10 POKE 23620,0